#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

use DBI;

my $debug = 0;

my $dbh = DBI->connect("dbi:SQLite:dbname=/Users/blech/Documents/.flickrexif.db","","");
$dbh->{HandleError} = \&on_error;

# run

db_create();

# routines - db

sub db_create {
  # TODO DBI global
 
  my $create = <<EOC;
  create table exif (id INTEGER PRIMARY KEY,
                     aperture TEXT
                     exposure TEXT,
                     exposurebias TEXT,
                     flash TEXT,
                     focallength TEXT,
                     isospeed INTEGER,
                     make TEXT,
                     model TEXT,
                     exposureno REAL,
                     focallengthno REAL,
                     takenepoch INTEGER);
EOC

  # TODO better schema
  # exposure could be a number or time
  # iso speed is a number
  # focal length could be a number
  
  $dbh->do($create);
}

sub on_error {
  my ($error, $dbh, $value) = @_;
  print "Got an error: '$error'\n";
  return 1;
}