#! /usr/bin/perl

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


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


use CGI;
$q = new CGI;
$handle = $q->cookie(-name=>'handle');
$user = $q->cookie(-name=>'name');

$ref = $q->param("ref");
$reftype = $q->param("reftype");


my $dbh = DBI->connect( $dbName, $dbUser, $dbPw) ||
     die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";
my $sth = $dbh->prepare("select name, mail, www from users where name = '$user'");
my $results = $sth->execute() or die "Kann Abfrage nich ausführen: $DBI::errstr\n";
if (my @result = $sth->fetchrow_array )
{
  $user = $result[0];
  $mail = $result[1];
  $www = $result[2];
}
$sth->finish();
$dbh->disconnect();


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

my $sth = $dbh->prepare("select title from $reftype where c = $ref");
my $results = $sth->execute() or die "Kann Abfrage nich ausführen: $DBI::errstr\n";


if (my @result = $sth->fetchrow_array)
{
  open(FH, "<msgtemplate_1.html") or die "Template nicht gefunden";
  while (<FH>)
  {
    print $_;
  }
  close (FH);


  print "<form method = \"post\" action = \"addforumentry.pl\">\n";
  print "Your Name:<br>\n";
  print "<input type = \"text\" name = \"name\" value = \"$user\" size = 30><br><br>\n";
  print "Your eMail:<br>\n";
  print "<input type = \"text\" name = \"email\" value = \"$mail\" size = 30><br>\n";
  print "Notify on responses:\n";
  print "<input type = \"checkbox\" name = \"notify\" ><br><br>\n";
  print "Your website:<br>\n";
  print "<input type = \"text\" name = \"web\" value = \"$www\" size = 30><br><br>\n";
  print "Title of your reply:<br>\n";
  print "<input type = \"text\" name = \"title\" size = 30 value = \"$result[0]\"><br><br>\n";
  print "<textarea cols = 60 rows = 6  name = \"Text\"></textarea><br>\n";
  print "<input type = \"hidden\" name = \"parent\" value = \"0\"><br>\n";
  print "<input type = \"hidden\" name = \"thread\" value = \"0\"><br>\n";
  print "<input type = \"hidden\" name = \"reftype\" value = \"$reftype\"><br>\n";
  print "<input type = \"hidden\" name = \"ref\" value = \"$ref\"><br>\n";
  print "<input type = \"submit\" value = \"Send\"><br>\n";

  print "</form>";

  open(FH, "<msgtemplate_2.html") or die "Template nicht gefunden";
  while (<FH>)
  {
    print $_;
  }
  close (FH);
}
else
{
  print "Internal Error: Referer ($number) not found<br>";
}

$sth->finish();
$dbh->disconnect();