158f8a7e15
This should be one of the test tools for writing our testsuite. This can be used to make direct connects to web servers like so: webclient.pl server_ip:port /path/file.html and to make requestis via a proxy like this: webclient.pl proxy_ip:port http://webserver:port/path/file.html Michael
47 lines
789 B
Perl
Executable File
47 lines
789 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# Simple command line web client.
|
|
# Initially loosely based on examples from the perlipc manpage.
|
|
#
|
|
# Copyright (C) 2009 Michael Adam
|
|
#
|
|
# License: GPL
|
|
|
|
use strict;
|
|
|
|
use IO::Socket;
|
|
|
|
my $EOL = "\015\012";
|
|
my $BLANK = $EOL x 2;
|
|
|
|
unless (@ARGV > 1) {
|
|
die "usage: $0 host[:port] document ...";
|
|
}
|
|
|
|
my $host = shift(@ARGV);
|
|
my $port = "http(80)";
|
|
|
|
if ($host =~ /^([^:]+):(.*)/) {
|
|
$port = $2;
|
|
$host = $1;
|
|
}
|
|
|
|
foreach my $document (@ARGV) {
|
|
my $remote = IO::Socket::INET->new(
|
|
Proto => "tcp",
|
|
PeerAddr => $host,
|
|
PeerPort => $port,
|
|
);
|
|
unless ($remote) {
|
|
die "cannot connect to http daemon on $host (port $port)";
|
|
}
|
|
|
|
$remote->autoflush(1);
|
|
|
|
print $remote "GET $document HTTP/1.0" . $BLANK;
|
|
while (<$remote>) {
|
|
print;
|
|
}
|
|
close $remote;
|
|
}
|