]>
Commit | Line | Data |
---|---|---|
00185d20 DM |
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); |