# --- 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 ---
out "<br><br><br>";
$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 ---
sub form_out
{
        my($pos, $name, $email, $www, $titel, $text)=@_;
        $name=~ s/"/"/gs;
        $email=~ s/"/"/gs;
        $www=~ s/"/"/gs;
        $text=~ s/</</gs; $text=~ s/>/>/gs;
        $titel=~ s/"/"/gs;
###########< umgestaltetes Formularfeld
        out <<EOF;
<table cellspacing=0 cellpadding=12 bgcolor=f0f0f0 width=90%><tr><td><font face=arial,helvetica size=2>
<table>
<form name="eing" 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>
$namerein
<input type=hidden name="Name:=" value="$namerein">
<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></td><td nowrap><font face=arial,helvetica size=2>Emailbenachrichtigung bei Antwort:
<input type=checkbox name="SchickEmail:=" checked value="1"></font></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 ---
sub list_out
{
        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>";
}

sub all_out
{
        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;
<!--- ende zwecks 10.000 zeichen beschränkung hier--->

<table width=90%><tr><td><font face=arial size=2>Beitrag von <b>$Name</b> am $Datum<br>
$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;

                                }

                                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;
}
######################> mailroutine
sub send_mail
{
$"=',';
        if (@mail)
        {
        #### hier Inhalt user ####
        $inhalt="Auf deinen Beitrag im Forum von $domain ist ein neuer Eintrag eingegangen.\n\n check it out: http://$domain$_link&wcheck=1&Pos=$_put{Pos}\n\n--------------------------------\n\n Thema: $_put{Titel}\n User: $_put{Name}\n";
           for (@mail)
           {
                mail $_, $betreff, $inhalt, $form_adress, $to_name, $from_name;
           }
        }
        #### hier Inhalt admin ####
        $inhalt_a="Im Forum von $domain ist ein neuer Eintrag eingegangen.\n\n http://$domain$_link&wcheck=1&Pos=$_put{Pos}\n\n--------------------------------\n\n Thema: $_put{Titel}\n User: $_put{Name}\n Message: $_put{Text}\n Email: $_put{EMail}\n www: $_put{WWW}\n\n";
        mail $admin, $betreff_a, $inhalt_a, $form_adress_a, $to_name_a, $from_name_a;
}
</perl>