1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
package http; # $Id$
use IO::Socket;
use network;
my $sock;
sub getFile {
local($^W) = 0;
my ($host, $port, $path) = $ENV{URLPREFIX} =~ m,^http://([^/:]+)(?::(\d+))?(/\S*)?$,;
$host = network::resolv($host);
$path .= "/$_[0]";
$sock->close if $sock;
$_[0] eq 'XXX' and return; #- force closing connection.
$sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port || 80,
Proto => 'tcp',
Timeout => 60) or die "can't connect ";
$sock->autoflush;
print $sock join("\015\012" =>
"GET $path HTTP/1.0",
"Host: $host" . ($port && ":$port"),
"User-Agent: DrakX/vivelinuxabaszindozs",
"", "");
#- skip until empty line
my ($now, $last, $buf, $tmp) = 0;
my $read = sub { sysread($sock, $buf, 1) || die; $tmp .= $buf };
do {
$last = $now;
&$read; &$read if $buf =~ /\015/;
$now = $buf =~ /\012/;
} until ($now && $last);
$tmp =~ /^.*\b200\b/ ? $sock : undef;
}
1;
|
