data/PVE/pvecm

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