|< 1 2 >| | 20 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use warnings;
use MyWebapp;
my $webapp = MyWebapp->new();
$webapp->run();
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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;
|< 1 2 >| | 20 Einträge, 2 Seiten |