]>
Commit | Line | Data |
---|---|---|
7181f622 DM |
1 | #!/usr/bin/perl |
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 { |
11 | my $nodename = PVE::INotify::nodename(); | |
fe000966 | 12 | |
fe000966 DM |
13 | PVE::Cluster::check_cfs_is_mounted(); |
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); |