From 796e3cd5ab96471fea69e2ec766c018c1cc435af Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Tue, 3 Jun 2003 07:07:00 +0000
Subject: add Template-Compiled for blog

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@928 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 blog/blog.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'blog')

diff --git a/blog/blog.pl b/blog/blog.pl
index 8568c759..c14ca34a 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: blog.pl,v 1.17 2003/06/03 02:50:38 in2 Exp $
+# $Id: blog.pl,v 1.18 2003/06/03 07:06:59 in2 Exp $
 use CGI qw/:standard/;
 use lib qw/./;
 use LocalVars;
@@ -205,11 +205,14 @@ sub main
     }
 
     # ¥Î Template Toolkit ¿é¥X
+    mkdir "$BLOGCACHE/$brdname";
     $tmpl = Template->new({INCLUDE_PATH => '.',
 			   ABSOLUTE => 0,
 			   RELATIVE => 0,
 			   RECURSION => 0,
 			   EVAL_PERL => 0,
+			   COMPILE_EXT => '.pl',
+			   COMPILE_DIR => "$BLOGCACHE/$brdname/",
 		       });
     chdir "$BLOGDATA/$brdname/";
     $tmpl->process($fn, \%th) ||
-- 
cgit v1.2.3