]>
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); |