Changeset 22992 for lang/perl/Moxy

Timestamp:

11/08/08 11:11:00 (2 months ago)

Author:

tokuhirom

Message:

added cookies support

Location:

lang/perl/Moxy/trunk

Files:

• Makefile.PL (modified) (1 diff)
• TODO (modified) (1 diff)
• lib/Moxy.pm (modified) (4 diffs)

lang/perl/Moxy/trunk/Makefile.PL

@@ -30 +30 @@
 requires 'Path::Class';
 requires 'HTTP::Session' => 0.09;
+requires 'HTTP::Cookies';
 
 test_requires('Test::More');

lang/perl/Moxy/trunk/TODO

@@ -9 +9 @@
 - 認証まわりを flexible にしたい
 -- OpenID に対応するとか
-- cookie support
--- willcom サポート的に必要だな
--- 16:40 kan: でも、Moxy側でユーザを認証できてれば、なんとやれるんじゃない？
--- 16:40 kan: HTTP clientとしての挙動をエミュレーションすれば
 - ezweb の DisplaySize が現在ブラウジング中画像表示サイズになっているが、これは壁紙画像表示サイズであるべき
 

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

@@ -16 +16 @@
 use HTML::TreeBuilder::XPath;
 use HTML::TreeBuilder;
+use HTTP::Cookies;
 use HTTP::Session;
 use LWP::UserAgent;
@@ -318 +319 @@
     }
     $req->remove_header('Accept-Encoding'); # I HATE gziped CONTENT
+    $req->remove_header('Cookie');          # remove Cookie from the client
+
+    my $cookie_jar = $args{session}->get('cookies') || HTTP::Cookies->new(); # load cookies
+    if ($mobile_attribute->is_docomo) {
+        undef $cookie_jar; # docomo phone doesn't support cookies
+    }
 
     # do request
@@ -325 +332 @@
         protocols_allowed => [qw/http https/],
         parse_head        => 0,
+        cookie_jar        => $cookie_jar,
     );
 
@@ -331 +339 @@
     my $t2 = Time::HiRes::gettimeofday();
     $self->response_time( $t2-$t1 );
+
+    $args{session}->set('cookies' => $cookie_jar); # save cookies
 
     for my $hook ( 'security_filter', 'response_filter', "response_filter_$carrier", 'render_location_bar' ) {