diff options
Diffstat (limited to '')
| -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"; |