/[webwml]/webwml/stattrans.pl
ViewVC logotype

Diff of /webwml/stattrans.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by barbier, Tue Nov 12 23:41:57 2002 UTC revision 1.45 by joy, Tue Nov 12 23:47:33 2002 UTC
# Line 203  if ($opt_l) { Line 203  if ($opt_l) {
203  }  }
204    
205  # Compute stats about gettext files  # Compute stats about gettext files
206  print "Compute statistics about gettext files... " if ($config{'verbose'});  print "Computing statistics in gettext files... " if ($config{'verbose'});
207  my %po_translated,%po_fuzzy,%po_untranslated,%po_total;  my %po_translated,%po_fuzzy,%po_untranslated,%po_total;
208  my %percent_po_t,%percent_po_u,%percent_po_f;  my %percent_po_t,%percent_po_u,%percent_po_f;
209  foreach $lang (@search_in) {  foreach $lang (@search_in) {
# Line 339  foreach $lang (@search_in) { Line 339  foreach $lang (@search_in) {
339          print HTML "<p><a href=\"./\">Back to index of languages</a></p>\n";          print HTML "<p><a href=\"./\">Back to index of languages</a></p>\n";
340          print HTML "<p><a href=\"../\">Working on the website</a></p>\n";          print HTML "<p><a href=\"../\">Working on the website</a></p>\n";
341          if ($o_body) {          if ($o_body) {
342              print HTML "<p><a href=\"#outdated\">Outdated translation</a></p>\n";              print HTML "<p><a href=\"#outdated\">Outdated translations</a></p>\n";
343          }          }
344          if ($u_body) {          if ($u_body) {
345              print HTML "<p><a href=\"#untranslated\">Pages not translated</a></p>\n";              print HTML "<p><a href=\"#untranslated\">Pages not translated</a></p>\n";
# Line 348  foreach $lang (@search_in) { Line 348  foreach $lang (@search_in) {
348              print HTML "<p><a href=\"#outdated\">Translations up to date</a></p>\n";              print HTML "<p><a href=\"#outdated\">Translations up to date</a></p>\n";
349          }          }
350          if ($lang ne 'english') {          if ($lang ne 'english') {
351              print HTML "<p><a href=\"#gettext\">Stats on gettext files</a></p>\n";              print HTML "<p><a href=\"#gettext\">Translations of templates (gettext files)</a></p>\n";
352          }          }
353    
354          # outputs the content          # outputs the content
# Line 373  foreach $lang (@search_in) { Line 373  foreach $lang (@search_in) {
373          }          }
374          # outputs the gettext stats          # outputs the gettext stats
375          if ($lang ne 'english') {          if ($lang ne 'english') {
376                print HTML "<h3><a name='gettext'>Translations of templates (gettext files)</a>: <a href='#top'>(top)</a></h3>\n";
377              print HTML "<h3><a name='gettext'>Stats on gettext files</a>: <a href='#top'>(top)</a></h3>\n";              print HTML "<h3><a name='gettext'>Stats on gettext files</a>: <a href='#top'>(top)</a></h3>\n";
378  #           print HTML $border_head;  #           print HTML $border_head;
379              print HTML "<table width=\"100%\" border=0>\n";              print HTML "<table width=\"100%\" border=0>\n";
# Line 424  open (HTML, ">$config{'htmldir'}/index.h Line 425  open (HTML, ">$config{'htmldir'}/index.h
425  printf HTML "<html>\n<head><title>%s</title></head>\n<body bgcolor=\"#ffffff\">\n", $config{'title'};  printf HTML "<html>\n<head><title>%s</title></head>\n<body bgcolor=\"#ffffff\">\n", $config{'title'};
426  printf HTML "<h1 align=\"center\">%s</h1>\n", $config{'title'};  printf HTML "<h1 align=\"center\">%s</h1>\n", $config{'title'};
427    
428  print HTML "<h2>Statistics about pages</h2>\n";  print HTML "<h2>Translated web pages</h2>\n";
429    
430  print HTML $border_head;  print HTML $border_head;
431  print HTML "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";  print HTML "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";
# Line 449  foreach $lang (@search_in) { Line 450  foreach $lang (@search_in) {
450  print HTML "</table>\n";  print HTML "</table>\n";
451  print HTML $border_foot;  print HTML $border_foot;
452    
453  print HTML "<h2>Statistics about gettext files (replacement of slices)</h2>\n";  print HTML "<h2>Translated templates (gettext files)</h2>\n";
454  print HTML $border_head;  print HTML $border_head;
455  print HTML "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";  print HTML "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";
456  print HTML "<tr><th>Language</th><th>Up to date</th><th>Fuzzy</th><th>Untranslated</th><th>Total</th></tr>\n";  print HTML "<tr><th>Language</th><th>Up to date</th><th>Fuzzy</th><th>Not translated</th><th>Total</th></tr>\n";
457  foreach $lang (@search_in) {  foreach $lang (@search_in) {
458      next if $lang eq 'english';      next if $lang eq 'english';
459      $l = $langs{$lang};      $l = $langs{$lang};
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.5