#!/usr/bin/env perl

use CGI;
use DBI qw(:sql_types);

my $q = new CGI;

print $q->header,
      $q->start_html("Access sqlite3 using CGI");

my $icontype = $q->param("icontype");
my $x1 = $q->param("x1");
my $x2 = $q->param("x2");
my $y1 = $q->param("y1");
my $y2 = $q->param("y2");
print $q->h1("SQLite query results for Select");

my $dbh = DBI->connect("dbi:SQLite:/usr/lib/cgi-bin/sqlitecgi.db","","");

$prefix = "insert into eye_tbl values(NULL,";
$eyeid  = "1234abcd";
$sqlquery = $prefix . '"' . $eyeid . '","' . $icontype . '",' . $x1 . "," . $x2 . "," . $y1 . "," . $y2 . ");";

$f = $dbh->prepare($sqlquery);
$f->execute();
$f->finish;
$dbh->disconnect;
print $q->end_html;