<perl>
$db="test";
if($logout eq "1")
{mod "Name==$login_name", ["nutzer_sid", ""], "$db";}
($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 "Name==!$namerein", "$db";

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
out "<!-- Session-Id erstellen und mit Url mitgeben -->";
    mod "Name==$namerein", ["nutzer_sid", "$sid_aktuell"], "$db"; 
    $anzeige="1";
} else
  {
    out "<b>Anmeldung fehlgeschlagen!</b>";
    $namerein="";
    $login_name="";
    $anzeige="";
  }
}

{
out "<!-- Test, ob aktuelle Session-id noch gültig ist -->";
get "Name==$namerein", "$db";
$sid_max = 5+(1*$nutzer_sid);
if($sid eq $nutzer_sid && $sid_aktuell <= $sid_max)
{
out "<!-- Session-id ist gültig - Session-id wird aktualisiert -->";
mod "Name==$namerein", ["nutzer_sid", "$sid_aktuell"], "$db";
$anzeige="1";
} else
{
out "<!-- Session-id ist abgelaufen -->";
    $login_name="$Name";
    $namerein="";
    $anzeige="";
}
}
out "<!-- Login-seite -->";
if($namerein eq "")
{
out <<EOF;

<p><table width="75%" cellspacing="5" class=anzeige>
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">          
<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" name="submit" class="inputbutton"></td></tr></form></table>                  

}

if($anzeige eq "1")
{
$nutzerId=$_id;
get "Id==$nutzerId","$db";

$option_Onlineshop ="";
if($Onlineshop eq "1") {
$option_Onlineshop = "<input type=checkbox name='Onlineshop:=' value=1 checked>";
}
else {
$option_Onlineshop = "<input type=checkbox name='Onlineshop:='  value=1>";
}

if($Hausbesuche eq "1") {
$option_Hausbesuche = "<input type='checkbox' name='Hausbesuche:='  value=1 checked>";
}
else {
$option_Hausbesuche = "<input type='checkbox' name='Hausbesuche:='  value=1>";
}

if($Diabetiker eq "1") {
$option_Diabetiker = "<input type='checkbox' name='Diabetiker:='  value=1 checked>";
}
else {
$option_Diabetiker = "<input type='checkbox' name='Diabetiker:='  value=1>";
}

if($Fussreflexzonenmassage eq "1") {
$option_Fussreflexzonenmassage = "<input type='checkbox' name='Fussreflexzonenmassage:='  value=1 checked>";
}
else {
$option_Fussreflexzonenmassage = "<input type='checkbox' name='Fussreflexzonenmassage:='  value=1>";
}

$lastvisit

<form action='http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx' method='post' enctype='multipart/form-data'>
  <input type=hidden name='nutzerId=' value='$_id'>
  <input type=hidden name='htx=' value='$htx'>
  <input type=hidden name='cmd=' value='add'>

  <tr><td>Ihr Firmenname:</td></tr>
  <tr><td><input type='text' name='Firma:=' size=40 value='$Firma'></td></tr>
  <tr><td>Strasse:</td></tr>
  <tr><td><input type='text' name='Strasse:=' size=40 value='$Strasse'></td></tr>
  <tr><td>Ort:</td></tr>
  <tr><td><input type='text' name='Ort:=' size=40 value='$Ort'></td></tr>
  <tr><td>Postleitzahl:</td></tr>
  <tr><td><input type='text' name='PLZ:=' size=5 value='$PLZ'></td></tr>
  <tr><td>Telefonnummer:</td></tr>
  <tr><td><input type='text' name='Telefon:=' size=25 value='$Telefon'></td></tr>
  <tr><td height="15">Bundesland</td></tr>
  <tr><td>$Bundesland</td></tr>
  <tr><td>Ihre EMail Adresse:</td></tr>
  <tr><td><input type='text' name='EMail:=' size=40 value='$EMail'></td></tr>
  <tr><td>Ihre Website:</td></tr>
  <tr><td><input type='text' name='Homepage:=' size=40 value='$Homepage'></td></tr>
  <tr><td>$option_Onlineshop mit OnlineShop</td></tr>
  <tr><td> </td></tr>
  <tr><td>Link zum Kontaktformular auf der Website:</td></tr>
  <tr><td><input type='text' name='Kontakt_Form:=' size=40 value='$Kontakt_Form'></td></tr>
  <tr><td> </td></tr>
  <tr><td>Angebotene Dienstleistungen:</td></tr>
  <tr><td>$option_Hausbesuche Hausbesuche</td></tr>
  <tr><td>$option_Diabetiker Diabetiker</td></tr>
  <tr><td>$option_Fussreflexzonenmassage Fussreflexzonenmassage</td></tr>
  <tr><td> </td></tr>
  <tr><td>Beschreibung:</td></tr>
  <tr><td><textarea name='Beschreibung:=' cols='50' rows='10'>$Beschreibung</textarea></td></tr>
  <tr><td> </td></tr>
  <tr><td>Passwort:</td></tr>
  <tr><td><input type='passwort' name='Passwort:=' size=25 value='$Passwort'>
      <font color='#CC3333'>*Eingabe wird benötigt!</font></td></tr>
  <tr><td> </td></tr>
  <tr><td><div align="center"><input type=submit value='Ändern und Logout' name='submit2'>

        <input type=reset value='Zurücksetzen' name='reset'></div></td></tr>
    </form></table><br>
EOF
}
elsif (%_put)
{
mod "Id==$nutzerId", undef, "$db";
out "<p><center><b>Ihre Nutzerdaten wurden geändert...</b>";
}