Commit 8d4f53a0 authored by Dietmar Maurer's avatar Dietmar Maurer

do not install PVE::APLInfo

We need to rewrite that for final 2.0 release.
parent 1b3f8012
...@@ -10,8 +10,7 @@ PERLSOURCE = \ ...@@ -10,8 +10,7 @@ PERLSOURCE = \
REST.pm \ REST.pm \
OpenVZ.pm \ OpenVZ.pm \
OpenVZMigrate.pm \ OpenVZMigrate.pm \
VZDump.pm \ VZDump.pm
APLInfo.pm
all: pvecfg.pm ${SUBDIRS} all: pvecfg.pm ${SUBDIRS}
......
#!/usr/bin/perl -w #!/usr/bin/perl -w
use strict; use strict;
use PVE::APLInfo; use PVE::Cluster;
use PVE::Config; #use PVE::APLInfo;
if (scalar (@ARGV) != 1) { if (scalar (@ARGV) != 1) {
print STDERR "usage: $0 CMD\n"; print STDERR "usage: $0 CMD\n";
...@@ -12,9 +12,10 @@ if (scalar (@ARGV) != 1) { ...@@ -12,9 +12,10 @@ if (scalar (@ARGV) != 1) {
my $cmd = shift; my $cmd = shift;
if ($cmd eq 'update') { if ($cmd eq 'update') {
my $pvecfg = PVE::Config::read_file('pvecfg'); my $dccfg = PVE::Cluster::cfs_read_file('datacenter.cfg');
exit (0) if PVE::APLInfo::update($pvecfg->{http_proxy}); die "sorry, this is currently not implemented\n";
print STDERR "update failed - see /var/log/pveam.log for details\n"; #exit (0) if PVE::APLInfo::update($dccfg->{http_proxy});
#print STDERR "update failed - see /var/log/pveam.log for details\n";
exit (-1); exit (-1);
} else { } else {
print STDERR "unknown CMD '$cmd'\n"; print STDERR "unknown CMD '$cmd'\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment