#!/usr/bin/perl

use warnings;
use strict;
use CGI qw/:standard/;
use DBI;
use JSON;

my $root = $ENV{DOCUMENT_ROOT};

print header(-type=>'application/json');

my $dbh = DBI->connect("dbi:SQLite:dbname=$root/TMP/logs.db","","");
$dbh->{sqlite_unicode} = 1;
my $dbs = $dbh -> prepare("SELECT * FROM searches ORDER BY count DESC LIMIT 10");
 $dbs->execute();

my ($w,$c,$r);
while(($w,$c) = $dbs->fetchrow_array) {
    push @{$r->{values}}, $c;
    push @{$r->{axis}}, $w;
}

print encode_json $r;