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 "Login==!$namerein", "nutzerdb"; if($Passwort ne "" && $Passwort eq $pwrein) {
out<<EOF;
<tr><td>Name</td><td>$vorname $nachname</td></tr> <tr><td>Strasse</td><td>$strasse</td></tr> <tr><td>PLZ/Ort</td><td>$plz $ort</td></tr> <tr><td>Email</td><td>$email</td></tr> <tr><td>Telefon</td><td>$telefon</td></tr> </table> EOF } else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein="";
}
if($namerein eq "") {
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Login:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td colspan=2><input type=submit value="einloggen"></td></tr> </body> </table> </form> EOF
</perl>
<perl> if($namerein ne "")
get "Login==!$namerein", "nutzerdb"; if($Passwort ne "" && $Passwort eq $pwrein) { get "sort=-", "meinedatenbank"; while(get_next("meinedatenbank")) { out<<EOF; <table>
<tr><td>Strasse</td><td>$strasse</td></tr> <tr><td>PLZ/Ort</td><td>$plz $ort</td></tr> <tr><td>Email</td><td>$email</td></tr> <tr><td>Telefon</td><td>$telefon</td></tr> </table> EOF } } else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein="";
} }
{ out <<EOF;
<input type=hidden name="htx=" value="$htx"> <table> <tr><td>Login:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td colspan=2><input type=submit value="einloggen"></td></tr> </body> </table> </form> EOF } </perl>
<input type=hidden name="namerein=" value="$namerein"> <input type=hidden name="pwrein=" value="$pwrein">
<perl>
{
get "Login==!$namerein", "nutzer"; if($Passwort ne "" && $Passwort eq $pwrein) { do_all "db=...." , "namerein", "pwrein";
}else { out "<b>Anmeldung fehlgeschlagen!</b>"; $namerein="";
}
if($namerein eq "") {
<form action="/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Login:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td colspan=2><input type=submit value="login"></td></tr>
</form> EOF
</perl>
get "Nickname==$Nickname", "adressen"; if ($_amount_query > 0) { out "den gibts schon"; undef %_put; }
if(%_put) { $Nickname=$_put{Nickname}; # Der Name wird in Nickname gesichert $Nickname=~s/ /\\ /g; get "Nickname==$Nickname", "data"; #datensätze holen if ($_amount>0 && $Nickname eq $_put{Nickname}) { out "<b>Eintrag bereits vorhanden!<b><br><br><br>"; undef %_put; } }
get "Nickname==$Nickname", "adressen"; if ($_amount_query > 0 && $cmd eq "add") { out "den gibts schon"; undef %_put; $cmd=""; }
Liste der Einträge von 3525 bis 3600: | 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 |