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

[LEDE Commits]

robimarko pushed a commit to openwrt/openwrt.git, branch main:
https://git.openwrt.org/6510eb3b5d612ea7a70c4a8d9b83639e3b46e221

commit 6510eb3b5d612ea7a70c4a8d9b83639e3b46e221
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>
---
 scripts/download.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scripts/download.pl b/scripts/download.pl
index c14ec07e44..3c57bcff22 100755
--- a/scripts/download.pl
+++ b/scripts/download.pl
@@ -272,6 +272,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, "https://ftp.kddilabs.jp/GNU/gnu/$1";
@@ -282,6 +283,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, "https://ftp.acc.umu.se/mirror/gnu.org/savannah/$1";