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

View of /SeedViewer/metagenomics.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (download) (annotate)
Wed Sep 24 20:26:25 2008 UTC (11 years, 1 month ago) by jared
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, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2008_09_30, 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_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, 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, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, HEAD
Changes since 1.7: +2 -9 lines
fixed images and removed old commented out code

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.'SeedViewer-MG.tmpl');
    $layout->add_css("$FIG_Config::cgi_url/Html/default.css");
    $layout->add_css("$FIG_Config::cgi_url/Html/seedviewer.css");
    $layout->add_css("$FIG_Config::cgi_url/Html/commonviewer.css");

    # build menu
    my $menu = WebMenu->new();
    $menu->add_category('&raquo;Navigate', '?');
    $menu->add_entry('&raquo;Navigate', 'MG-RAST Home', '?');
    $menu->add_entry('&raquo;Navigate', '<img src="'.$FIG_Config::cgi_url.'/Html/nmpdr_icon_small.png">&nbsp;RAST', 'http://rast.nmpdr.org/'); 
    $menu->add_entry('&raquo;Navigate', '<img src="'.$FIG_Config::cgi_url.'/Html/nmpdr_icon_small.png">&nbsp;NMPDR', 'http://www.nmpdr.org/'); 
    
    # help
    $menu->add_category('&raquo;Help', 'http://www.theseed.org', 'help', undef, 98);
    $menu->add_entry('&raquo;Help', 'What is the SEED', 'http://www.theseed.org/wiki/Home_of_the_SEED');
    $menu->add_entry('&raquo;Help', 'HowTo use the SEED Viewer', 'http://www.theseed.org/wiki/SEED_Viewer_Tutorial');
    $menu->add_entry('&raquo;Help', 'Submitting Data to MG-RAST', 'http://www.theseed.org/wiki/MG_RAST_Tutorial');
    $menu->add_entry('&raquo;Help', 'Contact', 'http://www.theseed.org/wiki/Contact');
    $menu->add_entry('&raquo;Help', 'Register', '?page=Register');
    $menu->add_entry('&raquo;Help', 'I forgot my Password', '?page=RequestNewPassword');
    

    # initialize application
    my $WebApp = WebApplication->new( { id => 'SeedViewer',
					menu     => $menu,
					layout   => $layout,
					default  => 'MetagenomeSelect',
				      } );
    $WebApp->page_title_prefix('MG-RAST - ');
    $WebApp->show_login_user_info(1);

    # run application
    $WebApp->run();

}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3