- small workaround for uploading files with !o=r (i think u+s for directory or change configuration of ftp is better)

Changed files:
    file-fetcher.pl -> 1.31

1 files changed, 3 insertions, 1 deletions

diff --git a/file-fetcher.pl b/file-fetcher.pl
index 8c5e276..9c575aa 100644
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -241,7 +241,7 @@ sub fetch_file($$)
       $problems .= "$cmd:\n$out\n\n";
     }
   }
-  if (-f $local && -s $local > 0) {
+  if (-r $local && -s $local > 0) {
     my $computed_md5 = md5($local);
     if ($computed_md5 ne $md5) {
       $problems .= "FATAL: $url md5 mismatch, needed $md5, got $computed_md5\n";
@@ -260,6 +260,8 @@ sub fetch_file($$)
         move_file($md5, $url, $local);
       }
     }
+  } elsif (-f $local && -s $local > 0) {
+    $problems .= "FATAL: $url ($md5) was not fetched ($cmd: $all_out): file is not readable\n";
   } else {
     $problems .= "FATAL: $url ($md5) was not fetched ($cmd: $all_out)\n";
   }