| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
<html>
<body bgcolor="#FFFFFF">
<perl>
sub AnzeigeFormular1
{
out <<EOF;
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/DeinPfad" method=post enctype="multipart/form-data">
<input type=hidden name="htx=" value="/DeinPfad">
<input type=hidden name="aktion=" value="NamenChecken">
Gib Deinen gewünschten Namen ein:
<br><input type=text name="nickname=" size=20>
<br><input type=submit value="Prüfen">
</form>
EOF
}
sub NamenChecken
{
$fehlermeldung="";
get "nickname==$_[0]","UserDB";
$fehlermeldung="Der Nickname ist bereits vergeben." if ($_amount>0);
return $fehlermeldung;
}
sub AnzeigeFormular2
{
out <<EOF;
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/DeinPfad" method=post enctype="multipart/form-data">
<input type=hidden name="htx=" value="/DeinPfad">
<input type=hidden name="nickname=" value="$_[0]">
<input type=hidden name="aktion=" value="Registrieren">
Hallo, $_[0]. Der Nickname ist noch frei.
<br>Wähle dein Passwort:
<br><input type=password name="passwort=";
<br>Passwort bestätigen:
<br><input type=password name="passwort2=";
<br>Deine E-Mail-Adresse:
<br><input type=password name="email=";
<br><input type=submit value="Registrieren">
</form>
EOF
}
sub WeitereDatenChecken
{
$fehlermeldung="";
$fehlermeldung="Passwort fehlt.<br>" if ($_[0] eq "");
$fehlermeldung="Passwort bestätigen!<br>" if ($_[1] eq "");
$fehlermeldung="Passwortbestätigung fehlgeschlagen.<br>" if (($_[0] ne "") && ($_[1] ne "") && ($_[0] ne $_[1]));
$fehlermeldung="E-Mail fehlt.<br>" if ($_[2] eq "");
return $fehlermeldung;
}
sub UserSpeichern
{
put ["nickname", $_[0], "passwort", $_[1], "email", $_[2]],"UserDB";
}
######### Hauptprogramm
if ($_get{aktion} eq "NamenChecken")
{
if (&NamenChecken($_get{nickname}) eq "")
{
#wenn das Ergebnis der Pruefroutine leer ist, also kein Fehler, dann Formular 2 anzeigen
&AnzeigeFormular2($_get{nickname});
}
else
{
#wenn Nickname schon vergeben, Fehlermeldung anzeigen und Formular 1 nochmals ausgeben
out $fehlermeldung;
&AnzeigeFormular1;
}
}
elsif ($_get{aktion} eq "Registrieren")
{
if (&WeitereDatenChecken($_get{passwort},$_get{passwort2},$_get{email}) eq "")
{
#wenn kein Fehler aufgetreten ist, User speichern
&UserSpeichern($_get{nickname},$_get{passwort},$_get{email});
}
else
{
#sonst Fehlermeldung anzeigen und Formular 2 nochmals ausgeben
out $fehlermeldung;
&AnzeigeFormular2($_get{nickname});
}
}
else
{
&AnzeigeFormular1;
}
</perl>
</body>
</html>
| Alle Einträge zum Thema: | Zur Liste |
Christian
get "nickname==$wunschname", "user";
if ($_amount>0) ##also der Nickname existiert schon
{
out "Sorry. Geht nicht.";
##Hier kann man jetzt z.B gleich wieder das Formular ausgeben.
}
else
{
put ["nickname",$wunschname], "users";
##...und was man noch alles anstellen will.
}
out <<EOF; <form ....> Hallo, $wunschname, <input type=hidden name="wunschname=" value="$wunschname">
<html>
<body bgcolor="#FFFFFF">
<perl>
sub AnzeigeFormular1
{
out <<EOF;
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/DeinPfad" method=post enctype="multipart/form-data">
<input type=hidden name="htx=" value="/DeinPfad">
<input type=hidden name="aktion=" value="NamenChecken">
Gib Deinen gewünschten Namen ein:
<br><input type=text name="nickname=" size=20>
<br><input type=submit value="Prüfen">
</form>
EOF
}
sub NamenChecken
{
$fehlermeldung="";
get "nickname==$_[0]","UserDB";
$fehlermeldung="Der Nickname ist bereits vergeben." if ($_amount>0);
return $fehlermeldung;
}
sub AnzeigeFormular2
{
out <<EOF;
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/DeinPfad" method=post enctype="multipart/form-data">
<input type=hidden name="htx=" value="/DeinPfad">
<input type=hidden name="nickname=" value="$_[0]">
<input type=hidden name="aktion=" value="Registrieren">
Hallo, $_[0]. Der Nickname ist noch frei.
<br>Wähle dein Passwort:
<br><input type=password name="passwort=";
<br>Passwort bestätigen:
<br><input type=password name="passwort2=";
<br>Deine E-Mail-Adresse:
<br><input type=password name="email=";
<br><input type=submit value="Registrieren">
</form>
EOF
}
sub WeitereDatenChecken
{
$fehlermeldung="";
$fehlermeldung="Passwort fehlt.<br>" if ($_[0] eq "");
$fehlermeldung="Passwort bestätigen!<br>" if ($_[1] eq "");
$fehlermeldung="Passwortbestätigung fehlgeschlagen.<br>" if (($_[0] ne "") && ($_[1] ne "") && ($_[0] ne $_[1]));
$fehlermeldung="E-Mail fehlt.<br>" if ($_[2] eq "");
return $fehlermeldung;
}
sub UserSpeichern
{
put ["nickname", $_[0], "passwort", $_[1], "email", $_[2]],"UserDB";
}
######### Hauptprogramm
if ($_get{aktion} eq "NamenChecken")
{
if (&NamenChecken($_get{nickname}) eq "")
{
#wenn das Ergebnis der Pruefroutine leer ist, also kein Fehler, dann Formular 2 anzeigen
&AnzeigeFormular2($_get{nickname});
}
else
{
#wenn Nickname schon vergeben, Fehlermeldung anzeigen und Formular 1 nochmals ausgeben
out $fehlermeldung;
&AnzeigeFormular1;
}
}
elsif ($_get{aktion} eq "Registrieren")
{
if (&WeitereDatenChecken($_get{passwort},$_get{passwort2},$_get{email}) eq "")
{
#wenn kein Fehler aufgetreten ist, User speichern
&UserSpeichern($_get{nickname},$_get{passwort},$_get{email});
}
else
{
#sonst Fehlermeldung anzeigen und Formular 2 nochmals ausgeben
out $fehlermeldung;
&AnzeigeFormular2($_get{nickname});
}
}
else
{
&AnzeigeFormular1;
}
</perl>
</body>
</html>
if ((&NamenChecken($_get{nickname} eq "") && (&WeitereDatenChecken($_get{passwort},$_get{passwort2},$_get{email}) eq ""))
| Liste der Einträge von 61500 bis 61650: | 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 |