scripts: update GNU mirrors

SVN-Revision: 35838
This commit is contained in:
Luka Perkov 2013-02-28 23:49:36 +00:00
parent c81945e979
commit 819472b2d0

View file

@ -153,13 +153,10 @@ foreach my $mirror (@ARGV) {
} }
} elsif ($mirror =~ /^\@GNU\/(.+)$/) { } elsif ($mirror =~ /^\@GNU\/(.+)$/) {
push @mirrors, "ftp://ftp.gnu.org/gnu/$1"; 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.belnet.be/mirror/ftp.gnu.org/gnu/$1";
push @mirrors, "ftp://ftp.mirror.nl/pub/mirror/gnu/$1"; push @mirrors, "ftp://ftp.mirror.nl/pub/mirror/gnu/$1";
push @mirrors, "http://mirror.switch.ch/ftp/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\/(.+)$/) { } elsif ($mirror =~ /^\@KERNEL\/(.+)$/) {
my @extra = ( $1 ); my @extra = ( $1 );
if ($filename =~ /linux-\d+\.\d+(?:\.\d+)?-rc/) { if ($filename =~ /linux-\d+\.\d+(?:\.\d+)?-rc/) {