[pve-docs.git] / gen-ha-resources-opts.pl

#!/usr/bin/perl

use lib '.';
use strict;
use warnings;
use PVE::RESTHandler;

use Data::Dumper;

use PVE::HA::Resources;


my $private = PVE::HA::Resources::private();
my $properies = $private->{propertyList};
delete $properies->{type};
delete $properies->{sid};

print PVE::RESTHandler::dump_properties($properies);
Commit	Line	Data
85363588 DM	1	#!/usr/bin/perl
	2
	3	use lib '.';
	4	use strict;
	5	use warnings;
	6	use PVE::RESTHandler;
	7
	8	use Data::Dumper;
	9
	10	use PVE::HA::Resources;
	11
	12
	13	my $private = PVE::HA::Resources::private();
	14	my $properies = $private->{propertyList};
	15	delete $properies->{type};
	16	delete $properies->{sid};
	17
	18	print PVE::RESTHandler::dump_properties($properies);