{
$emsg.="Bitte wählen Sie eine Rubrik! " if $_put{Rubrik} eq "";
$emsg.="Bitte geben Sie einen Titel ein! " if $_put{Titel} eq "";
$emsg.="Bitte geben Sie einen Anzeigentext ein! " if $_put{Anzeigentext} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Anzeigentext}) > $maxtext;
if($emsg eq "")
{
$_put{Datum}=jetzt;
$_put{Passwort}="leer" if $_put{Passwort} eq "";
# alternativ zu den letzten 3 Zeilen könnte man auch schreiben:
# put ["Feldname",$Feldname,"Passwort","leer",Datum:=jetzt,"Feldname3",$feldname3];
# nur so als Beispiel für später
<form name=Ausgabe action="http://www.is-fun.net/cgibin/feedbackx.cgi" method="post">
<input type="hidden" name="betreff" value="Eintrag in den Anzeigenmarkt">
<input type="hidden" name="empfaenger" value="anzeigen\@baer-konzept.de">
<input type="hidden" name="antwort_template_name" value="http://www.baer-konzept.de/anzeigen/inseratant.htm">
}else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
}
#if($Passwort eq "")
#{
#mod "Passwort eq''", [Passwort,leer];
#}
</perl>
<do action=list listtype=add listfields=Titel,Typ,Rubrik,Anzeigentext,Bildpfad,Waehrung,Preis,Bedingung,Anzeigenart,Vorname,Nachname,Strasse,Postleitzahl,Ort,Telefon,Mobil,Fax,EMail,Passwort db=inserat>