|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/compasssysweb/calendar/CalciumDir39/Calendar/ |
Upload File : |
# Copyright 1999-2003, Fred Steinberg, Brown Bear Software
# Body - A Body consists of everything between the <body> and </body> tags
# (inclusive). The sub-elements take care of generating their own HTML, of
# course.
package Body;
use strict;
sub new {
my $class = shift;
my ($prefs, @children) = @_;
my $self = {};
bless $self, $class;
if (($ENV{SERVER_PROTOCOL} || '') eq 'INCLUDED') {
$self->{html} = '';
} else {
# OK, first create the <body> tag, with some specified colors.
my $vlink = $prefs->color ('VLinkFG');
$vlink = defined $vlink ? "vlink=\"$vlink\"" : '';
$self->{'html'} = '<body text="' . $prefs->color ('MainPageFG') . '"' .
$vlink .
'link="' . $prefs->color ('LinkFG') . '" ';
if (defined $prefs->BackgroundImage) {
$self->{'html'} .= 'background="' . $prefs->BackgroundImage . '"'
unless ($prefs->PrintPrefs &&
!$prefs->PrintPrefs->background);
} else {
$self->{html} .= 'bgcolor="' . $prefs->color ('MainPageBG') . '"';
}
$self->{'html'} .= ">\n";
}
# get HTML for children
foreach (@children) {
$self->{'html'} .= ($_->getHTML() || '') if defined $_;
}
$self;
}
sub getHTML {
my $self = shift;
$self->{'html'};
}
1;