W3C home > Mailing lists > Public > www-validator-cvs@w3.org > October 2004

validator/httpd/cgi-bin check,1.347,1.348

From: Ville Skytta <ville@dev.w3.org>
Date: Sun, 10 Oct 2004 15:23:23 +0000
To: www-validator-cvs@w3.org
Message-ID: <E1CGfXf-0005m4-Ea@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv22120/httpd/cgi-bin

Modified Files:
	check 
Log Message:
Don't hardcode en_US in base template path; move it to Perl code instead so
we can conneg that sometime later.


Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.347
retrieving revision 1.348
diff -u -d -r1.347 -r1.348
--- check	10 Oct 2004 15:12:18 -0000	1.347
+++ check	10 Oct 2004 15:23:21 -0000	1.348
@@ -302,17 +302,22 @@
 #### Generate Template for Result. ############################################
 ###############################################################################
 
+my $lang = 'en_US'; # @@@ TODO: conneg
+
 my $T = HTML::Template->new(
-  filename          => File::Spec->catfile($CFG->{Paths}->{Templates}, 'result.tmpl'),
+  filename          => File::Spec->catfile($CFG->{Paths}->{Templates},
+                                           $lang, 'result.tmpl'),
   die_on_bad_params => FALSE,
 );
 my $E = HTML::Template->new(
-  filename          => File::Spec->catfile($CFG->{Paths}->{Templates}, 'fatal-error.tmpl'),
+  filename          => File::Spec->catfile($CFG->{Paths}->{Templates},
+                                           $lang, 'fatal-error.tmpl'),
   die_on_bad_params => FALSE,
 );
 
 $T->param(cfg_home_page => $CFG->{'Home Page'});
 
+undef $lang;
 
 #########################################
 # Populate $File->{Opt} -- CGI Options. #
Received on Sunday, 10 October 2004 15:23:23 UTC

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:07 UTC