From 74605da4dc81dcb9a203fb4527a8c41fe0d86cee Mon Sep 17 00:00:00 2001 From: Simon Paillard Date: Sun, 2 Aug 2009 19:18:13 +0000 Subject: Use charset from $lang/.wmlrc for HTML generation CVS version numbers stattrans.pl: 1.88 -> 1.89 --- stattrans.pl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'stattrans.pl') diff --git a/stattrans.pl b/stattrans.pl index de057397e66..a6e75e6dd7a 100755 --- a/stattrans.pl +++ b/stattrans.pl @@ -288,6 +288,15 @@ foreach $lang (@search_in) { foreach $l (@processed_langs) { print "$l.html " if ($config{'verbose'}); + $charset{$lang}; + open (wmlrc,"$opt_w/$lang/.wmlrc") ; + while () { + if ( /^-D CHARSET=(.*)$/ ) { + $charset{$lang} = $1; + } + } + close wmlrc ; + $t_body = $u_body = $ui_body = $un_body = $uu_body = $o_body = ""; $translated{$lang} = $outdated{$lang} = $untranslated{$lang} = 0; @@ -405,7 +414,7 @@ foreach $lang (@search_in) { printf HTML "\n"; # printf HTML "%s: %s\n", $config{'title'}, ucfirst $lang; printf HTML "\n\n"; - printf HTML " \n"; + printf HTML " \n"; printf HTML " %s: %s\n", $config{'title'}, ucfirst $lang; print HTML " "; print HTML "\n\n"; -- cgit v1.2.3