Hi,
as You asked I've inserted so I have following file (from line 381):
my $result = `$command 2>&1`;
# ----------------------------------------------------------------
# We can't trust the exit code for wget :-( so we run wget with
# server-response enabled and check for the '200 OK' code.
# ----------------------------------------------------------------
print "$result\n\n";
if ($result =~ m/HTTP/) {
my @result = split "\n",$result;
my %result;
foreach (@result) {
next unless /^\s*\s+(\S+)\s+(.*)$/; #/^\s*\d+\s+(\S+)\s+(.*)$/;
last if /^\s*$/;
my ($mes,$val) = ($1,$2);
$mes =~ s/://;
$result{$mes} = $val;
}
OUTPUT:
galaxy# ./avastvpsupdate.pl
Using wget 'GNU Wget 1.9.1' to get new VPS update
Getting md5 checksum for new VPS
--13:12:10--
http://files.avast.com/files/latest/400vps.md5 => `/var/tmp/avast4/400vps.md5'
Resolving files.avast.com... 66.98.252.36, 67.15.0.90, 67.15.38.62, ...
Connecting to files.avast.com[66.98.252.36]:80... connected.
HTTP request sent, awaiting response...
1 HTTP/1.1 302
2 Date: Mon, 28 Nov 2005 12:11:34 GMT
3 Server: Apache
4 Vary: Host
5 Location:
http://download32.avast.com//files/latest/400vps.md5 6 Content-Length: 0
7 Keep-Alive: timeout=15, max=100
8 Connection: Keep-Alive
9 Content-Type: text/plain
Location:
http://download32.avast.com//files/latest/400vps.md5 [following]
--13:12:11--
http://download32.avast.com//files/latest/400vps.md5 => `/var/tmp/avast4/400vps.md5'
Resolving download32.avast.com... 64.246.60.120
Connecting to download32.avast.com[64.246.60.120]:80... connected.
HTTP request sent, awaiting response...
1 HTTP/1.1 200 OK
2 Date: Mon, 28 Nov 2005 12:11:35 GMT
3 Server: Apache
4 Last-Modified: Sat, 26 Nov 2005 01:07:48 GMT
5 ETag: "52c808-2b-7f8d2100"
6 Accept-Ranges: bytes
7 Content-Length: 43
8 Keep-Alive: timeout=15, max=100
9 Connection: Keep-Alive
10 Content-Type: text/plain
0K 100% 419.92 KB/s
13:12:11 (419.92 KB/s) - `/var/tmp/avast4/400vps.md5' saved [43/43]
Use of uninitialized value in pattern match (m//) at ./avastvpsupdate.pl line 402.
Use of uninitialized value in concatenation (.) or string at ./avastvpsupdate.pl line 407.
Error downloading '
http://files.avast.com/files/latest/400vps.md5':
Error: cannot download the latest VPS MD5 file