#!/usr/local/bin/perl

use DBI;

$driver_name = "mysql";
$database = "webtools";
$hostname = "smegma.rasterburn.com";
$datasource = "DBI:$driver_name:$database@$hostname";

my $dbh = DBI->connect("$datasource", $user, $password)
		|| die "Can't connect to $datasource: $DBI::errstr";

print "\nEnter summary : \n";

my $summary_in = <STDIN>;
chop($summary_in);

print "\nEnter some text :\n";

my $text_in = <STDIN>;
chop($text_in);

print "\nEnter catagory : ";

my $catagory_in = <STDIN>;
chop($catagory_in);

print "\nEnter Status : ";
my $status_in = <STDIN>;
chop($status_in);

my $sth = $dbh->prepare( q{ insert into phonelog (id, summary, log_text, catagory, status, entry_date, last_touched) values(NULL, ?, ?, ?, ?, NULL, NULL) }) ||
	die "Can't prepare statement: $DBI::errstr";

my $rc = $sth->execute($summary_in, $text_in, $catagory_in, $status_in) 
		|| die "Can't execute statement: $DBI::errstr";

warn $DBI::errstr if $DBI::err;

$sth->finish;

my $rc  = $dbh->disconnect;