add a menuconfig option for specifying a local download mirror
git-svn-id: svn://svn.openwrt.org/openwrt/trunk@6877 3c298f89-4303-0410-b956-a3cf2f4a3e73master
parent
36e9ecc72a
commit
d9e746e0b0
|
@ -26,6 +26,9 @@ config BROKEN
|
|||
bool "Show broken platforms / packages" if DEVEL
|
||||
default n
|
||||
|
||||
config LOCALMIRROR
|
||||
string "Local mirror for source packages" if DEVEL
|
||||
|
||||
menuconfig BUILDOPTS
|
||||
bool "Build Options" if DEVEL
|
||||
|
||||
|
|
|
@ -21,13 +21,24 @@ 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 ();
|
||||
open LM, "$scriptdir/localmirrors" and do {
|
||||
while (<LM>) {
|
||||
chomp $_;
|
||||
push @mlist, $_;
|
||||
}
|
||||
close LM;
|
||||
};
|
||||
open CONFIG, "<".$ENV{'TOPDIR'}."/.config" and do {
|
||||
while (<CONFIG>) {
|
||||
/^CONFIG_LOCALMIRROR="(.+)"/ and do {
|
||||
chomp;
|
||||
push @mlist, $1;
|
||||
};
|
||||
}
|
||||
close CONFIG;
|
||||
};
|
||||
|
||||
|
||||
return @mlist;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue