print {$q_fh} "#####\n";
print {$q_fh} $email;
my $at_fh;
- open($at_fh,'|-','at',$delay) or exit 1;
+ my $pid = open($at_fh,'|-','at',$delay) or exit 1;
print {$at_fh} "$0 '--queue' '$options{queue}' '--process' '$queue_fn';\n";
- close $at_fh;
- waitpid(-1,0);
- exit $?;
+ close $at_fh or exit $?
+ exit 0;
}
elsif ($options{list}) {
my $dir = IO::Dir->new($options{queue}) or