#!/usr/bin/perl
-# $Id: processall.in,v 1.4 2000/10/07 17:27:13 joy Exp $
+# $Id: processall.in,v 1.8 2002/10/06 22:54:48 cjwatson Exp $
#
# Usage: processall
#
# Creates: incoming/E.nn
# Stop; process/stop
-require( '/etc/debbugs/config' );
-$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;
+&filelock('incoming-cleaner');
for (;;) {
if (-f 'stop') {
print(STDERR "stop file created\n") || die $!;
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";
}
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;
exit(0);