[Bio] / RAST / rast.cgi Repository:
ViewVC logotype

Annotation of /RAST/rast.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10 - (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 : olson 1.7 my $layout = WebLayout->new("$FIG_Config::fig/CGI/Html/RAST.tmpl");
15 : olson 1.10 $layout->add_css(TMPL_URL_PATH.'/web_app_default.css');
16 : olson 1.7 $layout->add_css(TMPL_URL_PATH.'/rast.css');
17 : paarmann 1.1
18 : paarmann 1.3 # add site meter
19 :     my $site_meter = $FIG_Config::site_meter;
20 :     if ($site_meter) {
21 :     $layout->add_javascript("http://s20.sitemeter.com/js/counter.js?site=s20nmpdr");
22 :     }
23 :    
24 : paarmann 1.5 # create the menu
25 : paarmann 1.1 my $menu = WebMenu->new();
26 : dsouza 1.6
27 : paczian 1.8 $menu->add_category('Home', 'rast.cgi', undef, [ 'login' ]);
28 : paczian 1.9 $menu->add_entry('Home', 'About RAST', 'http://www.nmpdr.org/FIG/wiki/view.cgi/Main/RAST', '_blank');
29 :     $menu->add_entry('Home', 'RAST FAQ', 'http://www.nmpdr.org/FIG/wiki/view.cgi/Main/RASTFAQ', '_blank');
30 : paarmann 1.1 $menu->add_category('Your Jobs', 'rast.cgi?page=Jobs', undef, [ 'login' ]);
31 :     $menu->add_entry('Your Jobs', 'Jobs Overview', 'rast.cgi?page=Jobs');
32 :     $menu->add_entry('Your Jobs', 'Upload New Job', 'rast.cgi?page=Upload');
33 : paczian 1.8 $menu->add_entry('Your Jobs', 'Private Organism Preferences', '?page=PrivateOrganismPreferences');
34 : paarmann 1.4 $menu->add_category('Import Control', 'rast.cgi?page=ControlCenter', undef, [ 'import' ]);
35 : paarmann 1.1
36 :    
37 : paarmann 1.5 # init the WebApplication
38 : paarmann 1.1 my $WebApp = WebApplication->new( { id => 'RAST',
39 :     menu => $menu,
40 :     layout => $layout,
41 :     default => 'Home',
42 :     } );
43 : dsouza 1.6
44 : paczian 1.8 $WebApp->page_title_prefix('RAST Server - ');
45 : paarmann 1.1
46 :     $WebApp->run();

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3