#!/usr/bin/perl

use strict;
use warnings;
use MyWebapp;

my $webapp = MyWebapp->new();
$webapp->run();

package MyWebapp;

use base qw(CGI::Application::Plugin::HTCompiled CGI::Application);

sub setup{
    my ($self) = @_;
    $self->{template} = '/path/to/template.tmpl';
    $self->mode_param('rm');
    $self->start_mode('show_site');
    $self->run_modes(show_site      => \&_show_site,
                        AUTORUN        => \&_show_site,
                  login          => \&_admin_login,
           );
}# setup

sub _show_site{
   my ($self) = @_;
   my $tmpl = $self->load_tmpl($self->{template});
   $tmpl->param(body_tmpl => 'show_site.tmpl');

   # hole die Sachen für das Haupttempalte und das Seitenspezifische Template
   return $tmpl->output();
}

sub _admin_login{
   my ($self) = @_;
   my $tmpl = $self->load_tmpl($self->{template});
   $tmpl->param(body_tmpl => 'admin_login.tmpl');

   # hole die Sachen für das Haupttempalte und das Seitenspezifische Template
   return $tmpl->output();
}

1;