<perl>
$link="baseportal.pl?htx=$htx";

if ($cmd eq "bestellen")
{
$fehler = "Name darf nicht leer sein!" if $name eq "";
$fehler .= "<br>Ort dar nicht leer sein!" if $ort eq "";
get "email==$email","liste"; #Prüfen,ob die Adresse schon vorhanden ist
if ($_amount == 0 && $fehler eq "")

   {
      $rubriken =~s/\+/ /gi; #sind rubriken mit Leerzeichen (in dem Fall mit + maskiert) vorhanden, werden sie zurückgewandelt
      $rubriken =~s/,/, /gi;
      $rubrik=$rubriken;
      if ($kat ne "") # wurden alle markiert?
      {
         @kat=split(/,/,$kat);
      }else # wenn nur einige markiert wurden
      {
         @Rubriken=split(/,/,$rubriken);
         $rubriken="";
         for ($i=0; $i<=$anzahl; $i++)
         {
             if (${kat.$i} ne "")
             {
                   push @kat,${kat.$i};
                   push @rubs,$Rubriken[$i];
             }
         }

         unless (@kat) # wenn gar nix markiert wurde gehen wir davon aus, das alle Rubr. gewünscht sind ;-)
         {
            @kat=split(/,/,$Kat);
            $rubriken=$rubrik;
         }
      }
      $"=",";

   {

     put ["email",$email,"name",$name,"ort",$ort,"kat","@kat"],"liste";
out "<h1>Vielen Dank. Ihre Emailadresse wurde in unserem Freizeitdorf-Verteiler aufgenommen.</h1><b>@rubs$rubriken</b>";
   }elsif ($_amount > 0 && $fehler eq "") # wenn Adresse schon vorhanden und kein Fehler
   { 
   out "<p>Ihre Emailadresse besteht schon in unserem Freizeitdorf-Verteiler. Möchten Sie sich austragen? Dann klicken Sie bitte <a href=$link&cmd=no&addi=$email>hier</a></p>";
   }else
   { 
   out "<b>Folgende Fehler bei der Eingabe:</b><br>$fehler";
   }

{
   del "email==$addi","liste";
   out "<h1>Ihr Eintrag wurde in unserem Freizeitdorf-Verteiler gelöscht.</h1>";

}</perl>