add a last resort SF round-robin url and some GNU mirrors

SVN-Revision: 2594
This commit is contained in:
Nicolas Thill 2005-12-07 15:35:14 +00:00
parent 9ce851bc38
commit 87ecac136c

View File

@ -63,6 +63,7 @@ foreach my $mirror (@ARGV) {
push @mirrors, "http://$1.dl.sourceforge.net/sourceforge/$sfpath";
};
}
push @mirrors, "http://dl.sourceforge.net/sourceforge/$sfpath";
close SF;
} elsif ($mirror =~ /^\@GNU\/(.+)$/) {
my $gnupath = $1;
@ -70,6 +71,10 @@ foreach my $mirror (@ARGV) {
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";
push @mirrors, "ftp://ftp.uu.net/archive/systems/gnu/$gnupath";
push @mirrors, "ftp://ftp.eu.uu.net/pub/gnu/$gnupath";
push @mirrors, "ftp://ftp.leo.org/pub/comp/os/unix/gnu/$gnupath";
push @mirrors, "ftp://ftp.digex.net/pub/gnu/$gnupath";
} else {
push @mirrors, $mirror;
}