#! /usr/bin/perl -w

use DBI;
use CGI;

if($ENV{'REQUEST_METHOD'} eq 'GET')    #Abfragen ob der user eine Eingabe gemacht hat
{
    &GaestebuchEintrag();
}

&htmlGaestebuch();


#====================================================#

 sub GaestebuchEintrag
{
    
    my $cgi = new CGI;
    
    $name = $cgi->param('name');
    $mail =$cgi->param('mail');
    my $homepage =$cgi->param('homepage');
    my $titel =$cgi->param('titel');
    my $nachricht =$cgi->param('nachricht');
    
    &dateNow();
    
    #$datum    =@dateNow[0];
    #$zeit    =@dateNow[1];
    
    #$sql = qq{insert into  gaestebuch (name, datum, zeit, titel, text, mail, website) values (?,?,?,?,?,?,?)};
    #$sth =dbh->prepare($sql);
    #$sth->execute($name, $datum, $zeit, $titel, $text, $mail, $homepage);
    #$sth->finish();
}


sub dateNow
{

    my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
        $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
    my $CTIME_String = localtime(time);
    $Monat+=1;
    $Jahrestag+=1;
    $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
    $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
    $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
    $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
    $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
    $Jahr+=1900;
    my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
    my @Monatsnamen = ("","Januar","Februar","M&auml;rz","April","Mai","Juni",
           "Juli","August","September","Oktober","November","Dezember");
    
    #@dateNow=(["$Monatstag. $Monatsnamen[$Monat] $Jahr<br>\n"], ["$Stunden.$Minuten Uhr<br>\n"]);
    $dateNow[0]="$Monatstag. $Monatsnamen[$Monat] $Jahr<br>\n";
    $dateNow[1]="$Stunden.$Minuten Uhr<br>\n";
    
}