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";