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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
#!/usr/bin/perl -w
require 5.002;
use strict;
use Socket;
# vhget ipaddr port hostheader absurihost expect
$#ARGV == 4 || die "usage: $0 ipaddr port hostheader absurihost expect\n";
my ($remote,$port, $iaddr, $paddr, $proto, $line);
my ($hostheader, $expect, $absurihost);
($remote, $port, $hostheader, $absurihost, $expect) = @ARGV;
if ($absurihost ne '') {
$absurihost = "http://$absurihost";
}
printf "%-20s %-20s %-20s %-15s: ", "$remote:$port", "'$hostheader'", "'$absurihost'", "'$expect'";
if ($port =~ /\D/) {
$port = getservbyname($port, 'tcp');
}
die "No port" unless $port;
$iaddr = inet_aton($remote) || die "no host: $remote";
$paddr = sockaddr_in($port, $iaddr);
$proto = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(SOCK, $paddr) || die "connect: $!";
my $oldfh = select(SOCK); $| = 1; select($oldfh);
$proto = ($absurihost ne '') ? "HTTP/1.1" : "HTTP/1.0";
if ($hostheader ne '') {
print SOCK <<EOR;
GET $absurihost/vhost.txt $proto\r
Host: $hostheader\r
Connection: close\r
\r
EOR
} else {
print SOCK <<EOR;
GET $absurihost/vhost.txt $proto\r
Connection: close\r
\r
EOR
}
defined($line = <SOCK>) || die "error reading response: $!\n";
($line =~ m#^HTTP/1\.1 200#) || die "HTTP error: $line\n";
while (defined($line = <SOCK>)) {
last if $line =~ /^\r?$/;
}
defined($line = <SOCK>) || die "error reading response: $!\n";
chomp($line);
my $death = "$remote:$port with "
. ( $hostheader eq '' ? "no Host:" : "Host: $hostheader" )
. ( $absurihost eq '' ? " no absuri" : " and absuri $absurihost" )
. " expected $expect, but got $line\n";
if ($line eq $expect) {
print "passed\n";
} else {
print "failed, got '$line'\n";
}
close (SOCK) || die "close: $!";
exit;
|
