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