All file manipulations now use absolute file names.
@packets = gather_packets($Inbox_dir, $Scratch_dir);
}
-{
- our $Scratch_dir;
- # we've moved the files to work on to a new directory.
- chdir ($Scratch_dir)
- or ftp_abort("FATAL: chdir($Scratch_dir) failed: $!");
-}
-
foreach my $packet (@packets) { # each list element is an array reference
my $stem = substr $packet->[0],0,-(length '.directive.asc');
ftp_syslog('info',"found directive: $packet->[0]");