#!/usr/local/bin/perl print "Content-type: text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use strict; use CGI; my $q = new CGI; my ($month, $num, @data, $date, $hours, $name); my $ttlevnts = 0; my $name = $q->param("name"); my %ttlhrs = ("bottum", 0, "budrow", 0, "captan", 0, "hughes", 0, "marchand", 0, "medina", 0, "newbrough", 0, "rico", 0, "shelton", 0, "sweredoski", 0, "tryon", 0, "werner", 0, "williamspearce", 0); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); my $month1 = $mon+1; my $year1 = $year+1900; my $date1 = "$month1\/$mday\/$year1"; my %hoursWorked; open(DATA, "/host/n/b/p/p/o/r/nbpdexplorers.port5.com/cgi-bin/data2.txt") or die "Cannot open database file: $!"; while () { chomp($_); @data = split(/\+/, $_); $month = shift(@data); $hours = pop(@data); foreach $name (@data) { $hoursWorked{$month}{$name} += $hours; $ttlevnts++; } } close(DATA); for my $month1 (keys %ttlhrs) { $total{$_} += $ttlhrs{$month1}{$_} for keys %{$ttlhrs{$month1}}; } print "Hours Worked Status\n"; print "\n"; print "\n"; print "

Hours Worked Status


\n"; print "

Today's Date: $date1

