![]() ![]() | ![]() |
version 1.54, 2001/12/04 15:34:57 | version 1.55, 2001/12/04 18:10:37 |
---|---|
Line 256 sub publish { | Line 256 sub publish { |
if ($token->[0] eq 'S') { | if ($token->[0] eq 'S') { |
my $counter; | my $counter; |
my $tag=$token->[1]; | my $tag=$token->[1]; |
my $lctag=$tag;$lctag=~/[A-Z]/[a-z]/g; | my $lctag=$tag;$lctag=~s/[A-Z]/[a-z]/g; |
unless ($lctag eq 'allow') { | unless ($lctag eq 'allow') { |
my %parms=%{$token->[2]}; | my %parms=%{$token->[2]}; |
$counter=$addid{$tag}; | $counter=$addid{$tag}; |