didn't properly delete lockfile on failed files - preventing retries

[Digitiz.git] / digitiz-xfer

diff --git a/digitiz-xfer b/digitiz-xfer
index 3fb0caf..c168c93 100755 (executable)
--- a/digitiz-xfer
+++ b/digitiz-xfer
@@ -15,6 +15,7 @@ use subs qw( daemonize archive failed movefile docopy logsuccess logfail
 use Fcntl ':flock';
 use POSIX 'setsid';
 use IO::File;
+use File::Basename;
 use Date::Format;
 use Mail::Mailer;
 use Net::FTP;
@@ -89,6 +90,8 @@ while (1) {
       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);