#!/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";