Apache2-ModProxyPerlHtml
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
ModProxyPerlHtml.pm view on Meta::CPAN
return Apache2::Const::OK;
}
sub link_replacement
{
my ($data, $pattern, $replacement, $uri, $rot13elements) = @_;
return if (!$$data);
my $old_terminator = $/;
$/ = '';
my %TODOS = ();
my %ROT13TODOS = ();
my $i = 0;
# Detect parts that need to be deobfuscated before replacement
if (defined $rot13elements)
{
if ($rot13elements ne 'All') {
foreach my $tag (keys %{$rot13elements}) {
while ($$data =~ s/(<$tag\s+[^>]*\b$rot13elements->{$tag}=['"\s]*)([^'"\s>]+)([^>]*>)/ROT13REPLACE_$i\$\$/i) {
view all matches for this distributionview release on metacpan - search on metacpan
( run in 2.676 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )