[librados2-perl.git] / test.pl

#!/usr/bin/perl 

use lib '.';
use strict;
use warnings;
use JSON;
use PVE::RPCEnvironment;

use Data::Dumper;

use PVE::RADOS;

my $rpcenv = PVE::RPCEnvironment->init('cli');

my $rados = PVE::RADOS::new();

my $res = $rados->mon_command({ prefix => 'get_command_descriptions'});
print Dumper($res);

$res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
print Dumper($res);

my $stat = $rados->cluster_stat;
print Dumper($stat);
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');
14aebb37 DM	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);