View of /GBBergeyDB/bergey.cgi

#
# Copyright (c) 2003-2006 University of Chicago and Fellowship
# for Interpretations of Genomes. All Rights Reserved.
#
# This file is part of the SEED Toolkit.
# 
# The SEED Toolkit is free software. You can redistribute
# it and/or modify it under the terms of the SEED Toolkit
# Public License. 
#
# You should have received a copy of the SEED Toolkit Public License
# along with this program; if not write to the University of Chicago
# at info@ci.uchicago.edu or the Fellowship for Interpretation of
# Genomes at veronika@thefig.info or download a copy from
# http://www.theseed.org/LICENSE.TXT.
#

use strict;
use warnings;

use DBMaster;
use WebApplication;
use WebMenu;
use GBBergeyDB;

eval {
    &main;
};

if ($@)
{
    my $cgi = new CGI();

    print $cgi->header();
    print $cgi->start_html();
    
    # print out the error
    print $@;

    print $cgi->end_html();

}

sub main {

    # initialize db-master
    my $dbmaster = DBMaster->new('FortyEight_WebApplication');

    # initialize layout
    my $layout = GBBergeyDB->new('./Html/GBBergeyDB.tmpl');

    # build menu
    my $menu = WebMenu->new();
    $menu->add_category( "Welcome", "bergey.cgi?page=Welcome" );
    $menu->add_category( "Bergey Tree", "bergey.cgi?page=Tree" );
    $menu->add_category( "List of Clusters", "bergey.cgi?page=List", "list" );
    $menu->add_category( "Account", "bergey.cgi?page=UserManagement" );
    $menu->add_category( "Logout", "bergey.cgi?page=Login&action=logout" );

    # initialize application
    my $WebApp = WebApplication->new( { dbmaster => $dbmaster,
					menu     => $menu,
					default  => 'Login',
					layout   => $layout } );
    
    # run application
    $WebApp->run();

}