Parent Directory
| 
Revision Log
Revision 1.6 - (view) (download)
| 1 : | paarmann | 1.1 | use strict; |
| 2 : | use warnings; | ||
| 3 : | |||
| 4 : | use DBMaster; | ||
| 5 : | use WebApplication; | ||
| 6 : | use WebMenu; | ||
| 7 : | use WebLayout; | ||
| 8 : | use WebConfig; | ||
| 9 : | |||
| 10 : | paarmann | 1.5 | # read local WebConfig because we need it here |
| 11 : | &WebConfig::import_local_config('RAST'); | ||
| 12 : | |||
| 13 : | # choose a layout | ||
| 14 : | my $layout = WebLayout->new('./Html/RAST.tmpl'); | ||
| 15 : | if ($WebConfig::RAST_TYPE eq 'metagenome') { | ||
| 16 : | $layout = WebLayout->new('./Html/RAST-MG.tmpl'); | ||
| 17 : | } | ||
| 18 : | paarmann | 1.1 | $layout->add_css(TMPL_PATH.'/default.css'); |
| 19 : | $layout->add_css(TMPL_PATH.'/rast.css'); | ||
| 20 : | |||
| 21 : | paarmann | 1.3 | # add site meter |
| 22 : | my $site_meter = $FIG_Config::site_meter; | ||
| 23 : | if ($site_meter) { | ||
| 24 : | $layout->add_javascript("http://s20.sitemeter.com/js/counter.js?site=s20nmpdr"); | ||
| 25 : | } | ||
| 26 : | |||
| 27 : | paarmann | 1.5 | # create the menu |
| 28 : | paarmann | 1.1 | my $menu = WebMenu->new(); |
| 29 : | dsouza | 1.6 | |
| 30 : | if ($WebConfig::RAST_TYPE eq 'metagenome') { | ||
| 31 : | $menu->add_category('Home', 'metagenomics.cgi', undef, [ 'login' ]); | ||
| 32 : | } else { | ||
| 33 : | $menu->add_category('Home', 'rast.cgi', undef, [ 'login' ]); | ||
| 34 : | } | ||
| 35 : | |||
| 36 : | paarmann | 1.1 | $menu->add_category('Your Jobs', 'rast.cgi?page=Jobs', undef, [ 'login' ]); |
| 37 : | $menu->add_entry('Your Jobs', 'Jobs Overview', 'rast.cgi?page=Jobs'); | ||
| 38 : | $menu->add_entry('Your Jobs', 'Upload New Job', 'rast.cgi?page=Upload'); | ||
| 39 : | paarmann | 1.4 | $menu->add_category('Import Control', 'rast.cgi?page=ControlCenter', undef, [ 'import' ]); |
| 40 : | paarmann | 1.1 | |
| 41 : | |||
| 42 : | paarmann | 1.5 | # init the WebApplication |
| 43 : | paarmann | 1.1 | my $WebApp = WebApplication->new( { id => 'RAST', |
| 44 : | menu => $menu, | ||
| 45 : | layout => $layout, | ||
| 46 : | default => 'Home', | ||
| 47 : | } ); | ||
| 48 : | dsouza | 1.6 | |
| 49 : | if ($WebConfig::RAST_TYPE eq 'metagenome') { | ||
| 50 : | $WebApp->page_title_prefix('MG-RAST - '); | ||
| 51 : | } else { | ||
| 52 : | $WebApp->page_title_prefix('RAST Server - '); | ||
| 53 : | } | ||
| 54 : | paarmann | 1.1 | |
| 55 : | $WebApp->run(); |
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |