#!/usr/bin/perl -wT

use DBI;
use strict;
use CGI;
use POSIX 'strftime';

my $q = CGI->new();
my $sth;


my $state =		$q->param ('state');
my $city =		$q->param ('city');
my $locationname =	$q->param ('locationname');
my $referencename =     $q->param ('referencename');
my $lat_deg =		$q->param ('lat_deg');
my $lat_min =		$q->param ('lat_min');
my $lat_sec =		$q->param ('lat_sec');
my $long_deg =		$q->param ('long_deg');
my $long_min =		$q->param ('long_min');
my $long_sec =		$q->param ('long_sec');
my $xcoord =		$q->param ('xcoord');
my $ycoord =		$q->param ('ycoord');
my $ttime =		$q->param ('ttime');
my $level =		$q->param ('level');
my $radar =		$q->param ('radar');
my $laser =		$q->param ('laser');
my $vascar =		$q->param ('vascar');
my $airplane =		$q->param ('airplane');
my $photo =		$q->param ('photo');
my $roadblock =		$q->param ('roadblock');
my $redlight =		$q->param ('redlight');
my $unknown =		$q->param ('unknown');
my $comments =		$q->param ('comments');
my $email =		$q->param ('email');
my $name  =		$q->param ('name');

my $date = strftime("%A, %B %d, %Y at %H:%M:%S", localtime() );

##Set Radar Technology##########################################################
# If technology type isn't selected, it needs to be set to false.
if (!$q->param ('radar')) {$radar = "false"};
if (!$q->param ('laser')) {$laser = "false"};
if (!$q->param ('vascar')) {$vascar = "false"};
if (!$q->param ('airplane')) {$airplane = "false"};
if (!$q->param ('photo')) {$photo = "false"};
if (!$q->param ('roadblock')) {$roadblock = "false"};
if (!$q->param ('redlight')) {$redlight = "false"};
if (!$q->param ('unknown')) {$unknown = "false"};
################################################################################


##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 trap1 (state, city, locationname, referencename, lat_deg, lat_min, lat_sec, long_deg, long_min, long_sec, xcoord, ycoord, ttime, level, radar, laser, vascar, airplane, photo, roadblock, redlight, unknown, comments, email, name, date_added) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";

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

my $rv = $sth->execute($state,$city,$locationname,$referencename,$lat_deg,$lat_min,$lat_sec,$long_deg,$long_min,$long_sec,$xcoord,$ycoord,$ttime,$level,$radar,$laser,$vascar,$airplane,$photo,$roadblock,$redlight,$unknown,$comments,$email,$name,$date) or die "Couldn't execute query: $dbh->errstr";

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

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

print $q->redirect('http://www.site.com/index.html');