use better regex for remote ip check

while the input should be correctly generated by the other site its
still better to be on the safe side, so check if the IP is really an
valid one.

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/src/PVE/AbstractMigrate.pm b/src/PVE/AbstractMigrate.pm
index b58d45947b7b8455e711ef65b911411ed6943449..140b4796f3a0f1a9291a3ef20fe2b6b74768c731 100644 (file)
--- a/src/PVE/AbstractMigrate.pm
+++ b/src/PVE/AbstractMigrate.pm
@@ -95,8 +95,7 @@ sub get_remote_migration_ip {
     PVE::Tools::run_command($cmd, outfunc => sub {
        my $line = shift;
 
     PVE::Tools::run_command($cmd, outfunc => sub {
        my $line = shift;
 

-       # use non-restrictive regex for ip, its already checked by the remote side
-       if ($line =~ m/^ip: '(\S+)'$/) {
+       if ($line =~ m/^ip: '($PVE::Tools::IPRE)'$/) {

           $ip = $1;
        }
     });
           $ip = $1;
        }
     });