) {
@words=split(' ', $_);
$prog_num = $words[0];
unless (exists $num_defects{$prog_num}) {
# the entry wasn't created when we went through the estimate,
# time, or LOC files
$loc{$prog_num} = 0;
$actual_time{$prog_num} = 0;
$num_defects{$prog_num} = 0;
$est_loc{$prog_num} = 0;
$est_time{$prog_num} = 0;
$est_defects{$prog_num} = 0;
}
$num_defects{$prog_num} += $words[1];
}
}
# print "
Actual number of defects $num_defects\n";
close (DEFECT);
print "\n";
print "| | ";
print "LOC | ";
print "Time | ";
print "Defects | ";
print "LOC/hour | ";
print "Defects/KLOC | ";
print "
|---|
\n";
print "| Program \# | ";
print "estimated | actual | ";
print "estimated | actual | ";
print "estimated | actual | ";
print "estimated | actual | ";
print "estimated | actual | ";
print "
|---|
\n";
while (($prog_num,$dummy) = each %est_loc) {
print "| $prog_num | ";
print "$est_loc{$prog_num} | ";
if ($loc{$prog_num} > 0) {
print "$loc{$prog_num} | ";
}
else {
print "unknown | ";
}
print "$est_time{$prog_num} | ";
print "$actual_time{$prog_num} | ";
print "$est_defects{$prog_num} | ";
print "$num_defects{$prog_num} | ";
# Calculate planned and actual Minutes/LOC and LOC/Hour
# print "est_time ", $est_time, "\n";
# print "est_loc ", $est_loc , "\n";
# print "actual_time ", $actual_time, "\n";
# print "loc ", $loc, "
\n";
# if ($est_loc{$prog_num} > 0) {
# $planMinLoc = sprintf ("%10.2f",$est_time{$prog_num}/$est_loc{$prog_num});
# }
# else {
# $planMinLoc = "unknown";
# }
if ($est_loc{$prog_num} > 0 && $est_defects{$prog_num} > 0) {
$planDefectKLOC = sprintf("%10.2f",$est_defects{$prog_num}*1000/$est_loc{$prog_num});
}
else {
$planDefectKLOC = "unknown";
}
if ($est_loc{$prog_num} > 0 && $est_time{$prog_num} > 0) {
$planLocHr = sprintf ("%10.2f",$est_loc{$prog_num}*60/$est_time{$prog_num});
}
else {
$planLocHr = "unknown";
}
if ($loc{$prog_num} > 0 && $num_defects{$prog_num} > 0) {
$actDefectKLOC = sprintf("%10.2f",$num_defects{$prog_num}*1000/$loc{$prog_num});
}
else {
$actDefectKLOC = "unknown";
}
if ($loc{$prog_num} > 0 && $actual_time{$prog_num} > 0) {
$actLocHr = sprintf("%10.2f",$loc{$prog_num}*60/$actual_time{$prog_num});
}
else {
$actLocHr = "unknown";
}
print "$planLocHr | ";
print "$actLocHr | ";
print "$planDefectKLOC | ";
print "$actDefectKLOC | ";
print "
\n";
} # end while
print "
";
print "", "\n";
print "", "\n";
sub readStuff {
my @cookie_pairs = split (/;\s/, $ENV{'HTTP_COOKIE'});
parse_pairs(@cookie_pairs);
my $buffer;
# read cookies first, so GET, POST, etc. can override cookies
if ( $ENV{'REQUEST_METHOD'} eq "GET" ) {
$buffer = $ENV{'QUERY_STRING'};
} elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
} else {
# Added for command line debugging
# Supply name/value form data as a command line argument
# Format: name1=value1\&name2=value2\&...
# (need to escape & for shell)
# Find the first argument that's not a switch (-)
$buffer = ( grep( !/^-/, @ARGV )) [0];
$buffer =~ s/\\&/&/g;
}
my @pairs = split(/&/,$buffer);
parse_pairs(@pairs);
}
sub parse_pairs {
my $pair;
foreach $pair (@_) {
my ($name, $value) = split(/=/, $pair);
# replace plus signs with spaces
$value =~ tr/+/ /;
# convert escape characters to ASCII form
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# Stop people from using subshells to execute commands
$value =~ s/~!/ ~!/g;
# Uncomment for debugging purposes
# print "Setting $name to $value";
# place name/value pair into array $stuff
$stuff{$name} = $value;
}
}