mirror of
https://git.proxmox.com/git/pve-manager
synced 2025-06-14 03:44:20 +00:00
34 lines
731 B
Perl
Executable File
34 lines
731 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 } ],
|
|
};
|
|
|
|
1;
|