|< 1 2 >| | 11 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
sub setup {
my $self = shift;
$self->start_mode('mode1');
$self->mode_param('rm');
$self->error_mode('sub_fehler');
$self->run_modes(
'mode1' => 'sub_a',
'mode2' => 'sub_b',
'mode3' => 'sub_c',
);
}
1
2
3
4
5
6
7
8
9
10
11
12
sub cgiapp_prerun{
my ($self) = @_;
my $mode = $self->query()->param('mode');
print qq~Content-type: text/html
<html>
<body>
<h1>Fataler Fehler *fg*</h1>
</body>
</html>~;
exit(0);
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub cgiapp_prerun{
my ($self) = @_;
my $mode = $self->query()->param('mode');
unless($self->can($mode)){
print qq~Content-type: text/html
<html>
<body>
<h1>Fataler Fehler *fg*</h1>
</body>
</html>~;
exit(0);
}
}
|< 1 2 >| | 11 Einträge, 2 Seiten |