Add an rscript shell script to recursively find strippable binaries and strip unstrip...

[openwrt-10.03/.git] / scripts / download.pl

diff --git a/scripts/download.pl b/scripts/download.pl
index a3a5f09d9e754342ce85de24b7e945bfba679d9a..edd32d5c8ae32ff5f7132dea2cf464a297580dcb 100755 (executable)
--- a/scripts/download.pl
+++ b/scripts/download.pl
@@ -15,7 +15,7 @@ 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 +45,7 @@ sub download
        
        unlink "$target/$filename";
        system("mv \"$target/$filename.dl\" \"$target/$filename\"");
+       cleanup();
 }
 
 sub cleanup