From abb2283e2ea8cd9e5c8a8c2b5795d4e45432f64c Mon Sep 17 00:00:00 2001 From: Michael Adam Date: Sun, 13 Sep 2009 01:14:44 +0200 Subject: tests:webserver: be more rfc 1945 compliant in the server-header. Michael --- tests/scripts/webserver.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 "$EOL"; -- cgit v1.2.3