Re^2: Abstracting away layout details when using large HTML::Template-based sites?

in reply to Re: Abstracting away layout details when using large HTML::Template-based sites?
in thread Abstracting away layout details when using large HTML::Template-based sites?

Thanks for the reply, as you suggest my content will be coming from an external source, along with all other page data. In this case it will be coming from a database.

Your solution of moving things around doesn't really apply terribly well when I consider how I would be using this in practise I'm afraid.

For the simple case which I've presented it does work fine, but the general problem of recursively expanding templates doesn't.

One thing that I notice is if you have a layout.tmpl like this:

<html>
 <head>
  <title><!-- tmpl_var name='title' --></title> 
 </head>
 <body>
  <!-- tmpl_include name='page.inc' -->
 </body>
</html>
[download]

Things work! The page.inc containing:

<h2><!-- tmpl_var name='title' --></h2>
[download]

Is correctly processed via this code:

my $template = HTML::Template->new( filename => 'layout.tmpl' );
$template->param( title => "Steve" );
print $template->output();
[download]

So suddenly my problem is reduced to including variable files! Unfortunately a similar lack of recusive support means this doesn't work:

 <!-- tmpl_include name='<!-- tmpl_var name='filename' -->'>
[download]

But via a filter I can get this same aim:


#
#  Replace ### with environmental variable variable 'page'
#
sub filter {
    my ($text_ref ) = shift;
    my $val = $ENV{'page'};
    $$text_ref =~ s/###/$val/g;
};


#
#  Load 'layout.tmpl' - and have that include 'page.inc'.
#
#  THis will expand the following in *both* files!
#
#  <!-- tmpl_var name='title' --> 
#
#
$ENV{'page'} = 'page.inc';
my $template = HTML::Template->new(filename => 'layout.tmpl',
                                   filter => \&filter );
$template->param( title => "Something here" );

print $template->output();
[download]

I don't know whether to feel pleased or dirty ..

Steve
--

In Section Seekers of Perl Wisdom