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)
{
