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 $user_agent_header = "User-Agent: $user_agent$EOL";
my $http_version = 1.0; my $http_version = 1.0;
my $method = "GET"; my $method = "GET";
my $dry_run = 0;
my $help = 0; my $help = 0;
my $default_port = "80"; my $default_port = "80";
@ -40,7 +41,8 @@ my $port = $default_port;
sub process_options() { sub process_options() {
my $result = GetOptions("help|?" => \$help, my $result = GetOptions("help|?" => \$help,
"http-version=s" => \$http_version, "http-version=s" => \$http_version,
"method=s" => \$method); "method=s" => \$method,
"dry-run" => \$dry_run);
die "Error reading cmdline options! $!" unless $result; die "Error reading cmdline options! $!" unless $result;
pod2usage(1) if $help; pod2usage(1) if $help;
@ -99,6 +101,12 @@ if ($host =~ /^([^:]+):(.*)/) {
} }
foreach my $document (@ARGV) { 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( my $remote = IO::Socket::INET->new(
Proto => "tcp", Proto => "tcp",
PeerAddr => $host, PeerAddr => $host,
@ -110,7 +118,7 @@ foreach my $document (@ARGV) {
$remote->autoflush(1); $remote->autoflush(1);
print $remote build_request($host, $port, $http_version, $method, $document); print $remote $request;
while (<$remote>) { while (<$remote>) {
print; 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'. 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 =back
=head1 DESCRIPTION =head1 DESCRIPTION