--- stattrans.old.pl 2005-11-06 16:32:49.187500000 +0100 +++ stattrans.pl 2005-11-06 22:15:32.406250000 +0100 @@ -77,9 +77,9 @@ $max_versions = 5; $min_versions = 1; -$border_head = "
" - ."
"; -$border_foot = "
"; +$border_head = "
\n" + ."
"; +$border_foot = "
\n
\n"; $date = strftime "%a %b %e %H:%M:%S %Y %z", localtime; @@ -326,10 +326,10 @@ } else { if (($file !~ /\.wml$/) || ($file eq "devel/wnpp/wnpp.wml")) { - $t_body .= sprintf "%s
\n", $file; + $t_body .= sprintf "%s
\n", $file; } else { (my $base = $file) =~ s/\.wml$//; - $t_body .= sprintf "%s
\n", $base, $l, $base; + $t_body .= sprintf "%s
\n", $base, $l, $base; } } } @@ -340,7 +340,7 @@ $u_body .= sprintf "%s \n", $file; } else { (my $base = $file) =~ s/\.wml$//; - $u_body .= sprintf "%s%d(%.2f ‰)\n", $base, $base, $sizes{$file}, int($sizes{$file}/$nsize * 100000 + .5) / 100; + $u_body .= sprintf "%s%d(%.2f ‰)\n", $base, $base, $sizes{$file}, int($sizes{$file}/$nsize * 100000 + .5) / 100; } $untranslated{$lang}++; $untranslated_s{$lang} += $sizes{$file}; @@ -376,26 +376,26 @@ $percent_us{$lang} = 100 - $percent_as{$lang}; if (open (HTML, ">$config{'htmldir'}/$l.html")) { - printf HTML "%s: %s\n", $config{'title'}, ucfirst $lang; + printf HTML "\n" + printf HTML "\n\n" + printf HTML " \n" + printf HTML " %s: %s\n\n\n", $config{'title'}, ucfirst $lang; $color = get_color ($percent_a{$lang}); - print HTML "\n"; - printf HTML "\n", $color; - - printf HTML "", $config{'title'}, ucfirst $lang; - + printf HTML "

%s: %s

\n", $color; + printf HTML "\n \n\n", $config{'title'}, ucfirst $lang; print HTML "\n"; - printf HTML "", $wml{$lang}, $percent_a{$lang}; - printf HTML "", $translated{$lang}, $percent_t{$lang}; - printf HTML "", $outdated{$lang}, $percent_o{$lang}; - printf HTML "", $untranslated{$lang}, $percent_u{$lang}; + printf HTML " \n", $wml{$lang}, $percent_a{$lang}; + printf HTML " \n", $translated{$lang}, $percent_t{$lang}; + printf HTML " \n", $outdated{$lang}, $percent_o{$lang}; + printf HTML " \n", $untranslated{$lang}, $percent_u{$lang}; print HTML "\n"; print HTML "\n"; - printf HTML "", $wml_s{$lang}, $percent_as{$lang}; - printf HTML "", $translated_s{$lang}, $percent_ts{$lang}; - printf HTML "", $outdated_s{$lang}, $percent_os{$lang}; - printf HTML "", $nsize-$wml_s{$lang}, $percent_us{$lang}; + printf HTML " \n", $wml_s{$lang}, $percent_as{$lang}; + printf HTML " \n", $translated_s{$lang}, $percent_ts{$lang}; + printf HTML " \n", $outdated_s{$lang}, $percent_os{$lang}; + printf HTML " \n", $nsize-$wml_s{$lang}, $percent_us{$lang}; print HTML "\n"; print HTML "

%s: %s

%d files (%d%%) translated%d files (%d%%) up to date%d files (%d%%) outdated%d files (%d%%) not translated%d files (%d%%) translated%d files (%d%%) up to date%d files (%d%%) outdated%d files (%d%%) not translated
%d bytes (%.1f%%) translated%d bytes (%.1f%%) up to date%d bytes (%.1f%%) outdated%d bytes (%.1f%%) not translated%d bytes (%.1f%%) translated%d bytes (%.1f%%) up to date%d bytes (%.1f%%) outdated%d bytes (%.1f%%) not translated
\n"; @@ -439,7 +439,9 @@ } if ($t_body) { print HTML "

Translations up to date: (top)

\n"; + print HTML "

\n"; print HTML $t_body; + print HTML "

\n"; } # outputs the gettext stats if ($lang ne 'english') { @@ -456,27 +458,27 @@ $color_u = get_color (100 - $percent_po_u{$domain}{$lang}); print HTML "$domain.$langs{$lang}.po"; - printf HTML "%d (%s%%)", $color_t, $po_translated{$domain}{$lang}, $percent_po_t{$domain}{$lang}; - printf HTML "%d (%s%%)", $color_f, $po_fuzzy{$domain}{$lang}, $percent_po_f{$domain}{$lang}; - printf HTML "%d (%s%%)", $color_u, $po_untranslated{$domain}{$lang}, $percent_po_u{$domain}{$lang}; + printf HTML "%d (%s%%)", $color_t, $po_translated{$domain}{$lang}, $percent_po_t{$domain}{$lang}; + printf HTML "%d (%s%%)", $color_f, $po_fuzzy{$domain}{$lang}, $percent_po_f{$domain}{$lang}; + printf HTML "%d (%s%%)", $color_u, $po_untranslated{$domain}{$lang}, $percent_po_u{$domain}{$lang}; printf HTML "%d", $po_total{$domain}; print HTML "\n"; } - print HTML "     Total:"; + print HTML "     \nTotal:"; $color_t = get_color ($percent_po_t{'total'}{$lang}); $color_f = get_color (100 - $percent_po_f{'total'}{$lang}); $color_u = get_color (100 - $percent_po_u{'total'}{$lang}); - printf HTML "%d (%d%%)", $color_t, $po_translated{'total'}{$lang}, $percent_po_t{'total'}{$lang}; - printf HTML "%d (%d%%)", $color_f, $po_fuzzy{'total'}{$lang}, $percent_po_f{'total'}{$lang}; - printf HTML "%d (%d%%)", $color_u, $po_untranslated{'total'}{$lang}, $percent_po_u{'total'}{$lang}; + printf HTML "%d (%d%%)", $color_t, $po_translated{'total'}{$lang}, $percent_po_t{'total'}{$lang}; + printf HTML "%d (%d%%)", $color_f, $po_fuzzy{'total'}{$lang}, $percent_po_f{'total'}{$lang}; + printf HTML "%d (%d%%)", $color_u, $po_untranslated{'total'}{$lang}, $percent_po_u{'total'}{$lang}; printf HTML "%d", $po_total{'total'}; print HTML "\n"; } print HTML "\n"; # outputs footer - print HTML "
Compiled at $date
\n"; - print HTML ""; + print HTML "
\n
Compiled at $date
\n"; + print HTML "\n\n"; close (HTML); } } @@ -489,14 +491,18 @@ open (HTML, ">$config{'htmldir'}/index.html") || die "Can't open $config{'htmldir'}/index.html"; -printf HTML "\n%s\n\n", $config{'title'}; -printf HTML "

%s

\n", $config{'title'}; +printf HTML "\n\n\n" +printf HTML " \n" +printf HTML " %s\n\n\n", $config{'title'}; +printf HTML "\n\n" + +printf HTML "

%s

\n", $config{'title'}; print HTML "

Translated web pages

\n"; printf HTML "

There are %d pages to translate.

