[project @ 2005-10-06 03:32:13 by ajt]

[debbugs.git] / scripts / processall.in

diff --git a/scripts/processall.in b/scripts/processall.in
index e62a5ed4f81525ddd1a29c20ad54e12071833314..6ce4fe9e80c76029ca8fea785a4112cffac5cc31 100755 (executable)
--- a/scripts/processall.in
+++ b/scripts/processall.in
@@ -1,12 +1,12 @@
 #!/usr/bin/perl
-# $Id: processall.in,v 1.9 2002/11/17 22:45:16 cjwatson Exp $
+# $Id: processall.in,v 1.11 2005/10/06 03:32:13 ajt Exp $
 #
 # Usage: processall
 #
 # Uses up: incoming/I<code><bugnum>.nn
 # Temps:   incoming/[GP].nn
 # Creates: incoming/E.nn
-# Stop;    process/stop
+# Stop:    stop
 
 $config_path = '/etc/debbugs';
 $lib_path = '/usr/lib/debbugs';
@@ -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 $!; }