/usr/share/perl5/HTML/Mason/Escapes.pm is in libhtml-mason-perl 1:1.54-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | # Copyright (c) 1998-2005 by Jonathan Swartz. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# A library of escape subroutines to be used for substitution escaping
#
package HTML::Mason::Escapes;
{
$HTML::Mason::Escapes::VERSION = '1.54';
}
use strict;
use warnings;
use HTML::Entities ();
my %html_escape = ('&' => '&', '>'=>'>', '<'=>'<', '"'=>'"');
my $html_escape = qr/([&<>"])/;
sub basic_html_escape
{
return unless defined ${ $_[0] };
${ $_[0] } =~ s/$html_escape/$html_escape{$1}/mg;
}
sub html_entities_escape
{
return unless defined ${ $_[0] };
HTML::Entities::encode_entities( ${ $_[0] } );
}
sub url_escape
{
return unless defined ${ $_[0] };
use bytes;
${ $_[0] } =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
}
1;
__END__
=pod
=head1 NAME
HTML::Mason::Escapes - Functions to escape text for Mason
=head1 VERSION
version 1.54
=head1 DESCRIPTION
This module contains functions for implementing Mason's L<substitution
escaping|HTML::Mason::Devel/Escaping expressions> feature. These
functions may also be called directly.
=over 4
=item html_entities_escape
This function takes a scalar reference and HTML-escapes it using the
C<HTML::Entities> module. By default, this module assumes that the
string it is escaping is in ISO-8859-1 (pre Perl 5.8.0) or UTF-8 (Perl
5.8.0 onwards). If this is not the case for your data, you will want
to override this escape to do the right thing for your encoding. See
the section on L<User-defined Escapes in the Developer's
Manual|HTML::Mason::Devel/User-defined Escapes> for more details on
how to do this.
=item url_escape
This takes a scalar reference and replaces any text it contains
matching C<[^a-zA-Z0-9_.-]> with the URL-escaped equivalent, a percent
sign (%) followed by the hexadecimal number of that character.
=item basic_html_escape
This function takes a scalar reference and HTML-escapes it, escaping
the following characters: '&', '>', '<', and '"'.
It is provided for those who wish to use it to replace (or supplement)
the existing 'h' escape flag, via the Interpreter's L<C<set_escape()>
method|HTML::Mason::Interp/item_set_escape>.
This function is provided in order to allow people to return the HTML
escaping behavior in 1.0x. However, this behavior presents a
potential security risk of allowing cross-site scripting attacks.
HTML escaping should always be done based on the character set a page
is in. Merely escaping the four characters mentioned above is not
sufficient. The quick summary of why is that for some character sets,
characters other than '<' may be interpreted as a "less than" sign,
meaning that just filtering '<' and '>' will not stop all cross-site
scripting attacks. See
http://www.megasecurity.org/Info/cross-site_scripting.txt for more
details.
=back
=head1 SEE ALSO
L<Mason|Mason>
=head1 AUTHORS
=over 4
=item *
Jonathan Swartz <swartz@pobox.com>
=item *
Dave Rolsky <autarch@urth.org>
=item *
Ken Williams <ken@mathforum.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Jonathan Swartz.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|