Bug 369956: Have testserver.pl report whether or not the server is using mod_perl

r=mkanat, a=justdave
This commit is contained in:
justdave%bugzilla.org 2007-02-11 00:12:24 +00:00
Родитель 83c6dc6cd5
Коммит 8b10941e4d
2 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

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

Просмотреть файл

@ -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.