#!/usr/bin/perl -w
use strict;
use warnings;
my %namelites = (
"Zin" => 1,
"Juggelo" => 1,
"Ulath" => 1,
);
my %specials = (
"[" => [ "[", "]", "mortal" ],
"{" => [ "{", "}", "raceldr" ],
"(" => [ "(", ")", "birther" ],
"<" => [ "<", ">", "wizard" ],
);
my %baselites = (
"sales" => "c1",
"nightlife+" => "c2",
"bat" => "c3",
"wanted" => "c4",
"mage" => "c4",
);
sub tq($)
{
my ($str) = @_;
$str =~ s/&/&/;
$str =~ s/</;
$str =~ s/>/>/;
$str =~ s/ä/ä/;
$str =~ s/ö/ö/;
$str =~ s/Ä/Ä/;
$str =~ s/Ö/Ö/;
return $str;
}
my ($b1, $b2, $qc, $bt);
sub update($$$)
{
my ($ctype, $chn, $name) = @_;
$qc = " class=\"c0\"";
if (defined($baselites{$chn}))
{
my $str = $baselites{$chn};
if (substr($str, 0, 1) eq "#")
{
$qc = " style=\"color: ".$str."\"";
}
else
{
$qc = " class=\"".$str."\"";
}
}
if (defined($specials{$ctype}))
{
$b1 = $specials{$ctype}[0];
$b2 = $specials{$ctype}[1];
$bt = " class=\"".$specials{$ctype}[2]."\"";
}
else
{
$bt = $b1 = $b2 = "";
}
if (defined($namelites{$name}))
{
$qc = $bt;
}
}
sub span($$)
{
print "".tq($_[1])."
\n";
}
print << 'EOT';