do not install PVE::APLInfo

We need to rewrite that for final 2.0 release.
This commit is contained in:
Dietmar Maurer 2012-02-16 11:13:23 +01:00
parent 2be8175a7e
commit e9b01ea55d
2 changed files with 7 additions and 7 deletions

View File

@ -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}

View File

@ -1,8 +1,8 @@
#!/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) {
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";