diff options
Diffstat (limited to 'scripts/download.pl')
-rwxr-xr-x | scripts/download.pl | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/scripts/download.pl b/scripts/download.pl index 280e5f0d73..543dcc1879 100755 --- a/scripts/download.pl +++ b/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; } |