Skip to content

bugzilla
bugzilla
Commit cbd72dff authored by justdave%bugzilla.org's avatar justdave%bugzilla.org
Browse files
Options

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

r=mkanat, a=justdave
parent 2f97f350
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
testagent.cgi
View file @ cbd72dff
...@@ -19,6 +19,6 @@ ...@@ -19,6 +19,6 @@
use strict; use strict;
print "content-type:text/plain\n\n"; print "content-type:text/plain\n\n";
print "OK\n"; print "OK " . ($::ENV{MOD_PERL} || "mod_cgi") . "\n";
exit; exit;
testserver.pl
View file @ cbd72dff
...@@ -107,8 +107,8 @@ Check your webserver configuration and try again.\n"; ...@@ -107,8 +107,8 @@ Check your webserver configuration and try again.\n";
# Try to execute a cgi script # Try to execute a cgi script
my $response = fetch($ARGV[0] . "/testagent.cgi"); my $response = fetch($ARGV[0] . "/testagent.cgi");
if ($response =~ /^OK/) { if ($response =~ /^OK (.*)$/) {
print "TEST-OK Webserver is executing CGIs.\n"; print "TEST-OK Webserver is executing CGIs via $1.\n";
} elsif ($response =~ /^#!/) { } elsif ($response =~ /^#!/) {
print print
"TEST-FAILED Webserver is fetching rather than executing CGI files. "TEST-FAILED Webserver is fetching rather than executing CGI files.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment