|
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
package Header;
use strict;
sub new {
my ($class, $title, $css) = @_;
my $self = {};
bless $self, $class;
$self->{html} = '';
return $self if (($ENV{SERVER_PROTOCOL} || '') eq 'INCLUDED');
$title ||= '';
$css ||= '';
if ($css) {
$css = qq {<style type="text/css"><!--
$css
--></style>
};
};
$self->{'html'} = <<END_HTML;
<html>
<head>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META name="description"
content="Calcium Web Calendar - Brown Bear Software http://www.brownbearsw.com">
<META name="keywords"
content="web calendar, calendar, calendar server, Brown Bear Software">
<META name="generator"
content="Calcium Web Calendar - Brown Bear Software http://www.brownbearsw.com">
<title>$title</title>
$css
</head>
END_HTML
$self;
}
sub getHTML {
my $self = shift;
$self->{'html'};
}
1;