|
Lines 30-48
BEGIN {
Link Here
|
| 30 |
# @ISA = qw(HTML::Scrubber); |
30 |
# @ISA = qw(HTML::Scrubber); |
| 31 |
} |
31 |
} |
| 32 |
|
32 |
|
| 33 |
INIT { |
33 |
|
| 34 |
%scrubbertypes = ( |
34 |
my %scrubbertypes = ( |
| 35 |
default => {}, # place holder, default settings are below as fallbacks in call to constructor |
35 |
default => {}, # place holder, default settings are below as fallbacks in call to constructor |
| 36 |
tag => {}, # uses defaults |
36 |
tag => {}, # uses defaults |
| 37 |
comment => { |
37 |
comment => { |
| 38 |
allow => [qw( br b i em big small strong )], |
38 |
allow => [qw( br b i em big small strong )], |
| 39 |
}, |
39 |
}, |
| 40 |
staff => { |
40 |
staff => { |
| 41 |
default => [ 1 =>{'*'=>1} ], |
41 |
default => [ 1 =>{'*'=>1} ], |
| 42 |
comment => 1, |
42 |
comment => 1, |
| 43 |
}, |
43 |
}, |
| 44 |
); |
44 |
); |
| 45 |
} |
|
|
| 46 |
|
45 |
|
| 47 |
|
46 |
|
| 48 |
sub new { |
47 |
sub new { |