- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sat, 24 Oct 2009 15:59:20 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin In directory hutz:/tmp/cvs-serv14094/httpd/cgi-bin Modified Files: check Log Message: Add option to use file based template caching. Doing it in non-mod_perl environments results in a noticeable performance improvement. Index: check =================================================================== RCS file: /sources/public/validator/httpd/cgi-bin/check,v retrieving revision 1.715 retrieving revision 1.716 diff -u -d -r1.715 -r1.716 --- check 23 Oct 2009 20:46:13 -0000 1.715 +++ check 24 Oct 2009 15:59:18 -0000 1.716 @@ -51,7 +51,7 @@ use Encode::Alias qw(); use Encode::HanExtra qw(); # for some chinese character encodings, # e.g gb18030 -use File::Spec::Functions qw(catfile); +use File::Spec::Functions qw(catfile rel2abs tmpdir); use HTML::Encoding 0.52 qw(); use HTML::Parser 3.24 qw(); # Need 3.24 for $p->parse($code_ref) use HTML::Template 2.6 qw(); # Need 2.6 for path param, other things. @@ -119,7 +119,8 @@ -DefaultConfig => { Protocols => {Allow => 'http,https'}, Paths => { - Base => ($ENV{W3C_VALIDATOR_HOME} || '/usr/local/validator'), + Base => ($ENV{W3C_VALIDATOR_HOME} || '/usr/local/validator'), + Cache => '', }, External => { HTML5 => FALSE, @@ -322,12 +323,19 @@ $File->{Template_Defaults} = { die_on_bad_params => FALSE, - cache => TRUE, loop_context_vars => TRUE, global_vars => TRUE, path => [ catfile($CFG->{Paths}->{Templates}, $lang) ], filter => sub { my $ref = shift; ${$ref} = Encode::decode_utf8(${$ref}); }, }; +if (IS_MODPERL2()) { + $File->{Template_Defaults}->{cache} = TRUE; +} +elsif ($CFG->{Paths}->{Cache}) { + $File->{Template_Defaults}->{file_cache} = TRUE; + $File->{Template_Defaults}->{file_cache_dir} = + rel2abs($CFG->{Paths}->{Cache}, tmpdir()); +} undef $lang;
Received on Saturday, 24 October 2009 15:59:22 UTC