#!/usr/local/bin/perl -w
use strict;
use Win32::ODBC;
use CGI qw/:standard -debug/;

my $data = new Win32::ODBC("LIMS2") or die ODBC::Error();
if (!defined($data))
{
        print "Unable to connect to LIMS DSN!";
        exit;
}
my $IP = "unknown";
if (defined($ENV{'REMOTE_ADDR'}))
{
        $IP = $ENV{'REMOTE_ADDR'};
        
}
my $sug = param('suggestion');
my $sqlstatement = qq(Insert into tblSuggestionBox (suggestion, IPAddress,TimeOfSuggestion) VALUES (\'$sug\',\'$IP\',Now()););

print "$sqlstatement\n";

$data->Sql($sqlstatement);


if(defined($data->Error()))
{
        print $data->Error();
}
$data->Close();

my $data2 = new Win32::ODBC('LIMS2')||die ODBC::Error();
$data2->Sql("Select * from tblSuggestionBox");
print header, start_html, h1('Suggestions');
print "<table border\=\"1\">";
        print Tr(td('Suggestion'), td('IPAddress'), td('Timestamp'));
while ($data2->FetchRow())
{
        my %Ihash = $data2->DataHash();
        print "<TR><TD width\=\"33%\">$Ihash{'suggestion'}</TD><TD width\=\"33%\">$Ihash{'IPAddress'}</TD><TD width\=\"33%\">$Ihash{'TimeOfSuggestion'}</TD></TR>\n";

}
print "</table>";
print end_html;
1;