]>
Commit | Line | Data |
---|---|---|
00185d20 DM |
1 | #!/usr/bin/perl |
2 | ||
3 | use lib '.'; | |
4 | use strict; | |
5 | use warnings; | |
6 | use JSON; | |
14aebb37 | 7 | use PVE::RPCEnvironment; |
00185d20 DM |
8 | |
9 | use Data::Dumper; | |
10 | ||
11 | use PVE::RADOS; | |
12 | ||
14aebb37 DM |
13 | my $rpcenv = PVE::RPCEnvironment->init('cli'); |
14 | ||
00185d20 | 15 | my $rados = PVE::RADOS::new(); |
00185d20 | 16 | |
f5996c62 DM |
17 | my $res = $rados->mon_command({ prefix => 'get_command_descriptions'}); |
18 | print Dumper($res); | |
19 | ||
00185d20 DM |
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); |