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

tests:webserver: be more rfc 1945 compliant in the server-header.

Browse Source 
Michael
This commit is contained in:
Michael Adam 2009-09-13 01:14:44 +02:00
parent 71f3721bb1
commit abb2283e2e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/scripts/webserver.pl
View File

@ -31,6 +31,8 @@ use Getopt::Long;
use Pod::Usage; use Pod::Usage;
use Fcntl ':flock'; # import LOCK_* constants use Fcntl ':flock'; # import LOCK_* constants
my $VERSION = "0.1";
my $EOL = "\015\012"; my $EOL = "\015\012";
my $port = 2345; my $port = 2345;
@ -100,7 +102,7 @@ sub child_action($) {
"------------------------------"; "------------------------------";
print $client "HTTP/1.0 200 OK$EOL"; print $client "HTTP/1.0 200 OK$EOL";
print $client "Server: Tinyproxy Test Web Server$EOL"; print $client "Server: Tinyproxy-Test-Web-Server/$VERSION$EOL";
print $client "Content-Type: text/html$EOL"; print $client "Content-Type: text/html$EOL";
print $client "$EOL"; print $client "$EOL";
print $client "<html>$EOL"; print $client "<html>$EOL";