#!/usr/bin/perl

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

my $root = $ENV{DOCUMENT_ROOT};

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

my $xml = OpenDict->connect( db => "$root/xml.db");
my $sth = $xml->dbh->prepare("SELECT tamanho,COUNT(tamanho) FROM (SELECT LENGTH(word) AS tamanho FROM entry) GROUP BY tamanho ORDER BY tamanho;");
$sth->execute();

my @results;
my @axis;
my @row;
while (@row = $sth->fetchrow_array) {
    push @results, $row[1];
    push @axis,    $row[0];
}
$xml->close;

print encode_json { axis => \@axis, values => \@results };