bin/pvectl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use PVE::Tools qw(extract_param);
   7 use PVE::Cluster qw(cfs_register_file cfs_read_file);
   8 use PVE::SafeSyslog;
   9 use PVE::INotify;
  10 use PVE::RPCEnvironment;
  11 use PVE::CLIHandler;
  12 use PVE::API2::OpenVZ;
  13
  14 use Data::Dumper; # fixme: remove
  15
  16 use base qw(PVE::CLIHandler);
  17
  18 $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
  19
  20 initlog('pvectl');
  21
  22 die "please run as root\n" if $> != 0;
  23
  24 PVE::INotify::inotify_init();
  25 my $nodename = PVE::INotify::nodename();
  26
  27 my $rpcenv = PVE::RPCEnvironment->init('cli');
  28
  29 $rpcenv->init_request();
  30 $rpcenv->set_language($ENV{LANG});
  31 $rpcenv->set_user('root@pam');
  32
  33 my $upid_exit = sub {
  34     my $upid = shift;
  35     my $status = PVE::Tools::upid_read_status($upid);
  36     exit($status eq 'OK' ? 0 : -1);
  37 };
  38
  39 my $cmddef = {
  40
  41     list => [ "PVE::API2::OpenVZ", 'vmlist', [],
  42              { node => $nodename }, sub {
  43                  my $vmlist = shift;
  44
  45                  exit 0 if (!scalar(@$vmlist));
  46
  47                  printf "%10s %-20s %-10s %-10s %-12s\n",
  48                  qw(VMID NAME STATUS MEM(MB) DISK(GB));
  49
  50                  foreach my $rec (sort { $a->{vmid} <=> $b->{vmid} } @$vmlist) {
  51                      printf "%10s %-20s %-10s %-10s %-12.2f\n", $rec->{vmid}, $rec->{name} || '',
  52                      $rec->{status},
  53                      ($rec->{maxmem} || 0)/(1024*1024),
  54                      ($rec->{maxdisk} || 0)/(1024*1024*1024);
  55                  }
  56               } ],
  57
  58     create => [ 'PVE::API2::OpenVZ', 'create_vm', ['vmid', 'ostemplate'], { node => $nodename }, $upid_exit ],
  59     destroy => [ 'PVE::API2::OpenVZ', 'destroy_vm', ['vmid'], { node => $nodename }, $upid_exit ],
  60
  61     set => [ "PVE::API2::OpenVZ", 'update_vm', ['vmid'], { node => $nodename } ],
  62
  63     config => [ "PVE::API2::OpenVZ", 'vm_config', ['vmid'],
  64                 { node => $nodename }, sub {
  65                     my $config = shift;
  66                     foreach my $k (sort (keys %$config)) {
  67                         next if $k eq 'digest';
  68                         my $v = $config->{$k};
  69                         if ($k eq 'description') {
  70                             $v = PVE::Tools::encode_text($v);
  71                         }
  72                         print "$k: $v\n";
  73                     }
  74                 }],
  75
  76     start => [ 'PVE::API2::OpenVZ', 'vm_start', ['vmid'], { node => $nodename }, $upid_exit],
  77     shutdown => [ 'PVE::API2::OpenVZ', 'vm_shutdown', ['vmid'], { node => $nodename }, $upid_exit],
  78     stop => [ 'PVE::API2::OpenVZ', 'vm_stop', ['vmid'], { node => $nodename }, $upid_exit],
  79     mount => [ 'PVE::API2::OpenVZ', 'vm_mount', ['vmid'], { node => $nodename }, $upid_exit],
  80     umount => [ 'PVE::API2::OpenVZ', 'vm_umount', ['vmid'], { node => $nodename }, $upid_exit],
  81     migrate => [ "PVE::API2::OpenVZ", 'migrate_vm', ['vmid', 'target'], { node => $nodename }, $upid_exit],
  82 };
  83
  84 my $cmd = shift;
  85
  86 PVE::CLIHandler::handle_cmd($cmddef, "pvectl", $cmd, \@ARGV, undef, $0);
  87
  88 exit 0;
  89
  90 __END__
  91
  92 =head1 NAME
  93
  94 pvectl - vzctl wrapper to manage OpenVZ containers
  95
  96 =head1 SYNOPSIS
  97
  98 =include synopsis
  99
 100 =head1 DESCRIPTION
 101
 102 This is a small wrapper around vztl.
 103
 104 =include pve_copyright