#! /usr/bin/perl

print "Content-type: text/html\n\n";

use DBI;
push(@INC,"e:\\html\\test\\cgi-bin");
require "myvars.pl";


$Daten = $ENV{'QUERY_STRING'};
@Felder = split(/&/, $Daten);

foreach $Feld (@Felder)
{
  ($name, $value) = split(/=/, $Feld);
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s/<!--(.|\n)*-->//g;

  if ($name eq "ref")
  {
    $ref = $value;
  }
  if ($name eq "reftype")
  {
    $reftype = $value;
  }
}

my $dbh = DBI->connect( $dbName, $dbUser, $dbPw) ||
     die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";

if ($reftype eq "news")
{
  open(FH, "<newsarticletemplate_1.html") or die "Template nicht gefunden";
  while (<FH>)
  {
    print $_;
  }
  close (FH);

  my $sth = $dbh->prepare("select title, text, date, comment, c, user from news where c = $ref order by c desc limit 1");
  my $results = $sth->execute() or die "Kann Abfrage nich ausführen: $DBI::errstr\n";
  my $date = "";
  while (my @result = $sth->fetchrow_array )
  {
    if ($date ne $result[2])
    {
      $date = $result[2];
      print "<tr bgcolor = '#301c18'><th colspan = 3>$result[2]</th></tr>";
    }
    print "<tr><td bgcolor = '#602020' valign = top>$result[0]</td>";
    print "<td bgcolor = '#502c28' valign = top>$result[1]<br><i>[$result[5]]</i></td>";
    print "<td bgcolor = '#502c28' valign = top><font size = 1><a href = \"/cgi-bin/addcomment.pl?ref=$result[4]&reftype=news\">Add Comment</a></font></td></tr>";
  }
  $sth->finish();

  open(FH, "<newsarticletemplate_2.html") or die "Template nicht gefunden";
  while (<FH>)
  {
    print $_;
  }
  close (FH);

  $number = $ref;
  do "subresponses.pl";

}

$dbh->disconnect();