<perl>
 
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>
 
<perl>

{
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;
 }
}

<do action=input db=nutzer>
<do action=list listtype=add db=nutzer showamount=no selectbrowse=no buttonbrowse=no pagebrowse=no>