mirror of
https://git.proxmox.com/git/pve-manager
synced 2025-05-09 09:14:34 +00:00
85222f8237
Signed-off-by: Moayad Almalat <m.almalat@proxmox.com> Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
35 lines
816 B
Perl
Executable File
35 lines
816 B
Perl
Executable File
package PVE::CLI::pvesubscription;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PVE::Tools;
|
|
use PVE::SafeSyslog;
|
|
use PVE::INotify;
|
|
use PVE::RPCEnvironment;
|
|
use PVE::CLIHandler;
|
|
use PVE::API2::Subscription;
|
|
|
|
use base qw(PVE::CLIHandler);
|
|
|
|
my $nodename = PVE::INotify::nodename();
|
|
|
|
sub setup_environment {
|
|
PVE::RPCEnvironment->setup_default_cli_env();
|
|
}
|
|
|
|
our $cmddef = {
|
|
update => [ 'PVE::API2::Subscription', 'update', undef, { node => $nodename } ],
|
|
get => [ 'PVE::API2::Subscription', 'get', undef, { node => $nodename },
|
|
sub {
|
|
my $info = shift;
|
|
foreach my $k (sort keys %$info) {
|
|
print "$k: $info->{$k}\n";
|
|
}
|
|
}],
|
|
set => [ 'PVE::API2::Subscription', 'set', ['key'], { node => $nodename } ],
|
|
delete => [ 'PVE::API2::Subscription', 'delete', undef, { node => $nodename } ],
|
|
};
|
|
|
|
1;
|