diff options
author | franck cuny <franck@lumberjaph.net> | 2010-06-03 08:57:48 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-06-03 08:57:48 +0200 |
commit | 584811b5376059011a5c832649ab8283f270cf7a (patch) | |
tree | 960e9070801182dde465f39af9bc3834972d1a3d | |
parent | http-console: a simple http console to do REST query (like http://github.com/... (diff) | |
download | moosex-net-api-584811b5376059011a5c832649ab8283f270cf7a.tar.gz |
post and put
Diffstat (limited to '')
-rw-r--r-- | bin/http-console | 53 |
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"; + } + } } |