<perl>
if($logout eq "1")
{
mod "Id==$login_name", ["nutzer_sid", ""], "datenbank"; 
}
($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 "" && pwreinname ne "" && $sid eq "")
{
  get "Id==!$namerein", "datenbank";

 if($email ne "" && $email eq $pwrein && $name eq $pwreinname)
  {
out "<!-- Session-Id erstellen und mit Url mitgeben -->";
    mod "Id==$namerein", ["nutzer_sid", "$sid_aktuell", "anzeige", "1", "bestaetigung", "$jetzt"], "datenbank";  
    $anzeige="1";
} else
  {
    out "<b>Bitte überprüfen Sie Ihre Daten</b>";
    $namerein="";
    $login_name="";
    $anzeige="";
  }
}

{
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
get "Id==$namerein", "datenbank";
$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 "Id==$namerein", ["nutzer_sid", "$sid_aktuell", "anzeige", "1", "bestaetigung", "$jetzt"], "datenbank";
$anzeige="1";
} else
{
out "<!-- session-id ist abgelaufen -->";
    $login_name="$Id";
    $namerein="";
    $anzeige="";
}
}
out "<!-- login-seite -->";
if($namerein eq "")
{
out <<EOF;
<center>
<table width=430 border=1 bordercolordark=006600 bordercolor=00ff00>
<tr>
<td bgcolor=ccffcc><div align=center><font face=Arial,Helvetica,sans-serif>
<h2><font color=006600>Bestätigung</h2><p><h2><font face="Arial, Helvetica, sans-serif" size="2"></font></h2>
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx"></td></tr>
<tr><td bgcolor=#ffffff>
<div align=center>
<table>
<tr><td>Deine Id:</td><td><input type="text" name="namerein=" value="$login_name"></td></tr>
<tr><td>Deine Email:</td><td><input type="text" name="pwrein="></td></tr>
<tr><td>Nachname:</td><td><input type="text" name="pwreinname="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table>
</form>
</table>

}
out "<!-- anzeige des inhalts, falls berechtigt -->";

{
get "Id==!$namerein", "datenbank";
out <<EOF;

<script language="JavaScript">
 document.Ausgabe.submit();
 </script>

}
</perl>

</html>