X-Git-Url: https://git.rohieb.name/openwrt.git/blobdiff_plain/4c859c64689eb5978496f04a2502df11650dbe33..d80cb30469c1822c8abc8c4693188dd14180771a:/scripts/download.pl diff --git a/scripts/download.pl b/scripts/download.pl index 8eb66f035..543dcc187 100755 --- a/scripts/download.pl +++ b/scripts/download.pl @@ -8,16 +8,41 @@ use strict; use warnings; +use File::Basename; my $target = shift @ARGV; my $filename = shift @ARGV; my $md5sum = shift @ARGV; +my $scriptdir = dirname($0); my @mirrors; my $ok; @ARGV > 0 or die "Syntax: $0 [ ...]\n"; +sub localmirrors { + my @mlist; + open LM, "$scriptdir/localmirrors" and do { + while () { + chomp $_; + push @mlist, $_; + } + close LM; + }; + open CONFIG, "<".$ENV{'TOPDIR'}."/.config" and do { + while () { + /^CONFIG_LOCALMIRROR="(.+)"/ and do { + chomp; + push @mlist, $1; + }; + } + close CONFIG; + }; + + + return @mlist; +} + sub which($) { my $prog = shift; my $res = `which $prog`; @@ -78,21 +103,14 @@ sub cleanup unlink "$target/$filename.md5sum"; } +@mirrors = localmirrors(); + foreach my $mirror (@ARGV) { if ($mirror =~ /^\@SF\/(.+)$/) { - my $sfpath = $1; - open SF, "wget -t1 -q -O- 'http://prdownloads.sourceforge.net/$sfpath/$filename' |"; - while () { - /RADIO NAME=use_default VALUE=(\w+) OnClick="form\.submit\(\)">/ or - /type="radio" name="use_default" value="(\w+)" onclick="form\.submit\(\)"\/>/ and do { - push @mirrors, "http://$1.dl.sourceforge.net/sourceforge/$sfpath"; - }; - /Download/ and do { - push @mirrors, "http://$1.dl.sourceforge.net/sourceforge/$sfpath"; - }; + # give sourceforge a few more tries, because it redirects to different mirrors + for (1 .. 5) { + push @mirrors, "http://downloads.sourceforge.net/$1"; } - push @mirrors, "http://dl.sourceforge.net/sourceforge/$sfpath"; - close SF; } elsif ($mirror =~ /^\@GNU\/(.+)$/) { my $gnupath = $1; push @mirrors, "ftp://ftp.gnu.org/gnu/$gnupath";