Beitrag von Ramona (40 Beiträge) am Dienstag, 14.Mai.2002, 15:01.
Bitte helft mir :(
Möchte Formularangaben (Email, Nickname, Passwort eingegeben) und gleichzeitig auf doppelte Einträge (Nickname) überprüfen.
Hab jetzt einiges aus dem Forum ausprobiert, einzeln funktioniert es, aber wie kann ich die folgenden 2 Perl-Befehle miteinander verbinden?
my $emsg="";
$emsg.="Bitte geben Sie einen Nicknamen ein!<br> " if $_put{Nickname} eq "";
$emsg.="Bitte geben Sie ein Password ein!<br> " if $_put{Passwort} eq "";
$emsg.="Bitte geben Sie Ihre Email-Adresse ein!<br> " if $_put{Email} eq "";
if($emsg eq "")
{
put;
out "Ihre Registrierung war erfolgreich!";
} else
{
out "$emsg";
}
}
"";
<perl>
if(%_put)
{
get "Nickname==$_put{Nickname}", "nutzer";
if ($_amount>0 && $Nickname eq $_put{Nickname}) {
out "<b>Der Nickname $Nickname ist bereits vorhanden!<b><br>
Bitte wählen Sie einen neuen Namen!<br>";
</perl>
<do action=input db=nutzer>
<do action=list listtype=add db=nutzer showamount=no selectbrowse=no buttonbrowse=no pagebrowse=no>
Wenn ich einen neuen Nicknamen (der noch nicht vorhanden ist) eingebe, sagt er zwar bitte Passwort und Email eingeben, allerdings fügt er den Eintrag trotzdem hinzu.
Und wie kann ich festlegen, dass Passwort und Nickname jeweils mind. 4 Zeichen haben müssen?
Für Hilfe wäre ich wirklich dankbar !!!
Antworten
Beitrag von Syno (13 Beiträge) am Dienstag, 14.Mai.2002, 15:34.
Re: Bitte helft mir :(
1. Problem:
undef %_put muß erfolgen wenn die Überprüfung von $emsg ergibt, dass es nicht leer ist. Ansonsten fügt er es logischer weise der Datenbank hinzu.
if($emsg eq "")
{
put;
out "Ihre Registrierung war erfolgreich!";
} else
{
out "$emsg";
undef %_put;
}
2. Problem:(Länge Zeichen = 4)
if(%_put)
{
get "Nickname==$_put{Nickname}", "nutzer";
if ($_amount>0 && $Nickname eq $_put{Nickname})
{
out "<b>Der Nickname $Nickname ist bereits vorhanden!<b><br>
Bitte wählen Sie einen neuen Namen!<br>";
undef %_put;
}
if (length($Nickname < 4))
{
out "<b>Der Nickname muß min. 4 Zeichen lang sein!<b><br>
Bitte wählen Sie einen längeren Namen!<br>";
undef %_put;
}
#----Ich unterstelle mal, das die Passwort Variable $passwort heißt, ansosnten entsprechend anpassen------
if (length($passwort < 4))
{
out "<b>Das Passwort muß min. 4 Zeichen lang sein!<b><br>
Bitte wählen Sie eine längeres Passwort!<br>";
undef %_put;
}
}
Ich hoffe es ist das was Du gesucht hast
Syno
Antworten
Beitrag von Ramona (40 Beiträge) am Dienstag, 14.Mai.2002, 16:36.
Re: Bitte helft mir :(
Erstmal danke für die schnelle Antwort. Zwar kann ich die richtigen Feldnamen einfügen, nur leider verstehe ich die Programmierung überhaupt nicht.
Hab es jetzt so untereinander geschrieben, funktioniert aber nicht. Muss jetzt 2x <perl> erfolgen oder nur 1x? Was habe ich noch falsch gemacht?
my $emsg="";
if(%_put)
{
$emsg.="Bitte geben Sie einen Nicknamen ein!<br> " if $_put{Nickname} eq "";
$emsg.="Bitte geben Sie ein Password ein!<br> " if $_put{Passwort} eq "";
$emsg.="Bitte geben Sie Ihre Email-Adresse ein!<br> " if $_put{Email} eq "";
if($emsg eq "")
{
put;
out "Ihre Registrierung war erfolgreich!";
} else
{
out "$emsg";
}
"";
<perl>
if(%_put)
{
get "Nickname==$_put{Nickname}", "nutzer";
if ($_amount>0 && $Nickname eq $_put{Nickname}) {
out "<b>Der Nickname $Nickname ist bereits vorhanden!<b><br>
Bitte wählen Sie einen neuen Namen!<br>";
undef %_put;
}
if (length($Nickname < 4))
{
out "<b>Der Nickname muß min. 4 Zeichen lang sein!<b><br>
Bitte wählen Sie einen längeren Namen!<br>";
undef %_put;
}
if (length($passwort < 4))
{
out "<b>Das Passwort muß min. 4 Zeichen lang sein!<b><br>
Bitte wählen Sie eine längeres Passwort!<br>";
undef %_put;
}
}
</perl>
Antworten
Beitrag von Syno (13 Beiträge) am Dienstag, 14.Mai.2002, 17:30.
Re: Bitte helft mir :(
Also hier mal der gesamte Code, von mir mal ein wenig angepasst. Funzt bei mir.
Es ist übrigens sehr wichtig, dass alle Datenbankfelder und Formular Felder gleichlautend sind, vor allem in Groß- und Kleinschreibung.
"passwort" ist nicht gleich "Passwort"
<perl>
my $emsg="";
if(%_put)
{
$emsg.="Bitte geben Sie einen Nicknamen ein!<br> " if $_put{Nickname} eq "";
$emsg.="Bitte geben Sie ein Password ein!<br> " if $_put{Passwort} eq "";
$emsg.="Bitte geben Sie Ihre Email-Adresse ein!<br> " if $_put{Email} eq "";
get "Nickname==$_put{Nickname}", "nutzer";
if ($_amount>0 && $Nickname eq $_put{Nickname})
{
$emsg.= "<b>Der Nickname $Nickname ist bereits vorhanden!<b><br>
Bitte wählen Sie einen neuen Namen!<br>";
}
if (length($_put{Nickname}) < 4)
{
$emsg.="<b>Der Nickname muß min. 4 Zeichen lang sein!<b><br>
}
if (length($_put{Passwort}) < 4)
{
$emsg.= "<b>Das Passwort muß min. 4 Zeichen lang sein!<b><br>
Bitte wählen Sie eine längeres Passwort!<br>";
}
if($emsg eq "")
{
put;
out "Ihre Registrierung war erfolgreich!";
}
else
{
out "$emsg";
undef %_put;
}
}
</perl>
<do action=input db=nutzer>
<do action=list listtype=add db=nutzer showamount=no selectbrowse=no buttonbrowse=no pagebrowse=no>
Antworten
Beitrag von Ramona (40 Beiträge) am Dienstag, 14.Mai.2002, 18:05.
nur noch ein Problem...
jetzt trägt er alles doppelt ein.
Trotzdem danke, aber vielleicht gibt es da noch einen Trick?
Antworten
Beitrag von Syno (13 Beiträge) am Dienstag, 14.Mai.2002, 18:14.
Re: nur noch ein Problem...
Antworten
Beitrag von Ramona (40 Beiträge) am Dienstag, 14.Mai.2002, 18:39.
Danke :)
Klappt jetzt super!
Schönen Abend noch!
Antworten
Beitrag von Ramona (40 Beiträge) am Dienstag, 14.Mai.2002, 18:36.
nur noch ein Problem...
jetzt trägt er alles doppelt ein.
Trotzdem danke, aber vielleicht gibt es da noch einen Trick?
Antworten
