pve6to7: storage content: skip scanning storage if shared

[pve-manager.git] / PVE / CLI / pvesubscription.pm

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;