110 Zeilen
3.2 KiB
Perl
110 Zeilen
3.2 KiB
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
use Socket;
|
|
use Config;
|
|
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
|
|
use CGI;
|
|
my $cgi = CGI->new();
|
|
print $cgi->header();
|
|
warningsToBrowser(1); # dies ist ganz wichtig!
|
|
|
|
my $eval_in_died;
|
|
my $mod_dbi=0;
|
|
my $mod_ff=0;
|
|
my $mod_fb=0;
|
|
my $mod_gz=0;
|
|
my $mod_ftp=0;
|
|
my $mod_mime=0;
|
|
my $dbi_driver;
|
|
my $dbi_mysql_exists=0;
|
|
|
|
|
|
print "<html><title>MySQLDUmper Perltest</title>\n<body><h1>Perl-Test für MySQLDumper</h1>\n";
|
|
print "<h6 style=\"font-size:11px;background-color:#ccffcc;\">Unbedingt notwendige Funktionen für das Cronscript</h6>";
|
|
print "<h4>teste DBI ...</h4>\n";
|
|
eval { $eval_in_died = 1; require DBI; };
|
|
if(!$@){
|
|
$mod_dbi = 1;
|
|
import DBI;
|
|
}
|
|
if($mod_dbi!=1){
|
|
print "<font color='red'>DBI ist nicht vorhanden !<br>Es kann per Perl keine Datenbank-Verbindung aufgebaut werden!</font>\n";
|
|
} else {
|
|
print "DBI ist installiert.<br>\n";
|
|
my @available_drivers = DBI->available_drivers('quiet');
|
|
foreach $dbi_driver (@available_drivers)
|
|
{
|
|
print "gefundener DBI-Driver: $dbi_driver<br>\n";
|
|
if ( $dbi_driver eq 'mysql' ) { $dbi_mysql_exists=1; } ;
|
|
}
|
|
if ($dbi_mysql_exists !=1 ) { print "<font color='red'>DBI-MySQL-Treiber wurde nicht gefunden! Datenbankzugriff per Perl ist nicht möglich!</font>"; }
|
|
else { print "<br>Datenbankzugriff per DBI ist OK."; }
|
|
}
|
|
|
|
print "<h4>teste File::Find ...</h4>\n";
|
|
eval { $eval_in_died = 1; require File::Find; };
|
|
if(!$@){
|
|
$mod_ff = 1;
|
|
import File::Find;
|
|
}
|
|
if($mod_ff!=1){
|
|
print "<font color='red'>File::Find ist nicht vorhanden !</font><br>\n";
|
|
} else {
|
|
print "File::Find ist installiert.<br>\n";
|
|
}
|
|
|
|
|
|
print "<h4>teste File::Basename ...</h4>\n";
|
|
eval { $eval_in_died = 1; require File::Basename; };
|
|
if(!$@){
|
|
$mod_fb = 1;
|
|
import File::Basename;
|
|
}
|
|
if($mod_fb!=1){
|
|
print "<font color='red'>File::Basename ist nicht vorhanden !</font><br>\n";
|
|
} else {
|
|
print "File::Basename ist installiert.<br>\n";
|
|
}
|
|
|
|
print "<h6 style=\"font-size:11px;background-color:#ccffcc;\">Konfigurierbare Funktionen für das Cronscript</h6>";
|
|
|
|
print "<h4>teste Compress::Zlib ...</h4>\n";
|
|
eval { $eval_in_died = 1; require Compress::Zlib; };
|
|
if(!$@){
|
|
print qq[ver $Compress::Zlib::VERSION];
|
|
$mod_gz = 1;
|
|
import Compress::Zlib;
|
|
}
|
|
if($mod_gz!=1){
|
|
print "<font color='red'>Compress::Zlib ist nicht vorhanden !</font><br>\n";
|
|
} else {
|
|
print "Compress::Zlib ist installiert.<br>\n";
|
|
}
|
|
|
|
print "<h4>teste Net::FTP ...</h4>\n";
|
|
eval { $eval_in_died = 1; require Net::FTP; };
|
|
if(!$@){
|
|
$mod_ftp = 1;
|
|
import Net::FTP;
|
|
}
|
|
if($mod_ftp!=1){
|
|
print "<font color='red'>Net::FTP ist nicht vorhanden !</font><br>\n";
|
|
} else {
|
|
print "Net::FTP ist installiert.<br>\n";
|
|
}
|
|
|
|
print "<h4>teste MIME::Lite ...</h4>\n";
|
|
eval { $eval_in_died = 1; require MIME::Lite; };
|
|
if(!$@){
|
|
$mod_mime = 1;
|
|
import MIME::Lite;
|
|
}
|
|
if($mod_mime!=1){
|
|
print "<font color='red'>MIME::Lite ist nicht vorhanden !<br>MySQLDumper kann per Perl keine Emails versenden!</font>\n";
|
|
} else {
|
|
print "MIME::Lite ist installiert.<br>\n";
|
|
}
|
|
|
|
|
|
print "</body></html>\n";
|