bin/pveam

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use PVE::Cluster;
   5 use PVE::APLInfo;
   6
   7 if (scalar (@ARGV) != 1) {
   8     print STDERR "usage: $0 CMD\n";
   9     exit (-1);
  10 }
  11
  12 my $cmd = shift;
  13
  14 if ($cmd eq 'update') {
  15     my $dccfg = PVE::Cluster::cfs_read_file('datacenter.cfg');
  16     exit (0) if PVE::APLInfo::update($dccfg->{http_proxy});
  17     print STDERR "update failed - see /var/log/pveam.log for details\n";
  18     exit (-1);
  19 } else {
  20     print STDERR "unknown CMD '$cmd'\n";
  21     exit (-1);
  22 }