fix sourceforge mirrors, thx d1mag

SVN-Revision: 2582
This commit is contained in:
Waldemar Brodkorb 2005-12-06 22:39:53 +00:00
parent 1a996c0325
commit cb21d6b25c

View file

@ -59,7 +59,7 @@ foreach my $mirror (@ARGV) {
my $sfpath = $1; my $sfpath = $1;
open SF, "wget -t1 -q -O- 'http://prdownloads.sourceforge.net/$sfpath/$filename' |"; open SF, "wget -t1 -q -O- 'http://prdownloads.sourceforge.net/$sfpath/$filename' |";
while (<SF>) { while (<SF>) {
/RADIO NAME=use_default VALUE=(\w+) OnClick="form\.submit\(\)">/ and do { /type="radio" name="use_default" value="(\w+)" onclick="form\.submit\(\)"\/>/ and do {
push @mirrors, "http://$1.dl.sourceforge.net/sourceforge/$sfpath"; push @mirrors, "http://$1.dl.sourceforge.net/sourceforge/$sfpath";
}; };
} }