[Bio] / RegSubMa / Reg2Sub.cgi Repository:
ViewVC logotype

View of /RegSubMa/Reg2Sub.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (download) (annotate) (vendor branch)
Wed Apr 4 17:08:51 2007 UTC (13 years, 3 months ago) by mkubal
Branch: MAIN, fig
CVS Tags: v_1_0_0, HEAD
Changes since 1.1: +0 -0 lines
initial checkin

#
# 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 lib '/home/mkubal/PPO/';
use lib '/home/mkubal/public_html/FIGdisk/dist/releases/current/RegSubMa/';
use DBMaster;

use WebApplication;
use WebMenu;
use RegSubMa;

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');
    #my $dbmaster = DBMaster->new('MicroArrayData');
    #my $dbmaster = DBMaster->new('DomReg');	

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

    # build menu
    my $menu = WebMenu->new();

    #$menu->add_category( "Logout", "index48.cgi?page=Login&action=logout" );
    #$menu->add_category( "48-hour" );
    #$menu->add_entry( "48-hour", "Upload", "index48.cgi?page=Upload" );

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

    # run application
    $WebApp->run();

}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3