<script>

        document.forms["eing"].elements[8].value += insert ;
        document.forms["eing"].elements[8].focus();
}

{

        t="\nBitte holen Sie dies nach und schicken Sie dann Ihren Beitrag erneut ab.";
        if(!document.forms["eing"].elements[4].value) { alert ("Sie haben keinen Namen angegeben!"+t); document.forms["eing"].elements[4].focus(); return false; }

        if(document.forms["eing"].elements[5].value=="" && document.forms["eing"].elements[7].checked == true)
        {
        alert ("Wenn Sie per Mail informiert werden wollen, müssen Sie auch eine EMailadresse angeben!"+t); document.forms["eing"].elements[5].focus(); return false;
        }
/******< bis hier geändert */
        if(!document.forms["eing"].elements[8].value) { alert ("Sie haben keinen Titel eingegeben!"+t); document.forms["eing"].elements[8].focus(); return false; }
        if(!document.forms["eing"].elements[9].value) { alert ("Sie haben keinen Text eingegeben!"+t); document.forms["eing"].elements[9].focus(); return false; }

        if(++sent>1) return false;
        return true;
}

<perl>

my $getfirst=5; # Anzahl der zuerst gezeigten Eintraege
my $getlist=100; # Anzahl der Listen-Eintraege
my $getsearch=10; # Anzahl der Suchlisten-Eintraege
my $allpos=""; # Speichert Positionen aller Eintraege eines Themas
my $newPos=0; # Neue Position eines neuen Eintrags
my $maxtext=10000; # Maximale Laenge fuer das Text-Feld

my $emsg=""; # Fuer Fehler-Meldungen bei neuen Eintraegen
### Smilies ###
$linksmile = "http://www.m-e-h.com/smilies/verrueckt/001.gif";
$linksupersmile = "http://m-e-h.com/smilies/sonstige/fif_2.gif";
$linkboese = "http://www.m-e-h.com/smilies/lachend/00000657.gif";
$linkmad = "http://www.m-e-h.com/smilies/sonstige/00000653.gif";
$linktwinky = "http://www.m-e-h.com/smilies/pictureview.php4?show=lachend.gif";
$linkzungestreck = "http://www.m-e-h.com/smilies/sonstige/00000659.gif";
### Smilies ###

# --- Formular-Ausgabe ---

{
        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 border="1" width="742">
  <tr>
    <td width="625"> 
    
    <table cellspacing=0 cellpadding=12 bgcolor=f0f0f0 width=555><tr><td width="599"><font face=arial,helvetica size=2>

<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 width="38"><font face=arial,helvetica size=2>Name:</font></td><td nowrap width="553">
<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 width="38"></td><td nowrap width="553"><font face=arial,helvetica size=2>Emailbenachrichtigung bei Antwort:
<input type=checkbox name="SchickEmail:=" checked value="1"></font></td></tr><tr><td width="38"><font face=arial,helvetica size=2>Titel:</td><td width="553">
<input type=text name="Titel:=" size=50 maxlength=80 
value="$titel"></td></tr>
<tr><td width="38"><font face=arial,helvetica size=2>Text:</td><td width="553">
<textarea name="Text:=" rows=9 cols=49 wrap=virtual>$text</textarea></td></tr>
<tr><td width="38"></td><td width="553"><input type=submit value="Speichern"> <input type=submit name="Vorschau=" value="Vorschau"> <input type=reset value="Zurücksetzen"></td></tr>
</form>
</table>
          </font>
</table>
    
    </td>
    <td width="103"> <b><font size=2>Smilies:  </font> </b>
      <p>
<b><a href="javascript:setsmilie(':-)')"><img src="$linksmile" alt=":-)" border="0"></a> <a href="javascript:setsmilie(':-))')"><img src="$linksupersmile" alt=":-))" border=0></a>   </b>
      </p>
      <p>
<b> <a href="javascript:setsmilie(':-(')" border=0><img src="$linkboese" alt=":-(" border=0></a> <a href="javascript:setsmilie(':-((')"><img src="$linkmad" alt=":-((" border=0></a>   </b>
      </p>
      <p>
<b> <a href="javascript:setsmilie(';-)')"><img src="$linktwinky" alt=";-)" border=0></a> <a href="javascript:setsmilie(':-P')"><img src="$linkzungestreck" alt=":-P" border=0></a> </b>
<!*** Smilies Auswahl Ende ***!>

              </p>
    </td>
  </tr>
</table>

###########>

# --- 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);
### Umwandlung der Smilies in gifs ###
$Text =~ s/\:-\)\)/\<img src=$linksupersmile\>/g;
$Text =~ s/\:-\)/\<img src=$linksmile\>/g;
$Text =~ s/\:-\(\(/\<img src=$linkmad\>/g;
$Text =~ s/\:-\(/\<img src=$linkboese\>/g;
$Text =~ s/\;-\)/\<img src=$linktwinky\>/g;
$Text =~ s/\:-P/\<img src=$linkzungestreck\>/g;
### Umwandlung der Smilies in gifs ende ###
                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;
}