Add GNU download facility

SVN-Revision: 1170
This commit is contained in:
Nicolas Thill 2005-06-08 06:48:19 +00:00
parent c99ea6649e
commit 36110909d1

View file

@ -64,12 +64,19 @@ foreach my $mirror (@ARGV) {
}; };
} }
close SF; 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 { } else {
push @mirrors, $mirror; push @mirrors, $mirror;
} }
} }
push @mirrors, 'http://openwrt.inf.fh-brs.de/mirror'; push @mirrors, 'http://openwrt.inf.fh-brs.de/mirror';
push @mirrors, 'http://openwrt.org/download/sources/';
while (!$ok) { while (!$ok) {
my $mirror = shift @mirrors; my $mirror = shift @mirrors;