Total Event(s): $ttlevnts

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecemberTotal Hours
Bottum$hoursWorked{january}{bottum}$hoursWorked{february}{bottum}$hoursWorked{march}{bottum}$hoursWorked{april}{bottum}$hoursWorked{may}{bottum}$hoursWorked{june}{bottum}$hoursWorked{july}{bottum}$hoursWorked{august}{bottum}$hoursWorked{september}{bottum}$hoursWorked{october}{bottum}$hoursWorked{november}{bottum}$hoursWorked{december}{bottum}$ttlhrsbottum
Budrow$hoursWorked{january}{budrow}$hoursWorked{february}{budrow}$hoursWorked{march}{budrow}$hoursWorked{april}{budrow}$hoursWorked{may}{budrow}$hoursWorked{june}{budrow}$hoursWorked{july}{budrow}$hoursWorked{august}{budrow}$hoursWorked{september}{budrow}$hoursWorked{october}{budrow}$hoursWorked{november}{budrow}$hoursWorked{december}{budrow}$ttlhrsbudrow
Captan$hoursWorked{january}{captan}$hoursWorked{february}{captan}$hoursWorked{march}{captan}$hoursWorked{april}{captan}$hoursWorked{may}{captan}$hoursWorked{june}{captan}$hoursWorked{july}{captan}$hoursWorked{august}{captan}$hoursWorked{september}{captan}$hoursWorked{october}{captan}$hoursWorked{november}{captan}$hoursWorked{december}{captan}$ttlhrscaptan
Hughes$hoursWorked{january}{hughes}$hoursWorked{february}{hughes}$hoursWorked{march}{hughes}$hoursWorked{april}{hughes}$hoursWorked{may}{hughes}$hoursWorked{june}{hughes}$hoursWorked{july}{hughes}$hoursWorked{august}{hughes}$hoursWorked{september}{hughes}$hoursWorked{october}{hughes}$hoursWorked{november}{hughes}$hoursWorked{december}{hughes}$ttlhrshughes
Marchand$hoursWorked{january}{marchand}$hoursWorked{february}{marchand}$hoursWorked{march}{marchand}$hoursWorked{april}{marchand}$hoursWorked{may}{marchand}$hoursWorked{june}{marchand}$hoursWorked{july}{marchand}$hoursWorked{august}{marchand}$hoursWorked{september}{marchand}$hoursWorked{october}{marchand}$hoursWorked{november}{marchand}$hoursWorked{december}{marchand}$ttlhrsmarchand
Medina$hoursWorked{january}{medina}$hoursWorked{february}{medina}$hoursWorked{march}{medina}$hoursWorked{april}{medina}$hoursWorked{may}{medina}$hoursWorked{june}{medina}$hoursWorked{july}{medina}$hoursWorked{august}{medina}$hoursWorked{september}{medina}$hoursWorked{october}{medina}$hoursWorked{november}{medina}$hoursWorked{december}{medina}$ttlhrsmedina
Newbrough$hoursWorked{january}{newbrough}$hoursWorked{february}{newbrough}$hoursWorked{march}{newbrough}$hoursWorked{april}{newbrough}$hoursWorked{may}{newbrough}$hoursWorked{june}{newbrough}$hoursWorked{july}{newbrough}$hoursWorked{august}{newbrough}$hoursWorked{september}{newbrough}$hoursWorked{october}{newbrough}$hoursWorked{november}{newbrough}$hoursWorked{december}{newbrough}$ttlhrsnewbrough
Rico$hoursWorked{january}{rico}$hoursWorked{february}{rico}$hoursWorked{march}{rico}$hoursWorked{april}{rico}$hoursWorked{may}{rico}$hoursWorked{june}{rico}$hoursWorked{july}{rico}$hoursWorked{august}{rico}$hoursWorked{september}{rico}$hoursWorked{october}{rico}$hoursWorked{november}{rico}$hoursWorked{december}{rico}$ttlhrsrico
Shelton$hoursWorked{january}{shelton}$hoursWorked{february}{shelton}$hoursWorked{march}{shelton}$hoursWorked{april}{shelton}$hoursWorked{may}{shelton}$hoursWorked{june}{shelton}$hoursWorked{july}{shelton}$hoursWorked{august}{shelton}$hoursWorked{september}{shelton}$hoursWorked{october}{shelton}$hoursWorked{november}{shelton}$hoursWorked{december}{shelton}$ttlhrsshelton
Sweredoski$hoursWorked{january}{sweredoski}$hoursWorked{february}{sweredoski}$hoursWorked{march}{sweredoski}$hoursWorked{april}{sweredoski}$hoursWorked{may}{sweredoski}$hoursWorked{june}{sweredoski}$hoursWorked{july}{sweredoski}$hoursWorked{august}{sweredoski}$hoursWorked{september}{sweredoski}$hoursWorked{october}{sweredoski}$hoursWorked{november}{sweredoski}$hoursWorked{december}{sweredoski}$ttlhrssweredoski
Tryon$hoursWorked{january}{tryon}$hoursWorked{february}{tryon}$hoursWorked{march}{tryon}$hoursWorked{april}{tryon}$hoursWorked{may}{tryon}$hoursWorked{june}{tryon}$hoursWorked{july}{tryon}$hoursWorked{august}{tryon}$hoursWorked{september}{tryon}$hoursWorked{october}{tryon}$hoursWorked{november}{tryon}$hoursWorked{december}{tryon}$ttlhrstryon
Werner$hoursWorked{january}{werner}$hoursWorked{february}{werner}$hoursWorked{march}{werner}$hoursWorked{april}{werner}$hoursWorked{may}{werner}$hoursWorked{june}{werner}$hoursWorked{july}{werner}$hoursWorked{august}{werner}$hoursWorked{september}{werner}$hoursWorked{october}{werner}$hoursWorked{november}{werner}$hoursWorked{december}{werner}$ttlhrswerner
Williams-Pearce$hoursWorked{january}{williamspearce}$hoursWorked{february}{williamspearce}$hoursWorked{march}{williamspearce}$hoursWorked{april}{williamspearce}$hoursWorked{may}{williamspearce}$hoursWorked{june}{williamspearce}$hoursWorked{july}{williamspearce}$hoursWorked{august}{williamspearce}$hoursWorked{september}{williamspearce}$hoursWorked{october}{williamspearce}$hoursWorked{november}{williamspearce}$hoursWorked{december}{williamspearce}$ttlhrswilliamspearce

Back To Administrative Options

\n"; print "

\n";