bin/ovh-api

diff --git a/bin/ovh-api b/bin/ovh-api
index eb8bc9959e603c18af2f72624a6433bb7891feb6..a3e64e9f53a6ea21efe54c68bb7be01522a4be86 100755 (executable)
--- 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;