[pve-client.git] / extractapi.pl

#!/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);
Commit	Line	Data
8ef77d25 DM	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use PVE::RESTHandler;
	7	use PVE::API2;
	8	use JSON;
	9
	10	my $tree = PVE::RESTHandler::api_dump_remove_refs(PVE::RESTHandler::api_dump('PVE::API2'));
	11	print to_json($tree, {pretty => 1, canonical => 1}) . "\n";
	12
	13	exit(0);