|< 1 2 >| | 20 Einträge, 2 Seiten |
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
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use HTML::Template::Compiled;
my $cgi = CGI->new();
my %params = $cgi->Vars();
my %func_pool = (SHOW_MEMBERS => [\&show_members, 'member.tmpl'],
SHOW_NEWS => [\&show_news,'news.tmpl'],
);
my $template = HTML::Template::Compiled->new(filename => '/path/to/file.tmpl');
for(keys(%params)){
if(exists $func_pool{$_}){
$template->param($_ => $func_pool{$_}->[1]);
$template->param($_.'TMPL' => $func_pool{$_}->[0]->());
}
}
sub show_members{
my $select = q~SELECT name FROM members~;
my $sth = $dbh->prepare($select) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();
my @members;
while(my ($name) = $sth->fetchrow_array()){
push(@members,{NAME => $name});
}
$sth->finish();
return [@members];
}
|< 1 2 >| | 20 Einträge, 2 Seiten |