# --- Ausgabe der ersten Eintraege und der Liste ---
unless($wcheck)
{
 out "</ul><br><center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b> Die aktuellsten $getfirst Einträge:</b></font></td></tr></table></center><font face=arial,helvetica size=2><ul>";
 get "Id==* sort=- range=0,$getfirst";
 $allpos=&all_out();
}

 out "<a name=\"list\"> </a></ul><center><table cellspacing=2 width=95% cellpadding=4><tr bgcolor=e0e0e0><td><font face=arial,helvetica size=3><b> Liste der ".($_range>0?"Einträge von $_range bis ".($_range+$_range_length>$_amount_query?$_amount_query:$_range+$_range_length):"ersten $getlist Einträge").":</b></font></td><td width=10% align=center nowrap> <a href=\"#eingabe\"><font size=2 face=arial>Zur Eingabe</a> </td></tr></table></center><font face=arial,helvetica size=2><ul>";
&list_out($allpos, $_get{Pos});
# --- blaetter-links ---

$r1=$_range; $r2=$_range_length || $getlist;

{
 my $z=0;
 @ilist=();

 if($r1-$r2>=0)
 {
  push @ilist, "<< <a href=\"$mylink&range=0,$r2\">Neueste Einträge</a>";
  push @ilist, "< <a href=\"$mylink&range=".($r1-$r2).",$r2\">Neuere Einträge</a>";
  $z++;
 }
 push @ilist, "<a href=\"#eingabe\">Zur Eingabe</a>";

 if($r1+$r2<$_amount_all)
 {
  push @ilist, "<a href=\"$mylink&range=".($r1+$r2).",$r2\">Ältere Einträge</a> >";
  push @ilist, "<a href=\"$mylink&range=".(int($_amount_all/$r2)*$r2).",$r2\">Älteste Einträge</a> >>";
  $z+=2;
 }
 out "</ul><center><table width=85%><tr><td";
 out " align=right" if $z==2;
 out " align=middle" if $z==3;
 out " nowrap><font size=2 face=arial,helvetica>".(join " | ", @ilist)."</td></tr></table>";
}
# --- Formular-Ausgabe ---

{
 my($pos, $name, $email, $www, $Icon, $titel, $text)=@_;
 $name=~ s/"/"/gs;
 $email=~ s/"/"/gs;
 $www=~ s/"/"/gs;
        $text=~ s/</</gs; $text=~ s/>/>/gs;
 $titel=~ s/"/"/gs;

 out <<EOF;

<table>
<form action="$mylinkr" method="post" enctype="multipart/form-data" onsubmit="return testform()">
<input type=hidden name="htx=" value="$htx"><input type=hidden name="wcheck=" value="1">
<input type=hidden name="range=" value="$_get{range}"><input type=hidden name="Pos=" value="$pos">
<tr><td><font face=arial,helvetica size=2>Name:</td><td nowrap><input type=text name="Name:=" size=19 maxlength=60 value="$name"><font face=arial,helvetica size=2> EMail: <input type=text name="EMail:=" size=14 maxlength=60 value="$email"> WWW: <input type=text name="WWW:=" size=14 maxlength=60 value="$www"></td></tr>
<tr><td colspan="2"><table width="100%" cellspacing=0 cellpadding=0>
<tr>
<td> </td><td>
<input type=radio value=smiley name=Icon:= style='border-color:#FFCC00;background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/smiley.gif'><span class='tatext'> Froh</span></td><td><input type='radio' value='zornig' name='Icon:=' style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/zornig.gif'><span class='tatext'> Ärger</span></td><td><input type=radio value=traurig name=Icon:= style='border-color:#FFCC00; background-color:#FFFFff;'><img src=http://www.verwitwet.de/bilder/smiley/traurig.gif><span class=tatext>Trauer</span></td><td><input type=radio value=daumen_unten name=Icon:= style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/daumen_unten.gif'><span class='tatext'> Kontra</span></td><td><input type='radio' value='daumen_oben' name='Icon:=' style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/daumen_oben.gif'><span class='tatext'> Pro</span></td>
</tr><tr>
<td> </td><td>
<input type='radio' value='blume' name='Icon:=' style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/blume.gif'><span class='tatext'> Danke</span></td><td><input type=radio value=herz name=Icon:=  style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/herz.gif'><span class=tatext> Herz(-lich)</span></td><td><input type=radio value=anmerkung name=Icon:=  style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/anmerkung.gif'><span class=tatext> Anmerkung</span></td><td><input type=radio value=frage name=Icon:=  style='border-color:#FFCC00; background-color:#FFFFff;'><img src='http://www.verwitwet.de/bilder/smiley/frage.gif'><span class=tatext> Frage</span></td><td><input type=radio value=idee name=Icon:= style='border-color:#FFCC00; background-color:#FFFFff;'><img src=http://www.verwitwet.de/bilder/smiley/idee.gif><span class=tatext>Idee</span></td>
<td> </td>
</tr>
</table></td>
</tr>
<tr><td><font face=arial,helvetica size=2>Titel:</td><td><input type=text name="Titel:=" size=50 maxlength=80 value="$titel"></td></tr>
<tr><td><font face=arial,helvetica size=2>Text:</td><td><textarea name="Text:=" rows=10 cols=55 wrap=virtual>$text</textarea></td></tr>
<tr><td></td><td><input type=submit value="Speichern"> <input type=submit name="Vorschau=" value="Vorschau"> <input type=reset value="Zurücksetzen"></td></tr>
</form>
</table>
</table>
EOF

# --- Listen-Ausgabe ---

{
 my($allpos, $pos)=@_;
 my $tlast=0;

 out "<nobr>";
 while(get_next)
 {
  if(index("#$allpos", "#$Pos#")>=0)
  {
   out "</td></tr></table>" if ($pos==$Pos && $tlast) || $tlast==-1;
   out "<table cellspacing=0 cellpadding=2 bgcolor=".($pos==$Pos?"e0e0e0":"f0f0f0")." width=90%><tr><td nowrap><font face=arial,helvetica size=2>" if $pos==$Pos || $tlast<1;
   $tlast=($pos==$Pos?-1:1);
  } else
  {
   out "</td></tr></table>" if $tlast;
   out " "; $tlast=0;
  }
  if($Shift)	{ out " " x ($Shift*8+2); }
  else		{ out "> "; }
  $Titel=substr($Text, 0, 50)."..." if $Titel eq "";
  $Name=convert_html($Name); $Titel=convert_html($Titel);	# keine html-tags erlaubt

  $Datum=datum($Datum, "kurz");
  out "<b><a href=\"$mylinkr&Pos=$Pos".($pos==$Pos?"#eingabe":"")."\">$Titel</a></b> von <b>$Name</b> am $Datum<br>\n";
 }

 out "</td></tr></table>" if $tlast;
 out "</nobr>";

# --- Detail-Ausgabe ---

{
 my($pos)=shift;				# 1. Parameter = Position des ausgewaehlten Eintrags
 my $allpos=""; my $alink="#eingabe";

 while(get_next || @_>0)
 {

  $WWW=~ s#^http://##;				# Eventuelles http:// zu Beginn abschneiden
  $Datum=datum($Datum, "lang");		# datumsfeld in schönes datum wandeln
  $EMail="EMail: <a href=\"mailto:$EMail\">$EMail</a>" if $EMail ne "";	# EMail-Ausgabe, nur wenn EMail-Feld einen Inhalt hat
  $WWW="WWW: <a href=\"http://$WWW\" target=\"_blank\">$WWW</a>" if $WWW ne "";	# WWW-Ausgabe, nur wenn WWW-Feld einen Inhalt hat
  $Titel=substr($Text, 0, 50)."..." if $Titel eq "";			# Wenn kein Titel, nimmt er die ersten 50 Zeichen des Textes als Titel
  $Name=convert_html($Name); $Titel=convert_html($Titel);		# keine html-tags erlaubt
  $allpos.="$Pos#";

  out "<table cellspacing=0 cellpadding=0 border=0 bgcolor=e0e0e0 width=90%><tr><td><font face=arial,helvetica size=2>" if $pos ne "" && $pos==$Pos;
  out <<EOF;

$EMail $WWW
<h4>$Titel</h4>
<p><ul><br>
EOF

  my $ca="<p><table width=90% cellpadding=10><tr><td bgcolor=f0f0f0><font size=3><code>";
  my $ce="</code></td></tr></table>";
  my $flag=0;
  my $nx="";
  $Text=convert_links($Text);

  foreach $x (split "\n", $Text)
  {
   if($flag==0)
   {
    $flag=2 if $x=~ s/^: //;
    $flag=3 if $x=~ /^((\s*)<|\$|\{|\}|(out|get|put|mod|if|else)(\s|$|\(?))/;
    out $ca if($flag>1);
    $x=~ s/^(\s+)/" " x length($1)/ge;
   } elsif($flag>0)
   {
    $flag=-1 if $flag==2 && !($x=~ s/^: //);
    $flag=-1 if $flag==4 && !($x=~ /^((\s*)<|\$|\{|\}|(out|get|put|mod|if|else)(\s|$|\(?))/);
    if($flag==3 && !($x=~ /^((\s*)<|\$|\{|\}|(out|get|put|mod|if|else)(\s|$|\(?))/))
    {
     $nx="$x<br>";
     $flag=4;
     next;
    }

    if($flag==-1)
    {
     out $ce;
     $flag=0;
    }
   }
   out "$nx$x<br>"; $nx="";
  }
  out $ce if $flag>0;
  out "</ul></td></tr></table>";

  if($pos==$Pos && $Pos ne "")
  {
   out "</table><p>";
  } else
  {
   $alink="$mylinkr&Pos=$Pos";
  }
  out " <a href=\"$alink\">Antworten</a>" if $_amount>1 && @_==0;
  last if @_>0;
  out '</ul><center><hr size=1 width=80%></center><ul>' if $_loop<$_amount-1;

 }
 return $allpos;
}
</perl>
</ul><center><br><hr size=1 width=92%><a href="/index.html">Zurück zur Homepage</a>
<br>
<br>
<table cellspacing=0 border=0 width=95% cellpadding=2><tr><td bgcolor=b0c0e0 align=middle><font face=arial size=1>© 2000 baseportal.de. Alle Rechte vorbehalten. <a href="/nutzb.html">Nutzungsbedingungen</a></font></td></tr></table>
<br><br>