add a menuconfig option for specifying a local download mirror

git-svn-id: svn://svn.openwrt.org/openwrt/trunk@6877 3c298f89-4303-0410-b956-a3cf2f4a3e73

Config.in

@@ -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
 

scripts/download.pl

@@ -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 ();
-    while (<LM>) {
-        chomp $_;
-        push @mlist, $_;
-    }
+    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;
 }