<perl>
 
my $maxtext=5000;
my $emsg="";
if(%_put)
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Beitrag} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Beitrag}) > $maxtext;
 

        {
                 put;
                 out <<EOF;
                 <ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>
<form name=Ausgabe action="http://www.is-fun.net/cgibin/feedbackx.cgi" method="post">
<input type="hidden" name="betreff" value="Gästebucheintrag Bär-Konzept">
<input type="hidden" name="empfaenger" value="holger-baer\@t-online.de">
<input type="hidden" name="antwort_template_name" value="http://www.baer-konzept.de/templates/bucheintrag.htm">
</form>
<script language="JavaScript">
document.Ausgabe.submit();
</script>
 
EOF
        }else
        {
                 out "<ul><font color=d80000><b>$emsg</b></font></ul>";
        }
}

<do action=list listtype=add>
<loop sort=- convert_html=Name,Beitrag,Text code=perl range^=0,15>
my $www=$WWW;
$www=~ s#^http://##;
$pic=~ s#^http://##;
out <<EOF;
<table width=90%>
<tr>
<td class="normtext" height="66">
<p align="center"><img src="http://www.baer-konzept.de/grafik/liniestern.gif" width="360" height="40"></p>
<p align="left">Beitrag von <b>$Name</b> am $Datum</p>
<p>
<ul>
$Beitrag
</ul>
<p>
 
EOF

out "<br>http:// <a href=http://$www target=_blank>$www</a>" if $www ne "";
out "<br>E-Mail: <a href=mailto:$EMail>$EMail</a> " if $EMail ne "";
out "</p><p></td></tr></table>";
</loop>
<br>

my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "[ <a href=\"$_link&range=$oldrange,$_range_length\">Vorherige Beiträge</a> ]" if $oldrange>=0;
out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weitere Beiträge</a> ]" if $newrange<$_amount_all;
</perl>

</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>