#!/usr/bin/perl
-# $Id: processall.in,v 1.6 2001/08/16 07:19:38 doogie Exp $
+# $Id: processall.in,v 1.8 2002/10/06 22:54:48 cjwatson Exp $
#
# Usage: processall
#
require "$lib_path/errorlib";
$ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'};
+use File::Path;
+
chdir( "$gSpoolDir" ) || die 'chdir spool: $!\n';
push( @INC, "$lib_path" );
#open(DEBUG,">&4");
+umask(002);
+
$|=1;
undef %fudged;
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;