#!/usr/bin/perl
$to1='admin@maxgym.musin.de';
$to2='Boris.Merath@gmx.de';
  print ("Content-type: text/html\n\n");
  print ('<html>');
  print ('<head><title>');
  print ('Maximiliansgymnasium München > Diskussionsforen --- über www.maxgym.musin.de kommen Sie zu der Navigationsleiste');
  print ('</title></head>');
 my ($cgidaten,$name,$daten);
  if ( $ENV{REQUEST_METHOD} eq "POST" )
  {
      read ( STDIN , $cgidaten , $ENV{'CONTENT_LENGTH'} );
  }
  else
  {
    $cgidaten = $ENV{QUERY_STRING};
  }
  my @cgidatenliste = split(/&/ , $cgidaten);
  foreach $listeneintrag (@cgidatenliste)
  {
    ($schluessel,$wert)=split /=/,$listeneintrag;
    $wert =~ tr/+ / / ;
    $wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack
    ("C", hex($1))/eg;
    $dat{$schluessel} = $wert;
  }   #datenlesen
$dat{'forentitel'}=$dat{forenname};

if ($dat{'status'} eq 'u')
 {
  &antworten;
 }
elsif ($dat{'status'} eq 'f')
 {
  &forumuebersicht;
 }
elsif ($dat{'status'} eq 'b')
 {
  &beitrag;
 }
elsif ($dat{'status'} eq 'n')
 {
  &neubeitrag;
 }
elsif ($dat{'status'} eq 'd')
 {
  &neuuntbeitrag;
 }
elsif ($dat{'status'} eq 'a')
 {
  &neubeitragmail;
 }
elsif ($dat{'status'} eq 'c')
 {
  &neuuntbeitragmail;
 }
elsif ($dat{'status'} eq 'm')
 {
  &benachbeitrag;
 }
elsif ($dat{'status'} eq 'e')
 {
  &benachdeak;
 }
elsif ($dat{'status'} eq 'g')
 {
  &benachak;
 }
elsif ($dat{'status'} eq 'h')
 {
  &frame;
 }
elsif ($dat{'status'} eq 'i')
 {
  &neugast;
 }
elsif ($dat{'status'} eq 'j')
 {
  &neugastmail;
 }
else
 {
  &uebersicht;
 };


sub uebersicht
 {
  local $forenliste = "";
  open (DAT, "<foren/foren.dat");
  @foren = <DAT>;
  close DAT;
   foreach $forum1 (@foren)
    {local @forendaten=split( /\|/ ,$forum1);
     if ($forendaten[3] eq 'n')
      {
       $forenliste = $forenliste . "<tr><td><img SRC=\"../impressm/butgrch.gif\" HEIGHT=\"15\" WIDTH=\"9\" ALIGN=\"bottom\"><a href=\"foren.pl?status=f&forenname=$forendaten[0]&typ=$forendaten[2]\">$forendaten[0]</a></td><td>$forendaten[1]</td><td>Nachrichtenzahl:$forendaten[4]</tr>"
      }
    }
  print <<AUSEND;
   <body BACKGROUND="/images/back1.jpg">
   <Font Face="Times New Roman" SIZE="11">
   <div align="Left">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="/">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Diskussionsforen</font></td>
       $dat{write}
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 </div>
   <table border="0" width=94% align=middle>
    <tr>
     <td align=center colspan=3 width=100%><font size="6">Diskussionsforen</font></td>
    </tr>
    <tr>
     <td width=100% colspan=3 align=left>
      Folgende Diskussionsforen stehen derzeit zur Verfügung:
     </td>
    </tr>
    $forenliste
    <tr>
     <TD colspan=3>
      Um an einer Diskussion teilzunehmen, oder sich im Gästebuch einzutragen, klicken Sie bitte auf den entsprechenden Link.
     </td>
    </tr>
   </table>
   </font>
   </body>
   </html>
AUSEND
 }

