[Bio] / SeedViewer / target_search.cgi Repository:
ViewVC logotype

View of /SeedViewer/target_search.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (annotate)
Mon Oct 20 17:16:56 2008 UTC (11 years, 1 month ago) by mkubal
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, HEAD
using sprout

use strict;
use warnings;

use DBMaster;
use WebApplication;
use WebMenu;
use WebLayout;

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 {

    # initialize cgi
    my $cgi = new CGI();

    # initialize db-master
    #my $dbmaster = DBMaster->new(-database=>'WebAppBackend');
    my $dbmaster = DBMaster->new(-database=>'WebAppBackend',-host=>'bioseed.mcs.anl.gov',-user=>'rast');	

    # initialize layout
    my $layout = WebLayout->new('./Html/SeedViewer.tmpl');
    $layout->add_css('./Html/seedviewer.css');

    # build menu
    my $menu = WebMenu->new();
    $menu->add_category('&raquo;Navigate', '?page=Home');
    $menu->add_entry('&raquo;Navigate', 'Search', '?page=Home');
    $menu->add_entry('&raquo;Navigate', 'Functional Roles', '?page=FunctionalRole');
    $menu->add_entry('&raquo;Navigate', 'Subsystems', '?page=Subsystem');
    $menu->add_entry('&raquo;Navigate', 'Organisms', '?page=OrganismSelect');
    $menu->add_entry('&raquo;Navigate', 'Annotations', '?page=Annotation');
    $menu->add_category('&raquo;Help', 'http://biofiler.mcs.anl.gov', 'help', undef, 98);
    $menu->add_entry('&raquo;Help', 'What is the SEED', 'http://www.theseed.org');
    $menu->add_entry('&raquo;Help', 'HowTo use the SEED Viewer', 'http://www.theseed.org');
    $menu->add_entry('&raquo;Help', 'Submitting Data to SEED', 'http://www.theseed.org');
    $menu->add_entry('&raquo;Help', 'Contact', 'http://www.theseed.org');
    $menu->add_entry('&raquo;Help', 'Register', '?page=Register');
    $menu->add_category('&raquo;Logout', '?page=Home&action=perform_logout', undef, ['login'], 99);
    $menu->add_category('&raquo;Tips', '?page=TargetSearchDirections');	

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

    #my $search_master = DBMaster->new(-database => 'SeedDB');
    #my $search_component = $WebApp->register_component('Search', 'MenuSearch');
    #$search_component->db($search_master);
    #$search_component->add_category('Functional Role', 'FunctionalRole');
    #$search_component->add_category('Subsystem');
    #$search_component->add_category('Organism');
    #$search_component->add_category('Annotation', undef, 'Function');

    # run application
    $WebApp->run();

}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3