baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
if (Zugriffsebene eq "Admin") { do_all .... (alle Daten ausgeben) } else { do_all "Freigabe==1" ... (nur freigegebene Daten ausgeben) }
|
Alle Einträge zum Thema: | Zur Liste |
if (Zugriffsebene eq "Admin") { do_all .... (alle Daten ausgeben) } else { do_all "Freigabe==1" ... (nur freigegebene Daten ausgeben) }
<do action=all db=news range^=0,100 sort=-Datum searchfields=Datum listfields=Status,Geschenk allfields=Datum,Status,Geschenk formfields=Datum,Status,Geschenk showamount=all,sel selectbrowse=top buttonbrowse=no pagebrowse=no indexbrowse=top border=0 spacing=1 padding=2 gridcolor=000080 datasize=2 databack=00FF99 headback=E0E0E0 listtype=list language=de detail=link search=link input=link localparams=+>
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/dirkey/Wunsch_Anja/newsadmin" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="/dirkey/Wunsch_Anja/newsadmin"> Passwort: <input type="password" name="pwrein="> <input type=submit value="Anmelden"></form>
<perl> if($namerein ne "Besucher") { get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein) { do_all "db=news databack=00FF99 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=CCFF00 dataface=arial,helvetica sort^=-Datum range=all pagebrowse=no buttonbrowse=no listtype=list listfields=Datum,Status,Geschenk input=link", "namerein", "pwrein"; } else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein="Besucher"; }
</perl> <br><br><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/dirkey/Wunsch_Anja/news"><font face=arial size=1>zurück zur Login-Seite</font></a>
<perl> #Nutzerdatenbank öffnen und das übergebene Passwort suchen get "Name==!$pwrein","nutzer";
if ($_amount >= 0) { #welchen Rang hat der angemeldete Nutzer? if ($Rang eq "Admin") { #Ausgabe für den Admin -> alles do_all "db=news databack=00FF99 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=CCFF00 dataface=arial,helvetica sort^=-Datum range=all pagebrowse=no buttonbrowse=no listtype=list listfields=Datum,Status,Geschenk input=link",namerein,pwrein; } #Rang ist Benutzer? elsif ($Rang eq "Benutzer") { #Ausgabe für den Benutzer -> eingeschränkt; ohne Status do_all "db=news databack=00FF99 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=CCFF00 dataface=arial,helvetica sort^=-Datum&&Status==!frei searchfields=-Status formfields=-Status allfields=-Status range=all pagebrowse=no buttonbrowse=no listtype=list listfields=Datum,Geschenk input=link",namerein,pwrein; } else { #Hinweis falls die Berechtigung nicht bekannt ist out "Diese Berechtigung ist nicht bekannt<br>"/n; } } else { #es wurde keine Passwort in der nutzer-Datenbank gefunden out "<b>Anmeldung fehlgeschlagen!</b>"/n; } </perl>
Liste der Einträge von 4650 bis 4800: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |