# Copyright 1999-2003, Fred Steinberg, Brown Bear Software

package Footer;
use strict;

sub new {
    my $class = shift;
    my ($prefs) = @_;
    my $self = {};
    bless $self, $class;

    my $footer = $prefs->Footer;
    unless ($footer) {
        $self->{'html'} = '';
        return $self unless $footer;
    }
    my $footerAlign = $prefs->FooterAlignment || 'center';
    my $footerBG    = $prefs->color ('FooterBG');
    my $footerFG    = $prefs->color ('FooterFG');

    $footer =~ s/\n/<br>/g unless ($footer =~ /<[^>]*>/);

    my $bg = $footerBG ? "bgcolor=\"$footerBG\"" : '';
    if ($footerFG) {
        $footer = "<font color=\"$footerFG\">$footer</font>";
    }

    $self->{'html'} = <<END_HTML;
<center>
<table width="100%" border=0 cellspacing=0>
  <tr><td align=$footerAlign $bg>$footer</td></tr>
</table>\n
</center>
END_HTML

    $self;
}

sub getHTML {
    my $self = shift;
    $self->{'html'};
}

1;