From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Tue, 7 Feb 2017 09:31:47 +0000 (+0000)
Subject: bin/ovh-api
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=aa1aa7a458591c3b5378c8c8bf2904a1c14062ce;p=nb.git

bin/ovh-api
---

diff --git a/bin/ovh-api b/bin/ovh-api
index 89f6e3c1..cc16fff9 100755
--- a/bin/ovh-api
+++ b/bin/ovh-api
@@ -1,9 +1,6 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use URI::Escape qw(uri_escape);
-use JSON;
-use OvhApi;
 #################################################################################
 #
 # VERSION
@@ -38,12 +35,14 @@ get_options(\%Opt);
 # NB 04.02.17 }
 $main::_DATA_ = '';
 
-
 #################################################################################
 #
 # BEGIN
 #
 #################################################################################
+use JSON;
+use LWP::UserAgent;
+use OvhApi;
 #use Data::Dumper;
 my $config = "$ENV{HOME}/.$NAME";
 my @KEY = ();
@@ -106,7 +105,7 @@ sub query {
 	my $URL = shift @ARGV or help();
   my %aliases = (
     '/server' => '/dedicated/server',
-    #'/dns' => '/domain/zone',
+    '/dns' => '/domain/zone',
   );
   exists $aliases{$URL} and $URL = $aliases{$URL};
 	my $BODY = @ARGV ? shift(@ARGV) : {};
@@ -366,10 +365,13 @@ $NAME - Script to query ovh's api
 
   1. Get your consumerKey:
     $NAME applicationKey:applicationSecret
+
   2. Store your complete key
+
     echo 'applicationKey:applicationSecret:consumerKey' > ~/.ovh-api && chmod 600 ~/.ovh-api
   3. Activate your key
     Ex: https://eu.api.ovh.com/auth/?credentialToken=fXOwsn9y2qYHiIclcxChmAAYQLZLEPQEENAPz2EeAYDWj9W0CY9yVQR35bLi2540
+
   4. Use the api
     $NAME applicationKey:applicationSecret:consumerKey /PATH
     $NAME /PATH
@@ -377,7 +379,7 @@ $NAME - Script to query ovh's api
 
 =head1 OPTIONS
 
- option[jq]        Pipe stdout to | jq .
+ option[jq]         Pipe stdout to | jq .
  option[sql]        Produce sql to update a database
  option[rows|r]     Print each rows of a table (eg /ip, /server, ...)
  option[method|m=s] Method (default: GET)
@@ -392,9 +394,9 @@ $NAME - Script to query ovh's api
 
 =head1 DESCRIPTION
 
-From https://api.ovh.com/console:
+See for more examples: https://api.ovh.com/console
 
-	/ip
+  /ip
   /domain/zone/<DOMAIN>/export
   /dedicated/server
   /dedicated/server/<SERVER>
@@ -404,7 +406,8 @@ From https://api.ovh.com/console:
   Getopt::Std, Pod::Usage, OvhApi, URI::Escape, JSON
 
   * apt-get install -y libjson-perl libwww-perl
-	* port install p5.24-json p5.24-lwp p5.24-uri
+	* port install p5-json p5-lwp p5-libwww-perl
+  p5.24-libwww-perl
 
 =head1 COPYRIGHT AND LICENSE