#!/usr/local/bin/perl5

# import images based on imput arg[0]
#
# 
#
#use strict;
use DBI;
use Image::Size;
use ImageHoard;

my $file;

my $dsn          = 'NULL';
my $db_user_name = 'NULL';
my $db_password  = 'NULL';

my $dbh = DBI->connect($dsn, $db_user_name, $db_password) || die $dbh->errstr;

my $image = ImageHoard->new;
$image->set_database_handle( $dbh );
$image->set_directory( "./" );


open INF, $ARGV[0] or die "\nCan't open $srcfile for reading: $!\n";


binmode INF;

$file = <INF>;

my ( $imgX , $imgY ) =  imgsize( $ARGV[0] );

$image->create_record( $file,"1",$ARGV[1],$ARGV[2],$imgX,$imgY,"72" );

print "done\n";