<perl>
if ($cmd eq "add") {
if (length($_put{Passwort}) < 5){
$err.="Passwort muß mindestens 5 Zeichen haben<br>";
}else{
get "Passwort==$_put{Passwort}","dbanmeldung";
if($_amount){
$err.="Bitte anderes Passwort benutzen<br><br>";
}
}
if ($err ne "") {
out "<b>Die Anmeldung konnte nicht vorgenommen werden.</b><br><br>$err";
undef %_put;
}else{
$err.="Der Login muß mindestens 5 Zeichen haben.<br><br>";
}else{
get "Login==$_put{Login}","dbanmeldung";
if($_amount){
$err.="Bitte benutzen Sie eine anderen Login.<br><br>";
}
}
if ($err ne "") {
out "<b>Die Anmeldung konnte nicht vorgenommen werden.</b><br><br>$err";
undef %_put;
}else{
if ($cmd eq "add") {
$err.=" Name " if $_put{AName} eq "";
$err.=" PLZ " if $_put{APLZ} eq "";
$err.=" Ort " if $_put{AOrt} eq "";
$err.=" Telefon " if $_put{ATelefon} eq "";
$err.=" Email " if $_put{AEmail} eq "";
$err.=" Die Anmeldebedingungen müssen akzeptiert werden " if $_put{AAGB} eq "";
}
if ($err ne ""){
undef %_put;
}
if ($err ne "") {
out "<b><br><br>Die Anmeldung hat nicht geklappt.<br>
Es wurden folgende Felder nicht ausgefüllt.</b><br><br><br>$err<br>";
undef %_put;
}else{
out "<b><br><br>Vielen Dank für Deine Anmeldung.<br><br>
$senddat=datum('jetzt', 'intern');
mail "$AEmail", "Anmeldung", "
