return (defined($_[0]));
}
+my %html_quote = (
+ q{&} => '&',
+ q{<} => '<',
+ q{>} => '>',
+ q{"} => '"',
+ q{@} => '@', # Obscure '@'.
+);
+
# Bug 120030: Override html filter to obscure the '@' in user
# visible strings.
# Bug 319331: Handle BiDi disruptions.
sub html_quote {
my $var = shift;
- $var =~ s/&/&/g;
- $var =~ s/</</g;
- $var =~ s/>/>/g;
- $var =~ s/"/"/g;
- # Obscure '@'.
- $var =~ s/\@/\@/g;
+ $var =~ s/([&<>"@])/$html_quote{$1}/g;
state $use_utf8 = Bugzilla->params->{'utf8'};