mirror of
git://git.proxmox.com/git/pve-docs.git
synced 2025-01-20 14:03:42 +03:00
19 lines
318 B
Perl
19 lines
318 B
Perl
|
#!/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);
|