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

Annotation of /SeedViewer/seedviewer.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.23 - (view) (download)

1 : paczian 1.1 use strict;
2 :     use warnings;
3 : paczian 1.7 no warnings 'once';
4 : paczian 1.1
5 :     use DBMaster;
6 :     use WebApplication;
7 :     use WebMenu;
8 :     use WebLayout;
9 : parrello 1.6 use Tracer;
10 :     use FIGRules;
11 : paczian 1.5 use FIG_Config;
12 : paczian 1.1
13 :     eval {
14 :     &main;
15 :     };
16 :    
17 :     if ($@)
18 :     {
19 : parrello 1.16 my $error = $@;
20 : parrello 1.18 Warn("Script error: $error") if T(SeedViewer => 0);
21 : paczian 1.1
22 : parrello 1.18 print CGI::header();
23 :     print CGI::start_html();
24 : paczian 1.1
25 :     # print out the error
26 : parrello 1.18 print '<pre>'.$error.'</pre>';
27 : paczian 1.1
28 : parrello 1.18 print CGI::end_html();
29 : paczian 1.1
30 :     }
31 :    
32 :     sub main {
33 :    
34 :     # initialize cgi
35 :     my $cgi = new CGI();
36 : parrello 1.23 if ($FIG_Config::linkinSV) {
37 :     my $parms = $cgi->query_string();
38 :     if ($parms) {
39 :     $parms = "?$parms";
40 :     } else {
41 :     $parms = "?page=Home";
42 :     }
43 :     print CGI::redirect(-uri => "$FIG_Config::cgi_url/wiki/rest.cgi/NmpdrPlugin/SeedViewer$parms",
44 :     -status => 301);
45 :     return;
46 :     }
47 : paczian 1.1
48 :     # initialize layout
49 : parrello 1.6 # Use the template file for the current mode-- NMPDR or SEED
50 : parrello 1.23 my $templateFile = (FIGRules::nmpdr_mode($cgi) ? "$FIG_Config::cgi_url/Html/NmpdrViewer.tmpl" : "$FIG_Config::cgi_url/Html/SeedViewer.tmpl");
51 : parrello 1.6 Trace("Template file is $templateFile") if T(3);
52 :     my $layout = WebLayout->new($templateFile);
53 :     # Choose the body/header style sheet according to the mode.
54 :     if (FIGRules::nmpdr_mode($cgi)) {
55 :     # NMPDR mode.
56 : parrello 1.23 $layout->add_css("$FIG_Config::cgi_url/Html/nmpdrviewer.css");
57 :     $layout->add_css("$FIG_Config::cgi_url/Html/commonviewer.css");
58 : parrello 1.17 # Display the official NMPDR icon for this machine.
59 :     $layout->add_metatag("<link rel=\"icon\" href=\"${FIG_Config::cgi_base}wiki/pub/logos/nmpdr.ico\" type=\"image/x-icon\" />");
60 :     $layout->add_metatag("<link rel=\"shortcut icon\" href=\"${FIG_Config::cgi_base}wiki/pub/logos/nmpdr.ico\" type=\"image/x-icon\" />");
61 : parrello 1.6 } else {
62 :     # SEED mode.
63 : parrello 1.23 $layout->add_css("$FIG_Config::cgi_url/Html/seedviewer.css");
64 :     $layout->add_css("$FIG_Config::cgi_url/Html/commonviewer.css");
65 :     $layout->add_css("$FIG_Config::cgi_url/Html/default.css");
66 : paczian 1.7 }
67 : paczian 1.1 # build menu
68 : parrello 1.6 my $menu;
69 :     $menu = WebMenu->new();
70 : parrello 1.16 if (FIGRules::nmpdr_mode($cgi)) {
71 : parrello 1.15 $menu->add_category('&raquo;Navigate', '?page=Home');
72 :     $menu->add_entry('&raquo;Navigate', 'NMPDR home', "$FIG_Config::nmpdr_site_url/index.php");
73 :     $menu->add_entry('&raquo;Navigate', 'Organisms', "$FIG_Config::nmpdr_site_url/content/organisms.php");
74 :     $menu->add_entry('&raquo;Navigate', 'Subsystems', "$FIG_Config::nmpdr_site_url/content/subsystems.php");
75 :     $menu->add_entry('&raquo;Navigate', 'FigFams', '?page=FigFamViewer');
76 :     } else {
77 : parrello 1.16 $menu->add_category('&raquo;Navigate', '?page=Home');
78 :     $menu->add_entry('&raquo;Navigate', 'Startpage', '?page=Home');
79 :     $menu->add_entry('&raquo;Navigate', 'Organisms', '?page=OrganismSelect');
80 :     $menu->add_entry('&raquo;Navigate', 'Subsystems', '?page=SubsystemSelect');
81 :     $menu->add_entry('&raquo;Navigate', 'FigFams', '?page=FigFamViewer');
82 : paczian 1.22 $menu->add_entry('&raquo;Navigate', 'BLAST Search', '?page=BlastRun');
83 : parrello 1.15 }
84 : paczian 1.5 if (defined($FIG_Config::teacher_db)) {
85 : parrello 1.6 $menu->add_category('&raquo;Teacher', '?page=Teach', undef, ['edit', 'problem_list'], 96);
86 :     $menu->add_entry('&raquo;Teacher', 'Class Performance', '?page=Teach');
87 :     $menu->add_entry('&raquo;Teacher', 'Class Management', '?page=ManageClass');
88 :     $menu->add_entry('&raquo;Teacher', 'Problem Sets', '?page=ManageProblemSets');
89 : paczian 1.7 $menu->add_entry('&raquo;Teacher', 'Annotation Resolve', '?page=ClassAnnotationResolve');
90 : paczian 1.5 }
91 : parrello 1.6 if (FIGRules::nmpdr_mode($cgi)) {
92 : parrello 1.15 $menu->add_category('Help', "$FIG_Config::nmpdr_site_url/content/help.php", 'help', undef, 98);
93 :     $menu->add_entry('Help', 'Searching NMPDR', "$FIG_Config::nmpdr_site_url/content/find.php");
94 :     $menu->add_entry('Help', 'Contact', "$FIG_Config::nmpdr_site_url/content/contactus.php");
95 : parrello 1.6 } else {
96 :     $menu->add_category('&raquo;Help', 'http://www.theseed.org', 'help', undef, 98);
97 :     $menu->add_entry('&raquo;Help', 'What is the SEED', 'http://www.theseed.org/wiki/Home_of_the_SEED');
98 :     $menu->add_entry('&raquo;Help', 'HowTo use the SEED Viewer', 'http://www.theseed.org/wiki/SEED_Viewer_Tutorial');
99 :     $menu->add_entry('&raquo;Help', 'Submitting Data to SEED', 'http://www.theseed.org/wiki/RAST_Tutorial');
100 :     $menu->add_entry('&raquo;Help', 'Contact', 'http://www.theseed.org/wiki/Contact');
101 :     $menu->add_entry('&raquo;Help', 'Register', '?page=Register');
102 : paczian 1.10 $menu->add_entry('&raquo;Help', 'I forgot my Password', '?page=RequestNewPassword');
103 : parrello 1.6 }
104 : paczian 1.1 # initialize application
105 :     my $WebApp = WebApplication->new( { id => 'SeedViewer',
106 :     menu => $menu,
107 :     layout => $layout,
108 :     default => 'Home',
109 :     } );
110 : parrello 1.19 my $prefix = (FIGRules::nmpdr_mode($cgi) ? "NMPDR " : "") . "Seed Viewer - ";
111 :     $WebApp->page_title_prefix($prefix);
112 : paczian 1.5 $WebApp->show_login_user_info(1);
113 : paczian 1.1
114 :     # run application
115 :     $WebApp->run();
116 :    
117 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3