]>
git.proxmox.com Git - pve-cluster.git/blob - data/PVE/test1.pl
7 use PVE
::AccessControl
;
11 my $nodename = PVE
::INotify
::nodename
();
12 PVE
::Cluster
::log_msg
(1, "ident2", "msg1 öäü");
13 PVE
::Cluster
::log_msg
(1, "root\@pam", "msg1 öäü");
14 #print PVE::Cluster::get_system_log(undef, 0);
17 #print PVE::Cluster::get_system_log(undef, 0);
19 #PVE::Cluster::cfs_update();
21 #my $res = PVE::Cluster::get_vmlist();
22 #print "TEST1: " . Dumper($res->{ids});
29 print "update start\n";
30 PVE
::Cluster
::cfs_update
();
33 my $res = PVE
::Cluster
::rrd_dump
();
34 print "RRDDATA:" . Dumper
($res);
36 #my $res = PVE::Cluster::cfs_file_version('user.cfg');
48 PVE
::Cluster
::update
();
50 PVE
::Cluster
::broadcast_vminfo
({ count
=> $loopcount});
52 my $res = PVE
::Cluster
::get_vminfo
($nodename);
53 print "TEST1: " . Dumper
($res);
55 if (defined($res = PVE
::Cluster
::get_config
("cluster.conf"))) {
56 print "TEST2: " . Dumper
($res);
58 warn "get_config failed: $!\n";