version 1.52, 2001/10/18 17:59:41
|
version 1.53, 2001/12/04 15:32:57
|
Line 225 sub publish {
|
Line 225 sub publish {
|
} |
} |
my $outstring=''; |
my $outstring=''; |
my $parser=HTML::TokeParser->new(\$content); |
my $parser=HTML::TokeParser->new(\$content); |
|
$parser->xml_mode(1); |
my $token; |
my $token; |
while ($token=$parser->get_token) { |
while ($token=$parser->get_token) { |
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
my $counter; |
my $counter; |
my $tag=$token->[1]; |
my $tag=$token->[1]; |
unless ($tag eq 'allow') { |
my $lctag=$tag;$lctag=~/[A-Z]/[a-z]/g; |
|
unless ($lctag eq 'allow') { |
my %parms=%{$token->[2]}; |
my %parms=%{$token->[2]}; |
if ($counter=$addid{$tag}) { |
$counter=$addid{$tag}; |
|
if (!$counter) { $counter=$addid{$lctag}; } |
|
if ($counter) { |
if ($counter eq 'id') { |
if ($counter eq 'id') { |
unless (defined($parms{'id'})) { |
unless (defined($parms{'id'})) { |
$maxid++; |
$maxid++; |
Line 261 sub publish {
|
Line 265 sub publish {
|
} |
} |
} ('src','href','background'); |
} ('src','href','background'); |
|
|
if ($tag eq 'applet') { |
if ($lctag eq 'applet') { |
my $codebase=''; |
my $codebase=''; |
if (defined($parms{'codebase'})) { |
if (defined($parms{'codebase'})) { |
my $oldcodebase=$parms{'codebase'}; |
my $oldcodebase=$parms{'codebase'}; |