in reply to Browser-viewable HTML::Template templates
#!/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 ;-)
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Browser-viewable HTML::Template templates
by Aristotle (Chancellor) on Jan 12, 2003 at 14:48 UTC | |
|
Re: Re: Browser-viewable HTML::Template templates
by dws (Chancellor) on Jan 12, 2003 at 17:51 UTC |