#! /usr/bin/perl -w use DBI; use CGI; use warnings; use CGI::Carp qw/fatalsToBrowser/; if ($ENV{'REQUEST_METHOD'} eq 'POST') #Abfragen ob der user eine Eingabe gemacht hat { my $cgi = new CGI; my $action = $cgi->param('action'); my $eintragID = $cgi->param('eintragID'); if ($action eq "change") { &GaestebuchEintrag($eintragID); #Ändern d. Gästebucheintrages } elsif ($action eq "delete") { &GaestebuchEintragLoeschen($eintragID); #Löschen d. Gästebucheintrages } } &htmlGaestebuch(); #+-----------+-------+------+---------------+-------+-----------+------+----------+ #| EintragID | Datum | Zeit | Name | Titel | Nachricht | Mail | Homepage | #+-----------+-------+------+---------------+-------+-----------+------+----------+ sub Weiterleitung { print "Content-type: text/html\n\n"; print < Gästebuch Weiterleitung EOT } sub GaestebuchEintragLoeschen { my $id = shift; print "

".$id."

"; &connect(); my $sql = my $sth = $dbh->prepare( $sql ); $sth->execute(); $sth->finish(); &disconnect(); } sub GaestebuchEintrag { my $id = shift; my $cgi = new CGI; my $nachricht = $cgi->param('nachricht'); my $name = $cgi->param('name'); my $wohnort = $cgi->param('wohnort'); my $mail =$cgi->param('mail'); my $homepage =$cgi->param('homepage'); my $titel =$cgi->param('titel'); $homepage =~ s/^http:(\/*|\\*)*//; &dateNow(); my $datum =@dateNow[0]; my $zeit =@dateNow[1]; &connect(); my $sql = qq{insert into gaestebuch (Datum,Zeit,Name,Titel,Nachricht,Mail,Homepage,Wohnort) values (?,?,?,?,?,?,?,?)}; my $sth = $dbh->prepare( $sql ); $sth->execute($datum,$zeit,$name,$titel,$nachricht,$mail,$homepage,$wohnort); $sth->finish(); &disconnect(); } sub htmlGaestebuch { print "Content-type: text/html\n\n"; print < Gästebuch

Zum editieren der Einträge anklicken

EOT print @dateNow[0]; print @dateNow[1]; &connect(); #Verbinden mit datenbank "Database con nection not made: $DBI::errstr"; my $sql = qq{select * from gaestebuch}; my $sth = $dbh->prepare( $sql ); $sth->execute(); while(@ergebnis=$sth->fetchrow_array) { print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "

\n"; print " #".$ergebnis[0]." \n"; print " \n"; print " ".$ergebnis[1].", um ".$ergebnis[2]." Uhr \n"; print " ".$ergebnis[7]." \n"; print " \n"; print "	\n"; print " ".$ergebnis[3]." \n"; print " aus \n"; print " ".$ergebnis[8]." \n"; print "
	\n"; print " ".$ergebnis[4]." \n"; print " ".$ergebnis[5]." \n"; print "

\n\n"; } $sth->finish(); &disconnect(); #Verbindung mit Datenbank trennen print " \n"; print " \n"; print " \n\n"; print "

"; print < EOT } 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 connect { my $verbindung = "DBI:mysql:dwTest"; my $username = "*****"; my $password = "*****"; use DBI; $dbh = DBI->connect($verbindung, $username, $password); } sub disconnect { $dbh->disconnect(); }

Zum editieren der Einträge anklicken

".$ergebnis[4]."