Option ip-is-routed

diff --git a/bin/ovh-api b/bin/ovh-api
index 6100e8b46a434e4dde4a0cb4e48d46cfbeed78d6..a61e138163ff8b1690adc0f600c9b61c94303929 100755 (executable)
--- a/bin/ovh-api
+++ b/bin/ovh-api
@@ -59,15 +59,12 @@ ip_move($Opt{'ip-move'}) if $Opt{'ip-move'};
 if ($Opt{'ip-routed'}) {
   my @routed = ip_routed($Opt{'ip-routed'});
   print JSON::encode_json(\@routed);
-  require Sys::Hostname;
-  my $localhost = Sys::Hostname::hostname();
   exit 0;
 }
 
 if ($Opt{'ip-is-routed'}) {
   my @routed = ip_routed($Opt{'ip-is-routed'});
-  require Sys::Hostname;
-  my $localhost = Sys::Hostname::hostname();
+  my $localhost = hostname();
   exit ! grep {$_ eq $localhost} @routed;
 }
 
@@ -83,6 +80,11 @@ exit 0;
 # Functions
 #
 #################################################################################
+sub hostname {
+  require Sys::Hostname;
+  return Sys::Hostname::hostname();
+}
+
 sub ips() {
   return grep defined map {
     /^\s*inet (?:addr:)?([\d\.]+)/ and $1 ne "127.0.0.1"
@@ -127,9 +129,8 @@ sub ip_routed {
 
 sub ip_move {
   my ($ip) = @_;
-  require Sys::Hostname;
 
-  my $localhost = Sys::Hostname::hostname();
+  my $localhost = hostname();
 
   my $rec = _query("/ip/$ip") or exit 1;