gen-ha-groups-opts.pl

   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::Groups;
  11
  12
  13 my $private = PVE::HA::Groups::private();
  14 my $properies = $private->{propertyList};
  15 delete $properies->{type};
  16 delete $properies->{group};
  17
  18 print PVE::RESTHandler::dump_properties($properies);