#!/usr/bin/perl -wT

use DBI;
use strict;
use CGI;
$CGI::POST_MAX = 30000;
use POSIX 'strftime';

my $q = CGI->new();

my $id =			 $q->param ('id');
my $other_comments = $q->param ('other_comments');

my $date = strftime( "%m/%d/%Y",localtime(time) ); 

##Start database connections##########################
my $database = "database";
my $db_server = "localhost";
my $user = "user";
my $password = "password";

##Connect to database, insert statement, & disconnect##
my $dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password);

my $statement = "INSERT INTO database (id1, comnt, date1) VALUES (?,?,?)";

my $sth;
$sth = $dbh->prepare($statement) or die "Couldn't prepare the query: $sth->errstr";

my $rv = $sth->execute($id,$other_comments,$date) or die "Couldn't execute query: $dbh->errstr";

my $rc = $sth->finish;
   $rc = $dbh->disconnect;
#######################################################

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

print $date;