PVE/APIClient/Helpers.pm

   1 package PVE::APIClient::Helpers;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Data::Dumper;
   7 use JSON;
   8 use PVE::APIClient::Exception qw(raise);
   9 use Encode::Locale;
  10 use Encode;
  11 use HTTP::Status qw(:constants);
  12
  13 my $pve_api_definition;
  14 my $pve_api_path_hash;
  15
  16 my $pve_api_definition_fn = "/usr/share/pve-client/pve-api-definition.js";
  17
  18 my $build_pve_api_path_hash;
  19 $build_pve_api_path_hash = sub {
  20     my ($tree) = @_;
  21
  22     my $class = ref($tree);
  23     return $tree if !$class;
  24
  25     if ($class eq 'ARRAY') {
  26         foreach my $el (@$tree) {
  27             $build_pve_api_path_hash->($el);
  28         }
  29     } elsif ($class eq 'HASH') {
  30         if (defined($tree->{leaf}) && defined(my $path = $tree->{path})) {
  31             $pve_api_path_hash->{$path} = $tree;
  32         }
  33         foreach my $k (keys %$tree) {
  34             $build_pve_api_path_hash->($tree->{$k});
  35         }
  36     }
  37 };
  38
  39 sub get_api_definition {
  40
  41     if (!defined($pve_api_definition)) {
  42         local $/;
  43         open(my $fh, '<',  $pve_api_definition_fn) ||
  44             die "unable to open '$pve_api_definition_fn' - $!\n";
  45         my $json_text = <$fh>;
  46         $pve_api_definition = decode_json($json_text);
  47
  48         $build_pve_api_path_hash->($pve_api_definition);
  49     }
  50
  51
  52     return $pve_api_definition;
  53 }
  54
  55 sub lookup_api_method {
  56     my ($path, $method) = @_;
  57
  58     get_api_definition(); # make sure API data is loaded
  59
  60     my $info = $pve_api_path_hash->{$path} ||
  61         die "unable to find API info for path '$path'\n";
  62
  63     my $data = $info->{info}->{$method} ||
  64         die "unable to find API method '$method' for path '$path'\n";
  65
  66     return $data;
  67 }
  68
  69 1;