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

View of /ToolBox/toolBox.cgi~

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (annotate)
Thu Jan 10 02:58:28 2008 UTC (11 years, 9 months ago) by wilke
Branch: MAIN
CVS Tags: HEAD
*** empty log message ***

#!/usr/bin/env /home/wilke/FIGdisk/env/cee/bin/perl

BEGIN {
    @INC = qw(
              /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib
              /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib/FigKernelPackages
              /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib/WebApplication
              /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib/FortyEight
              /home/wilke/public_html/FIGdisk/dist/releases/dev/cee/lib/PPO
              /home/wilke/FIGdisk/dist/dev/cee/lib
              /home/wilke/FIGdisk/dist/dev/cee/lib/FigKernelPackages
              /home/wilke/FIGdisk/env/cee/lib/perl5/5.8.7/i686-linux
              /home/wilke/FIGdisk/env/cee/lib/perl5/5.8.7
              /home/wilke/FIGdisk/env/cee/lib/perl5/site_perl/5.8.7/i686-linux
              /home/wilke/FIGdisk/env/cee/lib/perl5/site_perl/5.8.7
              /home/wilke/FIGdisk/env/cee/lib/perl5/site_perl
              .
              /home/wilke/FIGdisk/config
 
);
}


use strict;
use warnings;

use DBMaster;
use WebApplication;
use WebMenu;
use WebLayout;
use WebConfig;

my $layout = WebLayout->new('./Html/MyAppLayout.tmpl');
$layout->add_css(TMPL_PATH.'/default.css');

my $menu = WebMenu->new();
$menu->add_category('Home', 'myApp.cgi');

my $WebApp = WebApplication->new( { id       => 'MyApp',
                                    dbmaster => DBMaster->new(-database => 'WebAppBackend'),
                                    menu     => $menu,
                                    layout   => $layout,
                                    default  => 'MyFirstPage',
                                  } );

$WebApp->run();

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3