[pve-cluster.git] / data / PVE / pvecm

#!/usr/bin/perl

use strict;
use warnings;

use PVE::INotify;
use PVE::Cluster;
use PVE::CLI::pvecm;

my $prepare = sub {
    my $nodename = PVE::INotify::nodename();

    PVE::Cluster::check_cfs_is_mounted();
    PVE::Cluster::cfs_update();

    # trigger check that we have resolvable name
    my $local_ip_address = PVE::Cluster::remote_node_ip($nodename);
};

PVE::CLI::pvecm->run_cli_handler(prepare => $prepare, no_rpcenv => 1);
Commit	Line	Data
7181f622 DM	1	#!/usr/bin/perl
7181f622 DM	2
fe000966	3	use strict;
7181f622	4	use warnings;
fe000966	5
13d44dc5 DM	6	use PVE::INotify;
	7	use PVE::Cluster;
	8	use PVE::CLI::pvecm;
fe000966	9
13d44dc5 DM	10	my $prepare = sub {
13d44dc5 DM	11	my $nodename = PVE::INotify::nodename();
fe000966	12
fe000966 DM	13	PVE::Cluster::check_cfs_is_mounted();
fe000966 DM	14	PVE::Cluster::cfs_update();
fe000966	15
13d44dc5 DM	16	# trigger check that we have resolvable name
	17	my $local_ip_address = PVE::Cluster::remote_node_ip($nodename);
	18	};
fe000966	19
1b776004	20	PVE::CLI::pvecm->run_cli_handler(prepare => $prepare, no_rpcenv => 1);