pve-client/extractapi.pl
2018-05-22 14:11:05 +02:00

14 lines
254 B
Perl
Executable File

#!/usr/bin/perl
use strict;
use warnings;
use PVE::RESTHandler;
use PVE::API2;
use JSON;
my $tree = PVE::RESTHandler::api_dump_remove_refs(PVE::RESTHandler::api_dump('PVE::API2'));
print to_json($tree, {pretty => 1, canonical => 1}) . "\n";
exit(0);