X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;ds=sidebyside;f=untrans-list.pl;h=cd89562cd79ae217b8971e33a7df65bfec42a87a;hb=6daac3edbe118847693c76e2150bd35b2d1dada8;hp=278a4d7ba94fe73eb64d765c255785c7873a2e33;hpb=5c9478ea0edbea3a9cd9c33cf453e94befcc1531;p=linuxjm%2FLDP_man-pages.git diff --git a/untrans-list.pl b/untrans-list.pl index 278a4d7b..cd89562c 100755 --- a/untrans-list.pl +++ b/untrans-list.pl @@ -3,9 +3,18 @@ sub print_header { print < -Translation status of LDP man-pages +Translation status of LDP man-pages + + + + EOF } @@ -23,6 +32,20 @@ sub print_poname { "%s\n", $poname); } +sub print_manpage { + my ($page, $all, $remaining, $ratio) = @_; + if ($ratio >= 80) { + print ''; + } elsif ($ratio >= 70) { + print ''; + } else { + print ''; + } + printf("\n", + $page, $remaining, $all, $ratio); + print ''; +} + $poname = ""; $poname_print = 1; @@ -49,9 +72,7 @@ while (<>) { print_poname($poname); $poname_print = 0; } - #printf("%s: %d/%d, %.2f\n", $page, $comp, $all, $comp/$all*100); - printf("\n", - $page, ($all - $comp), $all, $ratio); + print_manpage($page, $all, $all - $comp, $ratio); } print_footer();
Released page but not completed (released if >=80%)
Near release pageased (>= 70%)
page nameremainingcomp. %
%s%d/%d%.2f
%s%d/%d%.2f