[openwrt/openwrt] scripts: Add GNU ftp mirror redirector for GNU and Savannah

[LEDE Commits]

hauke pushed a commit to openwrt/openwrt.git, branch openwrt-23.05:
https://git.openwrt.org/4df592f7a34166a57dab2ab7570ce3fe2ebd3118

commit 4df592f7a34166a57dab2ab7570ce3fe2ebd3118
Author: Sahil Dhiman <sahil at hopbox.in>
AuthorDate: Sat May 25 15:27:12 2024 +0530

    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 at hopbox.in>
    Link: https://github.com/openwrt/openwrt/pull/15557
    Signed-off-by: Robert Marko <robimarko at gmail.com>
    (cherry picked from commit 6510eb3b5d612ea7a70c4a8d9b83639e3b46e221)
    Link: https://github.com/openwrt/openwrt/pull/15898
    Signed-off-by: Hauke Mehrtens <hauke at hauke-m.de>
---
 scripts/download.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scripts/download.pl b/scripts/download.pl
index 676c6e9e6b..ff0f41cfe9 100755
--- 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";