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

BEGIN {
  our $no_session_check = 0;
  require "preface.pl";
}

use Pronto::FolderTree;
use HTMLWidget::FolderTree;

our ($folder_tree, %ft_id);
our $normal = 1;
our $bold = 2;

$folder_tree = new HTMLWidget::FolderTree($template);

&Pronto::FolderTree::insert_folder_nodes();
&Pronto::FolderTree::refresh_folder_tree();

print header;
$template->process("folders_head.html", {title => "Pronto Webmail"}) || die $template->error();
$folder_tree->draw();
$template->process("folders_foot.html") || die $template->error();

sub set_win_title {
}