[Bio] / RegSubMa / RegSubMa_outline.cgi Repository:
ViewVC logotype

Annotation of /RegSubMa/RegSubMa_outline.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (view) (download)

1 : mkubal 1.1 #
2 :     # Copyright (c) 2003-2006 University of Chicago and Fellowship
3 :     # for Interpretations of Genomes. All Rights Reserved.
4 :     #
5 :     # This file is part of the SEED Toolkit.
6 :     #
7 :     # The SEED Toolkit is free software. You can redistribute
8 :     # it and/or modify it under the terms of the SEED Toolkit
9 :     # Public License.
10 :     #
11 :     # You should have received a copy of the SEED Toolkit Public License
12 :     # along with this program; if not write to the University of Chicago
13 :     # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14 :     # Genomes at veronika@thefig.info or download a copy from
15 :     # http://www.theseed.org/LICENSE.TXT.
16 :     #
17 :    
18 :     use strict;
19 :     use warnings;
20 :    
21 :     use lib '/home/mkubal/PPO/';
22 :     use lib '/home/mkubal/MicroArrayDB/';
23 :     use lib '/home/mkubal/DomReg/';
24 :     use lib '/home/mkubal/public_html/FIGdisk/dist/releases/current/RegSubMa/';
25 :    
26 :     use DBMaster;
27 :    
28 :     use WebApplication;
29 :     use WebMenu;
30 :     use RegSubMa;
31 :    
32 :     eval {
33 :     &main;
34 :     };
35 :    
36 :     if ($@)
37 :     {
38 :     my $cgi = new CGI();
39 :    
40 :     print $cgi->header();
41 :     print $cgi->start_html();
42 :    
43 :     # print out the error
44 :     print $@;
45 :    
46 :     print $cgi->end_html();
47 :    
48 :     }
49 :    
50 :     sub main {
51 :    
52 :     # initialize db-master
53 :     my $dbmaster = DBMaster->new('FortyEight_WebApplication');
54 :     #my $dbmaster = DBMaster->new('MicroArrayData');
55 :     #my $dbmaster = DBMaster->new('DomReg');
56 :    
57 :     # initialize layout
58 :     my $layout = RegSubMa->new('./Html/FortyEight.tmpl');
59 :    
60 :     # build menu
61 :     my $menu = WebMenu->new();
62 :     #$menu->add_category( "Logout", "index48.cgi?page=Login&action=logout" );
63 :     #$menu->add_category( "48-hour" );
64 :     #$menu->add_entry( "48-hour", "Upload", "index48.cgi?page=Upload" );
65 :     #$menu->add_entry( "48-hour", "Jobs Overview", "index48.cgi?page=Genomes" );
66 :     #$menu->add_entry( "48-hour", "Account", "index48.cgi?page=UserManagement" );
67 :    
68 :     # initialize application
69 :     my $WebApp = WebApplication->new( { dbmaster => $dbmaster,
70 :     menu => $menu,
71 :     default => 'Outline',
72 :     layout => $layout } );
73 :    
74 :     # run application
75 :     $WebApp->run();
76 :    
77 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3