X-Git-Url: http://git.rohieb.name/openwrt.git/blobdiff_plain/59ba108361c2e13273fd282526c7a17822411748..ab1c56acc6e798d969c8f6a94cdf5925d957554d:/openwrt/scripts/download.pl diff --git a/openwrt/scripts/download.pl b/openwrt/scripts/download.pl index edd32d5c8..a59ffe6ba 100755 --- a/openwrt/scripts/download.pl +++ b/openwrt/scripts/download.pl @@ -5,11 +5,11 @@ use warnings; my $target = shift @ARGV; my $filename = shift @ARGV; my $md5sum = shift @ARGV; -my @mirrors = @ARGV; +my @mirrors; my $ok; -@mirrors > 0 or die "Syntax: $0 [ ...]\n"; +@ARGV > 0 or die "Syntax: $0 [ ...]\n"; sub download { @@ -54,22 +54,36 @@ sub cleanup unlink "$target/$filename.md5sum"; } -while (!$ok) { - my $mirror = shift @mirrors; - $mirror or die "No more mirrors to try - giving up.\n"; - +foreach my $mirror (@ARGV) { if ($mirror =~ /^\@SF\/(.+)$/) { my $sfpath = $1; - open SF, "wget -t1 -q -O- 'http://prdownloads.sf.net/$sfpath/$filename' |"; + open SF, "wget -t1 -q -O- 'http://prdownloads.sourceforge.net/$sfpath/$filename' |"; while () { /RADIO NAME=use_default VALUE=(\w+) OnClick="form\.submit\(\)">/ and do { push @mirrors, "http://$1.dl.sourceforge.net/sourceforge/$sfpath"; }; } close SF; + } elsif ($mirror =~ /^\@GNU\/(.+)$/) { + my $gnupath = $1; + push @mirrors, "ftp://ftp.gnu.org/gnu/$gnupath"; + push @mirrors, "ftp://ftp.belnet.be/mirror/ftp.gnu.org/gnu/$gnupath"; + push @mirrors, "ftp://ftp.mirror.nl/pub/mirror/gnu/$gnupath"; + push @mirrors, "http://mirror.switch.ch/ftp/mirror/gnu/$gnupath"; } else { - download($mirror); + push @mirrors, $mirror; } +} + +push @mirrors, 'http://mirror1.openwrt.org/'; +push @mirrors, 'http://mirror2.openwrt.org/'; +push @mirrors, 'http://downloads.openwrt.org/sources/'; + +while (!$ok) { + my $mirror = shift @mirrors; + $mirror or die "No more mirrors to try - giving up.\n"; + + download($mirror); -f "$target/$filename" and $ok = 1; }