add functionality to provide local mirrors for development purposes.
* any URLs in scripts/localmirrors will be prepended to the mirror list * this facilitates local builds and recompilations * will also be useful for the buildbot and auto-build of images git-svn-id: svn://svn.openwrt.org/openwrt/trunk@6192 3c298f89-4303-0410-b956-a3cf2f4a3e73master
parent
f3e292ce1b
commit
52d3bc0ccf
|
@ -8,16 +8,30 @@
|
|||
|
||||
use strict;
|
||||
use warnings;
|
||||
use File::Basename;
|
||||
|
||||
my $target = shift @ARGV;
|
||||
my $filename = shift @ARGV;
|
||||
my $md5sum = shift @ARGV;
|
||||
my $scriptdir = dirname($0);
|
||||
my @mirrors;
|
||||
|
||||
my $ok;
|
||||
|
||||
@ARGV > 0 or die "Syntax: $0 <target dir> <filename> <md5sum> <mirror> [<mirror> ...]\n";
|
||||
|
||||
sub localmirrors {
|
||||
|
||||
my @mlist;
|
||||
open LM, "$scriptdir/localmirrors" or return "";
|
||||
while (<LM>) {
|
||||
chomp $_;
|
||||
push @mlist, $_;
|
||||
}
|
||||
|
||||
return @mlist;
|
||||
}
|
||||
|
||||
sub which($) {
|
||||
my $prog = shift;
|
||||
my $res = `which $prog`;
|
||||
|
@ -78,6 +92,8 @@ sub cleanup
|
|||
unlink "$target/$filename.md5sum";
|
||||
}
|
||||
|
||||
@mirrors = localmirrors();
|
||||
|
||||
foreach my $mirror (@ARGV) {
|
||||
if ($mirror =~ /^\@SF\/(.+)$/) {
|
||||
# give sourceforge a few more tries, because it redirects to different mirrors
|
||||
|
|
Loading…
Reference in New Issue