extractapi.pl

   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
  11 my $tree = PVE::RESTHandler::api_dump_remove_refs(PVE::RESTHandler::api_dump('PVE::API2'));
  12
  13 print "var pveapi = " . to_json($tree, {pretty => 1, canonical => 1}) . ";\n\n";
  14
  15 exit(0);