<perl>
if($logout eq "1")
{
mod "nutzer_name==$login_name", ["nutzer_sid", ""], "nutzer"; 
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time);
$sid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour);
$anzeige="";
if($namerein ne "" && pwrein ne "" && $sid eq "")
{
  get "nutzer_name==!$namerein","nutzer";
out "<!-- abfrage ob Login-Name und Passwort übereinstimmen -->";
  if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
  {
out "<!-- Session-Id erstellen und mit Url mitgeben -->";
    mod "nutzer_name==$namerein",["nutzer_sid", "$sid_aktuell"], "nutzer"; 
    $anzeige="1";
} else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
    $login_name="";
    $anzeige="";
  }
}
if($namerein ne "" && $sid ne "")
{
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
get "nutzer_name==$namerein", "nutzer";
$sid_max = 10+(1*$nutzer_sid);
if($sid eq $nutzer_sid && $sid_aktuell <= $sid_max)
{
out "<!-- session-id ist gültig - session-id wird aktualisiert -->";
mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer";
$anzeige="1";
} else
{
out "<!-- session-id ist abgelaufen -->";
    $login_name="$nutzer_name";
    $namerein="";
    $anzeige="";
}
}
out "<!-- login-seite -->";
if($namerein eq "")
{
out <<EOF;
<h2><font face="Arial, Helvetica, sans-serif" size="3">Anmeldung</font></h2>

<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Login-Name:</td><td><input type="text" name="namerein=" value="$login_name"></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
}
out "<!-- anzeige des inhalts, falls berechtigt -->";
if($anzeige eq "1")
{
do_all" databack=f0f0f0 datasize=2 headalign=middle headbold=1 headback=e0e0e0 border=0 spacing=2 padding=4 gridcolor=000000 dataface=arial,helvetica db=/****/****/mail range^=0,15 showamount=all selectbrowse=no buttonbrowse=no pagebrowse=top listtype=list input=no listfields=-Id,Aktion,Strasse,Hausnummer,Plz,Bemerkungen,Bundesland,Telefon,Handy,Homepage,Fahrzeug allfields=-Id,Aktion keyfield=Nachname","namerein","sid","range","login_name";
}
</perl>