#! /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///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, ")
{
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 "$result[2] |
";
}
print "$result[0] | ";
print "$result[1] [$result[5]] | ";
print "Add Comment |
";
}
$sth->finish();
open(FH, ")
{
print $_;
}
close (FH);
$number = $ref;
do "subresponses.pl";
}
$dbh->disconnect();