Changeset 24896

Timestamp:

11/26/08 09:55:39 (4 years ago)

Author:

tokuhirom

Message:

セッション状態の保持クラスなんかも表示できるようにしてやった

Location:

lang/perl/MENTA/trunk

Files:

• TODO (modified) (1 diff)
• app/controller/session.mt (modified) (1 diff)
• plugins/session.pl (modified) (3 diffs)

lang/perl/MENTA/trunk/TODO

@@ -17 +17 @@
     - モバイルのときのセッション管理
     - やるとすれば。。。
-      - bbs 作る
       - bookmark つくる
       - wiki つくる
+      - tinyurl
+        - see http://naoya.dyndns.org/~naoya/mt/archives/001682.html
 

lang/perl/MENTA/trunk/app/controller/session.mt

@@ -3 +3 @@
 <h1>自分専用カウンターです</h1>
 
-セッションID: <?= session_session_id() ?><br />
-
-カウンタ: <?= session_set("COUNTER", (session_get("COUNTER")||0)+1) ?>
+<table>
+    <tr><td>セッションID</td><td><?= session_session_id() ?></td></tr>
+    <tr><td>カウンタ</td><td><?= session_set("COUNTER", (session_get("COUNTER")||0)+1) ?></td></tr>
+    <tr><td>セッション状態管理クラス</td><td><?= session_state_class() ?></td></tr>
+    <tr><td>セッション保存クラス</td><td><?= session_store_class() ?></td></tr>
+</table>
 
 ?= render('footer.mt')

lang/perl/MENTA/trunk/plugins/session.pl

@@ -3 +3 @@
 use HTTP::Session;
 use HTTP::Session::Store::DBM;
-use HTTP::Session::State::Cookie;
-
-$HTTP::Session::State::Cookie::COOKIE_CLASS = 'CGI::Simple::Cookie';
 
 sub _postrun {
@@ -16 +13 @@
 sub _session {
     $MENTA::STASH->{'plugin::session'} ||= sub {
+        MENTA::Util::require_once 'HTTP/Session/State/Cookie.pm';
+        $HTTP::Session::State::Cookie::COOKIE_CLASS = 'CGI::Simple::Cookie';
         my $session = HTTP::Session->new(
             store   => HTTP::Session::Store::DBM->new(
@@ -34 +33 @@
 }
 
+sub session_state_class { ref _session->state() }
+sub session_store_class { ref _session->store() }
+
 {
     no strict 'refs';