A.1. body
UserTag body PosNumber 2
UserTag body Order type extra
UserTag body Routine <<EOR
use vars qw($C);
sub parse_color {
my ($var, $value) = @_;
return '' unless $value;
$var = lc $var;
$C->{Color}->{$var} = [];
@{$C->{'Color'}->{$var}} = split /\s+/, $value;
return $value;
}
sub {
my($scheme, $extra) = @_;
my $r = '<BODY';
my ($var,$tag);
#return '<BODY>' unless (int($scheme) < 16 and int($scheme) > 1);
my %color = qw( mv_bgcolor BGCOLOR mv_textcolor TEXT
mv_linkcolor LINK mv_vlinkcolor VLINK
mv_alinkcolor ALINK mv_background BACKGROUND );
if (defined $::Values->{mv_resetcolors}
and $::Values->{mv_resetcolors}) {
delete $::Values->{mv_customcolors};
undef $::Values->{mv_resetcolors};
}
if (defined $::Values->{mv_customcolors}) {
foreach $var (keys %color) {
$r .= qq| $color{$var}="| . $::Values->{$var} . '"'
if $::Values->{$var};
}
}
else {
foreach $var (keys %color) {
$r .= qq| $color{$var}="| . ${$Vend::Cfg->{Color}->{$var}}[$scheme] . '"'
if defined ${$Vend::Cfg->{Color}->{$var}}[$scheme]
&& ${$Vend::Cfg->{Color}->{$var}}[$scheme] !~ /\bnone\b/;
}
}
$r =~ s#(BACKGROUND="(?!http:))([^/])#$1$Vend::Cfg->{ImageDir}$2#;
$r .= " $extra" if defined $extra;
$r .= '>';
}
EOR
AddDirective Mv_Background color
AddDirective Mv_BgColor color
AddDirective Mv_TextColor color
AddDirective Mv_LinkColor color
AddDirective Mv_AlinkColor color
AddDirective Mv_VlinkColor color