Parent Directory
| 
Revision Log
Revision 1.1.1.1 - (view) (download)
| 1 : | bartels | 1.1 | use strict; |
| 2 : | use warnings; | ||
| 3 : | |||
| 4 : | use DBMaster; | ||
| 5 : | use WebApplication; | ||
| 6 : | use WebMenu; | ||
| 7 : | use WebLayout; | ||
| 8 : | |||
| 9 : | my $cgi = new CGI(); | ||
| 10 : | |||
| 11 : | my $dbmaster = DBMaster->new('WebServerBackend'); | ||
| 12 : | |||
| 13 : | my $layout = WebLayout->new('./Html/proposeSS.tmpl'); | ||
| 14 : | $layout->add_css('./Html/proposeSS.css'); | ||
| 15 : | |||
| 16 : | my $menu = WebMenu->new(); | ||
| 17 : | $menu->add_category( 'Home', 'proposeSS.cgi?page=ProposeSubsystem' ); | ||
| 18 : | $menu->add_category( 'Logout', 'proposeSS.cgi?page=Login&action=perform_logout', undef, [ 'login' ] ); | ||
| 19 : | |||
| 20 : | my $WebApp = WebApplication->new( { id => 'ProposeSubsystem', | ||
| 21 : | dbmaster => $dbmaster, | ||
| 22 : | menu => $menu, | ||
| 23 : | layout => $layout, | ||
| 24 : | default => 'ProposeSubsystem', | ||
| 25 : | } ); | ||
| 26 : | |||
| 27 : | $WebApp->run(); |
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |