
printf("<html><head>\n");

printf("<link rel=\"stylesheet\" href=\"http://www-cdf.fnal.gov/~danielw/Calibrations/style1.css\">\n");
printf("<title> Hot Tower Validation Plots </title>");
$datestring=`date`;
chop($datestring);
printf("</head><body><h1>Hot Tower Validation Plots</h1>");
$runs=`cat rungroup.txt`;
printf("<h2>Runs: [<font color=blue size=2>$runs</font>]\n</h2><br><hr>");

printf("<br>Generated: $datestring<br>\n");

@logs = `ls *log`;

foreach $f (@logs) 
{
    chop($f);
    printf("Logfile: <a href=\"$f\">$f</a><br>\n");
}

printf("<br><br>Run Legend:<br>
<font color=LIME> No tag for this run: bit=1</font><br>
<font color=ORANGE> At least one tag reported by ES. Decision must be taken to set the bit: bit=-1</font><br>
<font color=RED>It has been decided that this is a bad run: bit=0</font><br><br><hr width=50%>
<table border=\"3\"  cellpadding=\"5\" align=\"center\"><tr><th>Run</th><th>CCAL</th><th>PCAL</th><th>CAL</th><th>Problem Towers (eta/phi/pmt0/pmt1)</th><th>Details</th></tr>");

$runres = `cat Calo.html`;
printf "$runres\n</table><br><br>";

$files = `cat files.list`;

printf("<hr><br>List of files used:<pre>$files</pre>\n");
printf("</html>");

