#!/usr/local/bin/perl -w

use strict;

use Antena3::PalmaresIbex35();

# Cette variable définit le nom du projet (client)
my $PROJECT_NAME = "ANTENA3";

use constant DEBUG => 0;

my $t0;
if(DEBUG)
{
    require Time::HiRes;
    $t0 = [Time::HiRes::gettimeofday()];
}

my $page = new Antena3::PalmaresIbex35(project => $PROJECT_NAME, langue => 'es');

# propagation du debug
$page->debug(DEBUG);

# construction de la page + envoi
$page->master_page();

# libération de la session
$page->releaseSession();

warn 'TIME FOR PAGE: ' . Time::HiRes::tv_interval($t0) if DEBUG;