[Bio] / ToolBox / toolBox.cgi~ Repository:
ViewVC logotype

Annotation of /ToolBox/toolBox.cgi~

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : wilke 1.1 #!/usr/bin/env /home/wilke/FIGdisk/env/cee/bin/perl
2 :    
3 :     BEGIN {
4 :     @INC = qw(
5 :     /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib
6 :     /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib/FigKernelPackages
7 :     /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib/WebApplication
8 :     /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib/FortyEight
9 :     /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib/PPO
10 :     /home/wilke/FIGdisk/dist/dev/cee/lib
11 :     /home/wilke/FIGdisk/dist/dev/cee/lib/FigKernelPackages
12 :     /home/wilke/FIGdisk/env/cee/lib/perl5/5.8.7/i686-linux
13 :     /home/wilke/FIGdisk/env/cee/lib/perl5/5.8.7
14 :     /home/wilke/FIGdisk/env/cee/lib/perl5/site_perl/5.8.7/i686-linux
15 :     /home/wilke/FIGdisk/env/cee/lib/perl5/site_perl/5.8.7
16 :     /home/wilke/FIGdisk/env/cee/lib/perl5/site_perl
17 :     .
18 :     /home/wilke/FIGdisk/config
19 :    
20 :     );
21 :     }
22 :    
23 :    
24 :     use strict;
25 :     use warnings;
26 :    
27 :     use DBMaster;
28 :     use WebApplication;
29 :     use WebMenu;
30 :     use WebLayout;
31 :     use WebConfig;
32 :    
33 :     my $layout = WebLayout->new('./Html/MyAppLayout.tmpl');
34 :     $layout->add_css(TMPL_PATH.'/default.css');
35 :    
36 :     my $menu = WebMenu->new();
37 :     $menu->add_category('Home', 'myApp.cgi');
38 :    
39 :     my $WebApp = WebApplication->new( { id => 'MyApp',
40 :     dbmaster => DBMaster->new(-database => 'WebAppBackend'),
41 :     menu => $menu,
42 :     layout => $layout,
43 :     default => 'MyFirstPage',
44 :     } );
45 :    
46 :     $WebApp->run();

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3