[pve-manager.git] / bin / pveam

#!/usr/bin/perl

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