2007-10-26 22:44:33 +00:00
|
|
|
#!/usr/bin/awk -f
|
|
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
|
|
BEGIN {
|
2007-10-31 03:42:29 +00:00
|
|
|
localport = ARGV[1]
|
|
|
|
ns = "/inet/tcp/0/127.0.0.1/" localport
|
2007-10-26 22:44:33 +00:00
|
|
|
|
|
|
|
print "<xcatrequest>" |& ns
|
|
|
|
print "<command>getdestiny</command>" |& ns
|
|
|
|
print "</xcatrequest>" |& ns
|
|
|
|
|
|
|
|
while (1) {
|
|
|
|
if ((ns |& getline) > 0) {
|
|
|
|
print $0 > "/tmp/destiny"
|
|
|
|
if ($0 == "</xcatresponse>")
|
|
|
|
break
|
|
|
|
} else { #Timeout
|
|
|
|
close(ns)
|
|
|
|
exit 1
|
|
|
|
}
|
|
|
|
}
|
|
|
|
close(ns)
|
|
|
|
exit 0
|
|
|
|
}
|