]> git.sur5r.net Git - bacula/docs/commitdiff
update sourceforge download list script
authorEric Bollengier <eric@eb.homelinux.org>
Mon, 23 Nov 2009 16:17:52 +0000 (17:17 +0100)
committerEric Bollengier <eric@eb.homelinux.org>
Mon, 23 Nov 2009 16:18:45 +0000 (17:18 +0100)
docs/tools/sf2bacula_downloads.pl

index 94d9f553a023890b5d80d96d754bfd9490b2c3f2..23e2dc17c138ec9940acefc66189a530d39ed744 100755 (executable)
@@ -51,7 +51,7 @@ while (my $l = <FP>)
 {
     #                                         cat   vers  file
     if ($l =~ m!href="(/projects/bacula/files/(.+?)/(.+?)/(.+?)/download)"!) {
-        if ($cur && !exists $seen{$cur->{file}}) {
+        if ($cur && $cur->{date} && !exists $seen{$cur->{file}}) {
             push @{$cats{$cur->{cat}}}, $cur;
             $seen{$cur->{file}} = 1;
         }
@@ -65,7 +65,7 @@ while (my $l = <FP>)
     }
 
     # the size and the date are just after
-    if ($l =~ m!<td>([\d\.]+ [KMG]iB)</td>!) {
+    if ($l =~ m!<td>([\d\.]+ [KMG]B)</td>!) {
         $cur->{size} = $1;
         do {
             $l = <FP>;