#!/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";
#!/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
#!/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');
#!/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");
#!/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
(code $codeletter ref $tryref); $tdate
END
+# Process the message's mail headers
for ($i=0; $i<=$#msg; $i++) {
$_ = $msg[$i];
last unless length($_);
#!/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
#
# 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' );
#!/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 {
#!/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
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");