sub forumuebersicht
 {
  local $beitragsliste = "";
  open (DAT, "<foren/f$dat{'forenname'}.dat");
  @foren = <DAT>;
  close DAT;
  if (!($dat{'typ'} eq '1'))  #diskussion
  {
  local $beitrag1;
   foreach $beitrag1 (@foren)
    {
     @uberdaten = split /\|/, $beitrag1;
     chomp($uberdaten[6]);
     if ($uberdaten[6] eq "n") {$beitragsliste = $beitragsliste . "<tr><td><img SRC=\"../impressm/butgrch.gif\" HEIGHT=\"15\" WIDTH=\"9\" ALIGN=\"bottom\"><a href=\"foren.pl?status=b&typ=$dat{typ}&forenname=$dat{'forenname'}&id=$uberdaten[5]\">$uberdaten[0]</a></td><td>$uberdaten[1]</td><td>$uberdaten[2]</td><td>$uberdaten[3]</td><td>$uberdaten[4]</td></tr>"}
    }
  print <<AUSEND
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       $dat{'forenname'}</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
   <table border="0" width=94% align=middle>
    <tr>
     <td align=center><font size="6">Diskussionsforum $dat{forenname}</font></td>
    </tr>
    <tr>
     <td align=left>
      Diese Themen wurden bisher geschrieben:
     </td>
    </tr>
    <tr>
      <td><table border="0" width=\"100%\" align=middle>
       <tr>
        <td>Thema:</td><td>Verfasser:</td><td>Datum:</td><td>Datum neueste Antwort:</td><td>Anzahl Antworten:</td>
       </tr>
        $beitragsliste
       </table></td>
     </tr>
    <tr><td>&nbsp;</td></tr>
    <tr>
     <td>Um selbst ein Thema zu eröffnen, füllen Sie bitte diese Felder aus.</td>
    </tr>
   </table>
   <form action=\"foren.pl\" method=\"post\">
   <table border="0" width=94% align=middle>
    <tr>
     <td WIDTH=\"10\"><input type=hidden name=\"typ\" value=\"$dat{typ}\"><input type=hidden name=\"status\" value=\"n\"><input type=hidden name=\"forenname\" value=\"$dat{'forenname'}\">Name:</td><td width=\"*\"><input type=text name=\"name\" size=60></td>
    </tr>
    <tr>
     <td>E-Mail:</td><td><input type=text name=\"email\" size=60></td>
    </tr>
    <tr>
     <td></td><td><input type="checkbox" name="emailanzeigen" value="1" checked>E-Mail-Adresse beim Beitrag anzeigen</td>
    </tr>
    <tr>
     <td></td><td><input type="checkbox" name="benachrichtigen" value="1" checked>Bitte benachrichtigen Sie mich, falls eine Antwort auf meinen Beitrag eintrifft.</td>
    </tr>
    <tr>
     <td>Homepage:</td><td><input type=text name=\"homepage\" size=60 value=\"http://www.\"></td>
    </tr>
    <tr>
     <td>Thema:</td><td><input type=text name=\"thema\" size=60 ></td>
    </tr>
    <tr>
     <td valign=top>Beitrag:</td><td><textarea name=\"text\" rows=10 cols=60 wrap=\"virtual\"></textarea></td>
    </tr>
    <tr>
     <td colspan=2>Bitte benutzen Sie das '|' Zeichen nicht und füllen Sie mindestens die Felder 'Name', 'Thema' und 'Beitrag' aus. <br>
      Formatierungen können mit Hilfe von HTML-Tags eingefügt werden.</td>
    </tr>
    <tr>
     <td><input type=submit value=\"absenden\"></td><td></td>
    </tr>
   </table>
   </form>
   </font>
   </body>
   </html>
AUSEND
 }
 else
 {#gästebuch
  local $beitraggesamt = "";
  open (DAT, "<foren/f$dat{'forenname'}.dat");
  @beitrag = <DAT>;
  close DAT;
  local $beitrag1;
   foreach $beitrag1 (@beitrag)
    {
     @eintrag = split /\|/, $beitrag1;
     chomp($eintrag[9]);
     if ($eintrag[9] eq 'n')
     {
     $beitraggesamt = $beitraggesamt . "<table border=\"0\" width=94% align=middle><tr><td valign=top width=\"10%\"></td><td width=\"\*\"></td></tr>";
     $beitraggesamt = $beitraggesamt . "<tr><td align=middle colspan=2><font size=\"4\">$eintrag[3]</font></td></tr>";
     $beitraggesamt = $beitraggesamt . "<tr><td>Name:</td><td>$eintrag[0]</td></tr>";
     if ($eintrag[1] ne '') {$beitraggesamt = $beitraggesamt . "<tr><td>E-Mail</td><td><a href=\"mailto:$eintrag[1]\">$eintrag[1]</a></td></tr>"};
     if (($eintrag[4] ne '') and ($eintrag[4] ne 'http://www.')){$beitraggesamt = $beitraggesamt . "<tr><td>Homepage:\&nbsp;\&nbsp;</td><td><a href=\"$eintrag[4]\" target=\"_blank\">$eintrag[4]</td></tr>"};
     $beitraggesamt = $beitraggesamt . "<tr><td>Datum:</td><td>$eintrag[8]</td></tr>";
     $beitraggesamt = $beitraggesamt . "<tr><td valign=top>Beitrag:\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;</td><td>$eintrag[5]</td></tr><tr><td></td><td></td></tr>";
     $beitraggesamt = $beitraggesamt . "<tr><td colspan=3><hr size=\"4\"></td></tr></table>";
     }
   }
  print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a><img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       $dat{forenname}</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
   <table border="0" width=94% align=middle>
    <tr>
     <td align=center><font size="6">$dat{forenname}</font></td>
    </tr>
   </table>
    $beitraggesamt
   <form action=\"foren.pl\" method=\"post\">
   <table border="0" width=94% align=middle>
    <tr>
     <td colspan=2>Um selbst einen Eintrag zu schreiben, füllen Sie bitte folgende Felder aus:</td>
    </tr>
    <tr>
     <td WIDTH=\"10%\"><input type=hidden name=\"status\" value=\"i\"><input type=hidden name=\"forenname\" value=\"$dat{'forenname'}\">Name:</td><td width=\"*\"><input type=text name=\"name\" size=60></td>
    </tr>
    <tr>
     <td>E-Mail:</td><td><input type=text name=\"email\" size=60></td>
    </tr>
    <tr>
     <td>Homepage:</td><td><input type=text name=\"homepage\" size=60 value=\"http://www.\"></td>
    </tr>
    <tr>
     <td>Thema:</td><td><input type=text name=\"thema\" size=60 ></td>
    </tr>
    <tr>
     <td valign=top>Beitrag:</td><td><textarea name=\"text\" rows=10 cols=60 wrap=\"virtual\"></textarea></td>
    </tr>
    <tr>
     <td colspan=2>Bitte benutzen Sie das '|' Zeichen nicht und füllen Sie mindestens die Felder 'Name', 'Thema' und 'Beitrag' aus. <br>
      Formatierungen können mit Hilfe von HTML-Tags eingefügt werden.</td>
    </tr>
    <tr>
     <td><input type=submit value=\"absenden\"></td><td></td>
    </tr>
   </table>
   </font>
   </body>
   </html>
AUSEND
 }
 }

sub beitrag
 {
  local $beitraggesamt = "";
  open (DAT, "<foren/b$dat{'id'}");
  @beitrag = <DAT>;
  close DAT;
  $titel=$beitrag[0];
  @titels=split /\|/, $titel;
  $titel=$titels[3];
  local $beitrag1;
   foreach $beitrag1 (@beitrag)
    {
     @eintrag = split /\|/, $beitrag1;
     chomp($eintrag[9]);
     if ($eintrag[9] eq 'n')
     {
     $breite=30*$eintrag[6];
      if ($breite==0) {$breite=""} else {$breite="<td width=\"$breite\"></td>"};
     $beitraggesamt = $beitraggesamt . "<table border=\"0\" width=94% align=middle><tr>$breite<td valign=top WIDTH=\"10\"></td><td width=\"\*\"></td></tr>";
     $beitraggesamt = $beitraggesamt . "<tr><td align=middle colspan=3><font size=\"4\">$eintrag[3]</font></td></tr>";
     $beitraggesamt = $beitraggesamt . "<tr>$breite<td valign=top WIDTH=\"10\">Name:</td><td>$eintrag[0]</td></tr>";
     if (($eintrag[1] ne '') and ($eintrag[2]==1)) {$beitraggesamt = $beitraggesamt . "<tr>$breite<td valign=top WIDTH=\"10\">E-Mail</td><td><a href=\"mailto:$eintrag[1]\">$eintrag[1]</a></td></tr>"};
     if (($eintrag[4] ne '') and ($eintrag[4] ne 'http://www.')){$beitraggesamt = $beitraggesamt . "<tr>$breite<td valign=top WIDTH=\"10\">Homepage:\&nbsp;\&nbsp;</td><td><a href=\"$eintrag[4]\" target=\"_blank\">$eintrag[4]</td></tr>"};
     $beitraggesamt = $beitraggesamt . "<tr>$breite<td valign=top WIDTH=\"10\">Datum:</td><td>$eintrag[8]</td></tr>";
     $beitraggesamt = $beitraggesamt . "<tr>$breite<td valign=top WIDTH=\"10\">Beitrag:\&nbsp;\&nbsp;\&nbsp;\&nbsp;\&nbsp;</td><td>$eintrag[5]</td></tr><tr>$breite</td><td></td></tr>";
     $beitraggesamt = $beitraggesamt . "<tr>$breite<td valign=top WIDTH=\"10\"></td><td><a href=\"foren.pl\?forenname=$dat{forenname}&status=u&antid=$eintrag[7]&antort=$eintrag[6]&beitragname=$titel&id=$dat{id}\">antworten</a></td></tr><tr><td colspan=3><hr size=\"4\"></td></tr></table>";
     }
   }
  print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}&typ=$dat{typ}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       $titel</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>

   <table border="0" width=94% align=middle>
    <tr>
     <td align=center><font size="6">Diskussionsforum $dat{forenname}, Thema $titel</font></td>
    </tr>
   </table>
    $beitraggesamt
    <table border="0" width=94% align=middle>
    <tr>
     <td WIDTH=\"10\">&nbsp;</td><td width=\"*\">Wenn Sie dieses Thema interessiert und Sie benachrichtigt werden wollen, wenn ein neuer Beitrag eintrifft, füllen Sie bitte dieses Feld aus:<br><B>Die Benachrichtigung wird noch nicht unterstützt, Sie können sich aber schon dafür registrieren lassen!</td>
    </tr>
    <tr>
     <td><form action=\"foren.pl\" method=\"post\"><input type=hidden name=\"status\" value=\"m\"><input type=hidden name=\"id\" value=\"$dat{id}\"><input type=hidden name=\"forenname\" value=\"$dat{'forenname'}\"><input type=hidden name=\"beitrag\" value=\"$titel\">E-Mail:</td><td><input type=text name=\"email\" size=60></td>
    </tr>
    <tr>
     <td colspan=2><input type=submit value=\"Benachrichtigung aktivieren / deaktivieren\"></td>
    </tr>
   </table>
   $beitrag1
   </font>
   </body>
   </html>
