[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 745ad50232edc3532ef9db4771ac9616cb4cdfbb..6ce4fe9e80c76029ca8fea785a4112cffac5cc31 100755 (executable)
--- 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<code><bugnum>.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 $!; }