|
|
|
@ -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; |
|
|
|
|
} |
|
|
|
|