| 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 |
<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>
| 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 |