diff options
author | Michael Adam <obnox@samba.org> | 2009-09-10 01:15:01 +0200 |
---|---|---|
committer | Michael Adam <obnox@samba.org> | 2009-09-10 01:15:01 +0200 |
commit | 158f8a7e151e60963a53f392baa2030dda515df7 (patch) | |
tree | 8640e99827199ec0932bafd88db3d33d0fd0c619 /tests/scripts/webclient.pl | |
parent | a39d7cd8d87b30ff86ba9e3d3273f6da031dc65c (diff) | |
download | tinyproxy-158f8a7e151e60963a53f392baa2030dda515df7.tar.gz tinyproxy-158f8a7e151e60963a53f392baa2030dda515df7.zip |
tests: add a simple web client written in perl.
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
Diffstat (limited to 'tests/scripts/webclient.pl')
-rwxr-xr-x | tests/scripts/webclient.pl | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/tests/scripts/webclient.pl b/tests/scripts/webclient.pl new file mode 100755 index 0000000..081d80c --- /dev/null +++ b/tests/scripts/webclient.pl @@ -0,0 +1,46 @@ +#!/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; +} |