#!/usr/bin/perl -w
#!/usr/bin/perl -w
#

# Benutze Compiler-Direktive (Pragma) strict. Damit wird eine
# rigorose Fehlerprüfung durchgeführt. Verhindert z.B. die 
# Benutzung von symbolischen Referenzen
use strict;

# Benutzung der Perl5 CGI-Bibliothek
use CGI;

#
use DBI;

# Neues CGI-Objekt anlegen, dabei wird die Eingabe 
# (egal ob via POST oder GET Methode) bearbeitet und
# in dem neuen Objekt (hier $query) gespeichert.
my $query = new CGI;

# Erzeuge HTTP-Header (Content-type und so ...)
print $query->header;

# Erzeuge HTML-Document Header
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><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><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 /></li>\n";

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


print "</ol>\n";


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