package dutil;

use strict;
require Exporter;

use Date::Calc qw(Day_of_Week);

@dutil::ISA = qw(Exporter);
@dutil::EXPORT = qw(getclass);

sub getclass {
    my ($y, $m, $d, $c) = @_;
    my $dow = Day_of_Week($y, $m, $d);
    if (!defined($c) || $c eq '') {
	return ' CLASS="holiday"' if ($dow == 7);
	return ' CLASS="saturday"' if ($dow == 6);
    } else {
	return ' CLASS="holiday"' if $c eq 'holiday';
    }
    return '';
}

1;

# end of dutil.pm