qi-hardware/openwrt-xburst
1
0
Fork 0
mirror of git://projects.qi-hardware.com/openwrt-xburst.git synced 2024-11-27 17:55:55 +02:00
Code

add functionality to provide local mirrors for development purposes.

Browse Source 
* 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-a3cf2f4a3e73
This commit is contained in:
pavlov 2007-01-24 22:38:02 +00:00
parent c198a6ed9e
commit 347bed4dab
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scripts/download.pl
View File

@ -8,16 +8,30 @@
use strict; use strict;
use warnings; use warnings;
use File::Basename;
my $target = shift @ARGV; my $target = shift @ARGV;
my $filename = shift @ARGV; my $filename = shift @ARGV;
my $md5sum = shift @ARGV; my $md5sum = shift @ARGV;
my $scriptdir = dirname($0);
my @mirrors; my @mirrors;
my $ok; my $ok;
@ARGV > 0 or die "Syntax: $0 <target dir> <filename> <md5sum> <mirror> [<mirror> ...]\n"; @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($) { sub which($) {
my $prog = shift; my $prog = shift;
my $res = `which $prog`; my $res = `which $prog`;
@ -78,6 +92,8 @@ sub cleanup
unlink "$target/$filename.md5sum"; unlink "$target/$filename.md5sum";
} }
@mirrors = localmirrors();
foreach my $mirror (@ARGV) { foreach my $mirror (@ARGV) {
if ($mirror =~ /^\@SF\/(.+)$/) { if ($mirror =~ /^\@SF\/(.+)$/) {
# give sourceforge a few more tries, because it redirects to different mirrors # give sourceforge a few more tries, because it redirects to different mirrors