<perl>
if ($cmd eq "add") { # wenn $cmd gleich "add" ist
# schaun, ob in Pflichtfelder was eingegeben wurde, wenn nicht, Variable err füllen
    $err.=" Name" if $_put{name} eq "";
    $err.=" Email" if $_put{email} eq "";
    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
    if ($err ne ""){ # wenn Var err nicht leer ist Fehlermeldung ausgeben
        # put-Hash leeren, damit nichts gespeichert wird
        out "Ihre Mail wurde nicht gesendet.<br><br>$err
<a href='#'>zurück</a>";
        undef %_put;
   } else { # wenn nichts in err steht
       $senddat=datum('jetzt', 'intern'); # $enddat füllen

       # Bestätigungstext ausgeben
       out<<EOF;
       
       Vielen Dank!
EOF
   } # E if/else err
   # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
} else { # wenn cmd nicht "add" ist
# Eingabeformular ausgeben
out<<EOF;

<label for="name">Name:</label><input id="name" type="text" name="name:=" />
<label for="email">Email:</label><input id="email" type="text" name="email:=" />
<textarea id="message" name="nachricht:=" cols="28" rows="5"></textarea>
<input type="submit" name="Submit" value="Submit" />
                                
</form>
EOF
} # E if/else-cmd
</perl>