X-Git-Url: http://git.ozo.com/?a=blobdiff_plain;f=scripts%2Fdownload.pl;h=8f5d1d6b464c2a98a896fe329139b9f901fbdc7c;hb=f6b2701bb51fd2c715ab82fa2b41c5fbec522445;hp=feb38a1beed7dbcd81dc002e8d4aa9f80af3f1df;hpb=54eb02cada5c54c1d82fc47c48227c66be7c83b9;p=openwrt-10.03%2F.git diff --git a/scripts/download.pl b/scripts/download.pl index feb38a1be..8f5d1d6b4 100755 --- a/scripts/download.pl +++ b/scripts/download.pl @@ -18,12 +18,28 @@ my $ok; @ARGV > 0 or die "Syntax: $0 [ ...]\n"; +sub which($) { + my $prog = shift; + my $res = `which $prog`; + $res or return undef; + $res =~ /^no / and return undef; + $res =~ /not found/ and return undef; + return $res; +} + +my $md5cmd = which("md5sum"); +$md5cmd or $md5cmd = which("md5"); +$md5cmd or die 'no md5 checksum program found, please install md5 or md5sum'; +chomp $md5cmd; + sub download { my $mirror = shift; - - 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"; + my $options = $ENV{WGET_OPTIONS}; + $options or $options = ""; + + open WGET, "wget -t1 --timeout=20 $options -O- \"$mirror/$filename\" |" or die "Cannot launch wget.\n"; + open MD5SUM, "| $md5cmd > \"$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; while (read WGET, $buffer, 1048576) { @@ -41,7 +57,7 @@ sub download } my $sum = `cat "$target/$filename.md5sum"`; - $sum =~ /^(\w+)\s+/ or die "Could not generate md5sum\n"; + $sum =~ /^(\w+)\s*/ or die "Could not generate md5sum\n"; $sum = $1; if (($md5sum =~ /\w{32}/) and ($sum ne $md5sum)) { @@ -91,7 +107,7 @@ foreach my $mirror (@ARGV) { } } -push @mirrors, 'http://mirror1.openwrt.org/'; +#push @mirrors, 'http://mirror1.openwrt.org/'; push @mirrors, 'http://mirror2.openwrt.org/sources'; push @mirrors, 'http://downloads.openwrt.org/sources/';