<perl>
###########################################
########## Variablen definition ###########
###########################################
$link="baseportal.pl?htx=$htx";                # bleibt so
$an_name="blabla";                    # Was bei "an" halt so steht bei einer Email
$von_name="blabla";                       # Absendename
$von_email="info\@meinedomain.de";           # Absendeadresse (sollte gültig sein)
$header="Neues von mir Abensberg\n++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
\n\n"; # Steht über der Message
$footer="++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nWenn Sie diesen Newsletter nicht mehr erhalten wollen, klicken Sie bitte auf diesen Link:\nhttp://www.meinedomain.de/cgi-bin/baseportal.pl?htx=/test/archiv&cmd=no&addi=AAABBB.\nIhr Eintrag wird dann gelöscht.    # Link zum "unsubscribe" unten in der Mail - AAABBB - muß unbedingt stehen bleiben

{
       unless ($wcheck)
       {
              out <<EOF;
              <h1>Bitte Rubrik für News auswählen</h1>
EOF
              &Form_Rubrik;
       }else
       {
       out "<p><a href=$link>Start</a> ";
       }

       if($wcheck==2)
       {
            $emsg.="Bitte geben Sie einen Betreff ein!<br> " if $betreff eq "";
            $emsg.="Bitte geben Sie einen Newstext ein!<br>" if $message eq "";
            $emsg.="Bitte geben Sie eine Absendeadresse ein!<br> " if $von_mail eq "";
            out <<EOF;
            <p><b>von:</b> $von <b>an:</b> $an<br>
            <b>Betreff:</b> $betreff<br>
            <b>Nachricht</b><br>
EOF
            $message=$message."\n\n";
            out convert_br($head);
            out convert_br($message);
            out convert_br($foot);
            out <<EOF;
            <p><b>Absender:</b> $von_mail<br><br>
EOF
            $"=" ";
            if ($alle ne "")
            {
                   @mail=split(/,/,$alle);
            }else
            {
                   for ($i=0; $i<=$anzahl; $i++)
                   {
                       if (${neu.$i} ne "")
                       {
                          push @mail,${neu.$i};
                       }

                   }
            }
            unless (@mail)
            {
                  $emsg.="Es wurden keine Empfänger markiert! - Bitte holen Sie das nach<br>";
            }
            if ($emsg ne "")
            {
               out <<EOF;
                  <p><font color=red>$emsg</font></p>
EOF

               &Form($an, $betreff, $von, $von_mail, $head, $message, $foot);
            }
            else
            {
               $"=",";
               out "<b>An:</b> @mail";
               if ($Vorschau)
               {
                 &Form($an, $betreff, $von, $von_mail, $head, $message, $foot);
               }else
               {
                 for (@mail)          # mailversand startet
                 {
                     $newfoot=$foot;
                     $newfoot =~ s/AAABBB/$_/g;
                     mail "$_", "$betreff", "$head$message$newfoot", "$von_mail", "$an", "$von";

                 }
                 put ["Betreff",$betreff,"Message",$message,"Empfaenger","@mail"],"archiv";
                 out "<p>Mail versendet und Daten ins Archiv gespeichert";
               }
            }
       }elsif ($wcheck==1)
       {
                 if ($kats eq "*")
                 {
                    $kats=$alle_kats;
                    &Form($an_name, "", $von_name, $von_email, $header, $text, $footer);
                 }else
                 {
                    @kategorie=split(/,/,$kats);
                    $kats=$kategorie[0];
                    $kategorie[1] =~ s/\+/ /g;
                    &Form($an_name, $kategorie[1], $von_name, $von_email, $header, $text, $footer);
                 }
       }
}elsif ($cmd eq "admin")
{
       out "<p><a href=$link>Start</a></p><p> </p>";
       if ($do eq "del")
       {
          del "Id==$Id","archiv";
          out "<p>Eintrag gelöscht";
          &archiv;
       }elsif ($do eq "mod")
       {
          get "Id==$Id","archiv";
          out <<EOF;
          <form action='$link&cmd=admin&do=do_mod' method='post' enctype='multipart/form-data'>
          <input type="hidden" name="htx=" value="$htx">
          <input type="hidden" name="do=" value="do_mod">
          <input type="hidden" name="cmd=" value="admin">
          <input type="hidden" name="Id=" value="$_id">
          <table><tr><td>Betreff: </td><td>
          <input type="Text" name="betreff=" value="$Betreff" size="50" maxlength="50"></td></tr>
          <tr><td>Text: </td><td><textarea name="message=" cols="70" rows="15">$Message</textarea></td></tr>
          <tr><td></td><td><input type="submit" value="Abschicken"> <input type=reset value="Zurücksetzen">
          </td></tr></table></form>
EOF
       }elsif ($do eq "do_mod")
       {
          if ($Id)
          {
             mod "Id==$Id",["Message",$message,"Betreff",$betreff],"archiv";
             out "<p>Eintrag geändert</p>";
             &archiv;
          }
       }elsif ($do eq "del_mail")
       {
             del "Id==$Id","liste";
             out "<p>Mailadresse gelöscht</p>";
             &archiv;
       }elsif ($do eq "del_rub")
       {
              get "","liste","weg";
              out "<p>";
              while (get_next("weg"))
              {
                    out "$kat<br>";
                    $Kat=~ s/(^|,)$rub_id(,|$)/$1 && $2/ge;
                    if ($Kat ne $kat)
                    {
                       mod "Id==$_id",["kat",$Kat],"liste";
                       out "modifiziere mit $Kat bei $_id<br>";
                    }
                    $kat=$Kat="";
              }
              del "rub_id==$rub_id","rubriken";
              out "<p>Rubrik $rub_id gelöscht</p>";
              &archiv;

       }elsif ($do eq "mod_rub")
       {
             out <<EOF;
             <p>
             <form action='$link&cmd=admin' method='post' enctype='multipart/form-data'>
             <input type="hidden" name="htx=" value="$htx">
             <input type="hidden" name="do=" value="do_mod_rub">
             <input type="hidden" name="cmd=" value="admin">
             <input type="hidden" name="rub_id=" value="$rub_id">
             <input type="hidden" name="rubrik=" value="$rubrik">

             <p>
             <input type="submit" value="Abschicken">
             </form>
EOF
       }elsif ($do eq "do_mod_rub")
       {
             out "<p>Rubrik $rubrik geändert</p>";
             $rubrik =~ s/ /\\ /g;
             mod "rub_id==$rub_id",["rubrik",$new_rubrik],"rubriken";
             &archiv;
       }elsif ($do eq "new_rub")
       {
             get "rub_id==#","rubriken";
             $rub_id++;
             put ["rub_id",$rub_id,"rubrik",$new_rubrik],"rubriken";
             out "<p>Rubrik $_put{rubrik} hinzugefügt</p>";
             &archiv;
       }else
       {
          &archiv;
       }
}
else
{
out <<EOF;
<h1>Mailverteiler</h1>
<p>was möchten Sie erledigen?</p>
<p><a href="$link&cmd=erstellen">Newsletter erstellen und verteilen</a><br>
<a href="$link&cmd=admin">Rubriken und Archiv administrieren</a><br>
</p>
EOF
}