<perl>
   get "benutzername==$LoginNick";
   if($passwort ne "" && $passwort eq $LoginPasswort) {
    if ($cmd eq "mod") {
     mod "benutzername==$LoginNick";
     out '<p align="center"><b><font color=white>Eintrag geändert...Sie müssen das Fenster jetzt schließen - vielen Dank.</font></b></p>';
    }
    if ($cmd eq "del") {
     del "benutzername==$LoginNick";
     out '<p align="center"><b><font color=white>Eintrag gelöscht...</font></b></p>';
    }
    if ($cmd ne "mod" && $cmd ne "del") {
    get "benutzername==!$LoginNick";

    out '<p align="center">';
    out ' <form action="http://meinedomain.de/cgi-bin/baseportal.pl?htx=meinedomain.de/Mitglieder" method="post" enctype="multipart/form-data" >';
    out '  <input type=hidden name="htx=" value="/meinedomain/Mitglieder">';
    out '  <input type=hidden name="cmd=" value="mod">';
    out '  <input type=hidden name="LoginNick=" value="',$LoginNick,'">';
    out '  <input type=hidden name="LoginPasswort=" value="',$passwort,'">';
    out '  <table bgcolor=cfcfcf>';
    out '  <tr>';
    out '  <td>';
    out '  <center>';
    out '  <table width 500 bgcolor=f0f0f0 cellspacing="0" cellspadding="0">';
    out '  <tr>';
    out '  <td><b>Profil ändern ',$Vorname,' ',$Nachname,'</b></td>';
    out '  </tr>';
    out '  </table></center>';
    out '  </tr>';
    out '  </td>';
    out '  <tr>';
    out '  <td>';
    out '  <center>';
    out '  <table width=100% bgcolor=f0f0f0>';
    out '  <tr>';
    out '  <td>';
    out '  <center>';
    out '  <table width=100% bgcolor=cfcfcf>';
    out '  <tr>';
    out '  <td>';
    out '   <table bgcolor=cfcfcf>';
    out '    <tr>';
    out '     <td><font size=2><b>Nachname:</b></font></td>';
    out '     <td><input name="Nachname:=" size=35 value="',$Nachname,'"></td>';
    out '    </tr>';
    out '    <tr>';

    out '   </table>';
    out '    <hr width=500>';
    out '      <div align="center">';
    out '       <input type=submit value="Änderungen im Profil eintragen">';
    out '      </div>';
    out '  </form>';
    out '  </td>';
    out '  </tr>';
    out '  </table></center>';
    out '  </td>';
    out '  </tr>';
    out '  </table></center>';
    out '  </td>';
    out '  </tr>';
    out '  </table></center>';
    out '  </td>';
    out '  </tr>';
    out '  </table></center>';
    out ' </p>';
    }
   } else {
    out '<h2><center><font color=ffffff>Login</font></center></h2>';
    out '<form action="http://meinedomain.de/baseportal/Mitglieder" method="post" enctype="multipart/form-data">';
    out ' <p align="center">';
    if($LoginPasswort ne "") {
     out '  <b>Login ungültig !</b>';
    }
    out '  <table>';
    out '   <tr><td><font color=ffffff><b>Username:</b></font></td><td><input type="text" name="LoginNick=" size=20 value=""></td></tr>';
    out '   <tr><td><font color=ffffff><b>Passwort:</b></font></td><td><input type="password" name="LoginPasswort=" size=20 value=""></td></tr>';
    out '   <tr><td colspan=2 align="center"><input type="submit" value="Einloggen"></td></tr>';
    out '  </table>';
    out ' </p>';
    out '</form>';
   }
  </perl>
 </body>
</html>