#!/usr/bin/perl
use POSIX qw(locale_h);

use DBI;
use CGI qw/:standard/;
use CGI::Cookie;
use Template;
use OpenDict::WebUtils;
use Encode;

setlocale(LC_CTYPE,   "pt_PT.utf8");
setlocale(LC_COLLATE, "pt_PT.utf8");

# This prints CGI header!
my $DA   = new OpenDict::WebUtils(query => '/search', jsgraphics => 1);

print "<div id=\"main\"><div class=\"text\">\n";
print h2("Estat&iacute;sticas do Projecto");

$DA->TT->process('stats');

print "</div>";

$DA->TT->process('footer');