if ($cmd eq "bestellen")
{
get "email==$email","liste"; #Prüfen,ob die Adresse schon vorhanden ist
if ($_amount == 0)
{
$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,"kat","@kat"],"liste";
out "<h1>Eintrag hinzugefügt.</h1><p>Sie erhalten von nun an Newsletter aus den Rubriken: <b>@rubs$rubriken</b>";
}else # wenn Adresse schon vorhanden
{
out "<p>Ihre Emailadresse besteht schon in unserem Verzeichnis. Wenn Sie eine andere Rubrikenwahl treffen wollen, löschen Sie bitte Ihren bisherigen Eintrag und melden sich erneut mit den veränderten Rubriken an. <a href=$link&cmd=no&addi=$email>löschen</a></p>";
}
}elsif ($cmd eq "no")
{
del "email==$addi","liste";
out "<h1>Eintrag gelöscht, Sie erhalten von nun an keinen Newsletter mehr</h1>";
}elsif ($cmd eq "anmelden")
{
&form;
}else
{
out "<h1>Newsarchiv</h1><p><table cellpadding=5 cellspacing=0><tr bgcolor=cococo> <td>Datum</td><td>Message</td></tr>";
get "Id==* sort=-Datum range=$archiv","archiv";
while (get_next(archiv))
{
out "<tr><td valign=top>".datum($Datum,"kurz")."</td><td>".convert_br($Message)."</td></tr>";
}
out "</table><p align=center>";
out "<hr></p>";
&form;
}sub form
{
out <<EOF;
<h1>Newsletter bestellen</h1><p>Bitte geben Ihre Emailadresse ein, und wählen Sie die Kategorien aus, in denen Sie Newsletter erhalten möchten </p>
<form action='$link&cmd=bestellen' method='post' enctype='multipart/form-data'>
<input type="hidden" name="cmd=" value="bestellen">
<input type="hidden" name="htx=" value="$htx">
<table><tr><td>Email: </td><td><input type="Text" name="email=" value=""></td></tr><tr><td>
EOF
$"=",";
$i=0;
get "Id==*","rubriken";
while (get_next(rubriken))
{
push (@kats,$rub_id);
out "<input type=checkbox name='kat$i=' value=$rub_id> $rubrik </td>".($_loop % 2?"</tr><tr><td>":"<td>");
$i++;
push @rubs,convert_url($rubrik);
}
$i--;
out <<EOF;
</td></tr><tr><td><input type="hidden" name="anzahl=" value="$i"><input type="hidden" name="rubriken=" value=@rubs><input type=hidden name='Kat=' value=@kats><input type=checkbox name='kat=' value=@kats> Alle Rubriken</td><td></td></tr>
<tr><td><input type="Submit" value="Abschicken"></td><td><input type="reset"></td></tr>
</table>
</form>
EOF
}
</perl>