ovh-api

diff --git a/bin/ovh-api b/bin/ovh-api
index 22b4f1d6a62526e43845a4152cc81b3559a22a2e..67938d6ca58afb577cb360a752cbdb55915664a4 100755 (executable)
--- 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