use Fcntl ':flock';
use POSIX 'setsid';
use IO::File;
+use File::Basename;
use Date::Format;
use Mail::Mailer;
use Net::FTP;
if ( $retrytime && (time-$retrytime)/3600 >= 48 ) {
logfail($file, "still can't transfer $file after 48 hours");
failed($file);
+ unlink "$lock_directory/$file";
+ exit;
}
#next if ($retry-1) > ((time-$retrytime)/3600);
exit if ($retry-1) > ((time-$retrytime)/3600);