wl500g deluxe cleanups and wl500g wan port dies fixes

[openwrt.git] / scripts / download.pl

diff --git a/scripts/download.pl b/scripts/download.pl
index 8042e2d..df55b8f 100755 (executable)
--- a/scripts/download.pl
+++ b/scripts/download.pl
@@ -64,12 +64,20 @@ foreach my $mirror (@ARGV) {
                        };
                }
                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 {
                push @mirrors, $mirror;
        }
 }
 
-push @mirrors, 'http://openwrt.inf.fh-brs.de/mirror';
+push @mirrors, 'http://mirror1.openwrt.org/';
+push @mirrors, 'http://mirror2.openwrt.org/';
+push @mirrors, 'http://openwrt.org/download/sources/';
 
 while (!$ok) {
        my $mirror = shift @mirrors;