<perl>
get "", "shop";

# 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 "$err";
   } else { # wenn nichts in err steht
       $senddat=datum('jetzt', 'intern'); # $enddat füllen
put undef, "bestellungen“;

$Artikel01: $Artikelanzahl01 x
$Artikel02: $Artikelanzahl02 x
$Artikel03: $Artikelanzahl03 x
$Artikel04: $Artikelanzahl04 x 
 

       # Bestätigungstext ausgeben
       out<<EOF;
       Danke
EOF
   } # E if/else err
   # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
} else { # wenn cmd nicht "add" ist
# Eingabeformular ausgeben
out<<EOF;
<form action=„..." method=post enctype="multipart/form-data" class="form contact">
<input type="hidden" name="cmd=" value="add">
EOF
out <<EOF;

$Artikel01 - $Preis01<br>
$Artikelbeschreibung01
Anzahl bitte auswählen:<select name="Artikelanzahl01:="  />
<option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select>

<input type="submit" class="submit" value="bestellen" />

    </form>

EOF
} # E if/else-cmd