PMG/CLI/pmgbackup.pm

   1 package PMG::CLI::pmgbackup;
   2
   3 use strict;
   4 use warnings;
   5
   6 use PVE::Tools;
   7 use PVE::SafeSyslog;
   8 use PVE::INotify;
   9 use PVE::CLIHandler;
  10
  11 use PMG::RESTEnvironment;
  12 use PMG::API2::Backup;
  13
  14 use base qw(PVE::CLIHandler);
  15
  16 my $nodename = PVE::INotify::nodename();
  17
  18 sub setup_environment {
  19     PMG::RESTEnvironment->setup_default_cli_env();
  20 }
  21
  22 our $cmddef = {
  23     backup => [ 'PMG::API2::Backup', 'backup', undef, { node => $nodename } ],
  24     restore => [ 'PMG::API2::Backup', 'restore', undef, { node => $nodename } ],
  25     list => [ 'PMG::API2::Backup', 'list', undef, { node => $nodename } ],
  26 };
  27
  28 1;