[if !session admin] [or !session logged_in] [then] [set ui_error]Must be logged in as admin.[/set] [bounce page="__UI_BASE__/error"] [/then] [/if] [if !cgi good_template] [set ui_error]Not a good template -- must enter from template editor.[/set] [bounce page="__UI_BASE__/error"] [/if] [perl] delete $Scratch->{bounce_url}; my @filters = grep /^ui_filter:/, keys %$CGI; foreach my $key (@filters) { my $val = delete $CGI->{$key}; $key =~ s/ui_filter://; next unless $val; next unless defined $CGI->{$key}; $CGI->{$key} = $Tag->filter($val, $CGI->{$key}, $key); } sub bleach_it { my $val = shift; $val =~ s/\W+/_/g; $val =~ s/_+/_/g; return lc($val); } my $t_name = bleach_it($CGI->{ui_template_name}); if (!$t_name) { $Scratch->{ui_error} = errmsg("No template name given."); return; } my $compdir = $Variable->{UI_COMPONENT_DIR} || 'templates/components'; my $top = $Tag->filter('textarea_get', $CGI->{ui_template_top}); my $bot = $Tag->filter('textarea_get', $CGI->{ui_template_bot}); $top =~ s~