|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ivan Frolcov 2:5020/175.2 21 Apr 2004 18:29:00
To : Yury Kopyl
Subject : Re: OOP perl
--------------------------------------------------------------------------------
Wed Apr 21 2004 17:47, Yury Kopyl wrote to Ivan Frolcov:
YK>>> Шаблон как рисует возвращаемое значение?
IF>> Hу, в данном случае это Template Toolkit. Возьми и посмотри, как он
IF>> рисует.
YK> Приведи код, если это не трудно
if($q->param('action') =~ /^do/){
my $res;
eval {
$res = &{'ext_' . $q->param('action')};
};
dnice($@,1) if $@;
if(ref $res){
print $q->redirect(@$res);
exit;
}
}
my %vals = map { $_ => $q->param($_) } $q->param;
eval {
%vals = ( %vals, &{'ext_' . $q->param('action')} );
};
dnice($@) if $@;
if (ref $q->param('redirect') ){
print $q->redirect(@{ $q->param('redirect') });
exit;
}
print $q->header( -type => 'text/html',
-charset => 'koi8-r');
my $tt= Template->new( INCLUDE_PATH => $cfg->templates,
INTERPOLATE => 1 );
$tt->process($q->param('action').'.tmpl', \%vals ) or dnice "Error!" .
$tt->error;
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по:
|
