2 # Building blocks of CGI's using the UCW::Temple template engine
3 # (c) 2010 Martin Mares <mj@ucw.cz>
5 package UCW::Temple::CGI;
15 our @ISA = qw(Exporter);
16 our @EXPORT = qw(out template html_template shipout);
17 our @EXPORT_OK = qw();
25 my ($string, $args) = @_;
26 UCW::Temple::process_string($string, $args);
29 sub html_template($$) {
30 my ($string, $args) = @_;
31 my %hargs = map { $_ => html_escape($args->{$_}) } keys %$args;
32 UCW::Temple::process_string($string, \%hargs);