projects
/
openwrt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add support for bsd md5 as a md5sum replacement
[openwrt.git]
/
scripts
/
download.pl
diff --git
a/scripts/download.pl
b/scripts/download.pl
index
fd55ba2
..
009ed3b
100755
(executable)
--- a/
scripts/download.pl
+++ b/
scripts/download.pl
@@
-1,4
+1,11
@@
#!/usr/bin/perl
#!/usr/bin/perl
+#
+# Copyright (C) 2006 OpenWrt.org
+#
+# This is free software, licensed under the GNU General Public License v2.
+# See /LICENSE for more information.
+#
+
use strict;
use warnings;
use strict;
use warnings;
@@
-11,12
+18,16
@@
my $ok;
@ARGV > 0 or die "Syntax: $0 <target dir> <filename> <md5sum> <mirror> [<mirror> ...]\n";
@ARGV > 0 or die "Syntax: $0 <target dir> <filename> <md5sum> <mirror> [<mirror> ...]\n";
+my $md5cmd = `which md5sum`;
+$md5cmd =~ /not found/ and $md5cmd = `which md5`;
+$md5cmd =~ /not found/ and die 'no md5 checksum program found, please install md5 or md5sum';
+
sub download
{
my $mirror = shift;
sub download
{
my $mirror = shift;
-
+
open WGET, "wget -t1 --timeout=20 -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 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) {
open OUTPUT, "> $target/$filename.dl" or die "Cannot create file $target/$filename.dl: $!\n";
my $buffer;
while (read WGET, $buffer, 1048576) {
@@
-85,7
+96,7
@@
foreach my $mirror (@ARGV) {
}
#push @mirrors, 'http://mirror1.openwrt.org/';
}
#push @mirrors, 'http://mirror1.openwrt.org/';
-
#push @mirrors, 'http://mirror2.openwrt.org/
';
+
push @mirrors, 'http://mirror2.openwrt.org/sources
';
push @mirrors, 'http://downloads.openwrt.org/sources/';
while (!$ok) {
push @mirrors, 'http://downloads.openwrt.org/sources/';
while (!$ok) {
This page took
0.024328 seconds
and
4
git commands to generate.