[pve-manager-legacy.git] / bin / pveam

#!/usr/bin/perl -w

use strict;
use PVE::Cluster;
use PVE::APLInfo;

if (scalar (@ARGV) != 1) {
    print STDERR "usage: $0 CMD\n";
    exit (-1);
}

my $cmd = shift;

if ($cmd eq 'update') {
    my $dccfg = PVE::Cluster::cfs_read_file('datacenter.cfg');
    exit (0) if PVE::APLInfo::update($dccfg->{http_proxy});
    print STDERR "update failed - see /var/log/pveam.log for details\n";
    exit (-1);
} else {
    print STDERR "unknown CMD '$cmd'\n";
    exit (-1);
}
Commit	Line	Data
5910d3b7 DM	1	#!/usr/bin/perl -w
	2
	3	use strict;
8d4f53a0	4	use PVE::Cluster;
82f9a5d7	5	use PVE::APLInfo;
5910d3b7 DM	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') {
8d4f53a0	15	my $dccfg = PVE::Cluster::cfs_read_file('datacenter.cfg');
82f9a5d7 DM	16	exit (0) if PVE::APLInfo::update($dccfg->{http_proxy});
82f9a5d7 DM	17	print STDERR "update failed - see /var/log/pveam.log for details\n";
5910d3b7 DM	18	exit (-1);
	19	} else {
	20	print STDERR "unknown CMD '$cmd'\n";
	21	exit (-1);
	22	}