From 032dd83453748e165b917389524323e648c4252b Mon Sep 17 00:00:00 2001
From: Michal Moskal <michal@moskal.me>
Date: Tue, 27 May 2003 02:18:54 +0000
Subject: [PATCH] - added storing .desc file

Changed files:
    file-fetcher.pl -> 1.7
---
 file-fetcher.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/file-fetcher.pl b/file-fetcher.pl
index 979e6eb..44b4952 100644
--- 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++;
   }
-- 
2.44.0