yesBad/pve-storage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PVE::ReplicationTools - only use required modules (remove Time::Local)

Browse Source
This commit is contained in:
Dietmar Maurer
2017-05-05 15:30:58 +02:00
parent d884a78870
commit e9b759ac30
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
PVE/ReplicationTools.pm
View File

@ -2,17 +2,16 @@ package PVE::ReplicationTools;
use warnings; use warnings;
use strict; use strict;
use Data::Dumper;
use JSON;
use PVE::Tools qw(run_command); use PVE::Tools;
use PVE::Cluster; use PVE::Cluster;
use PVE::QemuConfig; use PVE::QemuConfig;
use PVE::QemuServer; use PVE::QemuServer;
use PVE::LXC::Config; use PVE::LXC::Config;
use PVE::LXC; use PVE::LXC;
use PVE::Storage; use PVE::Storage;
use Time::Local;
use JSON;
use Data::Dumper qw(Dumper);
my $STATE_DIR = '/var/lib/pve-replica'; my $STATE_DIR = '/var/lib/pve-replica';
my $STATE_PATH = "$STATE_DIR/pve-replica.state"; my $STATE_PATH = "$STATE_DIR/pve-replica.state";
@ -69,7 +68,7 @@ sub get_node_ip {
if (my $network = $dc_conf->{storage_replication_network}) { if (my $network = $dc_conf->{storage_replication_network}) {
my $cmd = ['ssh', '-o', 'Batchmode=yes', "root\@$remoteip", '--' my $cmd = ['ssh', '-o', 'Batchmode=yes', "root\@$remoteip", '--'
,'pvecm', 'mtunnel', '--get_migration_ip', ,'pvecm', 'mtunnel', '--get_migration_ip e',
'--migration_network', $network]; '--migration_network', $network];
PVE::Tools::run_command($cmd, outfunc => sub { PVE::Tools::run_command($cmd, outfunc => sub {