From: Devops <sys@15gifts.com>
Date: Wed, 5 Jul 2017 12:03:54 +0000 (+0100)
Subject: bin/ovh-api
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=685dadceeed094a24c08a814b45bb7ef17c6e623;p=nb.git

bin/ovh-api
---

diff --git a/bin/ovh-api b/bin/ovh-api
index eb8bc995..a3e64e9f 100755
--- a/bin/ovh-api
+++ b/bin/ovh-api
@@ -166,7 +166,8 @@ sub query {
   die "$NAME: Connection failed" unless ref $response eq 'OvhApi::Answer';
 	if ($response->isFailure()) {
 	  die "$NAME: ERR: Connection failed" if $response->error() =~ /Internal Server Error/;
-	  die "$NAME: ERR: ".$response->error()."\n";
+	  warn "$NAME: ERR: ".$response->error()."\n";
+    return;
   }
 
 	my $content = $response->content;
@@ -188,6 +189,7 @@ sub query {
 
     die "$NAME: Query failed" unless ref $response eq 'OvhApi::Answer';
 	  die "$NAME: ERR: Query failed" if $response->error() =~ /Internal Server Error/;
+    next if $response->error() eq 'This Service is expired';
     die "$NAME: ERR: ".$response->error()."\n" if $response->isFailure();
 
 
@@ -295,6 +297,8 @@ my @tbs = (
     my $name =$preff.$tb->{name};
 
     print "\n-- > $name\n";
+    my @query = query($tb->{path});
+    #next unless @query;
 
     print "CREATE TABLE IF NOT EXISTS $name ("
       .join(",",map {"$_->{sql}"} @{$tb->{fields}})
@@ -307,7 +311,7 @@ my @tbs = (
     #
     # Rows 
     #
-    for ((query($tb->{path}))) {
+    for (@query) {
       my %row = %$_;
 
       my @vals;