scripts: Add GNU ftp mirror redirector for GNU and Savannah

Add GNU's redirector which automatically redirect user to nearby online
mirror.

Signed-off-by: Sahil Dhiman <sahil@hopbox.in>
Link: https://github.com/openwrt/openwrt/pull/15557
Signed-off-by: Robert Marko <robimarko@gmail.com>
(cherry picked from commit 6510eb3b5d612ea7a70c4a8d9b83639e3b46e221)
Link: https://github.com/openwrt/openwrt/pull/15898
Signed-off-by: Hauke Mehrtens <hauke@hauke-m.de>

diff --git a/scripts/download.pl b/scripts/download.pl
index 676c6e9e6b10b6a44ed2bbc03a7ba3c983aaf639..ff0f41cfe9852b9509383229ddc4da8f72e07a4c 100755 (executable)
--- a/scripts/download.pl
+++ b/scripts/download.pl
@@ -273,6 +273,7 @@ foreach my $mirror (@ARGV) {
                        push @mirrors, "https://raw.githubusercontent.com/$1";
                }
        } elsif ($mirror =~ /^\@GNU\/(.+)$/) {
+               push @mirrors, "https://ftpmirror.gnu.org/$1";
                push @mirrors, "https://mirror.csclub.uwaterloo.ca/gnu/$1";
                push @mirrors, "https://mirror.netcologne.de/gnu/$1";
                push @mirrors, "http://ftp.kddilabs.jp/GNU/gnu/$1";
@@ -285,6 +286,7 @@ foreach my $mirror (@ARGV) {
                push @mirrors, "https://mirrors.tuna.tsinghua.edu.cn/gnu/$1";
                push @mirrors, "https://mirrors.ustc.edu.cn/gnu/$1";
        } elsif ($mirror =~ /^\@SAVANNAH\/(.+)$/) {
+               push @mirrors, "https://download.savannah.nongnu.org/releases/$1";
                push @mirrors, "https://mirror.netcologne.de/savannah/$1";
                push @mirrors, "https://mirror.csclub.uwaterloo.ca/nongnu/$1";
                push @mirrors, "http://ftp.acc.umu.se/mirror/gnu.org/savannah/$1";