- add Login: to .desc

Changed files:
    file-fetcher.pl -> 1.21

diff --git a/file-fetcher.pl b/file-fetcher.pl
index bb0b3a51e7ded5ea4765a0f9562767480a16a5a9..c7495237808eeeabcde5910f2a3cab5bb6ff0d02 100644 (file)
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -122,6 +122,7 @@ sub move_file($$$)
   
   if (open(D, "> $tmp_dir/$md5/$bn.desc")) {
     print D "URL: $url\n";
+    print D "Login: $req_login\n";
     print D "MD5: $md5\n";
     print D 'Fetched-by: $Id$'."\n";
     print D "Time: " . time . "\n";