#!/usr/bin/perl
use lib qw(/etc/rc.d/np.d);
use RootOnlyPlease;
use PhysCluster;
use NOCpulse::Config;
$NOCpulse::Object::config=NOCpulse::Config->new('/etc/rc.d/np.d/SysV.ini');
my $pip = PhysCluster->newInitialized->thisNode->privateIp;
my $result;
my $cmd = '$result = $pip->'.$ARGV[0];
eval($cmd);
if (! $@) {
	print $result."\n";
	exit 0;
} else {
	print $@."\n";
	exit 1;
}
