X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/c752deb389730ae56c25888e6b82c89e30060ec9..3e5f525985e4357d65f2c3aab4f502107408d5c8:/modules/Output.pm diff --git a/modules/Output.pm b/modules/Output.pm index be4837f..cd4e53e 100644 --- a/modules/Output.pm +++ b/modules/Output.pm @@ -6,18 +6,18 @@ package Output; # HTML generating routines # # Author: Patrick Canterino -# Last modified: 2004-11-26 +# Last modified: 2005-04-22 # use strict; use vars qw(@EXPORT); -use CGI qw(header); -use Tool; +use CGI qw(header + escape); -use HTML::Entities; use Template; +use Tool; ### Export ### @@ -47,6 +47,7 @@ sub error_template($) # # Params: 1. Error message # 2. Display a link to this path at the bottom of the page (optional) +# Please use the unencoded form of the string! # 3. Hash reference: Template variables (optional) # # Return: Formatted message (Scalar Reference) @@ -58,13 +59,14 @@ sub error($;$$) my $tpl = new Template; $tpl->read_file($tpl_error); - $tpl->fillin("ERROR",$message); - $tpl->fillin("BACK",$path); - $tpl->fillin("SCRIPT",encode_entities($ENV{'SCRIPT_NAME'})); + $tpl->fillin('ERROR',$message); + $tpl->fillin('BACK',encode_html($path)); + $tpl->fillin('BACK_URL',escape($path)); + $tpl->fillin('SCRIPT',encode_html($ENV{'SCRIPT_NAME'})); - $tpl->parse_if_block("dir",defined $path); + $tpl->parse_if_block('dir',defined $path); - if(ref($vars) eq "HASH") + if(ref($vars) eq 'HASH') { while(my ($key,$value) = each(%$vars)) { @@ -72,7 +74,7 @@ sub error($;$$) } } - my $output = header(-type => "text/html"); + my $output = header(-type => 'text/html'); $output .= $tpl->get_template; return \$output;