#!/usr/bin/perl
use CGI qw(:cgi-lib :standard);
use DBI;
use strict;
use warnings;
my $dbfile = "/inetpub/wwwroot/data/sample.db";
my $dsn = "dbi:SQLite:dbname=$dbfile";
my $user = "";
my $password = "";
my $dbh = DBI->connect($dsn, $user, $password, {
PrintError => 0,
RaiseError => 1,
AutoCommit => 1,
FetchHashKeyName => 'NAME_lc',
});
### Parse form data
&ReadParse(my %in);
my $fname = $in{"fname"};
my $lname = $in{"lname"};
my $user_id = $in{"user_id"};
my $email = $in{"email"};
### Write SQL data
$dbh->do('INSERT INTO people (fname, lname, user_id, email) VALUES (?, ?, ?, ?)',
undef,
$fname, $lname, $user_id, $email);
$dbh->disconnect;
### Print HTML document
my $html = "Content-Type: text/html
CGI Test
CGI Test r1
fname: $fname
lname: $lname
user_id: $user_id
email: $email
";
print $html;