Useful to know how we're running, as code may want to target specific
backends. Currently undocumented so that behaviour can be changed
easily if need be.
# This is the mod_perl handler.
sub handler {
PLP::clean();
# This is the mod_perl handler.
sub handler {
PLP::clean();
+ $PLP::interface = __PACKAGE__;
if (my $ret = init($_[0])) {
return $ret;
}
if (my $ret = init($_[0])) {
return $ret;
}
# This is run by the CGI script. (#!perl \n use PLP::Backend::CGI;)
sub import {
# This is run by the CGI script. (#!perl \n use PLP::Backend::CGI;)
sub import {
+ $PLP::interface = $_[0];
sub import {
my $self = shift;
sub import {
my $self = shift;
+ $PLP::interface = $self;
my $request = FCGI::Request();
$SIG{TERM} = sub {
$request->LastCall();
my $request = FCGI::Request();
$SIG{TERM} = sub {
$request->LastCall();
use Config;
printf "<tr><th>%s</th><td>%s</td></tr>\n", @$_ for (
["System" => qx(uname -snrvm)],
use Config;
printf "<tr><th>%s</th><td>%s</td></tr>\n", @$_ for (
["System" => qx(uname -snrvm)],
- ["Server API" => "CGI/FastCGI - ".$PLP::interface], #TODO
+ ["Server API" => $PLP::interface ? $PLP::interface : "?"],
["Perl" => join ".", map ord, split //, $^V],
["Build Date" => $Config{cf_time}],
["Debug Build" => $^P ? "yes" : "no"],
["Perl" => join ".", map ord, split //, $^V],
["Build Date" => $Config{cf_time}],
["Debug Build" => $^P ? "yes" : "no"],