3 use File::Basename qw/basename/;
11 <HEAD><TITLE>Translation status of LDP man-pages</TITLE>
12 <STYLE type="text/css">
14 tr.over80 { background-color: #AAFFAA; }
15 tr.over70 { background-color: #FFAAFF; }
21 <TR class=\"over80\"><TD COLSPAN=3>Released pages but not completed (released if >=80%)</TD></TR>
22 <TR class=\"over70\"><TD COLSPAN=3>Near release pages (>= 70%)</TD></TR>
23 <TR><TH>page name</TH><TH>remaining</TH><TH>comp. %</TH></TR>
29 <TR><TD COLSPAN=3>Total $page_count pages</TD></TR>
37 printf("<TR><TD ALIGN=\"center\" COLSPAN=3 BGCOLOR=\"Yellow\">" .
38 "<B>%s</B></TD></TR>\n", $poname);
42 my ($page, $all, $remaining, $ratio) = @_;
44 print '<TR class="over80">';
45 } elsif ($ratio >= 70) {
46 print '<TR class="over70">';
50 printf("<TD>%s</TD><TD>%d/%d</TD><TD>%.2f</TD>",
51 $page, $remaining, $all, $ratio);
57 my $poname = basename($postat);
60 open(POSTAT, $postat);
63 # format: pagename, #complete, #remaining, #total
64 my ($page, $comp, $remaining, $total) = split(',');
65 $ratio = $comp / $total * 100;
67 print_poname($poname);
70 print_manpage($page, $total, $remaining, $ratio);
76 foreach my $name (@ARGV) {
77 print STDERR "$name...\n" if $debug;
78 process_postat($name);