<perl>
get "Name==!$nutzer", "nutzer";
if($Name eq $nutzer && $Password eq $passwort)
{
 
if($_get{cmd} eq "add" && !$Add) { out "Hinzufügen nicht erlaubt."; $_get{cmd}=""; }
if($_get{cmd} eq "mod" && !$Modify) { out "Ändern nicht erlaubt."; $_get{cmd}=""; }
  if($_get{cmd} eq "del" && !$Delete) { out "Löschen nicht erlaubt."; $_get{cmd}=""; }
} else
{
  out "Name und/oder Passwort sind falsch."; $_get{cmd}="";
}
</perl>