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

tests:webclient: add option to send a request entity (body)

Browse Source
This commit is contained in:
Michael Adam 2009-10-12 02:01:25 +02:00
parent e793a729f6
commit cbaa4b9fd2
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/scripts/webclient.pl
View File

@ -34,6 +34,7 @@ my $http_version = "1.0";
my $method = "GET"; my $method = "GET";
my $dry_run = 0; my $dry_run = 0;
my $help = 0; my $help = 0;
my $entity = undef;
my $default_port = "80"; my $default_port = "80";
my $port = $default_port; my $port = $default_port;
@ -42,7 +43,8 @@ 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); "dry-run" => \$dry_run,
"entity=s" => \$entity);
die "Error reading cmdline options! $!" unless $result; die "Error reading cmdline options! $!" unless $result;
pod2usage(1) if $help; 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 = ""; my $request = "";
$method = uc($method); $method = uc($method);
@ -77,6 +79,10 @@ sub build_request($$$$$)
$request .= $EOL; $request .= $EOL;
if ($entity) {
$request .= $entity;
}
return $request; return $request;
} }
@ -97,7 +103,7 @@ if ($host =~ /^([^:]+):(.*)/) {
} }
foreach my $document (@ARGV) { 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) { if ($dry_run) {
print $request; print $request;
exit(0); 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'. 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> =item B<--dry-run>
Don't actually connect to the server but print the request that would be sent. Don't actually connect to the server but print the request that would be sent.