#! /usr/bin/perl -w
use DBI;
use CGI;
use warnings;
use CGI::Carp qw/fatalsToBrowser/;
if($ENV{'REQUEST_METHOD'} eq 'GET') #Abfragen ob der user eine Eingabe gemacht hat
{
&GaestebuchEintrag();
}
&htmlGaestebuch();
#+-----------+-----------+----------+------------+-----------+--------+------------+
| Name | Datum | Zeit | Titel | Text | Mail | Website |
#+-----------+-----------+----------+------------+-----------+--------+------------+
#=====================================================================================#
sub GaestebuchEintrag
{
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
my $name = $cgi->param('name');
my $mail =$cgi->param('mail');
my $homepage =$cgi->param('homepage');
my $titel =$cgi->param('titel');
my $nachricht =$cgi->param('nachricht');
&dateNow();
my $datum =@dateNow[0];
my $zeit =@dateNow[1];
&connect();
my $sql = qq{insert into gaestebuch (Name,Datum,Zeit,Titel,Text,Mail,Website) values (?,?,?,?,?,?,?)};
my $sth = $dbh->prepare( $sql );
$sth->execute($name,$datum,$zeit,$titel,$text,$mail,$homepage);
$sth->finish();
&disconnect();
}
sub dateNow
{
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
$Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
my $CTIME_String = localtime(time);
$Monat+=1;
$Jahrestag+=1;
$Monat = sprintf("%02d",$Monat);
$Monatstag = sprintf("%02d",$Monatstag);
$Stunden = sprintf("%02d",$Stunden);
$Minuten = sprintf("%02d",$Minuten);
$Sekunden = sprintf("%02d",$Sekunden);
$Jahr+=1900;
my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni",
"Juli","August","September","Oktober","November","Dezember");
#@dateNow=(["$Monatstag. $Monatsnamen[$Monat] $Jahr \n"], ["$Stunden.$Minuten Uhr \n"]);
$dateNow[0]="$Monatstag. $Monatsnamen[$Monat] $Jahr";
$dateNow[1]="$Stunden:$Minuten:$Sekunden";
}
sub htmlGaestebuch
{
print < #habs mal mit einem html Kopf ausprobiert hier, bringt aber auch nichts!
Gästebuch
EOT
print @dateNow[0];
print @dateNow[1];
&connect(); #Verbinden mit datenbank
"Database connection not made: $DBI::errstr";
my $sql = qq{select * from gaestebuch};
my $sth = $dbh->prepare( $sql );
$sth->execute();
while(@ergebnis=$sth->fetchrow_array)
{
print <