\n",($wml{'english'}+$untranslated{'english'}); print HTML $border_head; -print HTML "\n"; +print HTML "
\n"; print HTML "\n"; foreach $lang (@search_in) { my @processed_langs = ($langs{$lang}); @@ -509,10 +515,10 @@ print HTML ""; printf HTML "", $l, ucfirst $lang, $l; - printf HTML "", $color_a, $wml{$lang}, format3($percent_a{$lang}); - printf HTML "", $color_t, $translated{$lang}, format3($percent_t{$lang}); - printf HTML "", $color_o, $outdated{$lang}, format3($percent_o{$lang}); - printf HTML "", $color_u, $untranslated{$lang}, format3($percent_u{$lang}); + printf HTML "", $color_a, $wml{$lang}, format3($percent_a{$lang}); + printf HTML "", $color_t, $translated{$lang}, format3($percent_t{$lang}); + printf HTML "", $color_o, $outdated{$lang}, format3($percent_o{$lang}); + printf HTML "", $color_u, $untranslated{$lang}, format3($percent_u{$lang}); print HTML "\n"; } } @@ -523,7 +529,7 @@ printf HTML "

There are %d bytes to translate.

\n",($wml_s{'english'}+$untranslated_s{'english'}); print HTML $border_head; -print HTML "
LanguageTranslationsUp to dateOutdatedNot translated
%s (%s)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)
\n"; +print HTML "
\n"; print HTML "\n"; foreach $lang (@search_in) { @@ -537,10 +543,10 @@ print HTML ""; printf HTML "", $l, ucfirst $lang, $l; - printf HTML "", $color_a, $wml_s{$lang}, format5($percent_as{$lang}); - printf HTML "", $color_t, $translated_s{$lang}, format5($percent_ts{$lang}); - printf HTML "", $color_o, $outdated_s{$lang}, format5($percent_os{$lang}); - printf HTML "", $color_u, $wml_s{"english"}+$untranslated_s{'english'}-$wml_s{$lang}, format5($percent_us{$lang}); + printf HTML "", $color_a, $wml_s{$lang}, format5($percent_as{$lang}); + printf HTML "", $color_t, $translated_s{$lang}, format5($percent_ts{$lang}); + printf HTML "", $color_o, $outdated_s{$lang}, format5($percent_os{$lang}); + printf HTML "", $color_u, $wml_s{"english"}+$untranslated_s{'english'}-$wml_s{$lang}, format5($percent_us{$lang}); print HTML "\n"; } } @@ -550,7 +556,7 @@ print HTML "

Translated templates (gettext files)

\n"; printf HTML "

There are %d strings to translate.

\n",$po_total{'total'}; print HTML $border_head; -print HTML "
LanguageTranslationsUp to dateOutdatedNot translated
%s (%s)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)
\n"; +print HTML "
\n"; print HTML "\n"; foreach $lang (@search_in) { next if $lang eq 'english'; @@ -562,9 +568,9 @@ $color_t = get_color ($percent_po_t{'total'}{$lang}); $color_f = get_color (100 - $percent_po_f{'total'}{$lang}); $color_u = get_color (100 - $percent_po_u{'total'}{$lang}); - printf HTML "", $color_t, $po_translated{'total'}{$lang}, format3($percent_po_t{'total'}{$lang}); - printf HTML "", $color_f, $po_fuzzy{'total'}{$lang}, format3($percent_po_f{'total'}{$lang}); - printf HTML "", $color_u, $po_untranslated{'total'}{$lang}, format3($percent_po_u{'total'}{$lang}); + printf HTML "", $color_t, $po_translated{'total'}{$lang}, format3($percent_po_t{'total'}{$lang}); + printf HTML "", $color_f, $po_fuzzy{'total'}{$lang}, format3($percent_po_f{'total'}{$lang}); + printf HTML "", $color_u, $po_untranslated{'total'}{$lang}, format3($percent_po_u{'total'}{$lang}); print HTML "\n"; } } @@ -572,9 +578,9 @@ print HTML "
LanguageUp to dateFuzzyNot translated
%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)%d(%s%%)
\n"; print HTML $border_foot; -print HTML "

\n"; +print HTML "
\n"; print HTML "

Created with webwml-stattrans at $date\n"; -print HTML "\n"; +print HTML "\n\n"; close (HTML); print "done.\n" if ($config{'verbose'});