- forg logs

Changed files:
    file-fetcher.pl -> 1.8

diff --git a/file-fetcher.pl b/file-fetcher.pl
index 44b4952ed733bec2777fe3373e275a1f5a899ff6..8061d5bfc651405096b10025613770c9b1114f59 100644 (file)
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -98,6 +98,17 @@ sub move_file($$)
     } else {
       $problems .= "ERROR: cannot write $path.desc\n";
     }
+    
+    # Forg logs
+    $md5 =~ /^(..)/ and my $m2 = $1;
+    $md5 =~ /^(.)(.)/;
+    if (open(L, ">> $ENV{HOME}/.lists/lista_$m2")) {
+      print L "/home/ftp/pub/Linux/distfiles/by-md5/$1/$2/$md5/";
+      $url =~ /\/([^\/]+)$/;
+      print L "$1\n";
+      close(L);
+    }
+    
     $normal_out .= "STORED: $url ($md5, " .  (-s $path) . " bytes)\n";
     $fetched_count++;
   }