martin langhoff writes:
> and, for the next time, is there a 'proper way' of performing the above
> mentioned deed cleanly?
Yes. You could also have run this program except that it didn't exist
earlier today. It will cause the email to be bounced. This is
appropriate in the situation you outlined, but may not be for others.
Hand it any one of these filenames:
> info/10/227894
> mess/10/227894
> remote/10/227894
--
#! /usr/bin/perl
chdir("/var/qmail/queue") or die;
$queuelifetime = 10*24*60*60;
if (open(F, "</var/qmail/control/queuelifetime")) {
my($q) = <F>;
$queuelifetime = chomp $q;
close(F);
}
$t = time - $queuelifetime;
while(<>) {
chomp;
s!.*?/!info/!;
utime($t, $t, $_) or die;
}
--
-russ nelson <[EMAIL PROTECTED]> http://russnelson.com | If you think
Crynwr sells support for free software | PGPok | health care is expensive now
521 Pleasant Valley Rd. | +1 315 268 1925 voice | now, wait until you see
Potsdam, NY 13676-3213 | +1 315 268 9201 FAX | what it costs when it's free.
