aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/DNS-query/REXX/dns-query.rexx
View file

@ -1,16 +1,16 @@
/*REXX pgm displays IPv4 and IPv6 addresses for a supplied domain name. */
/*REXX pgm displays IPv4 and IPv6 addresses for a supplied domain name.*/
trace off /*don't show the PING return code*/
parse arg dn . /*get the optional domain name. */
if dn=='' then dn='www.kame.net' /*Not specified? Then use default*/
tmp='\TEMP\TEMP.PING' /*define temp file to store IPv4.*/
if dn=='' then dn = 'www.kame.net' /*Not specified? Then use default*/
tmp = '\TEMP\TEMP.PING' /*define temp file to store IPv4.*/
do j=4 to 6 by 2 /*handle IPv4 and IPv6 addresses.*/
'PING' (-j) '-l 0 -n 1' dn ">" tmp /*restrict PING's output to min. */
q=charin(tmp,1,999) /*read output file from PING cmd.*/
parse var q '[' IPA ']' /*parse IP a ddress from output.*/
say 'IPv'j 'for domain name ' dn " is " IPA /*IPv4 | IPv6 addr.*/
call lineout tmp /*needed by most REXXes to force */
end /*j*/ /* [↑] file integrity. */
call lineout tmp /*needed by most REXXes to ··· */
end /*j*/ /* [↑] ··· force file integrity.*/
'ERASE' tmp /*clean up the temporary file. */
/*stick a fork in it, we're done.*/