- added storing .desc file

Changed files:
    file-fetcher.pl -> 1.7

diff --git a/file-fetcher.pl b/file-fetcher.pl
index 979e6ebb7371f47940004832cd664eb83ed029d9..44b4952ed733bec2777fe3373e275a1f5a899ff6 100644 (file)
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -90,6 +90,14 @@ sub move_file($$)
   if (system("mv -f \"tmp/$md5\" \"$path\"")) {
     $problems .= "FATAL: cannot mv file ($url)\n";
   } else {
+    if (open(D, "> $path.desc")) {
+      print D "URL: $url\n";
+      print D "MD5: $md5\n";
+      print D 'Fetched-by: $Id$\n';
+      close(D);
+    } else {
+      $problems .= "ERROR: cannot write $path.desc\n";
+    }
     $normal_out .= "STORED: $url ($md5, " .  (-s $path) . " bytes)\n";
     $fetched_count++;
   }