if ($ARGV[0] and $ARGV[0] =~ /^[\d\.]+$/) {
$version = shift(@ARGV);
}
-my $depkgs_version = '18Dec09|28Jul09';
+my $depkgs_version = '18Dec09|28Jul09|15May10';
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";
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,