This is an automated email from the git hooks/post-receive script. fsfs pushed a commit to annotated tag release/0.09 in repository libhtml-scrubber-perl.
commit 365b222a87ddd6f91b95c0a3919e81b86cfdaf91 Author: Nigel Metheringham <[email protected]> Date: Fri Apr 1 16:10:45 2011 +0100 Stripped trailing # in examples Resolves CPAN RT #24785 --- lib/HTML/Scrubber.pm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/lib/HTML/Scrubber.pm b/lib/HTML/Scrubber.pm index 17cdf63..68e69e1 100644 --- a/lib/HTML/Scrubber.pm +++ b/lib/HTML/Scrubber.pm @@ -598,9 +598,9 @@ the default attribute rule is applied. #!/usr/bin/perl -w use HTML::Scrubber; use strict; - # + my @allow = qw[ br hr b a ]; - # + my @rules = ( script => 0, img => { @@ -609,7 +609,7 @@ the default attribute rule is applied. '*' => 0, # deny all other attributes }, ); - # + my @default = ( 0 => # default rule, deny all tags { @@ -644,13 +644,13 @@ the default attribute rule is applied. 'type' => 0, } ); - # + my $scrubber = HTML::Scrubber->new(); $scrubber->allow( @allow ); $scrubber->rules( @rules ); # key/value pairs $scrubber->default( @default ); $scrubber->comment(1); # 1 allow, 0 deny - # + ## preferred way to create the same object $scrubber = HTML::Scrubber->new( allow => \@allow, @@ -659,9 +659,9 @@ the default attribute rule is applied. comment => 1, process => 0, ); - # + require Data::Dumper,die Data::Dumper::Dumper($scrubber) if @ARGV; - # + my $it = q[ <?php echo(" EVIL EVIL EVIL "); ?> <!-- asdf --> <hr> @@ -675,7 +675,7 @@ the default attribute rule is applied. </A> </A> <br> ]; - # + print "#original text",$/, $it, $/; print "#scrubbed text (default ", @@ -688,10 +688,10 @@ the default attribute rule is applied. $/, $scrubber->scrub($it), $/; - # + $scrubber->default(1); # allow all tags by default $scrubber->comment(0); # deny comments - # + print "#scrubbed text (default ", $scrubber->default(), @@ -703,12 +703,12 @@ the default attribute rule is applied. $/, $scrubber->scrub($it), $/; - # + $scrubber->process(1); # allow process instructions (dangerous) $default[0] = 1; # allow all tags by default $default[1]->{'*'} = 0; # deny all attributes by default $scrubber->default(@default); # set the default again - # + print "#scrubbed text (default ", $scrubber->default(), -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libhtml-scrubber-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
