#!/usr/bin/perl
#
# Mike Ward mward@cs.utah.edu
# CGI Statistics Script for time logs for entire class
# ---------------------------------------------------------------------
&readStuff;
$data_file_path = $stuff{'data_file_path'};
print "Content-type: text/html\n\n";
print "\n";
print "Time-log data for $stuff{'course'}\n";
print "\n";
print "\n";
print "Time-log data for $stuff{'course'}
\n";
$directory = $stuff{'data_file_path'} . "unsafe";
chdir $directory ||
print "Unable to cd to $directory!\n";
# print "Changed directories to $directory.
\n";
# Find all the plan files in the directory
opendir (DIR, $directory) || print "Unable to open dir $directory!";
@filenames = grep {/\.time$/} readdir(DIR);
closedir DIR;
if ($#filenames < 0) {
print "No time-log plan files found.\n";
exit;
}
$numFiles = 0;
# The following hashes are indexed by program name. Since program name
# can now be any string, e.g. "4a", they've become hashes rather than
# arrays. And instead of the 0 entry indicating the total-of-totals,
# each hash will have a "total" entry. BUG: what if somebody uses
# "total" as a program name? Better solution: each of these things is a
# struct with a "total" field and a hash indexed by program name.
# Unfortunately, perl doesn't do structs. I hate perl....
%totalStudents = ( total => 0 );
%totalPlanning = ( total => 0 );
%totalDesign = ( total => 0 );
%totalCode = ( total => 0 );
%totalCodeReview = ( total => 0 );
%totalCompile = ( total => 0 );
%totalTest = ( total => 0 );
%totalPostMortem = ( total => 0 );
%totalTotal = ( total => 0 );
# @totalStudents = (0,0,0,0,0,0,0,0,0,0,0,0);
# @totalPlanning = (0,0,0,0,0,0,0,0,0,0,0,0);
# @totalDesign = (0,0,0,0,0,0,0,0,0,0,0,0);
# @totalCode = (0,0,0,0,0,0,0,0,0,0,0,0);
# @totalCodeReview = (0,0,0,0,0,0,0,0,0,0,0,0);
# @totalCompile = (0,0,0,0,0,0,0,0,0,0,0,0);
# @totalTest = (0,0,0,0,0,0,0,0,0,0,0,0);
# @totalPostMortem = (0,0,0,0,0,0,0,0,0,0,0,0);
# @totalTotal = (0,0,0,0,0,0,0,0,0,0,0,0);
@whichArray = (0,
\%totalPlanning,
\%totalDesign,
\%totalCode,
\%totalCodeReview,
\%totalCompile,
\%totalTest,
\%totalPostMortem,
);
# print "Examining files: @filenames \n";
#
# print "Tracing...\n";
# print "\n";
# print "| filename | prog_num | estLOC | estHours | estMinutes | estTime | estLOCPerHour | estDefects | estDefectsPerKLOC |
|---|
\n";
foreach $name (@filenames) {
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = lstat($name);
if ($mode & 020000) {
next; # it's a symlink
}
# print "$name
\n";
open(THISFILE, "$name") || next;
$numFiles++;
%seenThisProgram = ( );
while () {
@data = split(' ', $_);
## Note: data[0]=prog_num, data[1]= month, data[2]=day, data[3]=time spent,
## data[4]=development phase,
## data[5]=month recorded, data[6]="/", data[7]=day recorded,
## data[8]=hour recorded, data[9]=":", data[10]=minute recorded
$prog_num = $data[0];
$time = $data[3];
$phase = $data[4];
if ($phase == 0) {
next;
# just ignore entries with no phase, although
# they shouldn't be in the database anyway
}
# Increment number of students who entered data for this program,
# but not if we've already done so for this student.
unless (defined $seenThisProgram{$prog_num}) {
$totalStudents{$prog_num} ++;
# treats undefined as zero, right?
$totalStudents{"total"} ++;
$seenThisProgram{$prog_num} = 1;
}
$whichArray[$phase]{$prog_num} += $time;
$whichArray[$phase]{"total"} += $time;
$totalTotal{$prog_num} += $time;
$totalTotal{"total"} += $time;
# print "\n";
}
# end while ()
close(THISFILE);
}
# end foreach $name (@filenames)
# print "
\n";
if ($numFiles == 0) {
print "Didn't find any time logs.