test.pl

   1 #!/usr/bin/perl
   2
   3 use lib '.';
   4 use strict;
   5 use warnings;
   6 use JSON;
   7 use PVE::RPCEnvironment;
   8
   9 use Data::Dumper;
  10
  11 use PVE::RADOS;
  12
  13 my $rpcenv = PVE::RPCEnvironment->init('cli');
  14
  15 my $rados = PVE::RADOS::new();
  16
  17 my $res = $rados->mon_command({ prefix => 'get_command_descriptions'});
  18 print Dumper($res);
  19
  20 $res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
  21 print Dumper($res);
  22
  23 my $stat = $rados->cluster_stat;
  24 print Dumper($stat);