X-Git-Url: http://git.openwrt.org/?a=blobdiff_plain;f=scripts%2Fdownload.pl;h=cd68a7bcd0cf4ade9caf82cf305e43ed155539d5;hb=beabe8af460d40a226bf16e4a1f163bf3e7c3206;hp=f17500f3c18bb768b6fbfb1434cdc34939b5bcb6;hpb=53d4d18f07c0ab53cb8763d285e2fdaa9cec593d;p=openwrt%2Fopenwrt.git

diff --git a/scripts/download.pl b/scripts/download.pl
index f17500f3c1..cd68a7bcd0 100755
--- a/scripts/download.pl
+++ b/scripts/download.pl
@@ -40,6 +40,9 @@ sub localmirrors {
 		close CONFIG;
 	};
 
+	my $mirror = $ENV{'DOWNLOAD_MIRROR'};
+	$mirror and push @mlist, split(/;/, $mirror);
+
 	return @mlist;
 }
 
@@ -152,11 +155,16 @@ foreach my $mirror (@ARGV) {
 			push @mirrors, "http://downloads.sourceforge.net/$1";
 		}
 	} elsif ($mirror =~ /^\@GNU\/(.+)$/) {
-		push @mirrors, "http://ftp.gnu.org/pub/gnu/$1";
 		push @mirrors, "http://ftpmirror.gnu.org/$1";
+		push @mirrors, "http://ftp.gnu.org/pub/gnu/$1";
 		push @mirrors, "ftp://ftp.belnet.be/mirror/ftp.gnu.org/gnu/$1";
 		push @mirrors, "ftp://ftp.mirror.nl/pub/mirror/gnu/$1";
 		push @mirrors, "http://mirror.switch.ch/ftp/mirror/gnu/$1";
+	} elsif ($mirror =~ /^\@SAVANNAH\/(.+)$/) {
+		push @mirrors, "http://download.savannah.gnu.org/releases/$1";
+		push @mirrors, "http://nongnu.uib.no/$1";
+		push @mirrors, "http://ftp.igh.cnrs.fr/pub/nongnu/$1";
+		push @mirrors, "http://download-mirror.savannah.gnu.org/releases/$1";
 	} elsif ($mirror =~ /^\@KERNEL\/(.+)$/) {
 		my @extra = ( $1 );
 		if ($filename =~ /linux-\d+\.\d+(?:\.\d+)?-rc/) {