<head>
<link rel="stylesheet" href="http://www.nill-griffe.de/schriften.css">
</head>
<body background="http://www.nill-griffe.de/higrus/liquid3.jpg" link="#ffcc00" vlink="#31ceff"><p><embed src="http://www.nill-griffe.de/deutsch/ueberschriften/gaestebuch.swf" width="400" height="50" quality="best" type="application/x-shockwave-flash"></p>
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Text} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Text})>$maxtext;
if($emsg eq "")
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
}
</perl>
<do action=list listtype=add language=en>
<loop sort=- convert_html=Name,Text code=perl range^=0,20 language=en>
my $www=$WWW; $www=~ s#^http://##;
out '<table width=90%><tr><td><hr size=1><br><font face=arial,helvetica size=2>';
out "Beitrag von <b>$Name</b> am $Datum<br>";
out "EMail: <a href=\"mailto:$EMail\">$EMail</a> " if $EMail ne "";
out "WWW: <a href=\"http://$www\" target=\"_blank\">$www</a> " if $www ne "";
out "<p><ul>$Text</ul></td></tr></table>";
