[project @ 2002-10-06 22:54:48 by cjwatson]

[debbugs.git] / scripts / processall.in

diff --git a/scripts/processall.in b/scripts/processall.in
index acd7dacc4c265576ac3dd7f861e2f801021d638c..745ad50232edc3532ef9db4771ac9616cb4cdfbb 100755 (executable)
--- a/scripts/processall.in
+++ b/scripts/processall.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: processall.in,v 1.5 2001/07/15 10:05:23 doogie Exp $
+# $Id: processall.in,v 1.8 2002/10/06 22:54:48 cjwatson Exp $
 #
 # Usage: processall
 #
@@ -8,14 +8,22 @@
 # Creates: incoming/E.nn
 # Stop;    process/stop
 
-require( '/etc/debbugs/config' );
-require( '/usr/lib/debbugs/errorlib' );
-$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
+$config_path = '/org/bugs.debian.org/etc';
+$lib_path = '/org/bugs.debian.org/scripts';
+
+require "$config_path/config";
+require "$lib_path/errorlib";
+$ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'};
+
+use File::Path;
+
 chdir( "$gSpoolDir" ) || die 'chdir spool: $!\n';
-push( @INC, '/usr/lib/debbugs' );
+push( @INC, "$lib_path" );
 
 #open(DEBUG,">&4");
 
+umask(002);
+
 $|=1;
 undef %fudged;
 
@@ -44,11 +52,11 @@ for (;;) {
     if ($id =~ m/^[RC]/) {
         print(STDOUT "[$nf] $id service ...") || die $!;
         defined($c=fork) || die $!;
-        if (!$c) { exec("/usr/lib/debbugs/service",$id); die $!; }
+        if (!$c) { exec("$lib_path/service",$id); die $!; }
     } elsif ($id =~ m/^[BMQFDU]/) {
         print(STDOUT "[$nf] $id process ...") || die $!;
         defined($c=fork) || die $!;
-        if (!$c) { exec("/usr/lib/debbugs/process",$id); die $!; }
+        if (!$c) { exec("$lib_path/process",$id); die $!; }
     } else {
         die "bad name $id";
     }
@@ -58,6 +66,7 @@ for (;;) {
         print(STDERR "$id: process failed ($status $!) - now in [PG]$id\n") || die $!;
     }
     print(STDOUT " done\n") || die $!;
+    rmtree("$gSpoolDir/mime.tmp",0,1);
     $ndone++;
 }
 &unfilelock;