Hier mal ein kurzes Test-Script. Unter CGI alles Super, unter ModPerl Error500 mit dem genannten Eintrag im Error-Log
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl -w
my $time=time();
my $item =7406158155;
use CGI::Carp qw(fatalsToBrowser);
use Fcntl qw(:DEFAULT :flock);
use CGI qw(:standard);
use CGI;
use Apache::DBI;
use DBI;
my $datenbank = "AAAAA";
my $datenbankhost = "localhost";
my $datenbankuser = "BBBBB";
my $datenbankpw = "CCCCC";
my $fehlermeldung = "<li>Fehler bei der Datenbankverbindung aufgetreten. Bitte ueberpruefen Sie die Angaben";
my $dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$datenbankpw") || fehlerausgabe($fehlermeldung);
(undef,undef,my $hour,undef,undef,undef,my $wday,undef,undef) = localtime($time);
$wday = $wday+24;
$dbh->do (qq~UPDATE `itemstats` SET `H$hour` = H$hour+1,`H$wday` = H$wday+1, letzteraufruf = $time WHERE item = '$item'~);
$dbh->disconnect; # DB Connect beenden
print "Content-type: text/html;CHARSET=iso-8859-1\n\n";
print "ok";