Changeset 23662

Timestamp:

11/14/08 17:25:54 (5 years ago)

Author:

tokuhirom

Message:

r30516@skinny: tokuhirom | 2008-11-14 15:24:51 +0900
redirect とか render とかよんだ瞬間にデタッチすることにした。

Location:

lang/perl/MENTA/trunk

Files:

• NOTE (modified) (1 diff)
• app/data/data.sqlite (modified) (previous)
• app/menta.cgi (modified) (2 diffs)
• app/tmpl/bbs.html (modified) (1 diff)
• lib/MENTA.pm (modified) (11 diffs)

lang/perl/MENTA/trunk/NOTE

@@ -51 +51 @@
     フックとかつける?
     redirect/render とかは発行したら detach するべき
+    uri_with っぽいのもほしい。
 

lang/perl/MENTA/trunk/app/menta.cgi

@@ -31 +31 @@
 sub do_index {
     render('index.html');
+    die "DON'T REACH HERE";
 }
 
@@ -54 +55 @@
     render('mobile.html');
 }
+

lang/perl/MENTA/trunk/app/tmpl/bbs.html

@@ -3 +3 @@
 %=r render_partial('header.html', $title)
 <h1><%= $title %></h1>
-<form method="post" action="<%= docroot %>bbs_sqlite">
+<form method="post" action="<%= uri_for('bbs_sqlite') %>">
 <input type="text" name="body" />
 <input type="submit" value="送信" />

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

@@ -4 +4 @@
 use utf8;
 
-our $FINISHED;
 our $REQ;
 our $CONFIG;
@@ -44 +43 @@
     local $MENTA::CONFIG;
     local $MENTA::REQ;
-    local $MENTA::FINISHED = 0;
     local $MENTA::CARRIER;
 
@@ -54 +52 @@
     local $SIG{__DIE__} = sub {
         my $msg = shift;
+        return $msg if ref $msg && ref $msg eq 'HASH' && $msg->{finished};
         my $i = 0;
         my @trace;
@@ -98 +97 @@
             if (my $code = main->can($meth)) {
                 $code->();
-                unless ($MENTA::FINISHED) {
-                    die "なにも出力してません";
-                }
+                die "なにも出力してません";
             } else {
                 if (my $cdir = config->{menta}->{controller_dir}) {
@@ -110 +107 @@
                         if (my $code = main->can($meth)) {
                             $code->();
-                            unless ($MENTA::FINISHED) {
-                                die "なにも出力してません";
-                            }
+                            die "なにも出力してません";
                         } else {
                             die "「${mode}」というモードは存在しません!${controller} の中に ${meth} が定義されていないようです";
@@ -139 +134 @@
     if (my $err = $@) {
         die "エラー処理失敗: $err" unless ref $err eq 'HASH';
+        return if $err->{finished};
 
         warn $err->{message};
@@ -223 +219 @@
 }
 
+sub finish() {
+    die {finished => 1};
+}
+
 sub render {
     my ($tmpl, @params) = @_;
@@ -231 +231 @@
     print $out;
 
-    $MENTA::FINISHED++;
+    finish;
 }
 
@@ -240 +240 @@
     print "\r\n";
 
-    $MENTA::FINISHED++;
+    finish;
 }
 
@@ -251 +251 @@
     print $str;
 
-    $MENTA::FINISHED++;
+    finish;
 }
 
@@ -344 +344 @@
 }
 
+sub uri_for {
+    my ($path, $query) = @_;
+    my @q;
+    while (my ($key, $val) = each %$query) {
+        $val = join '', map { '%' . unpack("H2", $_) } split //, $val;
+        push @q, "$key=$val";
+    }
+    docroot . $path . join('&', @q);
+}
+
 1;