The follow perl code fails:
------------------------- 8< ----------------------------------
#!/usr/bin/perl
use Net::Ping;
use Socket;
print "\nudp ping\n";
$p = Net::Ping->new("udp", 2, 64);
$host="GM";
print "$host is ";
print "not " unless $p->ping($host);
print "alive.\n";
------------------------- 8< ----------------------------------
We have a cluster of 4 machines named GM1, GM2, GM3, and GM4. the cluster
alias is GM. These machines are running Tru64 5.1 Patch Kit 3.
The code sends a UDP packet on port 7 (echo) to GM. The packet is received
and echoed back correctly, but the source address on the returning packet
is not the cluster alias GM. When I first tried it clua_services echo
entry was:
echo 7/udp in_multi
With this entry I expected the behavior I was getting. I modified it to:
echo 7/udp in_multi,out_alias
Then I did the following on all the cluster members:
# cluamgr -f
This didn't work. So I tried:
# cluamgr -F /etc/clua_services
No go. Then:
# cluamgr -r stop
# cluamgr -r start
Nope. Then:
# kill -HUP `cat /var/run/inetd.pid`
And finally to no avail I re-booted all the members one at a time.
Anyone with a suggestion on how to proceed?
--
Michael Maxie maxie_at_acm.org
Software Engineer maxie_at_panix.com
Received on Fri Jun 22 2001 - 10:35:33 NZST