Routine: XLFNSLK

Information

XLFNSLK ;ISF/RWF,ISD/HGW - Calling a DNS server for name lookup ;12/08/15 12:44

Source file <XLFNSLK.m>

Name	Comments	DBIA/ICR reference
TEST	;Test entry
HOST(IP)	;Get a host name from an IP address
ADDRESS(N,T)	;Get a IP address from a name	ICR #3056 Status: Active Usage: Supported
MAIL(RET,N)	;Get the MX address for a domain	ICR #3056 Status: Active Usage: Supported
NS(XL,NAME,QTYPE,XLFLOG)	;NAME LOOKUP
NS2	;
EXIT
BUILD(Y,T)	;BUILD A QUERY ; ID,PARAM,#of?, #ofA, #of Auth, #of add,
READ	;
RDERR	;End of read
DECODE	;
QD(NSP)	;Decode the Question section
RR(NSP)	;
NAME(I,NM,F)	;Decode a NAME section
MX(IX)	;Hide IX changes
BN(Z1,Z2)	;Convert two binary char 16 bit number into ASCII number
WBN(Z1)	;Convert two byte string to a ASCII number
H2(Z2)	;Convert 2 byte string to HEX
H1(Z1)	;Convert decimal number <= 256 to two digit HEX number
H(Z1)
BIN16(S)	;Convert two byte string to 16 bit binary
PART(S,L)	;
TYPECODE(T)	;
CLASS(T)	;
GETDNS(I)	;Get the address of our DNS
SW(T,H,V)	;
SAVEDEV	;Save calling device
RESDEV	;Restore calling device
LOG(M,XLFLOG)	;Log Debug messages

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Enter an IP address to lookup: www.domain.ext//" Variable: XNAME Timeout: DTIME Line Location: TEST+2
Function Call: WRITE	Prompt: !!,"Looking up IPv4 address: ",XNAME Line Location: TEST+3
Function Call: WRITE	Prompt: !,?5,XNAME,". > ",$$ADDRESS(XNAME,"A") Line Location: TEST+4
Function Call: WRITE	Prompt: !!,"Looking up IPv6 address: ",XNAME Line Location: TEST+5
Function Call: WRITE	Prompt: !,?5,XNAME,". > ",$$ADDRESS(XNAME,"AAAA") Line Location: TEST+6
Function Call: WRITE	Prompt: ! Line Location: TEST+7
Function Call: WRITE	Prompt: $C(%\256,%#256)_MSG,! Line Location: BUILD+10
Function Call: READ	Variable: L1#2 Timeout: 20 Line Location: READ+3
Function Call: READ	Variable: L2#2 Timeout: 20 Line Location: READ+5
Function Call: READ	Variable: *X Timeout: 20 Line Location: READ+8
Function Call: WRITE	Prompt: ?T,$J(H,8),V Line Location: SW+1