diff options
| -rwxr-xr-x | testagent.cgi | 2 | ||||
| -rwxr-xr-x | testserver.pl | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/testagent.cgi b/testagent.cgi index 2d558d2b9..4ecaa15fd 100755 --- a/testagent.cgi +++ b/testagent.cgi @@ -19,6 +19,6 @@ use strict; print "content-type:text/plain\n\n"; -print "OK\n"; +print "OK " . ($::ENV{MOD_PERL} || "mod_cgi") . "\n"; exit; diff --git a/testserver.pl b/testserver.pl index af4ba67e7..108a19ac2 100755 --- a/testserver.pl +++ b/testserver.pl @@ -107,8 +107,8 @@ Check your webserver configuration and try again.\n"; # Try to execute a cgi script my $response = fetch($ARGV[0] . "/testagent.cgi"); -if ($response =~ /^OK/) { - print "TEST-OK Webserver is executing CGIs.\n"; +if ($response =~ /^OK (.*)$/) { + print "TEST-OK Webserver is executing CGIs via $1.\n"; } elsif ($response =~ /^#!/) { print "TEST-FAILED Webserver is fetching rather than executing CGI files. |