diff options
| author | Simon Paillard <spaillard> | 2009-08-02 19:18:13 +0000 |
|---|---|---|
| committer | Simon Paillard <spaillard> | 2009-08-02 19:18:13 +0000 |
| commit | 74605da4dc81dcb9a203fb4527a8c41fe0d86cee (patch) | |
| tree | c80e963dee5bdb7a25de1cc291b3f6aac4f70bcb /stattrans.pl | |
| parent | ab7d6e60e149f1632dc278b2b4778191401034be (diff) | |
Use charset from $lang/.wmlrc for HTML generation
CVS version numbers
stattrans.pl: 1.88 -> 1.89
Diffstat (limited to 'stattrans.pl')
| -rwxr-xr-x | stattrans.pl | 11 |
1 files changed, 10 insertions, 1 deletions
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 (<wmlrc>) { + 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 "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n"; # printf HTML "<html><head><title>%s: %s</title></head><body bgcolor=\"#ffffff\">\n", $config{'title'}, ucfirst $lang; printf HTML "<html>\n<head>\n"; - printf HTML " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">\n"; + printf HTML " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=$charset{$lang}\">\n"; printf HTML " <title>%s: %s</title>\n", $config{'title'}, ucfirst $lang; print HTML " <link href=\"../../../debian.css\" rel=\"stylesheet\" type=\"text/css\">"; print HTML "</head>\n<body>\n"; |