<perl>

{
  get "Name==!$namerein", "nutzer";

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
out <<EOF;

           <td><font size=2 face=arial,helvetica>
                     <input type="text" name="Linktitel:=" size=20 value="Minisatz"></td>
       </tr>
       <tr>
           <td align=right><font size=2 face=arial,helvetica>Titel:</td>
           <td><font size=2 face=arial,helvetica><input type="text" name="Titel:=" size=20 value="Seitentitel"></td>
       </tr>
<tr>
         <td align=right><font size=2 face=arial,helvetica>Absatz:</td>
         <td><font size=2 face=arial,helvetica>
                   <textarea name="Absatz:=" cols=80 rows=3 wrap=virtual>Ein Paar einleitende Worte...
                   </textarea>
         </td>
     </tr>
       <tr>
           <td align=right><font size=2 face=arial,helvetica>Text:</td>
           <td><font size=2 face=arial,helvetica><textarea name="Text:=" cols=80 rows=15 wrap=virtual>
Hier den Text einfügen und dabei dashier überschreiben! (Wie in allen andern Feldern auch!)</textarea>
         </td>
     </tr>
     <tr>
         <td align=right><font size=2 face=arial,helvetica>Thema:</td>
         <td><font size=2 face=arial,helvetica>
                   <select name="Thema:=">
                           <option>-- Allgemein --
                           <option>Sportkommentar
                           <option>News
                           <option>Test
                           <option>Kino-Filmkritik
                           <option>
                           <option>-- SteinSchlag --
                           <option>News
                           <option>Artikel
                   </select>
         </td>
     </tr>
     
     <tr>
         <td align=right><font size=2 face=arial,helvetica><a href="javascript:alert('Nur, wenn Filmkritik!');">Regie</a>:</td>
         <td><font size=2 face=arial,helvetica>
                   <input type="text" name="Regie:=" size=20 value="">
         </td>
     </tr>
     <tr>
         <td align=right><font size=2 face=arial,helvetica>Art:</td>
         <td><font size=2 face=arial,helvetica>
                   <select name="Art:=">
                           <option selected>-- Auswählen --
                           <option>
                           <option>-- Testarea 51 --
                           <option>Computerspiel
                           <option>Gesellschaftsspiel
                           <option>Buch
                           <option>Sonstiges
                           <option>
                           <option>-- Filmkritik --
                           <option>Krimmi
                           <option>Märchen
                           <option>Novelle
                           <option>Geschichte
                           <option>Roman
                           <option>Komödie
                           <option>Sonstiges
                           <option>
                           <option>-- Sport --
                           <option>Fußball
                           <option>Radsport
                           <option>Schwimmen
                           <option>Basketball
                           <option>Schulsport
                           <option>Handball
                           <option>Sonstiges
                   </select>
         </td>
     </tr>
     <tr>
         <td align=right><font size=2 face=arial,helvetica>Genre:</td>
         <td><font size=2 face=arial,helvetica>
                   <select name="Genre:=">
                           <option selected>-- Nur für Testarea 51 --
                           <option>
                           <option>-- Computer --
                           <option>Aufbauspiel
                           <option>Strategiespiel
                           <option>Onlinespiel
                           <option>Jump & Run
                           <option>Brettspielumsetzung
                           <option>
                           <option>-- Brettspiel --
                           <option>für eine Person
                           <option>für 2 Personen
                           <option>für 3 Personen
                           <option>für bis zu 4 Personen
                           <option>für mehr als 4 Personen
                           <option>
                           <option>-- Buch --
                           <option>Roman
                           <option>Novelle
                           <option>Märchen
                           <option>Detektivgeschichte
                           <option>WildWestStory
                   </select>
         </td>
     </tr>
     <tr>
         <td></td>
         <td nowrap>
             <input type=submit value="Abschicken">  <input type=reset value="Zurücksetzen">
         </td>
     </tr>
     </form>
</table>

  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}

{

<h2>Anmeldung</h2>Bitte melden Sie sich an:
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form>
EOF

</perl>