Rechte für Seiten | ab Version 3 |
Legen Sie einfach eine Nutzer-Datenbank für die Seite an und geben Sie den Nutzern das Recht "Ausführen".
Zusätzlich können Sie bei Seiten wählen, was passieren soll, wenn der Nutzer nicht korrekt angemeldet ist ("Ohne korrekte Anmeldung"):
$bonus=10 if $_user ne ""; out "Punkte: ".($punkte+$bonus); out login if $_user eq "";
Die Funktion login gibt das typische Anmeldeformular aus:
out login;
Natürlich kann auch ein eigenes Formular verwendet werden. Dieses muss die Parameter uid für den Namen und upw für das Passwort übermitteln.
Mit logout können Sie die Session eines Nutzers löschen. Ein Abmelde-Link sieht dann z.B. so aus:
<a href="baseportal.pl?htx=$htx&cmd=logout&sid=$_session">Abmelden</a> <perl> logout if $cmd eq "logout"; </perl>
Ein komplettes Beispiel mit eigener Anmelde-Prüfung in derselben Seite sieht z.B. so aus:
<perl> logout if $cmd eq "logout"; # Abmelden return out login if $_user eq "" || $cmd eq "logout"; # Nicht angemeldet # Angemeldet... $link="baseportal.pl?htx=$htx&uid=$_user&sid=$_session"; out "<p><a href=\"$link&cmd=logout\">Abmelden</a></p>"; # Abmelden-Link ausgeben out "Hallo $_user... ".++$count; out "<p><a href=\"$link&count=$count\">Weiter</a></p>"; # Link mit Nutzernamen und Session </perl>