X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fprocessall.in;h=6ce4fe9e80c76029ca8fea785a4112cffac5cc31;hb=c277a2a3ce76a68c4d59c4027487695a064c7d1d;hp=745ad50232edc3532ef9db4771ac9616cb4cdfbb;hpb=4a4170e0f4e716ea12c5249721c9283e18159df7;p=debbugs.git diff --git a/scripts/processall.in b/scripts/processall.in index 745ad50..6ce4fe9 100755 --- a/scripts/processall.in +++ b/scripts/processall.in @@ -1,15 +1,15 @@ #!/usr/bin/perl -# $Id: processall.in,v 1.8 2002/10/06 22:54:48 cjwatson Exp $ +# $Id: processall.in,v 1.11 2005/10/06 03:32:13 ajt Exp $ # # Usage: processall # # Uses up: incoming/I.nn # Temps: incoming/[GP].nn # Creates: incoming/E.nn -# Stop; process/stop +# Stop: stop -$config_path = '/org/bugs.debian.org/etc'; -$lib_path = '/org/bugs.debian.org/scripts'; +$config_path = '/etc/debbugs'; +$lib_path = '/usr/lib/debbugs'; require "$config_path/config"; require "$lib_path/errorlib"; @@ -17,8 +17,8 @@ $ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'}; use File::Path; -chdir( "$gSpoolDir" ) || die 'chdir spool: $!\n'; -push( @INC, "$lib_path" ); +chdir( $gSpoolDir ) || die "chdir spool: $!\n"; +push( @INC, $lib_path ); #open(DEBUG,">&4"); @@ -53,7 +53,7 @@ for (;;) { print(STDOUT "[$nf] $id service ...") || die $!; defined($c=fork) || die $!; if (!$c) { exec("$lib_path/service",$id); die $!; } - } elsif ($id =~ m/^[BMQFDU]/) { + } elsif ($id =~ m/^[BMQFDUL]/) { print(STDOUT "[$nf] $id process ...") || die $!; defined($c=fork) || die $!; if (!$c) { exec("$lib_path/process",$id); die $!; }