Партнёры:
Хостинг:
Template::FAQ - Frequently Asked Questions about the Template Toolkit
[% a = (b IF c) %]
Do this instead:
[% SET a = b IF c %]
[% stag = "[\%"
etag = "%\]"
%]
and then:
[% stag; 'hello'; etag %]
Or something like:
[% TAGS [- -] %] [- INCLUDE foo -] # is a directive [% INCLUDE foo %] # not a directive, just plain text, passed through
[% FOREACH key = product.keys %]
[% key %] => [% product.$key %]
[% END %]
Steve Karen Jeff
Brooklyn Nantucket Fairfax
NY MA VA
[% USE table(data, rows=3) %]
Then ask for each column
[% FOREACH column = table.cols %]
And then print each item in the column going across the output rows
[% FOREACH item = column %]
<td>[% item %]</td>
[% END %]
Does anyone have a quick-n-dirty approach to accessing
cookies from templates?
Jonas Liljegren answers:
[% USE CGI %]
<p>The value is [% CGI.cookie('cookie_name') | html %]
use Template::Provider::HTTP;
my $file = Template::Provider( INCLUDE_PATH => [...] );
my $http = Template::Provider::HTTP->new(...);
my $tt2 = Template->new({
LOAD_TEMPLATES => [ $file, $http ],
PREFIX_MAP => {
file => '0', # file:foo.html
http => '1', # http:foo.html
default => '0', # foo.html => file:foo.html
}
});
Now a template specified as:
[% INCLUDE foo %]
will be served by the 'file' provider (the default). Otherwise you can explicitly add a prefix:
[% INCLUDE file:foo.html %]
[% INCLUDE http:foo.html %]
[% INCLUDE http://www.xyz.com/tt2/header.tt2 %]
This same principal can be used to create a DBI template provider. e.g.
[% INCLUDE dbi:foo.html %]
But similarly, alas, we don't yet have a DBI provider as part of the Template Toolkit. There has been some talk on the mailing list about efforts to develop DBI and/or HTTP providers but as yet no-one has stepped forward to take up the challenge...
In the mean time, Craig's post from the mailing list has some useful pointers on how to acheive this using existing modules:
To: Adam Theo <adamtheo@theoretic.com>
From: Craig Barratt <craig@arraycomm.com>
Date: Fri, 18 May 2001 17:06:59 -0700
> i was wondering if there is anyway to fetch a file using http:// or
> ftp:// and include that?
Here's one way. Set the LOAD_PERL option:
use Template;
my $template = Template->new({
LOAD_PERL => 1
});
$template->process("example.tt", { stdout => *STDOUT })
|| die $template->error();
and then use LWP::UserAgent and HTTP::Request:
[%
USE ua = LWP.UserAgent;
ua.proxy("http", "http://your_proxy/");
USE req = HTTP.Request("GET", "http://www.cpan.org");
ua.request(req).content;
-%]
For FTP use Net::FTP:
[%
USE ftp = Net.FTP("ftp.cpan.org");
x = ftp.login("anonymous", "me@here.there");
x = ftp.cwd("/");
x = ftp.get("welcome.msg", stdout);
x = ftp.quit;
-%]
Normally ftp.get would write the file into the current directory.
Instead we pass stdout as a second argument so that it is written
to stdout. We set stdout to STDOUT in the variables we pass to
process.
Craig
For example, my setup usually looks something like this:
PRE_PROCESS => 'config/main'
config/main:
[% DEFAULT style = 'text'
section = template.section or 'home';
PROCESS config/site
+ config/urls
+ config/macros
+ "config/style/$style"
+ "config/section/$section"
+ ...
%]
This allows me to set a single 'style' variable to control which config file gets pre-processed to set my various style options (colours, img paths, etc). For example:
config/style/basic:
[% style = {
name = style # save existing 'style' var as 'style.name'
# define various other style variables....
col = {
back => '#ffffff'
text => '#000000'
# ...etc...
}
logo = {
# ...etc...
}
# ...etc...
}
%]
Each source template can declare which section it's in via a META directive:
[% META
title = 'General Information'
section = 'info'
%]
...
This controls which section configuration file gets loaded to set various other variables for defining the section title, menu, etc.
config/section/info:
[% section = {
name = section # save 'section' var as 'section.name'
title = 'Information'
menu = [ ... ]
# ...etc...
}
%]
This illustrates the basic principal but you can extend it to perform pretty much any kind of per-document initialisation that you require.
<http://www.andywardley.com/|http://www.andywardley.com/>
Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved. Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|
Закладки на сайте Проследить за страницей |
Created 1996-2024 by Maxim Chirkov Добавить, Поддержать, Вебмастеру |