#!/usr/bin/perl
##############################################################################
# Gaestebuch (c) Schönenberg-Computer GMBH und Verlag WebXpress              #
##############################################################################
#

require './perl.lib';
ReadParse(*in);

$self = "gaeste.cgi";
$delimiter = "::";
$no_delimiter = "--";
$counter = 0;
$messages = 10;
$gb = "gaestebuch.txt";
$template = "gaeste2.htm";
$font0="</FONT>";
$font1="<FONT FACE=Arial SIZE=-1>";
$font2="<FONT FACE=Arial>";

# Make the Date and the Time
($Sec, $Min, $Hor, $Day, $Mon, $Yer, $WeD, $DoY, $IsD) = localtime(time);
# set month
$Mon = $Mon + 1;
# Set year
$Yer = $Yer + 1900;
# Make Weekdays
@WoT=('So','Mo','Di','Mi','Do','Fr','Sa');
$Tag=$WoT[$WeD];
$mydate1=$Tag . " "
         . sprintf('%02d',$Day) . "."
         . sprintf('%02d',$Mon) . "."
         . sprintf('%04d',$Yer);
$mytime1=sprintf('%02d', $Hor) .
	":" . sprintf('%02d', $Min) .
	":" . sprintf('%02d', $Sec);
$datum=$mydate1 . "-" . $mytime1;

print "Content-type: text/html\n\n";

&fehler("Das G&auml;stebuch existiert nicht!")
		unless ($gb);
&fehler("Das Template (.htm) zum G&auml;stebuch existiert nicht!")
		unless ($template);

###############################
# Nur Anzeigen des Gaestebuches
###############################

if ($in{cmd} eq "show") {
	open (TEMPLATE,$template)
		|| &fehler("Kann Template (.htm) nicht &ouml;ffnen!");
	while(<TEMPLATE>) {
		if (/<!--text-->/) {

			# Einlesen des gewuenschten Gaestebuches
			open (FILE,$gb)
				|| &fehler("Kann Gaestebuch-Datei nicht &ouml;ffnen!");
			while(<FILE>) {
				$counter++;
				$content[$counter] = $_;
			}
			close (FILE);
			print "<CENTER><TABLE BORDER=0 WIDTH=400";
			print " CELLPADDING=5 CELLSPACING=5 BGCOLOR=#FFCC66>\n";
			print "<TR><TD>";
			print "$font1 <B>";
			print "$counter Eintragungen bis $datum </B>";
			print "$font0";
			print "</TD></TR></TABLE></CENTER>";

			# Ausgabe der angeforderten Seite
			$in{'page'} = 1 if ($in{'page'} <= 0);
			for ($i=$counter-($messages*($in{'page'}-1));$i>($counter-$messages*$in{'page'});$i--) {
				next if ($i <= 0);
				($user,$email,$eintragsdatum,$text) = split(/$delimiter/,$content[$i]);
				print "<CENTER><TABLE BORDER=0 WIDTH=400";
				print " CELLPADDING=5 CELLSPACING=5 BGCOLOR=#FFCC66>\n";
				print "<TR><TD>";
				print "$font1 <B>";
				print "$user schrieb am $eintragsdatum:<br>\n";
				print "E-Mail: (<a href=\"mailto:$email\">$email</a>)<BR></B>\n";
				print "<CENTER><TABLE BGCOLOR=FFFFFF WIDTH=95%><TR><TD>\n";
				print "<I>$font1$text<br>$font0</I><BR>\n";
				print "</TD></TR></TABLE></CENTER>";
				print "</TD></TR>\n";
				print "</TABLE></CENTER>\n";
				if ($i eq 1) {
					print "<CENTER>$font1 Ende der Liste $font0 </CENTER>";
				}
			}
		}

		# Ausgabe der Gaestebuch-Navigation
		if (/<!--navigation-->/) {
			$prev_page = $in{'page'} -1;
			$prev_page = 1 if ($prev_page <= 0);
			$next_page = $in{'page'} +1;
			print "<CENTER><P><BR></P> $font2";
			if (($counter - $i) ne $messages) {
				 print "<a href=\"$self?cmd=show&page=$prev_page&type=$in{'type'}\">Zur&uuml;ck</a> - ";
			}
			print "<a href=\"$self?cmd=show&page=1&type=$in{'type'}\">Anfang</a>";
			if ($i gt 0) {
				print " - <a href=\"$self?cmd=show&page=$next_page&type=$in{'type'}\">Weiter</a>\n";
			}
			print " - <a href=\"gaeste1.htm\">Neueintrag</a><br>\n";
			print "$font0 </CENTER>";
		}
		print;
	}
	close (TEMPLATE);
	exit(1);
}

#########################
# Beginn der Eintragung
#########################

if ($in{'cmd'} eq "enter") {
	# Ueberpruefung, ob auch alle Angaben da sind
	if(!$in{'name'} || !$in{'email'} || !$in{'text'}) {
	        &fehler("Sie haben nicht alle Felder ausgef&uuml;llt. Bitte gehen Sie zur&uuml;ck und versuchen Sie es noch einmal!");
	}

	# Anpassen des eingegebenen Textes
	$text = $in{'text'};
	$text =~ s/$delimiter/$no_delimiter/g;
	$text =~ s/\r/ /g;
	$text =~ s/\n/<br>/g;

	# Anhaengen an den bisherigen Inhalt
	open (FILE,">>".$gb) 
		|| &fehler("Kann Gaestebuch-Datei nicht &ouml;ffnen!");
	print FILE $in{'name'}.$delimiter.$in{'email'}.$delimiter.$datum.$delimiter.$text."\n";
	close (FILE);

	# Ausgabe der Antwort
	open (TEMPLATE,$template)
		|| &fehler("Kann Template-Datei (.htm) nicht &ouml;ffnen!");
	while(<TEMPLATE>) {
		# s/<!--datum-->/$datum/g;
		if (/<!--text-->/) {
			print "<P><BR><BR></P>";
			print "<TABLE BORDER=0 SIZE=80%><TR><TD WIDTH=50></TD><TD>";
			print "$font2 Vielen Dank f&uuml;r Deinen Eintrag.<br>\n";
			print "Du kannst ihn <a href=\"$self?cmd=show&page=1&type=$in{'type'}\">hier</a> nachlesen.<br><br>\n";
			print "</TR></TD><TR><TD></TD><TD>";
			print "$font2 Thanx for your lines.<BR>";
			print "To read our guestbook, just ";
			print "<a href=\"$self?cmd=show&page=1&type=$in{'type'}\"> click here</a>.<br><br>\n";
			print "$font0 </TR></TD></TABLE></CENTER>";
		}
		print;
	}
	close (TEMPLATE);
}

###############
# Fehlerroutine
###############

sub fehler {
    local($msg) = @_;
	print "<html><head><title>Fehler!</title></head><body>\n";
    print "<h1>Es ist ein Fehler aufgetreten:</h1><br>\n";
    print "<h2>$msg</h2><br>\n";
    print "</body></html>\n";
    exit(1);
}