#!/usr/bin/perl
-# $Id: expire.in,v 1.6 2000/10/07 17:27:13 joy Exp $
+# $Id: expire.in,v 1.7 2001/08/16 07:25:53 doogie Exp $
# Load modules and set envirnment
-require('/etc/debbugs/config');
-require('/usr/lib/debbugs/errorlib');
use File::Copy;
-$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
+$config_path = '/org/bugs.debian.org/etc';
+$lib_path = '/org/bugs.debian.org/scripts';
+
+require("$config_path/config");
+require("$config_path/text");
+require("$lib_path/errorlib");
+$ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'};
+
chdir("$gSpoolDir") || die "chdir spool: $!\n";
#global variables