#!/usr/bin/perl -wT

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

my $database  = "database";
my $db_server = "localhost";
my $user      = "user";
my $password  = "password";
my $redirect  = 'http://www.yourname.com/index.html';
my @fields = qw(
    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
    unknown     comments    email           name                date_added
);

my $q = CGI->new();
my %INPUT = $q->Vars;

$INPUT{$_} ||= '' for @fields;
$INPUT{$_} ||= 'false' for qw( radar laser vascar airplane photo roadblock unknown );

$INPUT{'date_added'} = strftime("%A, %B %d, %Y at %H:%M:%S", localtime() );

my $dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password);
my $sql = 'INSERT INTO speedtrap (' . ( join ',', @fields ) . ') ' .
          'VALUES (' . ( join ',', ('?') x scalar(@fields) ) . ')';
$dbh->do( $sql, @INPUT{@fields} );
$dbh->disconnect;

print $q->redirect($redirect);