DEFLNG a-z
$INCLUDE "c:\bme\cgi\PBCGI.INC"

FUNCTION PBMAIN()

HOST ADDR TO ip&

   TCP OPEN "smtp" AT "bmeworld.com" AS #1

   ip1$ = TRIM$(PARSE$(COMMAND$, ".", 1))
   ip2$ = TRIM$(PARSE$(COMMAND$, ".", 2))
   ip3$ = TRIM$(PARSE$(COMMAND$, ".", 3))
   ip4$ = TRIM$(PARSE$(COMMAND$, ".", 4))

   IF ip4$ = "" THEN
      STDOUT "Usage: host 216.17.62.11"
      STDOUT
      EXIT FUNCTION
   END IF

   curip$ = CHR$(VAL(ip1$)) & CHR$(VAL(ip2$)) & CHR$(VAL(ip3$)) & CHR$(VAL(ip4$))
   ip& = CVL(curip$)
   STDOUT FORMAT$(ip&)
   STDOUT ip1$ & "." & ip2$ & "." & ip3$ & "." & ip4$ & " resolves to ";
   HOST NAME ip& TO tname$
   STDOUT tname$

   tcp close #1
   STDOUT

END FUNCTION