Index: httpd/cgi-bin/check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.432.2.1
diff -u -r1.432.2.1 check
--- httpd/cgi-bin/check	15 Aug 2005 22:47:51 -0000	1.432.2.1
+++ httpd/cgi-bin/check	18 Aug 2005 17:36:16 -0000
@@ -273,21 +273,34 @@
 
 my $lang = 'en_US'; # @@TODO: conneg;
 
+my %cache_opts = ();
+if ($ENV{MOD_PERL}) {
+  %cache_opts = ( cache => TRUE );
+} elsif (eval { require Storable }) {
+  %cache_opts = (
+    file_cache     => TRUE,
+    file_cache_dir => File::Spec->catdir(File::Spec->tmpdir(), 'validator'),
+  );
+}
+
 my $T = HTML::Template->new(
   filename          => File::Spec->catfile($CFG->{Paths}->{Templates},
                                            $lang, 'result.tmpl'),
   die_on_bad_params => FALSE,
   loop_context_vars => TRUE,
+  %cache_opts,
 );
 my $E = HTML::Template->new(
   filename          => File::Spec->catfile($CFG->{Paths}->{Templates},
                                            $lang, 'fatal-error.tmpl'),
   die_on_bad_params => FALSE,
+  %cache_opts,
 );
 my $H = HTML::Template->new(
   filename          => File::Spec->catfile($CFG->{Paths}->{Templates},
                                            $lang, 'http_401_authrequired.tmpl'),
   die_on_bad_params => FALSE,
+  %cache_opts,
 );
 
 $File->{T} = $T;