#!/usr/bin/perl

use strict;

use OpenDict::WebUtils;
use Gravatar::URL;

my $DA = new OpenDict::WebUtils(query => '/search',
                                jsprofile => 1,
                                check_login => 1);

my $gravatar_url = gravatar_url(email => $DA->{session}->param("email"));
my $var = { gravatar => $gravatar_url,
            email    => $DA->{session}->param("email"),
            username => $DA->{session}->param("username") };

$DA->TT->process("profile", $var);

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