From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Wed, 14 Dec 2016 11:47:58 +0000 (+0100)
Subject: ovh-api
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=a7faccfd4fc8829a162ff853e6689c61d5163eed;p=nb.git

ovh-api
---

diff --git a/bin/ovh-api b/bin/ovh-api
index 22b4f1d6..67938d6c 100755
--- a/bin/ovh-api
+++ b/bin/ovh-api
@@ -69,6 +69,10 @@ help() unless @ARGV;
 my $o = OvhApi->new(type => OvhApi::OVH_API_EU, applicationKey => $KEY[0], applicationSecret => $KEY[1], consumerKey => $KEY[2]);
 
 my $URL = shift @ARGV or help();
+# NB 14.12.16 use LWP::Simple;
+# NB 14.12.16 if ($URL eq '/help') {
+# NB 14.12.16   die LWP::Simple::get('https://eu.api.ovh.com/console/');
+# NB 14.12.16 }
 #my $URL = @ARGV == 1 ? shift @ARGV : join('/',map{uri_escape($_)} @ARGV);
 my $response = $o->get(path=>$URL,method=>$Opt{method});
 
@@ -209,7 +213,7 @@ $NAME -activate MNBaskfjh
 
 =head1 REQUIRES
 
-Getopt::Std, Pod::Usage
+Getopt::Std, Pod::Usage, OvhApi, URI::Escape, JSON
 
 =head1 COPYRIGHT AND LICENSE