PMG/CLI/pmgbackup.pm

   1 package PMG::CLI::pmgbackup;
   2
   3 use strict;
   4 use warnings;
   5 use Data::Dumper;
   6
   7 use PVE::Tools;
   8 use PVE::SafeSyslog;
   9 use PVE::INotify;
  10 use PVE::CLIHandler;
  11
  12 use PMG::RESTEnvironment;
  13 use PMG::API2::Backup;
  14
  15 use base qw(PVE::CLIHandler);
  16
  17 my $nodename = PVE::INotify::nodename();
  18
  19 sub setup_environment {
  20     PMG::RESTEnvironment->setup_default_cli_env();
  21 }
  22
  23 my $format_backup_list = sub {
  24     my ($data) = @_;
  25
  26     foreach my $entry (@$data) {
  27         printf("%-30s %10d\n", $entry->{filename}, $entry->{size});
  28     }
  29 };
  30
  31 our $cmddef = {
  32     backup => [ 'PMG::API2::Backup', 'backup', undef, { node => $nodename } ],
  33     restore => [ 'PMG::API2::Backup', 'restore', undef, { node => $nodename } ],
  34     list => [ 'PMG::API2::Backup', 'list', undef, { node => $nodename }, $format_backup_list ],
  35 };
  36
  37 1;