#!/usr/local/bin/perl -w
###########################################
# clipfind
# Mike Schilli, 2012 (m@perlmeister.com)
###########################################
use strict;
use Text::Wrap qw(fill);
use DBI;

BEGIN {
    use FindBin qw($RealBin);
    chdir $RealBin;
}

my $query = join " ", @ARGV;

my $dbh = DBI->connect(
  "dbi:SQLite:highlights.sqlite", "", "",
  { RaiseError => 1 } );

my $sth = $dbh->prepare(
  "SELECT * FROM highlights " .
  "WHERE type = 'Highlight' AND " . 
  "highlights MATCH(?)" );
  
$sth->execute( $query );

my $serial = 1;

while( my $ref = 
         $sth->fetchrow_hashref() ) {

  my $output = "[$serial] " .
  "\"$ref->{title}\", $ref->{author}, " .
  "($ref->{loc}), \"$ref->{text}\"";

  print fill("", "    ", ($output)), 
        "\n\n";

  $serial++;
}