close CONFIG;
};
+ my $mirror = $ENV{'DOWNLOAD_MIRROR'};
+ $mirror and push @mlist, split(/;/, $mirror);
+
return @mlist;
}
push @mirrors, "http://downloads.sourceforge.net/$1";
}
} elsif ($mirror =~ /^\@GNU\/(.+)$/) {
- push @mirrors, "http://ftp.gnu.org/pub/gnu/$1";
push @mirrors, "http://ftpmirror.gnu.org/$1";
+ push @mirrors, "http://ftp.gnu.org/pub/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";
+ } elsif ($mirror =~ /^\@SAVANNAH\/(.+)$/) {
+ push @mirrors, "http://download.savannah.gnu.org/releases/$1";
+ push @mirrors, "http://nongnu.uib.no/$1";
+ push @mirrors, "http://ftp.igh.cnrs.fr/pub/nongnu/$1";
+ push @mirrors, "http://download-mirror.savannah.gnu.org/releases/$1";
} elsif ($mirror =~ /^\@KERNEL\/(.+)$/) {
my @extra = ( $1 );
if ($filename =~ /linux-\d+\.\d+(?:\.\d+)?-rc/) {