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

use strict;

use Upline::Home;

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

use constant DEBUG => 0;

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

my $page = new Upline::Home(project => $PROJECT_NAME);
$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;