From c239dfe8a3affe0a9ea8c53d4f9b3f41714ed579 Mon Sep 17 00:00:00 2001
From: joy <>
Date: Sat, 7 Oct 2000 16:27:13 -0800
Subject: [PATCH] [project @ 2000-10-07 17:27:13 by joy] fixed how
 /usr/lib/debbugs is prepended to PATH variable

---
 scripts/db2html.in      | 4 ++--
 scripts/expire.in       | 4 ++--
 scripts/html-control.in | 4 ++--
 scripts/mailsummary.in  | 4 ++--
 scripts/process.in      | 3 ++-
 scripts/processall.in   | 4 ++--
 scripts/rebuild.in      | 4 ++--
 scripts/service.in      | 4 ++--
 8 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/scripts/db2html.in b/scripts/db2html.in
index 9b4e3bbd..8e21a52a 100755
--- 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 ab45e5bc..cbc5d467 100755
--- 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 503e744a..ac5d8da1 100755
--- 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 c6e65d9d..d3a50ad6 100755
--- 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 3362ac75..cac962d3 100755
--- 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 26b402b3..00c249f0 100755
--- 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 f2378fe6..6c869bf9 100755
--- 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 8eca1324..f716c5cd 100755
--- 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");
-- 
2.39.5