adressen

      # Feld Sortierung Typ Parameter

      2 Strasse --- text
      3 Ort --- text

      nutzer

      # Feld Sortierung Typ Parameter

      2 Passwort --- text
      3 Leserechte --- checkbox Ausgabe markiert=Ja
      4 Schreibrechte --- checkbox Ausgabe markiert=Ja
      5 Änderrechte --- checkbox Ausgabe markiert=Ja

 Seiten 

      <perl>

      if($namerein ne "")
      {
      Wurde ein Name angegeben?
        get "Name==!$namerein", "nutzer";

        if($Passwort ne "" && $Passwort eq $pwrein)
        {

          do_all "", "namerein", "pwrein";

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

        }
      }

      if($namerein eq "")
      {
      Der Nutzer ruft die Seite zum ersten Mal auf oder ein Anmeldeversuch hat fehlgeschlagen.
      out <<EOF;
      <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>
      Das wars auch schon... ;-)