test.pl

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