summaryrefslogtreecommitdiffstats
path: root/blog/blog.pl
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-06-03 15:07:00 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-06-03 15:07:00 +0800
commit796e3cd5ab96471fea69e2ec766c018c1cc435af (patch)
tree593c721a527a5c0333cd91439589918df1f6e903 /blog/blog.pl
parentaab2e007ac5ff632835653a727d01b1d4de3a9eb (diff)
downloadpttbbs-796e3cd5ab96471fea69e2ec766c018c1cc435af.tar
pttbbs-796e3cd5ab96471fea69e2ec766c018c1cc435af.tar.gz
pttbbs-796e3cd5ab96471fea69e2ec766c018c1cc435af.tar.bz2
pttbbs-796e3cd5ab96471fea69e2ec766c018c1cc435af.tar.lz
pttbbs-796e3cd5ab96471fea69e2ec766c018c1cc435af.tar.xz
pttbbs-796e3cd5ab96471fea69e2ec766c018c1cc435af.tar.zst
pttbbs-796e3cd5ab96471fea69e2ec766c018c1cc435af.zip
add Template-Compiled for blog
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@928 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'blog/blog.pl')
-rwxr-xr-xblog/blog.pl5
1 files changed, 4 insertions, 1 deletions
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) ||