=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|15May10';
-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;
while (my $l = <FP>)
{
# cat vers file
- if ($l =~ m!href="(/projects/bacula/files/([^/]+)/([^/]+)/([^/]+)/download)"!) {
+ if ($l =~ m!href="(?:http://sourceforge.net)(/projects/bacula/files/([^/]+)/([^/]+)/([^/]+)/download)"!) {
+ print STDERR "$4\n";
$cur = {
dl => $1,
cat => $2,
$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
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">
<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>
print '
</table>
+<small>', scalar(localtime), '</small>
<? require_once("inc/footer.php"); ?>
';