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

tests:webserver: record the value of the server header field in a variable.

Browse Source 
Michael
This commit is contained in:
Michael Adam 2009-09-14 17:14:50 +02:00
parent 96303e10f3
commit b6413068e2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/scripts/webserver.pl
View File

@ -32,6 +32,8 @@ use Pod::Usage;
use Fcntl ':flock'; # import LOCK_* constants
my $VERSION = "0.1";
my $NAME = "Tinyproxy-Test-Web-Server";
my $server_header = "Server: $NAME/$VERSION";
my $EOL = "\015\012";
@ -180,7 +182,7 @@ sub child_action($) {
if ($request->{error}) {
print $client "HTTP/1.0 400 Bad Request$EOL";
print $client "Server: Tinyproxy-Test-Web-Server/$VERSION$EOL";
print $client "$server_header$EOL";
print $client "Content-Type: text/html$EOL";
print $client "$EOL";
print $client "<html>$EOL";
@ -192,7 +194,7 @@ sub child_action($) {
}
print $client "HTTP/1.0 200 OK$EOL";
print $client "Server: Tinyproxy-Test-Web-Server/$VERSION$EOL";
print $client "$server_header$EOL";
print $client "Content-Type: text/html$EOL";
print $client "$EOL";
print $client "<html>$EOL";