PVE::APIClient::Helpers::extract_even_elements - new helper

[pve-client.git] / extractapi.pl

diff --git a/extractapi.pl b/extractapi.pl
index 1971c9cf139edd4eee26d4cdb120fb9f4467404a..8a650df26a9e99a4bff642ba8d8bf2b0bed295ab 100755 (executable)
--- a/extractapi.pl
+++ b/extractapi.pl
@@ -32,9 +32,16 @@ sub remove_code_refs {
     }
 }
 
-my $tree = PVE::RESTHandler::api_dump('PVE::API2', undef, 1);
-
-remove_code_refs($tree);
-Storable::store_fd($tree, \*STDOUT);
+my $root = {
+    path => '/',
+    text => '',
+    children =>  PVE::RESTHandler::api_dump('PVE::API2', undef, 1),
+    info => {
+       GET =>  PVE::API2->map_method_by_name('index'),
+    },
+};
+
+remove_code_refs($root);
+Storable::store_fd($root, \*STDOUT);
 
 exit(0);