]>
git.proxmox.com Git - pve-docs.git/blob - extractapi.pl
14 if ($class eq 'ARRAY') {
16 foreach my $el (@$h) {
17 push @$res, cleanup_tree
($el);
20 } elsif ($class eq 'HASH') {
22 foreach my $k (keys %$h) {
23 if (my $class = ref($h->{$k})) {
24 if ($class eq 'CODE') {
25 next if $k eq 'completion';
27 $res->{$k} = cleanup_tree
($h->{$k});
29 $res->{$k} = $h->{$k};
33 } elsif ($class eq 'Regexp') {
34 return "$h"; # return string representation
36 die "unknown class '$class'\n";
40 my $tree = cleanup_tree
(PVE
::RESTHandler
::api_dump
('PVE::API2'));
42 print "var pveapi = " . to_json
($tree, {pretty
=> 1, canonical
=> 1}) . ";\n\n";