<table border="0" width="630" cellspacing="4" cellpadding="3">
<tr>
<td align="center" width="100%">
<font size="2" face="Arial">Als Admin kann man sich hier einloggen:
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/otkom/psvbs/terminadmin" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/otkom/psvbs/terminadmin">
<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></font>
</td>
</tr>
</table>

<perl>
if($namerein ne "")
{

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
  do_all "db=termin databack=- datasize=2 text=ffffff tdparam=align=left headback=- border=0 spacing=1 padding=2 gridcolor=- dataface=arial,helvetica sort^=Termin range^=0,20 pagebrowse=no buttonbrowse=top listtype=list listfields=Beginn,Termin,Meldung,Verband,Bezeichnung,Ort", "namerein", "pwrein";
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }
}
<perl>

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

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
    do_all "", "namerein", "pwrein";
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
  }

if($namerein eq "")
{

<p>
<form action="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/otkom/psvbs/terminadmin&cmd=add" method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">
<input type="hidden" name="htx=" value="/otkom/psvbs/terminadmin">
<table><tr><td>Beginn:&nbsp;</td><td><select
.... formular ...
></tr></table>
</form>

}