<perl>
if ($cmd eq "add") { # wenn $cmd gleich "add" ist
# schaun, ob in Pflichtfelder was eingegeben wurde, wenn nicht, Variable err füllen
    $err.=" -Pflichtfeld1<br>" if $_put{Pflichtfeld1} eq "";
    $err.=" -Pflichtfeld2<br>" if $_put{Pflichtfeld2} eq "";
    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
    if ($err ne ""){ # wenn Var err nicht leer ist Fehlermeldung ausgeben
        # put-Hash leeren, damit nichts gespeichert wird
        out "<b>Der Eintrag wurde nicht vorgenommen.</b> <br>$err";
        undef %_put;
   } else { # wenn nichts in err steht
       $senddat=datum('jetzt', 'intern'); # $enddat füllen
       mail "$Email", "Betreff", "Text", "Email1", "$Name", "Text", 
       "$Email3",""; #mail verschicken
       # Bestätigungstext ausgeben
       out<<EOF;
       <p>
       bla bla Text nach Bestätigung des senden-Buttons.
EOF
   } # E if/else err
   # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
} else { # wenn cmd nicht "add" ist
# Eingabeformular ausgeben
out<<EOF;
Eingabeformular:
<form action="http://www.domain.de/baseportal?htx=/domain.de/senden"&cmd=add" method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">
<input type="hidden" name="htx=" value="/domain.de/senden">

EOF
} # E if/else-cmd
</perl>
<do action=input db=daten>