X-Git-Url: https://git.rohieb.name/openwrt.git/blobdiff_plain/0d52ac0f6a06a36bc0f0316b8593f1f8dc3a8a53..7fa38c6a7bf8689dd6f574f8d38fd3faae20fb73:/scripts/download.pl diff --git a/scripts/download.pl b/scripts/download.pl index a3a5f09d9..607a9bde5 100755 --- a/scripts/download.pl +++ b/scripts/download.pl @@ -11,11 +11,13 @@ my $ok; @mirrors > 0 or die "Syntax: $0 [ ...]\n"; +push @mirrors, 'http://openwrt.inf.fh-brs.de/mirror'; + sub download { my $mirror = shift; - open WGET, "wget -t1 --connect-timeout=20 --read-timeout=15 -O- \"$mirror/$filename\" |" or die "Cannot launch wget.\n"; + open WGET, "wget -t1 --timeout=20 -O- \"$mirror/$filename\" |" or die "Cannot launch wget.\n"; open MD5SUM, "| md5sum > \"$target/$filename.md5sum\"" or die "Cannot launch md5sum.\n"; open OUTPUT, "> $target/$filename.dl" or die "Cannot create file $target/$filename.dl: $!\n"; my $buffer; @@ -45,6 +47,7 @@ sub download unlink "$target/$filename"; system("mv \"$target/$filename.dl\" \"$target/$filename\""); + cleanup(); } sub cleanup