Changeset 24045

Timestamp:

11/18/08 10:34:12 (5 years ago)

Author:

mattn

Message:

merge from MENTA.

Files:

• lang/perl/MENTOS/trunk/lib/MENTA.pm (modified) (5 diffs)

lang/perl/MENTOS/trunk/lib/MENTA.pm

@@ -100 +100 @@
         if ($path =~ /^[a-z0-9_]*$/) {
             $path ||= 'index';
-            my $meth = "do_$path";
             my $cdir = controller_dir();
             my $controller = "${cdir}/${path}.pl";
+            my $controller_mt = ($MENTA::BUILT ? cache_dir() : controller_dir()) . "/${path}.mt";
             if (-f $controller) {
+                my $meth = "do_$path";
                 package main;
                 do $controller;
@@ -120 +121 @@
                     die "「${path}」というモードは存在しません!${controller} の中に ${meth} が定義されていないようです";
                 }
+            } elsif (-f $controller_mt) {
+                my $out = __render_partial("${path}.mt", controller_dir());
+                utf8::encode($out);
+                print "Content-Type: text/html; charset=utf-8\r\n";
+                print "\r\n";
+                print $out;
             } else {
-                my $tmplfname = ($MENTA::BUILT ? cache_dir() : tmpl_dir()) . "/${path}.mt";
-                if (-f $tmplfname) {
-                    render("${path}.mt");
-                } else {
-                    die "「${path}」というモードは存在しません。別コントローラファイルもありません(${controller})。テンプレートファイルもありません(${tmplfname})";
-                }
+                die "「${path}」というモードは存在しません。コントローラファイルもありません(${controller})。テンプレートファイルもありません(${controller_mt})";
             }
         } elsif ($path ne 'menta.cgi' && -f "app/$path") {
@@ -225 +227 @@
 
 # TODO: ディレクトリトラバーサル対策
-sub render_partial {
-    my ($tmpl, @params) = @_;
+sub __render_partial {
+    my ($tmpl, $tmpldir, @params) = @_;
     my $conf = config()->{menta};
-    my $tmpldir = tmpl_dir();
     my $cachedir = cache_dir();
     mkdir $cachedir unless $MENTA::BUILT || -d $cachedir;
@@ -234 +235 @@
     my $tmplfname = "$tmpldir/$tmpl";
     my $use_cache = $MENTA::BUILT || sub {
-        my @orig = stat $tmplfname or return 1;
+        my @orig = stat $tmplfname or return;
         my @cached = stat $cachefname or return;
         return $orig[9] < $cached[9];
@@ -259 +260 @@
     $out;
 }
+sub render_partial {
+    my ($tmpl, @params) = @_;
+    __render_partial($tmpl, tmpl_dir(), @params);
+}
 
 sub detach() {