summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-06-03 08:57:48 +0200
committerfranck cuny <franck@lumberjaph.net>2010-06-03 08:57:48 +0200
commit584811b5376059011a5c832649ab8283f270cf7a (patch)
tree960e9070801182dde465f39af9bc3834972d1a3d
parenthttp-console: a simple http console to do REST query (like http://github.com/... (diff)
downloadmoosex-net-api-584811b5376059011a5c832649ab8283f270cf7a.tar.gz
post and put
Diffstat (limited to '')
-rw-r--r--bin/http-console53
1 files changed, 44 insertions, 9 deletions
diff --git a/bin/http-console b/bin/http-console
index 6f0e1f8..1fd4fd3 100644
--- a/bin/http-console
+++ b/bin/http-console
@@ -1,18 +1,18 @@
 use strict;
 use warnings;
 use 5.010;
-use Term::ReadLine;
 
+use Term::ReadLine;
 use Getopt::Long;
 use YAML::Syck;
 
-my $url = shift;
+my $url         = shift;
 my $format_mode = 'append';
-my $format = 'json';
+my $format      = 'json';
 
 GetOptions(
     'm=s' => \$format_mode,
-    'f=s'      => \$format,
+    'f=s' => \$format,
 );
 
 package http::net::console;
@@ -25,9 +25,12 @@ my ($content, $result);
 my $term   = Term::ReadLine->new("http::net::console");
 my $prompt = $url . '> ';
 while (defined(my $in = $term->readline($prompt))) {
-    if ($in =~ /^(GET|PUT|POST|DELETE)\s(.*)$/) {
-        my $http_console =
-          http::net::console->new(api_base_url => $url, api_format => $format, api_format_mode => $format_mode);
+    if ($in =~ /^(GET|DELETE)\s(.*)$/) {
+        my $http_console = http::net::console->new(
+            api_base_url    => $url,
+            api_format      => $format,
+            api_format_mode => $format_mode
+        );
         $http_console->meta->add_net_api_method(
             'anonymous',
             method => $1,
@@ -36,11 +39,43 @@ while (defined(my $in = $term->readline($prompt))) {
         ($content, $result) = $http_console->anonymous;
         say $result->content;
     }
-    if ($in eq 'show headers') {
+    elsif ($in =~ /^(POST|PUT)\s(.*)(?:\s\-d\s(.*))$/) {
+        my $method       = $1;
+        my $path         = $2;
+        my $data         = $3;
+        my $http_console = http::net::console->new(
+            api_base_url    => $url,
+            api_format      => $format,
+            api_format_mode => $format_mode,
+        );
+        $http_console->meta->add_net_api_method(
+            'anonymous',
+            method => $method,
+            path   => $path
+        );
+        $http_console->api_useragent->add_handler(
+            request_prepare => sub {
+                my $request = shift;
+                $request->content($data);
+            }
+        );
+        ($content, $result) = $http_console->anonymous;
+        say $result->content;
+    }
+    elsif ($in eq 'show headers') {
         if (defined $result) {
             say Dump $result->headers;
-        }else{
+        }
+        else {
             say "no headers to show";
         }
     }
+    elsif ($in eq 'show content') {
+        if (defined $content) {
+            say Dump $result->content;
+        }
+        else {
+            say "no content to show";
+        }
+    }
 }