Changeset 25467 for lang/perl/Moxy/trunk

Timestamp:

11/30/08 23:14:14 (6 weeks ago)

Author:

tokuhirom

Message:

please remember my sid.

Location:

lang/perl/Moxy/trunk

Files:

• assets/plugins/UserID/panel.tt (modified) (1 diff)
• lib/Moxy/Plugin/UserID.pm (modified) (3 diffs)

lang/perl/Moxy/trunk/assets/plugins/UserID/panel.tt

@@ -9 +9 @@
         <input type="submit" value="send" />
     </form>
+    <ul>
+    [% FOR entry IN history %]
+        <li><form style="display:inline" method="post" action="http://userid.moxy/[% referer | uri %]">
+            <input type="hidden" name="user_id" value="[% entry | html %]">
+            <input type="submit" value="[% entry | html %]" />
+        </form></li>
+    [% END %]
+    </ul>
 </div>

lang/perl/Moxy/trunk/lib/Moxy/Plugin/UserID.pm

@@ -34 +34 @@
         $args->{session}->set($key => $r->param('user_id'));
 
+        # save history
+        do {
+            my $key = join(',', __PACKAGE__, $args->{mobile_attribute}->user_agent, 'history');
+            my $history = $args->{session}->get($key) || [];
+            unshift @$history, $r->param('user_id');
+            $args->{session}->set($key => $history);
+        };
+
         my $response = HTTP::Response->new( 302, 'Moxy(UserID)' );
         $response->header(Location => $back);
@@ -46 +54 @@
     my $key = join(',', __PACKAGE__, $args->{mobile_attribute}->user_agent);
     my $user_id = $args->{session}->get($key);
+    my $history = $args->{session}->get(join(',', __PACKAGE__, $args->{mobile_attribute}->user_agent, 'history'));
 
     return $self->render_template(
@@ -53 +62 @@
             referer          => $args->{response}->request->uri,
             mobile_attribute => $args->{mobile_attribute},
+            history          => $history,
         }
     );