bughz/tinyproxy
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests:webclient: add a --dry-run mode that prints the request to stdout

Browse Source 
and does not connect to the server at all.

Michael
This commit is contained in:
Michael Adam 2009-09-16 22:34:35 +02:00
parent 4ef7901115
commit b7d9256a7a
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/scripts/webclient.pl
View File

@ -32,6 +32,7 @@ my $user_agent = "$NAME/$VERSION";
my $user_agent_header = "User-Agent: $user_agent$EOL";
my $http_version = 1.0;
my $method = "GET";
my $dry_run = 0;
my $help = 0;
my $default_port = "80";
@ -40,7 +41,8 @@ my $port = $default_port;
sub process_options() {
my $result = GetOptions("help|?" => \$help,
"http-version=s" => \$http_version,
"method=s" => \$method);
"method=s" => \$method,
"dry-run" => \$dry_run);
die "Error reading cmdline options! $!" unless $result;
pod2usage(1) if $help;
@ -99,6 +101,12 @@ if ($host =~ /^([^:]+):(.*)/) {
}
foreach my $document (@ARGV) {
my $request = build_request($host, $port, $http_version, $method, $document);
if ($dry_run) {
print $request;
exit(0);
}
my $remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => $host,
@ -110,7 +118,7 @@ foreach my $document (@ARGV) {
$remote->autoflush(1);
print $remote build_request($host, $port, $http_version, $method, $document);
print $remote $request;
while (<$remote>) {
print;
@ -147,6 +155,10 @@ Specify the HTTP protocol version to use (0.9, 1.0, 1.1). Default is 1.0.
Specify the HTTP request method ('GET', 'CONNECT', ...). Default is 'GET'.
=item B<--dry-run>
Don't actually connect to the server but print the request that would be sent.
=back
=head1 DESCRIPTION