| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
|
|
| 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 |