<perl>

$usid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour)+$min ;

if($logout=1)
{
mod "nutzer_name==$login_name", ["nutzer_usid", ""], "nutzer"; 

#----Überprüfung des Passwortes--------#

  if($namerein ne "" && pwrein ne "" && $usid eq "")
       {
                    get "nutzer_name==!$namerein","nutzer";
                    if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
                    {
                       mod "nutzer_name==$namerein", ["nutzer_usid", "$usid_aktuell"], "nutzer";
                       $usid="$usid_aktuell";
                    }else
                    {
                       out "<b>Anmeldung fehlgeschlagen!</b>";
                       $namerein="";
                       $login_name="";
                    }
       }
if($namerein ne "" && $usid ne "")
{
 
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
 
get "nutzer_name==$namerein", "nutzer";

$usid_max = $usid+10;

        if($usid eq $nutzer_usid && $usid_aktuell <= $usid_max)
        {
                   out "<!-- session-id ist gültig - session-id wird aktualisiert -->";
                   mod "nutzer_name==$namerein", ["nutzer_usid", $usid_aktuell], "nutzer";
                   $usid=$usid_aktuell;
#----------- Ab hier kommt alles rein, was nach dem Login gemacht werden darf #

if ($cmd eq "do_mod")

get "Id==$_get{Id}", "alles1";

{
$cmd="";
out "Sie haben keine Berechtigung für diese Aktion!!!";

}

#--------hier ist der Link für den "LOGOUT"-------

{
out"

<hr noshade size=1 color=#000000>
<br><p><b><font size=1>NEUER ENTRAG FÜR DEN EVENTKALENDER:</b><br><br></p>
<center>
<table width=450>
<form action=baseportal.pl?&htx=/plattform-freising/loginauswahl&db=alles1&cmd=add method=post enctype=multipart/form-data>
<input type=hidden name=htx= value=/plattform-freising/loginauswahl>
<input type=hidden name=db= value=alles1>
<input type=hidden name=cmd= value=add>

<tr>
<td align=left>
<font size=1 >

<td>
<font size=1 >
<select name=Termin:= size=1><option>Eventkalender</select>
</td>
</tr>
<tr>
<td align=left>
<font size=1>
Benutzername:<br>

<td>
<font size=1>
<input type=text name=verantwortlich:= size=20 value=>
</td>
</tr>
<tr>
<td align=left>
<font size=1>

<td>
<font size=1>
<input type=text name=Email:= size=20 value=>
</td>
</tr>
<tr>
<td align=left>
<font size=1>

<td>
<font size=1>
<input type=radio value=Herr name=Anrede=> Herr
<input type=radio value=Frau name=Anrede=> Frau
</td>
</tr>
<tr>
<td align=left>
<font size=1>

<td>
<font size=1>
<input type=text name=Vorname:= size=20 value=>
</td>
</tr>
<tr>
<td align=left>
<font size=1>

<td>
<font size=1>
<input type=text name=Nachname:= size=20 value=>
</td>
</tr>
<tr>
<td>
</td>
<td nowrap>
<input type=submit value=Abschicken>  <input type=reset value=Zurücksetzen> </td>
</tr>
</form>

</center>
<br><br>
<hr noshade size=1 color=#000000>

<p><br><font size=1><b>IHRE BESTEHENDEN TERMINE ÄNDERN ODER LÖSCHEN:</b><br><br><p>";
}
    do_all "db=alles1 Termin~=Eventkalender cmd=$cmd verantwortlich==!$namerein sort=bis padding=5 spacing=1 dataface=verdana gridcolor=black datasize=1 databack=F3C766 databack2=F9D179 dataalign=left headcolor=F9D179 headback=630B0B headsize=1 listfields=bis,Veranstaltung,Veranstaltungslokalitaet listtype=list showsort=bis showamount=no keyfield=bis allfields=verantwortlich,Anrede,Vorname,Nachname,Veranstaltung,Veranstaltungsart,Veranstaltungsbeschreibung,von,bis,Anfangsuhrzeit,Enduhrzeit,Veranstaltungslokalitaet,Veranstaltungsstrasse,VeranstaltungsPLZ,Veranstaltungsort,Veranstaltungstelefon,Veranstaltungsfax,Veranstaltungsemail,Veranstaltungshomepage,Veranstaltungsweg,VeranstaltungsLKR,Betreibername,Betreiberstrasse,BetreiberPLZ,Betreiberort,Betreibertelefon,Betreiberfax,Betreiberemail,Betreiberhomepage formfields=verantwortlich,Termin,Anrede,Vorname,Nachname,Veranstaltung,Veranstaltungsart,Veranstaltungsbeschreibung,von,bis,Anfangsuhrzeit,Enduhrzeit,Veranstaltungslokalitaet,Veranstaltungsstrasse,VeranstaltungsPLZ,Veranstaltungsort,Veranstaltungstelefon,Veranstaltungsfax,Veranstaltungsemail,Veranstaltungshomepage,Veranstaltungsweg,VeranstaltungsLKR,Betreibername,Betreiberstrasse,BetreiberPLZ,Betreiberort,Betreibertelefon,Betreiberfax,Betreiberemail,Betreiberhomepage detail=linkbottom input=no search=no", "namerein", "usid=$usid";
} else
  {
    out "<p><b><font size=1>Anmeldung fehlgeschlagen!<br></b><br><br></p>";
    $namerein="";
    $login_name="";
  }

if($namerein eq "")
{

<font size=1>Bitte melden Sie sich an:
<form action="http://plattform-freising.netpure.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td><font size=1>Name:</td><td><input type="text" name="namerein="></td></tr>
<tr><td><font size=1>Passwort:</td><td><input type="password" name="pwrein="></td></tr>

</table></form>
EOF
}