#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use HTML::Template;

my $q = new CGI;
my $app = $q->param('app') || 'help';

my $template = HTML::Template->new(filename => 'app_wrap.tmpl');

my $application_to_call = '/main.html';
$application_to_call = '/cgi-bin/staff.pl' 	if ($app eq 'staff');
$application_to_call = '/db/staff/selstad.pl' 	if ($app eq 'adm_staff');
$application_to_call = '/db/staff/birthday.pl' 	if ($app eq 'birthday');
$application_to_call = '/db/staff/firmenjub.pl' if ($app eq 'jubilee');
$application_to_call = '/db/staff/location.pl' 	if ($app eq 'location');

print $q->header();
$template->param(app => $application_to_call);
print $template->output();
exit;

##</code><code>##

<!-- snip -->
<frameset frameborder="no" framespacing="0" border="0" rows="80,*">
   <frame marginwidth="0" marginheight="0" scrolling="no" src="/logo_top.html">
   <frame name="main" src="<TMPL_VAR NAME="app">">
</frameset>
<!-- snip -->