12 use constant DEFAULT_PORT=>80;
13 use constant BUFFER_LENGTH=>0x1000;
16 getopts "xhH",\%opts or die "getopts()";
17 @ARGV==1 && $ARGV[0]=~m#^http://(([^/:]+)(?::(\d+))?)(/.*)$#
18 or die "Syntax: $0 [-hH] http://hostname/pathname";
19 my($hostport,$host,$port,$path)=($1,$2,$3,$4);
20 defined $port or $port=DEFAULT_PORT;
22 my $proto=getprotobyname "tcp" or die "getprotobyname \"tcp\": $!";
23 socket SOCK,PF_INET,SOCK_STREAM,$proto or die "socket PF_INET,SOCK_STREAM,\"tcp\": $!";
24 my $hostaddr=gethostbyname $host or die "hostname \"$host\": $!";
25 my $sockaddr=sockaddr_in $port,$hostaddr or die "sockaddr_in(".inet_ntoa($hostaddr).":$port): $!";
26 connect SOCK,$sockaddr or die "connect \"$host\"(".inet_ntoa($hostaddr).":$port): $!";
28 print SOCK ($opts{"h"} ? "HEAD" : "GET")." $path HTTP/1.0\r\n";
31 "X-httpgetdumb"=>'$Id$',
33 $header{"Accept"}="application/xhtml+xml" if $opts{"x"};
34 while (my($key,$val)=each(%header)) {
35 print SOCK "$key: $val\r\n";
53 my $got=read SOCK,$buf,BUFFER_LENGTH;
54 defined $got or die "read: $!";
56 die "read()=$got (<0)" if $got<0;