#!/usr/local/bin/perl -w
###########################################
# viewcounts-todb - Save JSON in SQLite
# Mike Schilli, 2014 (m@perlmeister.com)
###########################################
use strict;
use DBD::SQLite;
use JSON qw( from_json );
use DBI;
my $dbh = DBI->connect( 
  "dbi:SQLite:dbname=viewcounts.db", 
  "", "", { RaiseError => 1} );

my $data = from_json( join '', <STDIN> );

for my $video ( @$data ) {
  my $sth = $dbh->prepare( 
    "INSERT INTO 
     views(video_id,views,queried) 
     VALUES(?,?,CURRENT_TIMESTAMP)" );
  $sth->execute( $video->{ id }, 
                 $video->{ count } );
}