<perl>

{
del "nutzer_name==$login_name", "besuche";

$namerein="";
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time);
$sid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour);
if($namerein ne "" && $pwrein ne "" && $sid eq "")
{
  get "nutzer_name==!$namerein", "Adrl";
out "<!-- abfrage ob Login-Name und Passwort übereinstimmen -->";
  if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
  {
$anzeige="1";

put ["Nach","$Name","Vor","$Vorname","nutzer_sid", "$sid_aktuell","nutzer_name","$nutzer_name"],"besuche";

  {
    out "<b>Anmeldung leider fehlgeschlagen! Bitte überprüfe die Eingaben auf Groß-/und Kleinschreibung!</b>";
    $namerein="";
    $login_name="";
    $anzeige="";
  }
}
if($namerein ne "" && $sid ne "")
{
out "<!-- test, ob aktuelle session-id noch gültig ist -->";

$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 -->";
del "nutzer_name==$nutzer_name", "besuche";
$anzeige="1";
$sid=$sid_aktuell;

} 
else
{
out "<!-- session-id ist abgelaufen -->Session abgelaufen";
del "nutzer_name==$namerein ", "besuche";
    $login_name="$nutzer_name";
    $namerein="";
    $anzeige="";
}
}
out "<!-- login-seite -->";
if($namerein eq "")
{
 
out <<EOF;

<form action="http://mein-account.de/cgi-bin/baseportal.pl?htx=$htx&db=info&Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>nutzer_name:</td><td><input type="text" name="namerein=" value="$login_name"></td></tr>
<tr><td>nutzer_passwort:</td><td><input type="Password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form>

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

{
out <<EOF;
<table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr align="left" valign="top"> 
    <td width="150"> 
      
    <td width="550">

      </td>
EOF
get "nutzer_name==!$namerein","besuche";
out "<center><br><h3>Hallo $Vor!</h3> </center>";
out "<b>Zur Zeit online:</b> ";
get "Vor==*","besuche";

{
out " $Vor $Nach |";
}
out "<center><br><h3></h3> </center>";
out <<EOF; 
<table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr align="left" valign="top"> 
    <td width="150"> 
      <p><a href="baseportal.pl?htx=$htx&db=Adrl&listfields=Name,Vorname&namerein=$namerein&sid=$sid_aktuell"><font face="Arial, Helvetica, sans-serif"><b>Adressen</b></font></a></p>

<p><a href="baseportal.pl?htx=$htx&db=info&listfields=info&namerein=$namerein&sid=$sid_aktuell"><b><font face="Arial, Helvetica, sans-serif">Ist leer 1</font></b></a></p>

<p><a href="baseportal.pl?htx=$htx&db=Adrl&listfields=Name,Vorname&login_name=$namerein&logout=1"><b><font face="Arial, Helvetica, sans-serif" color=d80000>LOGOUT</font></b></a></p>

      </td>
    <td width="550">
EOF

out <<EOF;

    </td>
  </tr>

<p>&nbsp; </p>

}

</body>
</html>