scripts: update GNU mirrors

[openwrt/svn-archive/archive.git] / scripts / download.pl

diff --git a/scripts/download.pl b/scripts/download.pl
index 0e3d02409816fa29ee34f32a7bac04b2702770c1..f2b064b346bf59eab2365e2567b10e005298a24b 100755 (executable)
--- a/scripts/download.pl
+++ b/scripts/download.pl
@@ -153,13 +153,10 @@ foreach my $mirror (@ARGV) {
                }
        } elsif ($mirror =~ /^\@GNU\/(.+)$/) {
                push @mirrors, "ftp://ftp.gnu.org/gnu/$1";
                }
        } elsif ($mirror =~ /^\@GNU\/(.+)$/) {
                push @mirrors, "ftp://ftp.gnu.org/gnu/$1";

+               push @mirrors, "http://ftpmirror.gnu.org/$1";

                push @mirrors, "ftp://ftp.belnet.be/mirror/ftp.gnu.org/gnu/$1";
                push @mirrors, "ftp://ftp.mirror.nl/pub/mirror/gnu/$1";
                push @mirrors, "http://mirror.switch.ch/ftp/mirror/gnu/$1";
                push @mirrors, "ftp://ftp.belnet.be/mirror/ftp.gnu.org/gnu/$1";
                push @mirrors, "ftp://ftp.mirror.nl/pub/mirror/gnu/$1";
                push @mirrors, "http://mirror.switch.ch/ftp/mirror/gnu/$1";

-               push @mirrors, "ftp://ftp.uu.net/archive/systems/gnu/$1";
-               push @mirrors, "ftp://ftp.eu.uu.net/pub/gnu/$1";
-               push @mirrors, "ftp://ftp.leo.org/pub/comp/os/unix/gnu/$1";
-               push @mirrors, "ftp://ftp.digex.net/pub/gnu/$1";

        } elsif ($mirror =~ /^\@KERNEL\/(.+)$/) {
                my @extra = ( $1 );
                if ($filename =~ /linux-\d+\.\d+(?:\.\d+)?-rc/) {
        } elsif ($mirror =~ /^\@KERNEL\/(.+)$/) {
                my @extra = ( $1 );
                if ($filename =~ /linux-\d+\.\d+(?:\.\d+)?-rc/) {