Add GNU download facility
SVN-Revision: 1170
This commit is contained in:
parent
c99ea6649e
commit
36110909d1
1 changed files with 7 additions and 0 deletions
|
@ -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;
|
||||||
|
|
Loading…
Reference in a new issue