mirror of
git://git.proxmox.com/git/pve-docs.git
synced 2025-01-06 13:17:48 +03:00
19 lines
314 B
Perl
Executable File
19 lines
314 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use lib '.';
|
|
use strict;
|
|
use warnings;
|
|
use PVE::RESTHandler;
|
|
|
|
use Data::Dumper;
|
|
|
|
use PVE::HA::Groups;
|
|
|
|
|
|
my $private = PVE::HA::Groups::private();
|
|
my $properies = $private->{propertyList};
|
|
delete $properies->{type};
|
|
delete $properies->{group};
|
|
|
|
print PVE::RESTHandler::dump_properties($properies);
|