#!/usr/bin/perl -w
########################################
# Work Schedule Chart Generator Version 0.01
# By Nick Lafferty
#
########################################
#use CGI::Carp qw(fatalsToBrowser);
#warn "this is a complaint";
#die "But this is serious";
#use strict;
use CGI qw/:standard/;
print header;
my ($employee, $date, $sshift, $eshift, $total_shift, $on_shift, $td, $off_shift1, $off_shift2, $name);
$date = param("date");
$employee = param("employee");
$sshift = param("sshift");
$eshift = param("eshift");
$name = "| $employee | ";
# Calculate On shift hours and generate table cells
$total_shift = $eshift - $sshift;
$on_shift = "d | " x $total_shift;
# Calculate Off Shift hours and generate cells
$td = " | ";
if ($sshift eq "8"){
$off_shift1 = "";
}elsif ($sshift eq "9"){
$off_shift1 = "$td";
}elsif ($sshift eq "10"){
$off_shift1 = "$td$td";
}elsif ($sshift eq "11"){
$off_shift1 = "$td$td$td";
}elsif ($sshift eq "12"){
$off_shift1 = "$td$td$td$td";
}elsif ($sshift eq "13"){
$off_shift1 = "$td$td$td$td$td";
}elsif ($sshift eq "14"){
$off_shift1 = "$td$td$td$td$td$td";
}elsif ($sshift eq "15"){
$off_shift1 = "$td$td$td$td$td$td$td";
}elsif ($sshift eq "16"){
$off_shift1 = "$td$td$td$td$td$td$td$td";
}elsif ($sshift eq "17"){
$off_shift1 = "$td$td$td$td$td$td$td$td$td";
}elsif ($sshift eq "18"){
$off_shift1 = "$td$td$td$td$td$td$td$td$td$td";
}elsif ($sshift eq "19"){
$off_shift1 = "$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($sshift eq "20"){
$off_shift1 = "$td$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($sshift eq "21"){
$off_shift1 = "$td$td$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($sshift eq "22"){
$off_shift1 = "$td$td$td$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($sshift eq "23"){
$off_shift1 = "$td$td$td$td$td$td$td$td$td$td$td$td$td$td$td";
}else{
$off_shift1 = "$td$td$td$td$td$td$td$td$td$td$td$td$td$td$td$td";
}
if ($eshift eq "8"){
$off_shift2 = "$td$td$td$td$td$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "9"){
$off_shift2 = "$td$td$td$td$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "10"){
$off_shift2 = "$td$td$td$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "11"){
$off_shift2 = "$td$td$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "12"){
$off_shift2 = "$td$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "13"){
$off_shift2 = "$td$td$td$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "14"){
$off_shift2 = "$td$td$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "15"){
$off_shift2 = "$td$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "16"){
$off_shift2 = "$td$td$td$td$td$td$td$td";
}elsif ($eshift eq "17"){
$off_shift2 = "$td$td$td$td$td$td$td";
}elsif ($eshift eq "18"){
$off_shift2 = "$td$td$td$td$td$td";
}elsif ($eshift eq "19"){
$off_shift2 = "$td$td$td$td$td";
}elsif ($eshift eq "20"){
$off_shift2 = "$td$td$td$td";
}elsif ($eshift eq "21"){
$off_shift2 = "$td$td$td";
}elsif ($eshift eq "22"){
$off_shift2 = "$td$td";
}elsif ($eshift eq "23"){
$off_shift2 = "$td";
}else{
$off_shift2 = "";
}
$row = "$name$off_shift1$on_shift$off_shift2";
&table_header;
sub table_header {
print <
b
$date
| Name |
8:00 |
9:00 |
10:00 |
11:00 |
12:00 |
1:00 |
2:00 |
3:00 |
4:00 |
5:00 |
6:00 |
7:00 |
8:00 |
9:00 |
10:00 |
11:00 |
12:00 |
$row