6 <HEAD><TITLE>Translation status of LDP man-pages</TITLE>
7 <STYLE type="text/css">
9 tr.over80 { background-color: #AAFFAA; }
10 tr.over70 { background-color: #FFAAFF; }
16 <TR class=\"over80\"><TD COLSPAN=3>Released page but not completed (released if >=80%)</TD></TR>
17 <TR class=\"over70\"><TD COLSPAN=3>Near release pageased (>= 70%)</TD></TR>
18 <TR><TH>page name</TH><TH>remaining</TH><TH>comp. %</TH></TR>
31 printf("<TR><TD ALIGN=\"center\" COLSPAN=3 BGCOLOR=\"Yellow\">" .
32 "<B>%s</B></TD></TR>\n", $poname);
36 my ($page, $all, $remaining, $ratio) = @_;
38 print '<TR class="over80">';
39 } elsif ($ratio >= 70) {
40 print '<TR class="over70">';
44 printf("<TD>%s</TD><TD>%d/%d</TD><TD>%.2f</TD>\n",
45 $page, $remaining, $all, $ratio);
58 @dat = split('/', $cfg);
60 $poname =~ s/\.cfg$//;
63 next if ! /^Discard /;
70 $ratio = $comp/$all*100;
72 print_poname($poname);
75 print_manpage($page, $all, $all - $comp, $ratio);