[Bio] / SubsystemEditor / SubsysEditor.cgi Repository:
ViewVC logotype

View of /SubsystemEditor/SubsysEditor.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (annotate)
Mon Jul 16 20:07:16 2007 UTC (12 years, 5 months ago) by parrello
Branch: MAIN
Changes since 1.1: +33 -19 lines
Initial implementation of subsystem editor, to be completed by Daniela.

use strict;
use warnings;

use FIG_Config;
use lib "$FIG_Config::fig_disk/dist/current/$FIG_Config::arch/lib/WebApplication";
use lib "$FIG_Config::common_runtime/lib/SubsystemEditor";

use DBMaster;
use WebApplication;
use WebMenu;
use WebLayout;
use Tracer;
use FigSubsystemMaster;

my $cgi = new CGI();
ETracing($cgi);
eval {
    my $dbmaster = DBMaster->new('WebServerBackend');
    Trace("Setting up layout.") if T(3);
    my $layout = WebLayout->new('./Html/SubsystemEditorLayout.tmpl');
    $layout->add_css('./Html/SubsystemEditor.css');
    Trace("Creating menu.") if T(3);
    my $menu = WebMenu->new();
    $menu->add_category('Home', 'SubsysEditor.cgi?page=SubsystemList');
    Trace("Creating application object.") if T(3);
    my $WebApp = WebApplication->new( { id       => 'SubsystemEditor',
                                        dbmaster => $dbmaster,
                                        menu     => $menu,
                                        layout   => $layout,
                                        default  => 'SubsystemList'
                                      } );
    
    # For now, only use the FIG subsystem object. Later we may need to
    # parameterize this somehow. In order to switch to a different
    # database technology, you need to replace FigSubsystemMaster and
    # FigSubsystem.
    Trace("Connecting to subsystem object.") if T(3);
    $WebApp->setAppData(SubsystemObject => FigSubsystemMaster->new());
    Trace("Starting to run web app.") if T(3);
    $WebApp->run();
};
if ($@) {
    Confess("Unhandled exception: $@");
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3