#!/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";

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

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

my $sth = $dbh->prepare( q{ SELECT * FROM phonelog }) 
             || die "Can't prepare statement: $DBI::errstr"; 

my $rc = $sth->execute
             || die "Can't execute statement: $DBI::errstr";

print "Query will return $sth->{NUM_OF_FIELDS} fields.\n\n";

print "$sth->{NAME}->[0]: $sth->{NAME}->[1]\n";

while (($id, $summary) = $sth->fetchrow_array) 
{
  print "$id : $summary\n";
}


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

 $sth->finish;

my $rc  = $dbh->disconnect;