[Bio] / EMPSR / empsr.cgi Repository:
ViewVC logotype

View of /EMPSR/empsr.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (annotate)
Thu Feb 10 16:03:29 2011 UTC (8 years, 9 months ago) by jared
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +1 -1 lines
made it not ugly

use strict;
use warnings;
no warnings 'once';

use WebApplication;
use WebMenu;
use WebLayout;
use WebConfig;

use FIG_Config;

eval {
    &main;
};

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

    print $cgi->header();
    print $cgi->start_html();
    
    # print out the error
    print '<pre>'.$@.'</pre>';

    print $cgi->end_html();

}

sub main {
    my $layout = WebLayout->new(TMPL_PATH.'empsr.tmpl');
    $layout->add_css("$FIG_Config::cgi_url/Html/emprs.css");

    # initialize application
    my $WebApp = WebApplication->new( { id       => 'EMPSR',
					layout   => $layout,
					default  => 'Select',
				      } );
    $WebApp->strict_browser(1);
    $WebApp->page_title_prefix('EMPSR - ');
    $WebApp->show_login_user_info(1);
    $WebApp->fancy_login(1);

    # run application
    $WebApp->run();
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3