From: Eric Bollengier <eric@eb.homelinux.org>
Date: Mon, 23 Nov 2009 16:17:52 +0000 (+0100)
Subject: update sourceforge download list script
X-Git-Tag: Release-5.0.0~39^2~2
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=c816cd02a3040949ca4507d32f8e69a729826a3a;p=bacula%2Fdocs

update sourceforge download list script
---

diff --git a/docs/tools/sf2bacula_downloads.pl b/docs/tools/sf2bacula_downloads.pl
index 94d9f553..23e2dc17 100755
--- a/docs/tools/sf2bacula_downloads.pl
+++ b/docs/tools/sf2bacula_downloads.pl
@@ -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>;