AUSEND
 }

sub antworten
 {
  open (DAT, "<foren/b$dat{'id'}");
  @beitrage = <DAT>;
  $alt='';
  close DAT;
   foreach $beitrag (@beitrage)
    {
     @eintrag = split /\|/, $beitrag;
      if ($eintrag[7] eq $dat{id})
       {
        @alt=@eintrag;
       }
    }
  print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">
       $dat{beitragname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Antwort verfassen</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table align="Middle" border="0" cellspacing="0" width="94%">
 <tr>
  <td valign=top>Name:</td><td>$alt[0]</td></tr>
AUSEND

  if (($alt[1] ne '') and ($alt[2] eq '1')){print "<tr><td>E-Mail</td><td><a href=\"mailto:$alt[1]\">$alt[1]</a></td></tr>"};
  if (($alt[4] ne '') and ($alt[4] ne 'http://www.')){print "<tr><td>Homepage:\&nbsp;\&nbsp;</td><td><a href=\"$alt[4]\" target=\"_blank\">$alt[4]</td></tr>"};
  print <<AUSEND
  <tr><td valign=top>Beitrag:</td><td>$alt[5]</td></tr>
  <tr><td></td><td></td></tr>
  <tr><td></td><td></td></tr>
  <tr><td colspan=2>Um zu antworten, füllen Sie bitte folgende Felder aus:</td></tr>
  <form action=\"foren.pl\" method=\"post\">
   <table border="0" width=94% align=middle>
    <tr>
     <td WIDTH=\"10\"><input type=hidden name=\"beitragname\" value=\"$dat{beitragname}\"><input type=hidden name=\"id\" value=\"$dat{id}\"><input type=hidden name=\"antid\" value=\"$dat{antid}\"><input type=hidden name=\"antort\" value=\"$dat{antort}\"><input type=hidden name=\"status\" value=\"d\"><input type=hidden name=\"forenname\" value=\"$dat{'forenname'}\">Name:</td><td width=\"*\"><input type=text name=\"name\" size=60></td>
    </tr>
    <tr>
     <td>E-Mail:</td><td><input type=text name=\"email\" size=60></td>
    </tr>
    <tr>
     <td></td><td><input type="checkbox" name="emailanzeigen" value="1" checked>E-Mail-Adresse beim Beitrag anzeigen</td>
    </tr>
    <tr>
     <td></td><td><input type="checkbox" name="benachrichtigen" value="1" checked>Bitte benachrichtigen Sie mich, falls eine Antwort auf meinen Beitrag eintrifft.</td>
    </tr>
    <tr>
     <td>Homepage:</td><td><input type=text name=\"homepage\" size=60 value=\"http://www.\"></td>
    </tr>
    <tr>
     <td>Titel:</td><td><input type=text name=\"thema\" size=60></td>
    </tr>
    <tr>
     <td valign=top>Beitrag:</td><td><textarea name=\"text\" rows=10 cols=60 wrap=\"virtual\"></textarea></td>
    </tr>
    <tr>
     <td colspan=2>Bitte benutzen Sie das '|' Zeichen nicht und füllen Sie mindestens die Felder 'Name', 'Thema' und 'Beitrag' aus. <br>
      Formatierungen können mit Hilfe von HTML-Tags eingefügt werden.</td>
    </tr>
    <tr>
     <td><input type=submit value=\"absenden\"></td><td></td>
    </tr>
   </table>
   </form>
   </body>
   </html>


AUSEND
 }

sub neubeitrag
 {
 if ((length($dat{'name'})>2) and (length($dat{thema})>2) and (length($dat{'text'})>9))   #Ausreichende Länge
 {
 if ((index($dat{'name'},'|')==-1) and (index($dat{'email'},'|')==-1) and (index($dat{'homepage'},'|')==-1) and (index($dat{'thema'},'|')==-1) and (index($dat{'text'},'|')==-1)) #Trennzeichen vorhanden?
 {
      &aktZeit;
      open (DAT, "<foren/idbeitrag.dat");
      $id= <DAT>;
      close DAT;
     if ($id eq '') {$id=0};
      open (DAT, ">foren/idbeitrag.dat");
      print DAT $id+1;
      close DAT;
      open (DAT, "<foren/f$dat{'forenname'}.dat");
      @beitragsliste = <DAT>;
      close DAT;
      $i=500;
  neuversuch:
  $i--;
   if ($i==0)
    {
      open(MAIL,"|/usr/sbin/sendmail $to2") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to2\n";
      print MAIL "Reply-to:\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Fehler in Skript-Ausführung\n\n";
      print MAIL "Die Datei foren/f$dat{'forenname'}.dat ist gesperrt und nicht wieder freigegeben worden!";
      close MAIL;
      print 'Fehler beim Schreiben in wichtige Datei:Bitte versuchen SIe es später noch einmal!';die;
    }
      flock("foren/f$dat{'forenname'}.dat",1);
      open (DAT, ">foren/f$dat{'forenname'}.dat")||goto neuversuch;
      print DAT "$dat{'thema'}|$dat{'name'}|$datum|$datum|0|$id|h\n";
      print DAT @beitragsliste;
      close DAT;
      flock("foren/f$dat{'forenname'}.dat",8);
       while (rindex($dat{'text'},"\n")>-1)
        {
         $dat{'text'} =~ s/.\n/\<br\>/s;
        }
      open (DAT, ">foren/b$id");
      print DAT "$dat{'name'}|$dat{'email'}|$dat{'emailanzeigen'}|$dat{'thema'}|$dat{'homepage'}|$dat{'text'}|0|$id|$datum|h";
      close DAT;
print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{'forenname'}&typ=$dat{typ}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Nachricht erfolgreich gesendet</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table align=middle width=94%>
  <tr>
  <font size=\"4\">
  <td>
   Vielen Dank für Ihre Teilnahme an dem Diskussionsforum.<br>
   Das neue Diskussionsthema wurde erfolgreich angelegt. Leider werden die neuen Nachrichten erst nach einiger Zeit angezeigt. Es ist nicht nötig, dass Sie die Nachricht erneut versenden.<br>
   Über die Navigationsleiste am oberen Seitenende kommen Sie zum Diskussionsforum zurück.
  </td>
  </font>
  </tr>
 </table>
</body>
</html>
AUSEND
 $aktzeitzahl=time;
      open(MAIL,"|/usr/sbin/sendmail $to1") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to1\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: neues Forenthema\n";
      print MAIL "Content-Type: text/html; charset=us-ascii\n";
      print MAIL "Content-Transfer-Encoding: 7bit\n\n";
      print MAIL "<html><body><table><tr><td>Absender:</td><td>$dat{'name'}</td></tr><tr><td>Thema:</td><td>$dat{'thema'}</td></tr><tr><td>E-Mail:</td><td>$dat{'email'}</td></tr><tr><td>Homepage:</td><td>$dat{'homepage'}</td></tr><tr><td valign=\"top\">Text:</td><td>$dat{'text'}</td></tr><tr><td>IP-Adresse</td><td>$ENV{REMOTE_ADDR}</td></tr><tr><td>Zeit als Zeitzahl</td><td>$aktzeitzahl</td></tr></table>".'<a href="http://www.maxgym.musin.de/cgi-bin/foren.pl?status=a&forenname='.$dat{'forenname'}.'&id='.$id.'">Nachricht akzeptieren</a></body></html>';
      close MAIL;
      if ($dat{benachrichtigen}==1){$dat{id}=$id;$dat{'beitrag'}=$dat{thema};&neubenachrichtigen};  #benachrichtigen
 }
 else                #| enthalten
 {
print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="javascript:history.go(-1)">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Fehler bei der Eingabe</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table width=94% align=middle>
  <tr>
  <td>
  <font size=\"4\">
   Bei ihrer Eingabe ist leider ein Fehler aufgetreten:<br>
   Aus technischen Gründen darf das '|' Zeichen in keinen der Eingabefelder vorhanden sein, da es intern als Steuerzeichen benutzt wird.<br>
   Bitte benutzen Sie den 'Zurück'-Button in ihrem Browser, um eine erneute Eingabe der Daten zu vermeiden und korrigieren Sie diesen Fehler.
  </font>
  </td>
  </tr>
 </table>
</body>
</html>
AUSEND
 }
 }
 else #keine ausreichenden Eingaben
 {
print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="javascript:history.go(-1)">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Fehler bei der Eingabe</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table width=94% align=middle>
  <tr>
  <td>
  <font size=\"4\">
   Bitte füllen Sie die Eingabefelder 'Name', 'Thema' und 'Beitrag' aus.<br>
   Name und Thema sollten dabei mehr als 3 Zeichen, der Beitrag mehr als 10 Zeichen enthalten.<br>
   Benutzen Sie den 'Zurück'-Button in ihrem Browser, um eine erneute Eingabe der Daten zu vermeiden und korrigieren Sie diesen Fehler.
  </font>
  </td>
  </tr>
 </table>
</body>
</html>
AUSEND
 }
 }

sub neubeitragmail
 {
  open (DAT, "<foren/f$dat{'forenname'}.dat");       #anzeigen Thema
  @beitragsliste = <DAT>;
  close DAT;
  $i=500;
  neuversuch:
  $i--;
   if ($i==0)
    {
      open(MAIL,"|/usr/sbin/sendmail $to2") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to2\n";
      print MAIL "Reply-to:\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Fehler in Skript-Ausführung\n\n";
      print MAIL "Die Datei foren/f$dat{'forenname'}.dat ist gesperrt und nicht wieder freigegeben worden!";
      close MAIL;
      print 'Fehler beim Schreiben in wichtige Datei:Bitte versuchen SIe es später noch einmal!';die;
    }
   flock("foren/f$dat{'forenname'}.dat",1);
  open (DAT, ">foren/f$dat{'forenname'}.dat") ||goto neuversuch;
  foreach $diskussion (@beitragsliste)
   {
    @diskussion2=split /\|/, $diskussion;
     if ($diskussion2[5]==$dat{id})
      {
       chomp($diskussion);
       chop($diskussion);
       $diskussion=$diskussion."n\n";
      }
     print DAT $diskussion;
   }
  flock("foren/f$dat{'forenname'}.dat",8);
 close DAT;
 open (DAT, "<foren/b$dat{'id'}");      #anzeigen Beitrag
 @diskussion=<DAT>;
 close(DAT);
 chomp($diskussion[0]);
 $neu=chop($diskussion[0]);
 $diskussion[0]=$diskussion[0]."n\n";
 open (DAT, ">foren/b$dat{'id'}");
 print DAT @diskussion;
 if ($neu eq 'h')                         #Nachrichtenzähler erhöhen wenn Beitrag vorher versteckt
  {
   close(DAT);
   open (DAT, "<foren/foren.dat");
   @foren=<DAT>;
   close DAT;
   open (DAT, ">foren/foren.dat");
    foreach $forum (@foren)
     {
      @forendaten=split /\|/, $forum;
       if ($forendaten[0] eq $dat{forenname})
        {
         @forums=split /\|/, $forum;
         $forums[4]++;
         $forum=join('|',@forums);
         $forum=$forum."\n";
        }
       print DAT $forum;
     }
   }
 close DAT;
print <<AUSEND;
<html>
<body>
 Nachricht wurde erfolgreich aufgenommen.
 <a href=\"foren.pl\">Zu den Foren</a>
</body>
</html>
AUSEND
}

sub neuuntbeitrag
 {
 if ((length($dat{'name'})>2) and (length($dat{thema})>2) and (length($dat{'text'})>9))   #Ausreichende Länge
 {
 if ((index($dat{'name'},'|')==-1) and (index($dat{'email'},'|')==-1) and (index($dat{'homepage'},'|')==-1) and (index($dat{'thema'},'|')==-1) and (index($dat{'text'},'|')==-1)) #Trennzeichen vorhanden?
 {
  open (DAT, "<foren/b$dat{'id'}");
  @beitrage = <DAT>;
  $alt='';
  close DAT;
   foreach $beitrag (@beitrage)
    {
     @eintrag = split /\|/, $beitrag;
      if ($eintrag[7] eq $dat{id})
       {
        @alt=@eintrag;
       }
    }
      if ($dat{benachrichtigen}==1){&neubenachrichtigen};
      &aktZeit;
      open (DAT, "<foren/idbeitrag.dat");
      $id= <DAT>;
      close DAT;
      open (DAT, ">foren/idbeitrag.dat");
      print DAT $id+1;
      close DAT;
      open (DAT, "<foren/b$dat{'id'}");
      @beitragsliste = <DAT>;
      close DAT;
       while (rindex($dat{'text'},"\n")>-1)
        {
         $dat{'text'} =~ s/.\n/\<br\>/s;
        }
      $i=500;
  neuversuch:
  $i--;
   if ($i==0)
    {
      open(MAIL,"|/usr/sbin/sendmail $to2") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to2\n";
      print MAIL "Reply-to:\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Fehler in Skript-Ausführung\n\n";
      print MAIL "Die Datei foren/d$dat{'id'}.dat ist gesperrt und nicht wieder freigegeben worden!";
      close MAIL;
      print 'Fehler beim Schreiben in wichtige Datei:Bitte versuchen SIe es später noch einmal!';die;
    }
      flock("foren/f$dat{'id'}",1);
      open (DAT, ">foren/b$dat{'id'}")||goto neuversuch;
       foreach $beitrag (@beitragsliste)
        {
         @sbeitrag = split /\|/, $beitrag;
          if ($sbeitrag[7] eq $dat{antid})
           {
            $now=1;
           }
          elsif (($sbeitrag[6] <= $dat{antort}) and ($now eq '1'))
           {
            $now=2;
            $ort=$dat{antort}+1;
            print DAT "$dat{name}|$dat{email}|$dat{emailanzeigen}|$dat{thema}|$dat{homepage}|$dat{text}|$ort|$id|$datum|h\n";
           }
         print DAT $beitrag;
        }
       if (!($now eq '2')){$ort=$dat{antort}+1;print DAT "$dat{name}|$dat{email}|$dat{emailanzeigen}|$dat{thema}|$dat{homepage}|$dat{text}|$ort|$id|$datum|h\n"};
      close DAT;
      flock("foren/f$dat{'forenname'}.dat",8);

print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">
       $dat{beitragname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center">
       Antwort verfassen&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Beitrag erfolgreich gesendet</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table width=94% align=middle>
  <tr>
  <td>
  <font size=\"4\">
   Vielen Dank für Ihre Teilnahme an dem Diskussionsforum.<br>
   Das neue Diskussionsthema wurde erfolgreich angelegt. Leider werden die neuen Nachrichten erst nach einiger Zeit angezeigt. Es ist nicht nötig, dass Sie die Nachricht erneut versenden.<br>
   Über die Navigationsleiste am oberen Seitenende kommen Sie zum Diskussionsforum zurück.
  </font>
  </td>
  </tr>
 </table>
</body>
</html>


AUSEND
      open(MAIL,"|/usr/sbin/sendmail $to1") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to1\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Antwort auf ein Forenthema\n";
      print MAIL "Content-Type: text/html; charset=us-ascii\n";
      print MAIL "Content-Transfer-Encoding: 7bit\n\n";
      print MAIL "<html><body><table><tr><td colspan=2>alte Nachricht:</td></tr><tr><td>Absender:</td><td>$alt[0]</td></tr><tr><td>Titel:</td><td>$alt[3]</td></tr><tr><td>E-Mail:</td><td>$alt[1]</td></tr><tr><td>Homepage:</td><td>$alt[4]</td></tr><tr><td valign=\"top\">Text:</td><td>$alt[5]</td></tr><tr><td colspan=2><a href=\"www.maxgym.musin.de/cgi-bin/foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">Alle Beiträge ansehen</a></td></tr><tr><td colspan=2>Neuer Beitrag:</td>";
      print MAIL "</tr><tr><td>Absender:</td><td>$dat{'name'}</td></tr><tr><td>Thema:</td><td>$dat{'thema'}</td></tr><tr><td>E-Mail:</td><td>$dat{'email'}</td></tr><tr><td>Homepage:</td><td>$dat{'homepage'}</td></tr><tr><td valign=\"top\">Text:</td><td>$dat{'text'}</td></tr><tr><td>IP-Adresse</td><td>$ENV{REMOTE_ADDR}</td></tr><tr><td>Zeit als Zeitzahl</td><td>$aktzeitzahl</td></tr></table>".'<a href="http://www.maxgym.musin.de/cgi-bin/foren.pl?status=c&forenname='."$dat{'forenname'}&id=$dat{'id'}&subid=$id\">Nachricht akzeptieren</a></body></html>";
      close MAIL;
 }
 else                #| enthalten
 {
print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">
       $dat{beitragname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="javascript:history.go(-1)">
       Antwort verfassen</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Fehler bei der EIngabe</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table width=94% align=middle>
  <tr>
  <td>
  <font size=\"4\">
   Bei ihrer Eingabe ist leider ein Fehler aufgetreten:<br>
   Aus technischen Gründen darf das '|' Zeichen in keinen der Eingabefelder vorhanden sein, da es intern als Steuerzeichen benutzt wird.<br>
   Bitte benutzen Sie den 'Zurück'-Button in ihrem Browser, um eine erneute Eingabe der Daten zu vermeiden und korrigieren Sie diesen Fehler.
  </font>
  </td>
  </tr>
 </table>
</body>
</html>
AUSEND
 }
 }
 else #keine ausreichenden Eingaben
 {
print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">
       $dat{beitragname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="javascript:history.go(-1)">
       Antwort verfassen</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Fehler bei der Eingabe</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table width=94% align=middle>
  <tr>
  <font size=\"4\">
  <td>
   Bitte füllen Sie die Eingabefelder 'Name', 'Thema' und 'Beitrag' aus.<br>
   Name und Thema sollten dabei mehr als 3 Zeichen, der Beitrag mehr als 10 Zeichen enthalten.<br>
   Benutzen Sie den 'Zurück'-Button in ihrem Browser, um eine erneute Eingabe der Daten zu vermeiden und korrigieren Sie diesen Fehler.
  </td>
  </font>
  </tr>
 </table>
</body>
</html>
AUSEND
 }
 }

sub neuuntbeitragmail
{
  open (DAT, "<foren/b$dat{'id'}");
  @beitragsliste = <DAT>;
  close DAT;
  $i=500;
  neuversuch2:
  $i--;
   if ($i==0)
    {
      open(MAIL,"|/usr/sbin/sendmail $to2") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to2\n";
      print MAIL "Reply-to:\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Fehler in Skript-Ausführung\n\n";
      print MAIL "Die Datei foren/f$dat{'forenname'}.dat ist gesperrt und nicht wieder freigegeben worden!";
      close MAIL;
      print 'Fehler beim Schreiben in wichtige Datei:Bitte versuchen SIe es später noch einmal!';die;
    }
   flock("foren/f$dat{'forenname'}.dat",1);
  open (DAT, ">foren/b$dat{'id'}") || goto neuversuch2;
  foreach $diskussion (@beitragsliste)
   {
    @diskussion2=split /\|/, $diskussion;
     if ($diskussion2[7]==$dat{subid})
      {
       chomp($diskussion);
       $neu=chop($diskussion);
       $diskussion=$diskussion."n\n";
       $date=$diskussion2[8];
      }
     print DAT $diskussion;
   }
  close DAT;
  if ($neu eq 'h')
  {
  open (DAT, "<foren/f$dat{'forenname'}.dat");       #Zähler, datum Thema
  @beitragsliste = <DAT>;
  close DAT;
  $i=500;
  neuversuch:
  $i--;
   if ($i==0)
    {
      open(MAIL,"|/usr/sbin/sendmail $to2") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to2\n";
      print MAIL "Reply-to:\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Fehler in Skript-Ausführung\n\n";
      print MAIL "Die Datei foren/f$dat{'forenname'}.dat ist gesperrt und nicht wieder freigegeben worden!";
      close MAIL;
      print 'Fehler beim Schreiben in wichtige Datei:Bitte versuchen SIe es später noch einmal!';die;
    }
   flock("foren/f$dat{'forenname'}.dat",1);
  open (DAT, ">foren/f$dat{'forenname'}.dat") ||goto neuversuch;
  foreach $diskussion (@beitragsliste)
   {
    @diskussion2=split /\|/, $diskussion;
     if ($diskussion2[5]==$dat{id})
      {
       $diskussion2[4]++;
        @datum1=split /\./, $date;
        print $date.'   ';
        @datum2=split /\./, $diskussion2[3];
        print $diskussion2[3].'   ';print '  1:';
        print (($datum1[2]*31*12)+($datum1[1]*31)+$datum1[0]);print '   2:';
        print (($datum2[2]*31*12)+($datum2[1]*31)+$datum2[0]);
         if ((($datum1[2]*31*12)+($datum1[1]*31)+$datum1[0])>(($datum2[2]*31*12)+($datum2[1]*31)+$datum2[0]))
          {
           $diskussion2[3]=$date;
          }
       $diskussion=join('|',@diskussion2);
      }
     print DAT $diskussion;
   }
 close DAT;
  flock("foren/f$dat{'forenname'}.dat",8);
   open (DAT, "<foren/foren.dat");
   @foren=<DAT>;
   close DAT;
   open (DAT, ">foren/foren.dat");
    foreach $forum (@foren)
     {
      @forendaten=split /\|/, $forum;
       if ($forendaten[0] eq $dat{forenname})
        {
         @forums=split /\|/, $forum;
         $forums[4]++;
         $forum=join('|',@forums);
         $forum=$forum."\n";
        }
       print DAT $forum;
     }
 close DAT;
 }
print <<AUSEND;
<html>
<body>
 Nachricht wurde erfolgreich aufgenommen.
 <a href=\"foren.pl\">Zu den Foren</a>
</body>
</html>
AUSEND
}

sub benachbeitrag
{
  open (DAT, "<foren/b$dat{'id'}");
  @beitragsliste = <DAT>;
  close DAT;
  $da=0;
   foreach $diskussion (@beitragsliste)
   {
    chomp($diskussion);
    @diskussion2=split /\|/, $diskussion;
     if ($diskussion2[9] eq 'm')
      {
       $da=1;
       $/=' ';
       chomp($dat{email});
       if (index($diskussion,lc($dat{email}))>-1)    #existiert schon
        {
         print <<AUSEND
  <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">
       $dat{beitrag}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Benachrichtigung deaktivieren</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table align="Middle" border="0" cellspacing="0" width="94%">
  <tr>
   <td>
    Ihre E-Mail-Adresse wurde bereits in der Benachrichtigungsliste gefunden.<br>
    <B>Das Deaktivieren der Benachrichtigung ist leider noch nicht möglich. Derzeit werden aber auch noch keine Benachrichtigungen verschickt. Sie werden bei der ersten Benachrichtigungsmail einen Link finden, bei dem Sie die Mailversendung deaktivieren können.</B>
    <a href=\"foren.pl?forenname=$dat{forenname}&status=e&id=$dat{id}&beitrag=$dat{beitrag}\"></a>
   </td>
  </tr>
 </table>
 </body>
 </html>
AUSEND
        }
        else
        {
      open(MAIL,"|/usr/sbin/sendmail $dat{email}") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $dat{email}\n";
      print MAIL "Reply-to: admin\@maxgym.musin.de\n";
      print MAIL "From: admin\@maxgym.musin.de\n";
      print MAIL "Subject: Rückfrage zur E-Mail-Benachrichtigung des Themas $dat{beitrag}\n";
      print MAIL "Content-Type: text/html; charset=us-ascii\n";
      print MAIL "Content-Transfer-Encoding: 7bit\n\n";
      print MAIL "<html><body><table width=100%><tr><td>Bei den Diskussionsforen des <a href=\"http://www.maxgym.musin.de\">Maximiliansgymnasium München</a> wurde bei der E-Mail-Benachrichtigung bei neuen Beiträgen ihre E-Mail-Adresse angegeben.<br>Um die Anmeldung zu bestätigen, klicken Sie bitte auf diesen Link, ansonsten ignorieren Sie die Nachricht einfach:<br><a href=\"http://www.maxgym.musin.de/cgi-bin/foren.pl?status=h&unterstatus=g&forenname=$dat{forenname}&id=$dat{id}&beitrag=$dat{beitrag}&email=$dat{email}\">Anmeldung bestätigen</a></td></tr></table></body></html>";
      close MAIL;
      print <<AUSEND
  <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">
       $dat{beitrag}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Benachrichtigung aktiviert</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table align="Middle" border="0" cellspacing="0" width="94%">
  <tr>
   <td>
    Ihre E-Mail-Adresse wurde in die Benachrichtigungsliste aufgenommen. Um die Echtheit der angegebenen Adresse zu bestätigen, wurde eine Mail an Sie verschickt. Klicken Sie dort bitte auf den enthaltenen Link, um die Anmeldung endgültig zu bestätigen.
   </td>
  </tr>
 </table>
 </body>
 </html>
AUSEND
        }

      }
   }
 if ($da==0)
  {
      open(MAIL,"|/usr/sbin/sendmail $dat{email}") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $dat{email}\n";
      print MAIL "Reply-to: admin\@maxgym.musin.de\n";
      print MAIL "From: admin\@maxgym.musin.de\n";
      print MAIL "Subject: Rückfrage zur E-Mail-Benachrichtigung des Themas $dat{beitrag}\n";
      print MAIL "Content-Type: text/html; charset=us-ascii\n";
      print MAIL "Content-Transfer-Encoding: 7bit\n\n";
      print MAIL "<html><body><table width=100%><tr><td>Bei den Diskussionsforen des <a href=\"http://www.maxgym.musin.de\">Maximiliansgymnasium München</a> wurde bei der E-Mail-Benachrichtigung bei neuen Beiträgen ihre E-Mail-Adresse angegeben.<br>Um die Anmeldung zu bestätigen, klicken Sie bitte auf diesen Link, ansonsten ignorieren Sie die Nachricht einfach:<br><a href=\"http://www.maxgym.musin.de/cgi-bin/foren.pl?status=h&unterstatus=g&forenname=$dat{forenname}&id=$dat{id}&beitrag=$dat{beitrag}&email=$dat{email}\">Anmeldung bestätigen</a></td></tr></table></body></html>";
      close MAIL;

      print <<AUSEND
  <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">
       $dat{beitrag}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Benachrichtigung aktiviert</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table align="Middle" border="0" cellspacing="0" width="94%">
  <tr>
   <td>
    Ihre E-Mail-Adresse wurde in die Benachrichtigungsliste aufgenommen. Um die Echtheit der angegebenen Adresse zu bestätigen, wurde eine Mail an Sie verschickt. Klicken Sie dort bitte auf den enthaltenen Link, um die Anmeldung endgültig zu bestätigen.
   </td>
  </tr>
 </table>
 </body>
 </html>
AUSEND
}
}

sub frame
{
 if ($dat{unterstatus} eq 'g'){$url="http://www.maxgym.musin.de/cgi-bin/foren.pl?status=g&forenname=$dat{forenname}&id=$dat{id}&beitrag=$dat{beitrag}&email=$dat{email}"};
 print <<AUSEND
<frameset border="0" frameborder="0" framespacing="0" cols="146,*">
  <frame name="Inhalt" target="Hauptframe" src="http://www.maxgym.musin.de/menu/menu.htm" scrolling="no"
  marginwidth="0" marginheight="0" noresize>
  <frame name="Hauptframe" src="$url" scrolling="auto" marginwidth="0"
  marginheight="0" target="Hauptframe">
  <noframes>
  <body>
  <p>Diese Seite verwendet Frames. Frames werden von Ihrem Browser aber nicht unterstützt.</p>
  </body>
  </noframes>
</frameset>
</html>
AUSEND
}

sub benachak
{
  open (DAT, "<foren/b$dat{'id'}");
  @beitragsliste = <DAT>;
  close DAT;
  $i=500;
  neuversuch2:
  $i--;
   if ($i==0)
    {
      open(MAIL,"|/usr/sbin/sendmail $to2") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to2\n";
      print MAIL "Reply-to:\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Fehler in Skript-Ausführung\n\n";
      print MAIL "Die Datei foren/b$dat{'id'} ist gesperrt und nicht wieder freigegeben worden!";
      close MAIL;
      print 'Fehler beim Schreiben in wichtige Datei:Bitte versuchen SIe es später noch einmal!';die;
    }
   flock("foren/f$dat{'forenname'}.dat",1);
  open (DAT, ">foren/b$dat{'id'}") || goto neuversuch2;
  $neu=0;
  foreach $diskussion (@beitragsliste)
   {
   chomp($diskussion);
    @diskussion2=split /\|/, $diskussion;
     if ($diskussion2[9] eq 'm')
      {
       $neu=1;
        if (index($diskussion,lc($dat{email}))==-1){$diskussion2[0]=$diskussion2[0].' '.lc($dat{email});}
       $diskussion=join('|',@diskussion2);
       $diskussion=$diskussion;
      }
     print DAT $diskussion."\n";
   }
  if ($neu==0){print DAT lc($dat{email})."|||||||||m\n"};
  close DAT;
  print <<AUSEND
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?status=b&forenname=$dat{'forenname'}&id=$dat{id}\">
       $dat{beitrag}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Benachrichtigung wurde aktiviert</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table align="Middle" border="0" cellspacing="0" width="94%">
  <tr>
   <td>
    Die E-Mail-Benachrichtigung wurde erfolgreich aktiviert. Auf jeder Benachrichtigungsmail finden Sie einen Link, mit dem Sie die Benachrichtigung wieder deaktivieren können.<br>
    <B>Leider wird die Benachrichtigung noch nicht unterstützt. In einigen Tagen wird diese aber wohl auch fertiggestellt werden. Dies erfahren Sie dann auf der Übersichtsseite der Diskussionsforen. Da Sie aber schon registriert worden sind, erhalten Sie ab dem Zeitpunkt automatisch die neuen Beiträge.</B>
   </td>
  </tr>
 </table>
 </body>
 </html>
AUSEND
}

sub neugast
{
 if ((length($dat{'name'})>2) and (length($dat{thema})>2) and (length($dat{'text'})>9))   #Ausreichende Länge
 {
 if ((index($dat{'name'},'|')==-1) and (index($dat{'email'},'|')==-1) and (index($dat{'homepage'},'|')==-1) and (index($dat{'thema'},'|')==-1) and (index($dat{'text'},'|')==-1)) #Trennzeichen vorhanden?
 {
  open (DAT, "<foren/f$dat{forenname}.dat");
  @beitrage = <DAT>;
  close DAT;
  $alt='';
   foreach $beitrag (@beitrage)
    {
     @eintrag = split /\|/, $beitrag;
      if ($eintrag[7] eq $dat{id})
       {
        @alt=@eintrag;
       }
    }
      &aktZeit;
      open (DAT, "<foren/idbeitrag.dat");
      $id= <DAT>;
      close DAT;
      open (DAT, ">foren/idbeitrag.dat");
      print DAT $id+1;
      close DAT;
      open (DAT, "<foren/f$dat{forenname}.dat");
      @beitragsliste = <DAT>;
      close DAT;
       while (rindex($dat{'text'},"\n")>-1)
        {
         $dat{'text'} =~ s/.\n/\<br\>/s;
        }
      $i=500;
  neuversuch:
  $i--;
   if ($i==0)
    {
      open(MAIL,"|/usr/sbin/sendmail $to2") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to2\n";
      print MAIL "Reply-to:\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Fehler in Skript-Ausführung\n\n";
      print MAIL "Die Datei foren/f$dat{'forenname'}.dat ist gesperrt und nicht wieder freigegeben worden!";
      close MAIL;
      print 'Fehler beim Schreiben in wichtige Datei:Bitte versuchen SIe es später noch einmal!';die;
    }
      flock("foren/f$dat{'id'}",1);
      open (DAT, ">foren/f$dat{forenname}.dat")||goto neuversuch;
      print DAT "$dat{name}|$dat{email}||$dat{thema}|$dat{homepage}|$dat{text}||$id|$datum|h\n";
       foreach $beitrag (@beitragsliste)
        {
         print DAT $beitrag;
        }
      close DAT;
      flock("foren/f$dat{'forenname'}.dat",8);

print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl?typ=1&status=f&forenname=$dat{forenname}">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Eintrag erfolgreich gesendet</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table width=94% align=middle>
  <tr>
  <td>
  <font size=\"4\">
   Vielen Dank für Ihren Eintrag im Gästebuch.<br>
   Das neue Eintrag wurde erfolgreich angelegt. Leider werden die neuen Nachrichten erst nach einiger Zeit angezeigt. Es ist nicht nötig, dass Sie die Nachricht erneut versenden.<br>
   Über die Navigationsleiste am oberen Seitenende kommen Sie zum Gästebuch zurück.
  </font>
  </td>
  </tr>
 </table>
</body>
</html>
AUSEND
      open(MAIL,"|/usr/sbin/sendmail $to1") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to1\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Neuer Gästebucheintrag\n";
      print MAIL "Content-Type: text/html; charset=us-ascii\n";
      print MAIL "Content-Transfer-Encoding: 7bit\n\n";
      print MAIL "<html><body><table><tr><td colspan=2>Neuer Beitrag:</td></tr><tr><td>Absender:</td><td>$dat{'name'}</td></tr><tr><td>Thema:</td><td>$dat{'thema'}</td></tr><tr><td>E-Mail:</td><td>$dat{'email'}</td></tr><tr><td>Homepage:</td><td>$dat{'homepage'}</td></tr><tr><td valign=\"top\">Text:</td><td>$dat{'text'}</td></tr><tr><td>IP-Adresse</td><td>$ENV{REMOTE_ADDR}</td></tr><tr><td>Zeit als Zeitzahl</td><td>$aktzeitzahl</td></tr></table><a href=\"http://www.maxgym.musin.de/cgi-bin/foren.pl?status=j&forenname=$dat{forenname}&id=$id\">Nachricht akzeptieren</a></body></html>";
      close MAIL;
 }
 else                #| enthalten
 {
print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="javascript:history.go(-1)">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Fehler bei der EIngabe</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table width=94% align=middle>
  <tr>
  <td>
  <font size=\"4\">
   Bei ihrer Eingabe ist leider ein Fehler aufgetreten:<br>
   Aus technischen Gründen darf das '|' Zeichen in keinen der Eingabefelder vorhanden sein, da es intern als Steuerzeichen benutzt wird.<br>
   Bitte benutzen Sie den 'Zurück'-Button in ihrem Browser, um eine erneute Eingabe der Daten zu vermeiden und korrigieren Sie diesen Fehler.
  </font>
  </td>
  </tr>
 </table>
</body>
</html>
AUSEND
 }
 }
 else #keine ausreichenden Eingaben
 {
print <<AUSEND;
   <body BACKGROUND="../backgrd.gif">
   <Font Face="Times New Roman" SIZE="11">
    <table border="0" cellspacing="0" width="100%">
     <tbody>
      <tr>
       <td align="Left" valign="Middle" width="100%"><font face="Times New Roman" size="2"><a href="../start/start.htm">
       Startseite</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="foren.pl">
       Forenübersicht</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"><a href="javascript:history.go(-1)">
       $dat{forenname}</a>&nbsp;<img src="../impressm/butgrch.gif" height="15" width="9" align="Center"></font><font color="#800000" face="Times New Roman" size="2">
       Fehler bei der EIngabe</font></td>
      </tr>
    <tr>
   <td align="Left" valign="Middle" width="100%">
  <hr size="4"> </td>
 </tr>
 </tbody>
 </table>
 <table width=94% align=middle>
  <tr>
  <font size=\"4\">
  <td>
   Bitte füllen Sie die Eingabefelder 'Name', 'Thema' und 'Beitrag' aus.<br>
   Name und Thema sollten dabei mehr als 3 Zeichen, der Beitrag mehr als 10 Zeichen enthalten.<br>
   Benutzen Sie den 'Zurück'-Button in ihrem Browser, um eine erneute Eingabe der Daten zu vermeiden und korrigieren Sie diesen Fehler.
  </td>
  </font>
  </tr>
 </table>
</body>
</html>
AUSEND
 }
}

sub neugastmail
{
  open (DAT, "<foren/f$dat{forenname}.dat");
  @beitragsliste = <DAT>;
  close DAT;
  $i=500;
  neuversuch2:
  $i--;
   if ($i==0)
    {
      open(MAIL,"|/usr/sbin/sendmail $to2") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $to2\n";
      print MAIL "Reply-to:\n";
      print MAIL "From: perlskript\@maxgym.musin.de\n";
      print MAIL "Subject: Fehler in Skript-Ausführung\n\n";
      print MAIL "Die Datei foren/f$dat{'forenname'}.dat ist gesperrt und nicht wieder freigegeben worden!";
      close MAIL;
      print 'Fehler beim Schreiben in wichtige Datei:Bitte versuchen SIe es später noch einmal!';die;
    }
   flock("foren/f$dat{'forenname'}.dat",1);
  open (DAT, ">foren/f$dat{forenname}.dat") || goto neuversuch2;
  foreach $diskussion (@beitragsliste)
   {
    @diskussion2=split /\|/, $diskussion;
     if ($diskussion2[7]==$dat{id})
      {
       chomp($diskussion);
       $neu=chop($diskussion);
       $diskussion=$diskussion."n\n";
      }
     print DAT $diskussion;
   }
  close DAT;
  if ($neu eq 'h')
  {
  flock("foren/f$dat{'forenname'}.dat",8);
   open (DAT, "<foren/foren.dat");
   @foren=<DAT>;
   close DAT;
   open (DAT, ">foren/foren.dat");
    foreach $forum (@foren)
     {
      @forendaten=split /\|/, $forum;
       if ($forendaten[0] eq $dat{forenname})
        {
         @forums=split /\|/, $forum;
         $forums[4]++;
         $forum=join('|',@forums);
         $forum=$forum."\n";
        }
       print DAT $forum;
     }
 close DAT;
 }
print <<AUSEND;
<html>
<body>
 Nachricht wurde erfolgreich aufgenommen.
 <a href=\"foren.pl\">Zu den Foren</a>
</body>
</html>
AUSEND
}

sub neubenachrichtigen
{
 if ((length($dat{'name'})>5) and ((index($dat{email},'@'))>-1) and ((index($dat{email},'.'))>-1))
{
  open (DAT, "<foren/b$dat{'id'}");
  @beitragsliste = <DAT>;
  close DAT;
  $da=0;
   foreach $diskussion (@beitragsliste)
   {
    chomp($diskussion);
    @diskussion2=split /\|/, $diskussion;
     if ($diskussion2[9] eq 'm')
      {
       $da=1;
       $/=' ';
       chomp($dat{email});
       if (index($diskussion,lc($dat{email}))==-1)    #existiert nicht
        {
      open(MAIL,"|/usr/sbin/sendmail $dat{email}") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $dat{email}\n";
      print MAIL "Reply-to: admin\@maxgym.musin.de\n";
      print MAIL "From: admin\@maxgym.musin.de\n";
      print MAIL "Subject: Rückfrage zur E-Mail-Benachrichtigung des Themas $dat{beitrag}\n";
      print MAIL "Content-Type: text/html; charset=us-ascii\n";
      print MAIL "Content-Transfer-Encoding: 7bit\n\n";
      print MAIL "<html><body><table width=100%><tr><td>Bei den Diskussionsforen des <a href=\"http://www.maxgym.musin.de\">Maximiliansgymnasium München</a> wurde bei der E-Mail-Benachrichtigung bei neuen Beiträgen ihre E-Mail-Adresse angegeben.<br>Um die Anmeldung zu bestätigen, klicken Sie bitte auf diesen Link, ansonsten ignorieren Sie die Nachricht einfach:<br><a href=\"http://www.maxgym.musin.de/cgi-bin/foren.pl?status=h&unterstatus=g&forenname=$dat{forenname}&id=$dat{id}&beitrag=$dat{beitrag}&email=$dat{email}\">Anmeldung bestätigen</a></td></tr></table></body></html>";
      close MAIL;
        }
      }
   }
 if ($da==0)
  {
      open(MAIL,"|/usr/sbin/sendmail $dat{email}") or print "Fehler: Versuchen Sie es bitte später noch einmal";
      print MAIL "To: $dat{email}\n";
      print MAIL "Reply-to: admin\@maxgym.musin.de\n";
      print MAIL "From: admin\@maxgym.musin.de\n";
      print MAIL "Subject: Rückfrage zur E-Mail-Benachrichtigung des Themas $dat{beitrag}\n";
      print MAIL "Content-Type: text/html; charset=us-ascii\n";
      print MAIL "Content-Transfer-Encoding: 7bit\n\n";
      print MAIL "<html><body><table width=100%><tr><td>Bei den Diskussionsforen des <a href=\"http://www.maxgym.musin.de\">Maximiliansgymnasium München</a> wurde bei der E-Mail-Benachrichtigung bei neuen Beiträgen ihre E-Mail-Adresse angegeben.<br>Um die Anmeldung zu bestätigen, klicken Sie bitte auf diesen Link, ansonsten ignorieren Sie die Nachricht einfach:<br><a href=\"http://www.maxgym.musin.de/cgi-bin/foren.pl?status=h&unterstatus=g&forenname=$dat{forenname}&id=$dat{id}&beitrag=$dat{beitrag}&email=$dat{email}\">Anmeldung bestätigen</a></td></tr></table></body></html>";
      close MAIL;
}
}

}
sub aktZeit
{
  ($sek, $min, $std, $tag, $mon, $jahr,$x,$x) = localtime(time);
  if ($min < 10) { $min = '0'.$min; }
  if ($std < 10) { $std = '0'.$std; }
  if ($tag < 10) { $tag = '0'.$tag; }
  if (++$mon <10) { $mon = '0'.$mon; }
  $jahr=$jahr+1900;
  $datum = "$tag.$mon.$jahr";
}
