[Bast-commits] r6237 - ironman/plagger/lib/Plagger

[penfold at dev.catalyst.perl.org]

Author: penfold
Date: 2009-05-12 19:49:38 +0000 (Tue, 12 May 2009)
New Revision: 6237

Modified:
   ironman/plagger/lib/Plagger/Text.pm
Log:
Add HTML::Scrubber to html method

Modified: ironman/plagger/lib/Plagger/Text.pm
===================================================================
--- ironman/plagger/lib/Plagger/Text.pm	2009-05-12 19:21:58 UTC (rev 6236)
+++ ironman/plagger/lib/Plagger/Text.pm	2009-05-12 19:49:38 UTC (rev 6237)
@@ -1,5 +1,6 @@
 package Plagger::Text;
 use strict;
+
 use base qw( Class::Accessor::Fast );
 __PACKAGE__->mk_accessors(qw( type data ));
 
@@ -8,6 +9,7 @@
 use HTML::Tagset;
 use Plagger::Util;
 use HTML::Truncate;
+use HTML::Scrubber;
 
 sub new {
     my($class, %param) = @_;
@@ -47,7 +49,10 @@
 sub html {
     my $self = shift;
     if ($self->is_html) {
-        return $self->data;
+        my $scrubber = HTML::Scrubber->new();
+        $scrubber->style(1);
+        $scrubber->script(1);
+        return $scrubber->scrub($self->data);
     } else {
         Plagger::Util::encode_xml($self->data);
     }