#
# Nutzerdatenbank abfragen - Ausgabe, wenn mehrere in der DB Nutzer nicht aktiviert
#

<perl>
if($logout eq "1")
{
mod "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 "Name==!$namerein", "nutzer";

  if($Passwort ne "" && $Passwort eq $pwrein)
  {
out "<!-- Session-Id erstellen und mit Url mitgeben -->";
    mod "Name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer"; 
    $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", "nutzer";
$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"], "nutzer";
$anzeige="1";
} else
{
out "<!-- Session-id ist abgelaufen -->";
    $login_name="$Name";
    $namerein="";
    $anzeige="";
}
}
out "<!-- Login-seite -->";
if($namerein eq "")
{
out <<EOF;

EOF
}
out "<!-- Seiteninhalts, falls berechtigt -->";

{
$nutzerId=$_id;
get "Id==$nutzerId","nutzer";
get "nutzer_id==$nutzerId","autos";
get "Id==* sort=- range=0,3","news";
get "Id==* sort=- range=0,1","Umfragen/Umfrage_nutzer/Umfrage";
$lastvisit=datum($nutzer_lastvisit_datum, "Tag.Monat.Jahr Stunde:Minute");
out <<EOF;

EOF
}

# Nutzerdatenbank abfragen - Ausgabe, wenn mehrere in der DB Nutzer nicht aktiviert
#

{
$mehrere ="";
if($mehrfach eq "") {
$mehrere="

}
out <<EOF;
$mehrere

              Kopf der Tabelle

while (get_next("autos"))
{
$farbe=$_loop%2?"#f0f0f0":"#e5e5e5";
out <<EOF;
              hier der Inhalt
EOF
}
{
out <<EOF; # so gehts weiter, mit etwas html

<!-- Newsbox ausgeben - Daten wurden im get geholt -->
            
             Kopf der Tabelle

while (get_next("news"))
{
$termin=datum($Termin, "Tag.Monat.Jahr"); 
out <<EOF;

EOF
}
{
out <<EOF; # so gehts weiter, mit etwas html und

<!-- Umfrage starten -->

EOF
while (get_next("Umfragen/Umfrage_nutzer/Umfrage"))
{
out <<EOF;

EOF
}
}
{
out <<EOF; # so gehts weiter, mit etwas html und
            
<!-- Logout -->
  
   <a href="baseportal.pl?htx=$htx&logout=1" class="navigationoben"> Logout</a>

}
}
}
</perl>