diff options
| author | Michael Adam <obnox@samba.org> | 2009-09-13 01:14:44 +0200 |
|---|---|---|
| committer | Michael Adam <obnox@samba.org> | 2009-09-13 01:14:44 +0200 |
| commit | abb2283e2ea8cd9e5c8a8c2b5795d4e45432f64c (patch) | |
| tree | 6bb78f52bf87d3aed8fc93322142bc52123b4ec9 /tests/scripts/webserver.pl | |
| parent | 71f3721bb195316d41c0abcde232d019f321e0fd (diff) | |
| download | tinyproxy-abb2283e2ea8cd9e5c8a8c2b5795d4e45432f64c.tar.gz tinyproxy-abb2283e2ea8cd9e5c8a8c2b5795d4e45432f64c.zip | |
tests:webserver: be more rfc 1945 compliant in the server-header.
Michael
Diffstat (limited to 'tests/scripts/webserver.pl')
| -rwxr-xr-x | tests/scripts/webserver.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/scripts/webserver.pl b/tests/scripts/webserver.pl index 5a67b23..1dc1646 100755 --- a/tests/scripts/webserver.pl +++ b/tests/scripts/webserver.pl @@ -31,6 +31,8 @@ use Getopt::Long; use Pod::Usage; use Fcntl ':flock'; # import LOCK_* constants +my $VERSION = "0.1"; + my $EOL = "\015\012"; my $port = 2345; @@ -100,7 +102,7 @@ sub child_action($) { "------------------------------"; 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 "$EOL"; print $client "<html>$EOL"; |