baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
|
Alle Einträge zum Thema: | Zur Liste |
<perl>
{ get "Name==!$namerein", "nutzer";
{ do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=no buttonbrowse=top,bottom indexfield=Vorname listtype=list listfields=Vorname,Name,Geburtstag,Strasse,PLZ,Ort input=link", "namerein", "pwrein", "Schreiben";
{ do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=top,bottom buttonbrowse=top,bottom selectbrowse=no indexfield=Vorname listtype^=list listfields=-Aktion,Id,Telefon,Fax,Handy,EMail,Homepage,Anrede,Kommentar allfields=-Aktion,Id input=link", "namerein", "pwrein";
<table cellpadding=2 cellspacing=1 border=0><tr><td></td><td bgcolor=404040 align=center> <a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/johni/adresses/search&namerein=$namerein&pwrein=$pwrein target=main><font color=00CCFF><b>SUCHEN</b></font></a> </td>
<a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/johni/adresses/adressen&namerein=$namerein&pwrein=$pwrein target=main><font color=00CCFF><b>ALLES</b></font></a> </td>
<a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/johni/adresses/change&namerein=$namerein&pwrein=$pwrein&numma=$Numma target=main><font color=00CCFF><b>PROFIL $namerein Ändern</b></font></a> </td></tr> <tr><td></td><td colspan=7 bgcolor=404040><table border=0 cellpadding=0 cellspacing=0><tr><td height=1></td></tr></table></td></tr> </table>
} } else { out "<font color=FFFFFF><b>BITTE BENUTZEN SIE GÜLTIGE ANMELDEDATEN...</b></font>"; $namerein=""; }
{ out <<EOF; <h2>Anmeldung</h2>Bitte melden Sie sich an: <form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Name:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form> EOF } </perl>
<perl> ###### Log out ###### muß nat. ein logoutlink mit rein
{ mod "nutzer_name==$login_name", ["nutzer_sid", ""], "nutzer";
##### login? ######## }elsif ($cmd eq "login") { ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time); $sid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour);
if($namerein ne "" && pwrein ne "" && $sid eq "") { get "nutzer_name==!$namerein","nutzer"; if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein) { mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer"; $sid="$sid_aktuell"; }else { out "<b>Anmeldung fehlgeschlagen!</b><br>Sie besitzen nicht die nötigen Rechte"; $namerein=""; $login_name=""; $sid=""; $cmd=""; goto stop; }else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein=""; $login_name=""; } } if($namerein ne "" && $sid ne "") { out "<!-- test, ob aktuelle session-id noch gültig ist -->"; get "nutzer_name==$namerein", "nutzer"; $sid_max = 10+(1*$nutzer_sid); if($sid eq $nutzer_sid && $sid_aktuell <= $sid_max) { out "<!-- session-id ist gültig - session-id wird aktualisiert -->"; mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer"; $sid="$sid_aktuell"; ######### Ab hier alles rein, was nach login gemacht werden darf ##########
if($Schreiben eq "ja") {
do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=no buttonbrowse=top,bottom indexfield=Vorname listtype=list listfields=Vorname,Name,Geburtstag,Strasse,PLZ,Ort input=link", "namerein", "sid", "Schreiben"; }elsif ($Schreiben ne "ja") { do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=top,bottom buttonbrowse=top,bottom selectbrowse=no indexfield=Vorname listtype^=list listfields=-Aktion,Id,Telefon,Fax,Handy,EMail,Homepage,Anrede,Kommentar allfields=-Aktion,Id input=link", "namerein", "sid"; } ###### Ende der erlaubten Tätigkeiten #######
} else { out "Session-id ist abgelaufen - Bitte melden Sie sich erneut an"; $login_name="$nutzer_name"; $namerein=""; } } if($namerein eq "") { out <<EOF; <table width=90% border=0 cellspacing=0 cellpadding=6> <tr><td> <form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx&cmd=login" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"><input type=hidden name="cmd=" value="login"> <table> <tr><td>Login-Name:</td><td><input type="text" name="namerein=" value="$login_name"></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form></td></tr></table>
} }
###### alles ohne login ausgeben ###### ###### ende ohne login ###### </perl>
getestet und funktionstüchtig:
$sid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour);
if($cmd eq "logout") { mod "nutzer_name==$namerein", ["nutzer_sid", ""], "nutzer"; ##### Logout ende ###### ##### login? ######## }elsif ($cmd eq "login") { if($namerein ne "" && pwrein ne "" && $sid eq "") { get "nutzer_name==!$namerein","nutzer"; if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein) { mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer"; $sid="$sid_aktuell"; }else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein=""; $login_name=""; } } }
{ out "<!-- test, ob aktuelle session-id noch gültig ist -->"; get "nutzer_name==$namerein", "nutzer"; $sid_max = 10+(1*$nutzer_sid); if($sid eq $nutzer_sid && $sid_aktuell <= $sid_max) { out "<!-- session-id ist gültig - session-id wird aktualisiert -->"; mod "nutzer_name==$namerein", ["nutzer_sid", $sid_aktuell], "nutzer"; $sid=$sid_aktuell;
if($Schreiben eq "ja") {
do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=no buttonbrowse=top,bottom indexfield=Vorname listtype=list listfields=Vorname,Name,Geburtstag,Strasse,PLZ,Ort input=link", "namerein", "sid=$sid", "Schreiben=$Schreiben"; }elsif ($Schreiben ne "ja") {
do_all "datacolor=404040 databack=FFFFFF dataface=verdana datasize=2 headback=404040 headbold=1 headcolor=00CCFF spacing=1 gridcolor=000000 border=0 sort^=Vorname range^=0,20 pagebrowse=top,bottom buttonbrowse=top,bottom selectbrowse=no indexfield=Vorname listtype^=list listfields=-Aktion,Id,Telefon,Fax,Handy,EMail,Homepage,Anrede,Kommentar allfields=-Aktion,Id input=link", "namerein", "sid=$sid"; } ###### Ende der erlaubten Tätigkeiten #######
}else { out "Session-id ist abgelaufen - Bitte melden Sie sich erneut an"; $login_name="$nutzer_name"; $namerein=""; }
if($namerein eq "") { out <<EOF;
<tr><td> <form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx&cmd=login" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"><input type=hidden name="cmd=" value="login"> <table> <tr><td>Login-Name:</td><td><input type="text" name="namerein=" value="$login_name"></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form></td></tr></table>
} ###### ende login ##### </perl>
out "<a href=baseportal.pl?htx=$htx&cmd=logout&namerein=$namerein>ausloggen</a>";
######### Ab hier alles rein, was nach login gemacht werden darf ########## und dem if ($Schreiben...) rein.
Liste der Einträge von 62850 bis 63000: | 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 |