#!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp 'fatalsToBrowser'; my $template_dir = '/path/to/template_dir'; my $q=CGI->new(); if ( $q->param() ) { show_template(); } else { show_form(); } sub show_template { my $template = $q->param('template'); open(TMPL,"$template_dir/$template") || die $!; my $content = join '',(<TMPL>); close(TMPL); $content =~ s/<TMPL[^>]*>//gs; print $q->header(), $content; exit(0); } sub show_form { print $q->header, $q->start_html, $q->start_form, 'Template: ', $q->textfield('template'), $q->submit, $q->end_form, $q->end_html; exit(0); }
That way, you can set up a checkbox like this:
<input type="checkbox" name="foo" <TMP_VAR NAME=FOOCHECKED>>
where FOOCHECKED is either '' or 'checked'
Note - obviously I assume here you know how to taint check if this is on a live server (or to use an IP check to limit access etc) - this is just a rough outline.
.02
cLive ;-)
In reply to Re: Browser-viewable HTML::Template templates
by cLive ;-)
in thread Browser-viewable HTML::Template templates
by dws
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |