From 31753393e4492df44d6ed47b65d58f750843426a Mon Sep 17 00:00:00 2001 From: doogie <> Date: Thu, 16 Aug 2001 06:25:53 -0800 Subject: [PATCH] [project @ 2001-08-16 07:25:53 by doogie] Add $config_path and $lib_path at the top, and modify the code to use these vars, instead of hard-coding the paths. --- scripts/expire.in | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/scripts/expire.in b/scripts/expire.in index cbc5d46..e851f94 100755 --- a/scripts/expire.in +++ b/scripts/expire.in @@ -1,11 +1,16 @@ #!/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 -- 2.39.2