Lines Matching refs:HTML
3 # * License & terms of use: http://www.unicode.org/copyright.html#License
55 my $html = $date;
56 $html =~ s/://g; # ':' illegal
57 $html =~ s/\s*\d+$//; # delete year
58 $html =~ s/^\w+\s*//; # delete dow
59 $html = "perf $html.html";
61 open(HTML,">$html") or die "Can't write to $html: $!";
63 print HTML <<EOF;
64 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
66 <HTML>
72 print HTML "<H1>$title</H1>\n";
74 print HTML "<H2>$TESTCLASS</H2>\n";
83 print HTML "<P><TABLE $TABLEATTR><TR><TD>\n";
84 print HTML "<P><B>$testMethod vs. $baselineMethod</B></P>\n";
86 print HTML "<P><TABLE $TABLEATTR BGCOLOR=\"#CCFFFF\">\n";
87 print HTML "<TR><TD>Pattern</TD><TD>$testMethod</TD>";
88 print HTML "<TD>$baselineMethod</TD><TD>Ratio</TD></TR>\n";
93 print HTML "<TR><TD>$pat</TD>\n";
102 print HTML "<TD>", formatSeconds(4, $t->getMean(), $t->getError);
103 print HTML "/event</TD>\n";
110 print HTML "<TD>", formatSeconds(4, $b->getMean(), $t->getError);
111 print HTML "/event</TD>\n";
119 print HTML "<TD><B><FONT COLOR=\"$color\">", formatPercent(3, $mean, $r->getError);
120 print HTML "</FONT></B></TD></TR>\n";
123 print HTML "</TABLE></P>\n";
125 print HTML "<P>Raw data:</P>\n";
126 print HTML $OUT;
127 print HTML "</TABLE></P>\n";
130 print HTML <<EOF;
132 </HTML>
134 close(HTML) or die "Can't close $html: $!";
