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

Diff of /webwml/stattrans.pl

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

revision 1.88 by fjp, Tue Jun 2 21:46:10 2009 UTC revision 1.89 by spaillard, Sun Aug 2 17:18:13 2009 UTC
# Line 288  foreach $lang (@search_in) { Line 288  foreach $lang (@search_in) {
288      foreach $l (@processed_langs) {      foreach $l (@processed_langs) {
289          print "$l.html " if ($config{'verbose'});          print "$l.html " if ($config{'verbose'});
290    
291                    $charset{$lang};
292                    open (wmlrc,"$opt_w/$lang/.wmlrc") ;
293                    while (<wmlrc>) {
294                            if ( /^-D CHARSET=(.*)$/ ) {
295                                    $charset{$lang} = $1;
296                            }
297                    }
298                    close wmlrc ;
299    
300          $t_body = $u_body = $ui_body = $un_body = $uu_body = $o_body = "";          $t_body = $u_body = $ui_body = $un_body = $uu_body = $o_body = "";
301          $translated{$lang} = $outdated{$lang} = $untranslated{$lang} = 0;          $translated{$lang} = $outdated{$lang} = $untranslated{$lang} = 0;
302    
# Line 405  foreach $lang (@search_in) { Line 414  foreach $lang (@search_in) {
414              printf HTML "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n";              printf HTML "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n";
415              # printf HTML "<html><head><title>%s: %s</title></head><body bgcolor=\"#ffffff\">\n", $config{'title'}, ucfirst $lang;              # printf HTML "<html><head><title>%s: %s</title></head><body bgcolor=\"#ffffff\">\n", $config{'title'}, ucfirst $lang;
416              printf HTML "<html>\n<head>\n";              printf HTML "<html>\n<head>\n";
417              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";
418              printf HTML "  <title>%s: %s</title>\n", $config{'title'}, ucfirst $lang;              printf HTML "  <title>%s: %s</title>\n", $config{'title'}, ucfirst $lang;
419              print HTML " <link href=\"../../../debian.css\" rel=\"stylesheet\" type=\"text/css\">";              print HTML " <link href=\"../../../debian.css\" rel=\"stylesheet\" type=\"text/css\">";
420              print HTML "</head>\n<body>\n";              print HTML "</head>\n<body>\n";
Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89
  ViewVC Help
Powered by ViewVC 1.1.5