#!/perl/bin/perl -w
use strict;
use DBI qw(:sql_types);

my ($callcnt, $callsql, $detcnt, $detsql, $infile, $mins, $oraconn );
my (@infields);
my (%callers);

# Open the database connection to Oracle 8
$oraconn = DBI->connect( 'dbi:Oracle:test.world','ca','llac', {RaiseError => 1, AutoCommit => 0})
|| die "Database connection not made: $DBI::errstr";
 
#Delete old records from callers and call_det tables
$detsql = $oraconn->prepare( q{ DELETE FROM call_det} );
$detsql->execute;
$oraconn->commit;

$detsql = $oraconn->prepare( q{	INSERT INTO call_det VALUES ( ?, TO_DATE(?,'MM/DD/YY'), ?, ?, ?)} );

$mins = 60;
$detsql->bind_param( 1, "4001", SQL_VARCHAR );
$detsql->bind_param( 2, "09/22/01", SQL_VARCHAR );
$detsql->bind_param( 3, "07:00", SQL_VARCHAR );
$detsql->bind_param( 4, $mins, SQL_INTEGER );
$detsql->bind_param( 5, "(480)829-4050", SQL_VARCHAR );
				
$detsql->execute;

print "commit\n";
$oraconn->commit;
print "disconnect\n";
$oraconn->disconnect;
print "end\n";
exit;