18068e4413
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11360 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
29 lines
895 B
Awk
Executable File
29 lines
895 B
Awk
Executable File
#!/usr/bin/awk -f
|
|
BEGIN {
|
|
if ((ENVIRON["USEOPENSSLFORXCAT"]) || (ENVIRON["AIX"])) {
|
|
server = "openssl s_client -quiet -connect " ENVIRON["XCATSERVER"] " 2> /dev/null"
|
|
} else {
|
|
server = "/inet/tcp/0/127.0.0.1/400"
|
|
}
|
|
quit = "no"
|
|
|
|
|
|
print "<xcatrequest>" |& server
|
|
print " <command>getcredentials</command>" |& server
|
|
print " <callback_port>300</callback_port>" |& server
|
|
for (i=1; i<ARGC; i++)
|
|
print " <arg>"ARGV[i]"</arg>" |& server
|
|
print "</xcatrequest>" |& server
|
|
|
|
while (server |& getline) {
|
|
print $0
|
|
if (match($0,"<serverdone>")) {
|
|
quit = "yes"
|
|
}
|
|
if (match($0,"</xcatresponse>") && match(quit,"yes")) {
|
|
close(server)
|
|
exit
|
|
}
|
|
}
|
|
}
|