(split) LDP: Update ja.po

[linuxjm/LDP_man-pages.git] / untrans-list.pl
diff --git a/untrans-list.pl b/untrans-list.pl

index 6c169bd..6ae2a21 100755 (executable)
--- a/untrans-list.pl
+++ b/untrans-list.pl
@@ -1,14 +1,55 @@
  #!/usr/bin/env perl
  
-print <<EOF;
+sub print_header {
+    print <<EOF;
  <HTML>
-<HEAD>Translation status of LDP man-pages</HEAD>
+<HEAD><TITLE>Translation status of LDP man-pages</TITLE>
+<STYLE type="text/css">
+<!--
+ tr.over80 { background-color: #AAFFAA; }
+ tr.over70 { background-color: #FFAAFF; }
+-->
+</STYLE>
+</HEAD>
  <BODY>
  <TABLE BORDER=1>
+<TR class=\"over80\"><TD COLSPAN=3>Released pages but not completed (released if &gt;=80%)</TD></TR>
+<TR class=\"over70\"><TD COLSPAN=3>Near release pages (&gt;= 70%)</TD></TR>
  <TR><TH>page name</TH><TH>remaining</TH><TH>comp. %</TH></TR>
  EOF
+}
+
+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";
+}
  
  $poname = "";
+$poname_print = 1;
+
+print_header();
  
  while (<>) {
      if (/^po4a/) {
@@ -17,8 +58,7 @@ while (<>) {
         @dat = split('/', $cfg);
         $poname = $dat[2];
         $poname =~ s/\.cfg$//;
-       printf("<TR><TD ALIGN=\"center\" COLSPAN=3 BGCOLOR=\"Yellow\">" .
-              "<B>%s</B></TD></TR>\n", $poname);
+       $poname_print = 1;
      }
      next if ! /^Discard /;
      s/\(//;
@@ -28,12 +68,11 @@ while (<>) {
      $comp = $dat[2];
      $all  = $dat[4];
      $ratio = $comp/$all*100;
-    #printf("%s: %d/%d, %.2f\n", $page, $comp, $all, $comp/$all*100);
-    printf("<TR><TD>%s</TD><TD>%d/%d</TD><TD>%.2f</TD>\n",
-          $page, ($all - $comp), $all, $ratio);
+    if ($poname_print) {
+       print_poname($poname);
+       $poname_print = 0;
+    }
+    print_manpage($page, $all, $all - $comp, $ratio);
  }
  
-print <<EOF;
-</TABLE>
-</BODY></HTML>
-EOF
+print_footer();