+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>\n",
+ $page, $remaining, $all, $ratio);
+ print '</TR>';
+}
+