use strict;
use CGI qw/:standard/;

print header;

my ( $off_shift1, $off_shift2 );

my $date     = param("date")     || '';
my $employee = param("employee") || '';
my $sshift   = param("sshift")   || '';
my $eshift   = param("eshift")   || '';
my $name     = td( $employee );

# Calculate On shift hours and generate table cells
my $total_shift = $eshift - $sshift;
my $on_shift = td( 'd' )  x $total_shift; # ???

# Calculate Off Shift hours and generate cells
my $td = td('');

if ( $sshift > 7 and $sshift < 25 )
{
	$off_shift1 = $td x ( $sshift - 8 );
}

if ( $eshift > 7 and $eshift < 25 )
{
	$off_shift2 = $td x ( 24 - $eshift );
}

my $row = "$name$off_shift1$on_shift$off_shift2";