diff options
Diffstat (limited to '')
| -rwxr-xr-x | tests/scripts/webclient.pl | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/tests/scripts/webclient.pl b/tests/scripts/webclient.pl index 8d1c988..25c0fb7 100755 --- a/tests/scripts/webclient.pl +++ b/tests/scripts/webclient.pl @@ -34,6 +34,7 @@ my $http_version = "1.0"; my $method = "GET"; my $dry_run = 0; my $help = 0; +my $entity = undef; my $default_port = "80"; my $port = $default_port; @@ -42,7 +43,8 @@ sub process_options() { my $result = GetOptions("help|?" => \$help, "http-version=s" => \$http_version, "method=s" => \$method, - "dry-run" => \$dry_run); + "dry-run" => \$dry_run, + "entity=s" => \$entity); die "Error reading cmdline options! $!" unless $result; pod2usage(1) if $help; @@ -51,9 +53,9 @@ sub process_options() { } -sub build_request($$$$$) +sub build_request($$$$$$) { - my ( $host, $port, $version, $method, $document ) = @_; + my ( $host, $port, $version, $method, $document, $entity ) = @_; my $request = ""; $method = uc($method); @@ -77,6 +79,10 @@ sub build_request($$$$$) $request .= $EOL; + if ($entity) { + $request .= $entity; + } + return $request; } @@ -97,7 +103,7 @@ if ($host =~ /^([^:]+):(.*)/) { } foreach my $document (@ARGV) { - my $request = build_request($host, $port, $http_version, $method, $document); + my $request = build_request($host, $port, $http_version, $method, $document, $entity); if ($dry_run) { print $request; exit(0); @@ -151,6 +157,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<--entity> + +Add the provided string as entity (i.e. body) to the request. + =item B<--dry-run> Don't actually connect to the server but print the request that would be sent. |