eval q{use HTML::Scrubber};
error($@) if $@;
# Lists based on http://feedparser.org/docs/html-sanitization.html
+ # With html 5 video and audio tags added.
$_scrubber = HTML::Scrubber->new(
allow => [qw{
a abbr acronym address area b big blockquote br
menu ol optgroup option p pre q s samp select small
span strike strong sub sup table tbody td textarea
tfoot th thead tr tt u ul var
+ video audio
}],
default => [undef, { (
map { $_ => 1 } qw{
selected shape size span src start summary
tabindex target title type usemap valign
value vspace width
+ poster autoplay loopstart loopend end
+ playcount controls
} ),
"/" => 1, # emit proper <hr /> XHTML
}],