#!/usr/bin/perl
#### Eingabe:
#Aktion=
#        Liste: Liste aller Eintraege ohne "Rahmung"
#        Eintragen: In Name, Email, Homepage, Nachricht stehen die Details.
#Von=
#        Nummer, ab der angezeigt werden soll. Default:1;
#Anz=
#        Wieviele Eintraege sollen angezeigt werden? Default:10;
#@GeleseneZeilen; Liste aller gelesenen Zeilen im Diskussionsdatei
$Aktion="";$Von="1";$Anz="10";$Name="";$Email="";$HomePage="";$Nachricht="";
$WurdeEingetragen=0;
print "Content-type: text/html\n\n";
&Eingabe;
&DateiEinlesen;
&DateiSchreiben;
&Ausgabe;
sub Eingabe
{
        if($ENV{'REQUEST_METHOD'} eq 'GET')
   {
    $Daten = $ENV{'QUERY_STRING'}
   }
          else
   {
    read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
   }
   @Formularfelder = split(/&/, $Daten);
   $i = 0;
   foreach $Feld (@Formularfelder)
   {
      ($name, $value) = split(/=/, $Feld);
      $value =~ s/\+/ /g;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $value =~ s/<!--(.|\n)*-->//g;
      if ($name eq "Aktion"){$Aktion=$value;} elsif
              ($name eq "Name"){$Name=$value;} elsif
              ($name eq "Email"){$Email=$value;} elsif
              ($name eq "Homepage"){$Homepage=$value;} elsif
              ($name eq "Von"){$Von=$value;} elsif
              ($name eq "Anz"){$Anz=$value;} elsif
              ($name eq "Nachricht"){$Nachricht=$value;}
   }
   $Nachricht =~ s/\n|\n\r|\r\n/ /g;
}
sub DateiEinlesen
{
        $AnzMsg=0;
   %CurHash;my @EingelListe;
        if (open(GAST,"<Gaestebuch/Gaestebuch.db"))
   {
           while(<GAST>)
      {
         $AnzMsg++;
         push(@GeleseneZeilen,$_);
      }
      close(GAST);
   }
}
sub Ausgabe
{
  my @RefersTo;my %CurHash;my @EingelListe;my @AnzRefers=0;my $Idx=1;my $iAusg;
  if ($Aktion eq "Liste")
    {
      $ID="Gästebuch|Ansehen";$Rev = "";$Datum="";$ComeFromElsewhere=1;$Titel="Das Gästebuch von mtb-suedbaden.de";
      do "Nav.pl";

      print '<table width=100%><tr><td><h1>Das Gästebuch</h1></font></td><td align=right><font size = 4>Neuer <a href="GaestebuchNE.shtml">Eintrag</a></font></td></tr></table>';
      if ($AnzMsg==0)
      {
         print 'Es hat noch niemand etwas ins Gästebuch geschrieben. Schnell <a href="GaestebuchNE.shtml">nachholen</a>'."\n";
      }
      else
      {
         if ($WurdeEingetragen == 1)
         {
            print "<font size = 2 color=red><b>Vielen Dank für deinen Eintrag ins Gästebuch.</b></font><br>\n";
         }
         &NavBarAusgabe;
         print "<table cellspacing=0 cellpadding=3>\n";
         for (@GeleseneZeilen)
         {
            if ($Idx >= $Von)
            {
               if ($Idx < $Von + $Anz)
               {
                  @EingelListe = split(/\|\|\|/,$_);
                  %CurHash = &GetEntry($_);
#                  print '<tr><td valign="top">'.eval($AnzMsg-$Idx+1).'.</td><td valign="top" width=150 align=right><font size=1>Name: '.$CurHash{"Name"}.'<br>Email: <a href="mailto:'.$CurHash{"Email"}.'?subject=Dein Eintrag im Gästebuch bei quäldich.de">'.$CurHash{"Email"}.'</a><br>Homepage: <a href="http://'.$CurHash{"Homepage"}.'">'.$CurHash{"Homepage"}.'</a><br>Datum: '.$CurHash{"Datum"}.'</td><td valign=top>'.$CurHash{"Nachricht"}."</td></tr>\n";
                                                $PersDet='<tr><td><font size=1>Name:</font></td><td align=right><font size=1>'.$CurHash{"Name"}.'</font></td></tr>';
                  if ($CurHash{"Homepage"} ne "")
                          {$PersDet = $PersDet.'<tr><td><font size=1>Homepage:</font></td><td align=right><font size=1><a href="http://'.$CurHash{"Homepage"}.'">'.$CurHash{"Homepage"}.'</a></font></td></tr>';}
                                                $PersDet = $PersDet.'<tr><td><font size=1>Datum:</font></td><td align=right><font size=1>'.$CurHash{"Datum"}.'</font></td></tr>';
                  print '<tr><td valign="top">'.eval($AnzMsg-$Idx+1).'</td><td align=left valign="top">'."<table border=0 cellspacing=0 cellpadding=0>$PersDet</table></td><td valign=top>".$CurHash{"Nachricht"}."</td></tr>\n";
               }
               else
                  {last;}
            }
            $Idx++;
         }
         print "</table>";
         &NavBarAusgabe;
      }
      #&DateiAusgabe("Gaestebuch/HTML/GaestebuchTail.html");
      $ID="Gästebuch|Ansehen";$Rev = 1;$Datum="13.10.2000";$ComeFromElsewhere=1;
      do "Nav.pl";
      #print "</html>";
   }
}
sub NavBarAusgabe
{
        my $iAusg;
   print "<font size=2>Eintrag: ";
   for ($iAusg = 0; $iAusg < $AnzMsg/$Anz;$iAusg ++)
   {
      if ($Von == $iAusg*$Anz+1)
      {
         print eval($AnzMsg-$iAusg*$Anz)." ";
      }
      else
      {
         print '<a href="Gaestebuch.pl?Aktion=Liste&Von='.eval($iAusg*$Anz+1).'">'.eval($AnzMsg-$iAusg*$Anz)."</a> ";
      }
   }
   if ($AnzMsg > $iAusg*$Anz)
   {
      if ($Von == $iAusg*$Anz+1)
      {
         print eval($AnzMsg-$iAusg*$Anz)." ";
      }
      else
      {
         print '<a href="Gaestebuch.pl?Aktion=Liste&Von='.eval($iAusg*$Anz+1).'">'.eval($AnzMsg-$iAusg*$Anz)."</a> ";
      }
   }

}
sub GetEntry
{
        my @EingelListe = split(/\|\|\|/,$_[0]);
        return ("Name",$EingelListe[0],"Email",$EingelListe[1],"Homepage",$EingelListe[2],
                           "Datum",$EingelListe[3],
                                                    "Nachricht",$EingelListe[4]);
}
sub DateiSchreiben
{
  if ($Aktion eq "Eintragen")
    {
      $Homepage =~ s/http:\/\///i;
      open(GAST,">Gaestebuch/Gaestebuch.db");
      print GAST $Name."|||".$Email."|||".$Homepage."|||".localtime(time())."|||".$Nachricht."\n";
      for (@GeleseneZeilen)
	{
	  print GAST $_;
	}
      close(GAST);
      $Aktion="Liste";
      $WurdeEingetragen=1;
      @GeleseneZeilen=@NeuGeleseneZeilen;# GeleseneZeilen leeren.
      &DateiEinlesen;
      
    }
}
sub DateiAusgabe
  {
        if (open(AUSG,"<".$_[0]))
	  {
      while (<AUSG>)
	{
	  print $_;
	}
    }
}