use strict;
use DBI;
use DataTables;

my $dbfile = 'base.db';
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","");
my $dt = DataTables->new(dbh => $dbh);

#set table to select from
$dt->tables(["t"]);
 
#set columns to select in same order as order of columns on page
$dt->columns(["LPAR", "UCODE", "BOX", "Serial Number", "Box Name", "TEST", "N_OF_TEST", "N_OF_ERR"]);
 
use Mojolicious::Lite;

#print json back to browser

get '/data-source' => sub {
    my $c = shift;
    $dt->print_json;
};
app->start;