NEW FEATURE: '--cookie-jar' option for saving response cookie

bayashi · Jul 13, 2013 · b097baa · b097baa
1 parent ccacc10
commit b097baa
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 0 deletions.
diff --git a/Build.PL b/Build.PL
@@ -24,6 +24,7 @@ my $builder = Module::Build->new(
         'Pod::Usage' => 0,
         'LWP::UserAgent' => 0,
         'HTTP::Request' => 0,
+        'HTTP::Cookies' => 0,
         'Data::Printer' => 0,
         'JSON::Pointer' => 0,
         'JSON' => 0,

diff --git a/lib/App/aki.pm b/lib/App/aki.pm
@@ -4,6 +4,7 @@ use warnings;
 use Getopt::Long qw/GetOptionsFromArray/;
 use LWP::UserAgent;
 use HTTP::Request;
+use HTTP::Cookies;
 use Data::Printer qw//;
 use Encode qw//;
 use File::Spec;
@@ -77,6 +78,12 @@ sub run {
 
     my $res = _request($config);
 
+    if ($config->{cookie_jar}) {
+        my $cookie_jar = HTTP::Cookies->new;
+        $cookie_jar->extract_cookies($res);
+        $cookie_jar->save($config->{cookie_jar});
+    }
+
     if ($config->{raw}) {
         print $res->content;
         exit;
@@ -305,6 +312,7 @@ sub _merge_opt {
         'timeout=i'     => \$config->{timeout},
         'H|header=s@'   => \$config->{header},
         'b|cookie=s'    => \$config->{cookie},
+        'c|cookie-jar=s' => \$config->{cookie_jar},
         'u|user=s'      => \$config->{user},
         'p|pointer=s'   => \$config->{pointer},
         'ie|in-enc=s'   => \$config->{in_enc},

diff --git a/script/aki b/script/aki
@@ -23,6 +23,7 @@ aki - The command-line data processor for web content
     -m,  --method        HTTP method(default: GET)
     -H,  --header        request header
     -b,  --cookie        cookie file path for request
+    -c,  --cookie-jar    file path for saving response cookie
     -u,  --user          basic authentication credentials( "user:passwd" )
     -p,  --pointer       JSON pointer string(See: JSON::Pointer)
     -ie, --in-enc        input encoding(default: utf8)