#! /usr/bin/perl
#
# Usage: htmlSummaryPage.pl -m M7690-17-2
#
# ----------------------------------------------------------------------
use Getopt::Std;
getopts('m:');
# --- Sort it ...
# FIXME!! foreach $file (@summaryFiles) {
$tmp = $opt_m;
$tmp =~ s/\.\.//;
@mtmp = split(/\//,$tmp);
$testNr=$mtmp[$#mtmp];
@ntmp = split(/\-/,$mtmp[$#mtmp-1]);
$moduleNr=$ntmp[0];
$name= $moduleNr."".$testNr;
$dirName = $opt_m;
$dirName =~ s/\.\.\///;
open(HTML, ">$opt_m/$name.html") || die "==> Cannot open $opt_m/$name.html\n";
&mkHeader;
# -- Loop over all summary files and extract relevant numbers from them
#foreach $file (@summaryFiles) {
for ($i = 0; $i < 16; $i++) {
$file = "$opt_m/summary_C$i.txt";
# chop($file);
printRow($file);
}
&mkTrailer;
close(HTML);
# ----------------------------------------------------------------------
sub printRow() {
my ($f) = @_;
my $roc, $dead, $mask, $bumps, $trimbits, $address;
($bla, $roc) = split(/summary_C/, $f);
$roc =~ s/\.txt//;
open(IN, "$f") || die "Cannot open $file\n";
while () {
if (/nDeadPixel/) {
s/nDeadPixel: //g;
$dead = $_;
}
if (/nDeadTrimbits/) {
s/nDeadTrimbits: //g;
$trimbits = $_;
}
if (/nDeadBumps/) {
s/nDeadBumps: //g;
$bumps = $_;
}
if (/nMaskDefect/) {
s/nMaskDefect: //g;
$mask = $_;
}
if (/nAddressProblems/) {
s/nAddressProblems: //g;
$address = $_;
}
}
$deadTot += $dead;
$maskTot += $mask;
$bumps = $bumps - $dead;
if($bumps<0) {$bumps = 0;}
$bumpsTot += $bumps;
$trimbits = $trimbits - 4*$dead;
if($trimbits<0) {$trimbits = 0;}
$trimbitsTot += $trimbits;
$address = $address - $dead;
if($address<0) {$address = 0;}
$addressTot += $address;
if($dead>42 || $mask>42 || $bumps>42 || $trimbits>42 || $address>42) { $badROCS++; }
# -- Make sure the following is consistent with the order defined in mkHeader()
print HTML " \n";
print HTML " \n";
print HTML " | C$roc | \n";
print HTML " $dead | \n";
print HTML " $mask | \n";
print HTML " $bumps | \n";
print HTML " $trimbits | \n";
print HTML " $address | \n";
print HTML "
\n";
print HTML " \n";
}
# ----------------------------------------------------------------------
sub mkHeader() {
print HTML "\n";
print HTML "\n";
print HTML "\n";
print HTML " \n";
print HTML " $opt_m\n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML "\n";
print HTML "\n";
print HTML "\n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML " | $name | \n";
print HTML "
| \n";
print HTML "
| \n";
print HTML "
| \n";
print HTML "
| \n";
print HTML "
| \n";
print HTML "
\n";
print HTML " \n";
print HTML " \n";
print HTML " \n";
print HTML " | ROC | \n";
print HTML " Dead | \n";
print HTML " Mask | \n";
print HTML " Bumps | \n";
print HTML " TrimBits | \n";
print HTML " Address | \n";
print HTML "
\n";
print HTML " \n";
}
# ----------------------------------------------------------------------
sub mkTrailer() {
print HTML "
\n";
print HTML "\n";
print HTML "\n";
}
![C$roc](\"C$roc.gif\"){kind=link}
![$name](\"$name.gif\"){kind=link}