|< 1 2 >| | 16 Einträge, 2 Seiten |
QuoteCan't locate loadable object for module Filter::Util::Call in @INC (@INC contains: /lib/perl5/5.6.1/i686-linux /lib/perl5/5.6.1 /lib/perl5/site_perl/5.6.1/i686-linux /lib/perl5/site_perl/5.6.1 /lib/perl5/site_perl . /htdocs/www/modules) at /htdocs/www/modules/Switch.pm line 11
Compilation failed in require at /htdocs/www/modules/Switch.pm line 11.
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
use vars qw(%Actions);
%Actions = (
read => {
subroutine => \&ReadData,
template => 'readData_template',
},
sendmail => {
subroutine => \&SendMail,
template => 'sendMail_template',
},
# ....
default => {
subroutine => \&Default,
template => 'startPage_template',
},
); # Actions
my $cgi = CGI->new();
my $action = $cgi->param('action') || 'default';
if (exists $Actions{$action}->{subroutine} ) {
$Actions{$action}->{subroutine}->($cgi, $action);
}
else {
$Actions{default}->{subroutine}->($cgi, $action);
}
|< 1 2 >| | 16 Einträge, 2 Seiten |