<code-perl>
if ($single)sub _skip_attrs
{
# Single bug my ($idtag, $attrs) = list @_; $ARGS->{id}tag = lc $tag; push @bugs, Bugzilla::Bug-return "<$tag>check" if $tag =~ m!^/!so; my ($idenclosed)= $attrs =~ m!/$!so ? ' /' : ''; if $attrs = { $attrs =~ /(defined [^\s=]+)=([^\s=\'\"]+|\"[^\"]*\"|\'[^\']*\')/gso }; my $ARGS->new = {mark}; for (qw(name id class style title))
{
foreach my $range (split ',', $ARGSnew->{mark$_}) { if (= $range =~ /^(\d+)attrs-(\d+)$/) >{ foreach my $i ($1..$2) { $marks{$i_} = 1; } } elsif (if $range =~ /^(\d+)$/) attrs->{ $marks{$1_} = 1; } }
}
my %l = (a => 'href', blockquote => 'cite', q => 'cite');
if ($attrs->{$l{$tag}} && $attrs->{$l{$tag}} !~ /^[\"\']?javascript/iso)
{
$new->{$l{$tag}} = $attrs->{$l{$tag}};
}
return "<$tag".join("", map { " $_=".$new->{$_} } keys %$new).$enclosed.">";
}
</code-perl>
* Спецсимволы захватили мир
== PHP @@ ==