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

tests:webclient: add User-Agent header to request.

Browse Source 
Michael
This commit is contained in:
Michael Adam 2009-09-14 13:29:27 +02:00
parent 8c5391ab6e
commit df4892d939
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/scripts/webclient.pl
View File

@ -23,7 +23,10 @@ use strict;
use IO::Socket; use IO::Socket;
my $EOL = "\015\012"; my $EOL = "\015\012";
my $BLANK = $EOL x 2;
my $VERSION = "0.1";
my $NAME = "Tinyproxy-Web-Client";
my $user_agent = "$NAME/$VERSION";
unless (@ARGV > 1) { unless (@ARGV > 1) {
die "usage: $0 host[:port] document ..."; die "usage: $0 host[:port] document ...";
@ -49,9 +52,13 @@ foreach my $document (@ARGV) {
$remote->autoflush(1); $remote->autoflush(1);
print $remote "GET $document HTTP/1.0" . $BLANK; print $remote "GET $document HTTP/1.0" . $EOL .
"User-Agent: $user_agent$EOL" .
$EOL;
while (<$remote>) { while (<$remote>) {
print; print;
} }
close $remote; close $remote;
} }