#!/usr/bin/perl

# requires DBD::SQLite

use DBI;
use strict;

print html_header();

my $db = "/home/bcrowell/Documents/writing/selling_fiction/stories.sqlt";

my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","",{ RaiseError => 1, AutoCommit => 1 }) or err("connecting");

print html_footer();
local $/;
my $stuff = <>;
my %inputs;
foreach my $input(split(/&/,$stuff)) {
  $input =~ /(.*)=(.*)/;
  $inputs{$1} = $2;
}
# magazine, story, date
my $magazine = $inputs{'magazine'}; # key
my $story = $inputs{'story'};
my $date = $inputs{'date'};

print "$magazine, $story, $date\n";

my $insert_statement = <<INSERT;
  insert into submissions (magazine,story,date_submitted) values ($magazine,$story,$date)
INSERT

$dbh->do($insert_statement);

$dbh->disconnect;