update version

[bacula/docs] / docs / tools / sf2bacula_downloads.pl

diff --git a/docs/tools/sf2bacula_downloads.pl b/docs/tools/sf2bacula_downloads.pl
index 7d5f43fc3a5855f1a47db47506a2b9b793320a60..668ea84b3f5d39e1ce546b88050a0f68cc24e151 100755 (executable)
--- a/docs/tools/sf2bacula_downloads.pl
+++ b/docs/tools/sf2bacula_downloads.pl
@@ -24,13 +24,13 @@ You can also use a previous output
 =cut
 
 #             bacula|depkgs | depkgs-qt
-my $version = '3.0.3';
-if ($ARGV[0] =~ /^[\d\.]+$/) {
+my $version = '5.0.1';
+if ($ARGV[0] and $ARGV[0] =~ /^[\d\.]+$/) {
     $version = shift(@ARGV);
 }
-my $depkgs_version  = '18Dec09|28Jul09|3.0.3a';
+my $depkgs_version  = '18Dec09|28Jul09';
 
-my $base = "http://bacula.svn.sourceforge.net/viewvc/bacula/tags/Release-$version/bacula";
+my $base = "http://bacula.git.sourceforge.net/git/gitweb.cgi?p=bacula/bacula;a=blob_plain;hb=Release-$version;f=bacula";
 my $notes = "$base/ReleaseNotes";
 my $chglog = "$base/ChangeLog";
 my %cats;
@@ -51,6 +51,7 @@ while (my $l = <FP>)
 {
     #                                         cat   vers  file
     if ($l =~ m!href="(/projects/bacula/files/([^/]+)/([^/]+)/([^/]+)/download)"!) {
+        print STDERR "$4\n";
         $cur = {
             dl  => $1,
             cat => $2,
@@ -64,16 +65,18 @@ while (my $l = <FP>)
         $cur->{size} = $1;
         do {
             $l = <FP>;
-            if ($l =~ m!<td>(.*?)</td>!) {
+            if ($l =~ m!<td>(\d{4}-\d{2}-\d{2})</td>!) {
                 $cur->{date} = $1;
+                print STDERR "  date: $1\n";
             }
-        } while (!$cur->{date});
+        } while (!$cur->{date} and !eof(FP));
         do {
             $l = <FP>;
-            if ($l =~ m!<td>(.*?)</td>!) {
+            if ($l =~ m!<td>([\d,]+)</td>!) {
                 $cur->{downloads} = $1;
+                print STDERR "  downloads: $1\n";
             }
-        } while (!$cur->{downloads});
+        } while (!exists $cur->{downloads} and !eof(FP));
 
 
         # once we have a full $cur element, we can store it
@@ -88,6 +91,8 @@ close(FP);
 
 print '
 <? require_once("inc/header.php"); ?>
+<? // This page is generated by sf2bacula_downloads.pl in eric s crontab, 
+   // no need to update it by hand ?>
 <table>
   <tr>
    <td class="contentTopic">
@@ -110,13 +115,13 @@ print '
 ';
 
 my $cat = 'bacula';
-my $row = 'odd';
 #use Data::Dumper;
 #print Data::Dumper::Dumper(\%cats);
 
 sub print_cat
 {
     my ($cat) = @_;
+    my $row = 'odd';
 
     print '
    <tr>
@@ -140,8 +145,8 @@ sub print_cat
  <td align=\"center\">$elt->{downloads}</td>
 </tr>
 ";
+            if ($row eq 'odd') { $row = 'even'; } else { $row = 'odd'; }
         }
-        if ($row eq 'odd') { $row = 'even'; } else { $row = 'odd'; }
     }
     print '</table>
      </td>
@@ -159,5 +164,6 @@ print_cat('depkgs-qt');
 
 print '
 </table>
+<small>', scalar(localtime), '</small>
 <? require_once("inc/footer.php"); ?>
 ';