[project @ 2000-10-07 17:27:13 by joy]

fixed how /usr/lib/debbugs is prepended to PATH variable

diff --git a/scripts/db2html.in b/scripts/db2html.in
index 9b4e3bbd05f457e73c39c718fd4ccf6e62309661..8e21a52a2731cbef0aa2a1d3069a6ae248e50970 100755 (executable)
--- a/scripts/db2html.in
+++ b/scripts/db2html.in
@@ -1,12 +1,12 @@
 #!/usr/bin/perl
-# $Id: db2html.in,v 1.5 1999/10/25 01:35:04 gecko Exp $
+# $Id: db2html.in,v 1.6 2000/10/07 17:27:13 joy Exp $
 # usage: db2html [-diff] [-stampfile=<stampfile>] [-lastrun=<days>] <wwwbase>
 
 #load the necessary libraries/configuration
 require('/etc/debbugs/config');
 require('/etc/debbugs/text');
 require('/usr/lib/debbugs/errorlib');
-$ENV{'PATH'}= '/usr/lib/debbugs'.$ENV{'PATH'};
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 
 #set current working directory
 chdir("$gSpoolDir") || die "chdir spool: $!\n";

diff --git a/scripts/expire.in b/scripts/expire.in
index ab45e5bc59a82e75ac53f2acde040c465ae15dad..cbc5d467ec2a7482454e42bb67352d3631f7d1b1 100755 (executable)
--- a/scripts/expire.in
+++ b/scripts/expire.in
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
-# $Id: expire.in,v 1.5 1999/09/20 05:40:07 gecko Exp $
+# $Id: expire.in,v 1.6 2000/10/07 17:27:13 joy 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'};
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 #global variables

diff --git a/scripts/html-control.in b/scripts/html-control.in
index 503e744a162f55003d0bcd451e7733bf677d37b5..ac5d8da1bb37bac4e8ce2b81ce9eb7577a36bd01 100755 (executable)
--- a/scripts/html-control.in
+++ b/scripts/html-control.in
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
-# $Id: html-control.in,v 1.4 1999/10/25 01:35:04 gecko Exp $
+# $Id: html-control.in,v 1.5 2000/10/07 17:27:13 joy Exp $
 
 use POSIX;
 
 require '/etc/debbugs/config';
 require '/usr/lib/debbugs/errorlib';
-$ENV{'PATH'}= '/usr/lib/debbugs'.$ENV{'PATH'};
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir("$gSpoolDir") || die "chdir spool: $!\n";
 #push(@INC,'/usr/lib/debbugs');
 

diff --git a/scripts/mailsummary.in b/scripts/mailsummary.in
index c6e65d9da747ce40a78a51bc5cf507b965f486a2..d3a50ad6f5897bcd98fec50f8e22a31e03a76589 100755 (executable)
--- a/scripts/mailsummary.in
+++ b/scripts/mailsummary.in
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id: mailsummary.in,v 1.4 1999/09/20 05:40:07 gecko Exp $
+# $Id: mailsummary.in,v 1.5 2000/10/07 17:27:13 joy Exp $
 
 require( '/etc/debbugs/config' );
 
-$ENV{'PATH'}= '/usr/lib/debbugs'.$ENV{'PATH'};
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 #open(DEBUG,">&4");

diff --git a/scripts/process.in b/scripts/process.in
index 3362ac75b166207e54adc31861af2048c9716d3c..cac962d3e0c8f0d37bd049f3f1fe614d577bc5a4 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.15 2000/10/06 06:21:54 doogie Exp $
+# $Id: process.in,v 1.16 2000/10/07 17:27:13 joy Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -50,6 +50,7 @@ Received: via spool by $baddress\@$gEmailDomain id=$nn
           (code $codeletter ref $tryref); $tdate
 END
 
+# Process the message's mail headers
 for ($i=0; $i<=$#msg; $i++) {
     $_ = $msg[$i];
     last unless length($_);

diff --git a/scripts/processall.in b/scripts/processall.in
index 26b402b3e4c00a05b14d22ad4d8093e3b292be8a..00c249f01ea52a2c7625bfa2037ed7660f3c077f 100755 (executable)
--- a/scripts/processall.in
+++ b/scripts/processall.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: processall.in,v 1.3 1999/09/18 21:01:27 gecko Exp $
+# $Id: processall.in,v 1.4 2000/10/07 17:27:13 joy Exp $
 #
 # Usage: processall
 #
@@ -9,7 +9,7 @@
 # Stop;    process/stop
 
 require( '/etc/debbugs/config' );
-$ENV{'PATH'} = '/usr/lib/debbugs'.$ENV{'PATH'};
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir( "$gSpoolDir" ) || die 'chdir spool: $!\n';
 push( @INC, '/usr/lib/debbugs' );
 

diff --git a/scripts/rebuild.in b/scripts/rebuild.in
index f2378fe69b6340d4bdd6a82c260ac5836628d0df..6c869bf92b6e7df4a2554269d92faf9442655667 100755 (executable)
--- a/scripts/rebuild.in
+++ b/scripts/rebuild.in
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
-# $Id: rebuild.in,v 1.2 1999/10/25 06:18:14 gecko Exp $
+# $Id: rebuild.in,v 1.3 2000/10/07 17:27:13 joy Exp $
 
 # Load modules and set envirnment
 use File::Copy;
 require('/etc/debbugs/config');
 require('/usr/lib/debbugs/errorlib');
-$ENV{'PATH'}= '/usr/lib/debbugs'.$ENV{'PATH'};
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 sub readreport {

diff --git a/scripts/service.in b/scripts/service.in
index 8eca1324bc076a405e286465c979708843ce585a..f716c5cdde7c0a9aff78ad22e6545d27dc5c8441 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: service.in,v 1.19 2000/10/07 15:16:18 joy Exp $
+# $Id: service.in,v 1.20 2000/10/07 17:27:13 joy Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -7,7 +7,7 @@
 use Mail::Address;
 require('/etc/debbugs/config');
 require('/usr/lib/debbugs/errorlib');
-$ENV{'PATH'}= '/usr/lib/debbugs'.$ENV{'PATH'};;
+$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 # open(DEBUG,">&4");