Thread Module von Hand installieren: Auf nem Webspace (15 answers)
Opened by format_c at 2003-12-03 10:51

Strat
 2003-12-04 13:43
#48462 #48462
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
ich verwende da gerne sowas wie das folgende:
Code: (dl )
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);
}

Vielleicht %Actions noch in ein eigenes Package auslagern, z.B. MySite::Config, und die Subroutine in ein anderes Package (z.B. MySite::Actions) sammeln, dann bekommst du ein wenig Ordnung rein.

Interessant koennte auch CPAN:CGI::Application fuer dich sein
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View full thread Module von Hand installieren: Auf nem Webspace