<perl>

my $emsg="";

{
  $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 face=verdana,arial size=1 color=ffffff><b>$emsg</b></font></ul>";
  }

</perl>

<ul>
<loop sort=- convert_html=Name,Text code=perl range^=0,5>

out "<table width=90%";
out " bgcolor=$bgcolor" if $bgcolor ne "";
out " cellpadding=$cellpadding" if $cellpadding ne "";
out " cellspacing=$cellspacing" if $cellspacing ne "";
out "><tr><td>";
if($ruler=~ /\d/) { out "<hr size=$ruler><br>"; }
elsif($ruler ne "1") { out $ruler; }
out "<font face=verdana,arial size=1>"if $font_face;
out "<font color=$font_color". ($font_color?" font$font_color":"1").">"
if $font_color;
out "Beitrag von <b>$Name</b> am $Datum<br>";
out "EMail: <a href=\"mailto:$EMail\">$EMail</a> " if $EMail ne "1";
out "WWW: <a href=\"http://$www\" target=\"_blank\">$www</a> " if $www ne "1";
$Text="<ul>$Text</ul>" if $indent ne "no";
out "<p>$Text<br></td></tr></table>";

<p>

my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weitere Beitr&auml;ge</a> ]" if $newrange<$_amount_all;