mod_perl problem

Wed, 18 Jul 2001 00:16:03 -0700 

Hi,
after installing mod_perl (Powerbook OS X 10.04; perl 5.60) the
$ENV{MOD_PERL} variable could not be found, but the output for  Server
Software is:
Apache/1.3.19 (Darwin) mod_perl/1.25 PHP/4.0.6 DAV/1.0.2

So mod_perl/1.25 seems to be installed.
Please have a look at the attached script and browser output.

Thanks in advance.


Best regards

Goetz 
==============================
[EMAIL PROTECTED]





Script:

#!/usr/bin/perl -W


use strict;
# Benutzung der Perl5 CGI-Bibliothek
use CGI;
#
use DBI;

my $query = new CGI;

print $query->header;
print "<!doctype html public \"-//W3C/DTD HTML 4.0/EN\">\n";

print $query->start_html(-title=>'Testseite f¸r CGI via
Perl',-author=>'Andreas Grupp',-BGCOLOR=>'white');
print "<H2>Testseite f&uuml;r Perl via CGI</H2>\n";

print "<H3>Jetzt testen wir erst mal die Umgebung in der dieses Skript
l&auml;uft</H3><OL>\n";


print "<LI>";
if(exists $ENV{MOD_PERL}) {
   #we're running under mod_perl
   print "Skript l&auml;uft unter <B>mod_perl Version ". $ENV{MOD_PERL} .
"</B>\n";
}
else {
   #we're NOT running under mod_perl
   print 'Umgebungsvariable $ENV{MOD_PERL} nicht gefunden. Skript l&auml;uft
demnach nicht unter mod_perl.' . "\n";
}        
#-----------------------------------------------------
print "<LI>";
if ( $CGI::VERSION ne "" ){
    print "Es wird das Perl5 CGI-Modul <B>CGI.pm Version $CGI::VERSION </B>
verwendet!\n";
}
else{
    print "Perl5 CGI-Modul CGI.pm scheint nicht vorhanden zu sein!\n";
}
#-----------------------------------------------------
print "<LI>";
if ( $DBI::VERSION ne "" ){
   print "<B>DBI-Modul-Version $DBI::VERSION </B> wurde geladen.<BR>\n";
   my @drivers = DBI->available_drivers;
   my $i=0;
   my $drivers_num = @drivers;
   print "Es wurden <B>$drivers_num DBD-Treiber</B> gefunden!<BR>\n";

   if ($drivers_num > 0 ) {
     print "<UL>\n";
     while ( $i < $drivers_num ){
       print "<LI>Treiber[$i]: <B>" . $drivers[$i] . "</B>\n";
       $i++;
     }
     print "</UL>\n";
   } 
}
else{
   print "DBI wurde nicht gefunden!\n";
}
print "</OL>\n";


print "Server Name:      ", $ENV{'SERVER_NAME'}, "<BR>", "\n";
print "Running on Port:  ", $ENV{'SERVER_PORT'}, "<BR>", "\n";
print "Server Software:  ", $ENV{'SERVER_SOFTWARE'}, "<BR>", "\n";
print "Server Protocol:  ", $ENV{'SERVER_PROTOCOL'}, "<BR>", "\n";
print "CGI Revision:     ", $ENV{'GATEWAY_INTERFACE'}, "<BR>", "\n";
print "<HR></PRE>", "\n";

# Erzeuge HTML-Footer
print $query->end_html();





Output in the browser window:

(  for non german helpers:
$ENV{MOD_PERL}  could not be found , but  under Server Software
mod_perl/1.25  appears.)

Result of the script:


Testseite für Perl via CGI

Jetzt testen wir erst mal die Umgebung in der dieses Skript läuft

1.    Umgebungsvariable $ENV{MOD_PERL} nicht gefunden. Skript läuft demnach
nicht unter mod_perl.
2.    Es wird das Perl5 CGI-Modul CGI.pm Version 2.56 verwendet!
3.    DBI-Modul-Version 1.15 wurde geladen.
Es wurden 5 DBD-Treiber gefunden!
*    Treiber[0]: ADO
*    Treiber[1]: ExampleP
*    Treiber[2]: Multiplex
*    Treiber[3]: Proxy
*    Treiber[4]: mysql

Server Name: 127.0.0.1
Running on Port: 80
Server Software: Apache/1.3.19 (Darwin) mod_perl/1.25 PHP/4.0.6 DAV/1.0.2
Server Protocol: HTTP/1.1
CGI Revision: CGI/1.1

Reply via email to