my $txtree = str2tree($text);
for my $badtag
("script","style","head","html","object","embed","iframe","frameset","frame",
($forum->{forbid_tags}?split(/\s*,\s*/,$forum->{forbid_tags}):())) {
for my $element ($txtree->find_by_tag_name($badtag)) {
$element->delete() if defined $element;
my $txtree = str2tree($text);
for my $badtag
("script","style","head","html","object","embed","iframe","frameset","frame",
($forum->{forbid_tags}?split(/\s*,\s*/,$forum->{forbid_tags}):())) {
for my $element ($txtree->find_by_tag_name($badtag)) {
$element->delete() if defined $element;