projects / pve-manager.git / blame
| Commit | Line | Data |
|---|---|---|
| 8002175e DM |
1 | package PVE::CLI::pvesubscription; |
| 2 | ||
| 3 | use strict; | |
| 4 | use warnings; | |
| 5 | ||
| 6 | use PVE::Tools; | |
| 7 | use PVE::SafeSyslog; | |
| 8 | use PVE::INotify; | |
| 9 | use PVE::RPCEnvironment; | |
| 10 | use PVE::CLIHandler; | |
| 11 | use PVE::API2::Subscription; | |
| 12 | ||
| 13 | use base qw(PVE::CLIHandler); | |
| 14 | ||
| 15 | my $nodename = PVE::INotify::nodename(); | |
| 16 | ||
| 17 | our $cmddef = { | |
| 18 | update => [ 'PVE::API2::Subscription', 'update', undef, { node => $nodename } ], | |
| 19 | get => [ 'PVE::API2::Subscription', 'get', undef, { node => $nodename }, | |
| 20 | sub { | |
| 21 | my $info = shift; | |
| 22 | foreach my $k (sort keys %$info) { | |
| 23 | print "$k: $info->{$k}\n"; | |
| 24 | } | |
| 25 | }], | |
| 26 | set => [ 'PVE::API2::Subscription', 'set', ['key'], { node => $nodename } ], | |
| 27 | }; | |
| 28 | ||
| 29 | 1; | |
| 30 | ||
| 31 | __END__ | |
| 32 | ||
| 33 | =head1 NAME | |
| 34 | ||
| 35 | pvesubscription - Proxmox VE subscription mamager | |
| 36 | ||
| 37 | =head1 SYNOPSIS | |
| 38 | ||
| 39 | =include synopsis | |
| 40 | ||
| 41 | =head1 DESCRIPTION | |
| 42 | ||
| 43 | This tool is used to handle pve subscriptions. | |
| 44 | ||
| 45 | =include pve_copyright |