domenico/openwrt_NSS_ACW
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

allow arbitary folder layout when using localmirrors

Browse Source 
Make the download script follow symlinks and search subfolders when looking for
a file in a local download mirror.

Signed-off-by: Tathagata Das <tathagata@alumnux.com>

SVN-Revision: 31240
This commit is contained in:
John Crispin
2012-04-10 14:11:45 +00:00
parent ac007ff482
commit 0c4bcae7a1
1 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
scripts/download.pl
View File

@@ -9,6 +9,7 @@
use strict; use strict;
use warnings; use warnings;
use File::Basename; use File::Basename;
use File::Copy;
@ARGV > 2 or die "Syntax: $0 <target dir> <filename> <md5sum> [<mirror> ...]\n"; @ARGV > 2 or die "Syntax: $0 <target dir> <filename> <md5sum> [<mirror> ...]\n";
@@ -74,7 +75,29 @@ sub download
if(! -d $target) { if(! -d $target) {
system("mkdir -p $target/"); system("mkdir -p $target/");
} }
system("cp -vf $cache/$filename $target/$filename.dl") == 0 or return; if (open TMPDLS, "find $cache -follow -name $filename 2>/dev/null |"){
my $i = 0;
my $link = "";
while (defined($link = readline TMPDLS)) {
chomp $link;
$i++;
if ($i > 1) {
print("$i or more instances of $filename in $cache found . Only one instance allowed.\n");
return;
}
}
close TMPDLS;
if ($i < 1) {
print("No instances of $filename found in $cache.\n");
return;
} elsif ($i == 1){
print("Copying $filename from $link\n");
copy($link, "$target/$filename.dl");
}
} else {
print("Failed to search for $filename in $cache\n");
return;
}
system("$md5cmd $target/$filename.dl > \"$target/$filename.md5sum\" ") == 0 or return; system("$md5cmd $target/$filename.dl > \"$target/$filename.md5sum\" ") == 0 or return;
} else { } else {
open WGET, "wget -t5 --timeout=20 --no-check-certificate $options -O- \"$mirror/$filename\" |" or die "Cannot launch wget.\n"; open WGET, "wget -t5 --timeout=20 --no-check-certificate $options -O- \"$mirror/$filename\" |" or die "Cannot launch wget.\n";