Add GNU download facility

SVN-Revision: 1170

diff --git a/openwrt/scripts/download.pl b/openwrt/scripts/download.pl
index 8042e2d07c67b22a0a07c4330dddcbaff4e21aee..482f7af53b33d4bf1e9f1b74f96e713b1f40e30e 100755 (executable)
--- a/openwrt/scripts/download.pl
+++ b/openwrt/scripts/download.pl
@@ -64,12 +64,19 @@ 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://openwrt.org/download/sources/';
 
 while (!$ok) {
        my $mirror = shift @mirrors;