use strict; use warnings; use DBMaster; use WebApplication; use WebMenu; use WebLayout; use WebConfig; # read local WebConfig because we need it here &WebConfig::import_local_config('RAST'); # choose a layout my $layout = WebLayout->new('./Html/RAST.tmpl'); if ($WebConfig::RAST_TYPE eq 'metagenome') { $layout = WebLayout->new('./Html/RAST-MG.tmpl'); } $layout->add_css(TMPL_PATH.'/default.css'); $layout->add_css(TMPL_PATH.'/rast.css'); # add site meter my $site_meter = $FIG_Config::site_meter; if ($site_meter) { $layout->add_javascript("http://s20.sitemeter.com/js/counter.js?site=s20nmpdr"); } # create the menu my $menu = WebMenu->new(); if ($WebConfig::RAST_TYPE eq 'metagenome') { $menu->add_category('Home', 'metagenomics.cgi', undef, [ 'login' ]); } else { $menu->add_category('Home', 'rast.cgi', undef, [ 'login' ]); } $menu->add_category('Your Jobs', 'rast.cgi?page=Jobs', undef, [ 'login' ]); $menu->add_entry('Your Jobs', 'Jobs Overview', 'rast.cgi?page=Jobs'); $menu->add_entry('Your Jobs', 'Upload New Job', 'rast.cgi?page=Upload'); $menu->add_category('Import Control', 'rast.cgi?page=ControlCenter', undef, [ 'import' ]); # init the WebApplication my $WebApp = WebApplication->new( { id => 'RAST', menu => $menu, layout => $layout, default => 'Home', } ); if ($WebConfig::RAST_TYPE eq 'metagenome') { $WebApp->page_title_prefix('MG-RAST - '); } else { $WebApp->page_title_prefix('RAST Server - '); } $WebApp->run();