+}
+
+sub print_footer {
+ print <<EOF;
+</TABLE>
+</BODY></HTML>
+EOF
+}
+
+sub print_poname {
+ my $poname = shift;
+ printf("<TR><TD ALIGN=\"center\" COLSPAN=3 BGCOLOR=\"Yellow\">" .
+ "<B>%s</B></TD></TR>\n", $poname);
+}
+
+sub print_manpage {
+ my ($page, $all, $remaining, $ratio) = @_;
+ if ($ratio >= 80) {
+ print '<TR class="over80">';
+ } elsif ($ratio >= 70) {
+ print '<TR class="over70">';
+ } else {
+ print '<TR>';
+ }
+ printf("<TD>%s</TD><TD>%d/%d</TD><TD>%.2f</TD>",
+ $page, $remaining, $all, $ratio);
+ print "</TR>\n";
+}