sub getifip {
	my $ip = '0.0.0.0';
	open(README,"/sbin/ifconfig $_[0] 2>&1 |");
	while (<README>) { 
		if ( /ad\w*:(\d+\.\d+\.\d+\.\d+)\s.*/ ) {$ip=$1}
	}
	close(README);
	#&slog("$_[0] has ip $ip","getifip");
	return $ip;
}