<perl>
get "Name==Name", "nutzer";

$an_name=""; 
$von_name=""; 
$von_email=""; 
$header="Hallo: $Name  ****Hier hätte ich gerne die Begrüßung***********

if ($cmd eq "erstellen")
{
       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 "";
            $html_checked=$html?" checked ":"";
            out <<EOF;
            <p><b>von:</b> $von <b>an:</b> $an<br>
            <b>Betreff:</b> $betreff<br>
            <b>Nachricht</b><br>

            $message=$message."\n\n";
            if(!$html){
               out convert_br($head);
               out convert_br($message);
               out convert_br($foot);
            }else{
               out $head;
               out $message;
               out $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,$html_checked);
            }
            else
            {
               $"=",";
               out "<b>An:</b> @mail";
               if ($Vorschau)
               {
                 &Form($an, $betreff, $von, $von_mail, $head, $message, $foot,$html_checked);
               }else
               {

                 for (@mail) # mailversand startet
                 {
                     $newfoot=$foot;
                     $newfoot =~ s/AAABBB/$_/g;
 if($html){
  $header_add="Content-type: text/html\n";
 } 

                 }
                 put ["Betreff",$betreff,"Message",$message,"Empfaenger","@mail"],"EmailNews/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","EmailNews/archiv";
          out "<p>Eintrag gelöscht";
          &archiv;
       }elsif ($do eq "mod")
       {
          get "Id==$Id","EmailNews/archiv";
          out <<EOF;
          <form action='http://de2.netpure.de/cgi-bin/baseportal.pl?htx=/EmailNews/archiv&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="20" maxlength="50"></td></tr>
          <tr><td>Text: </td><td><textarea name="message=" cols="50" 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)
          {