whois lookup search in IGOR.

#pragma rtGlobals=1     // Use modern global access method.
Function whois(IP_Host, server)
    string IP_Host //contains IP address (137.157.202.40) or host name (google.com)
    variable server //whois server
 
    variable socknum = 0
    make/t/o whoisbuffer
    Wave/t whoisbuffer
    string servername
 
    switch(server)
        case 0:     //RIPE
            servername = "whois.ripe.net"
            break
        case 1: //Asia-Pacific == APNIC
            servername = "whois.apnic.net"
            break
        case 2: //ARIN
            servername = "whois.arin.net"
            break
        case 3: //AfriNIC
            servername = "whois.afrinic.net"
            break
        case 4: //LACNIC
            servername = "whois.lacnic.net"
            break
        case 5: //internic
            servername = "whois.internic.net"
            break
        case 6: //networksolutions
            servername = "whois.networksolutions.com"
            break
    endswitch
 
    sockitopenconnection/q socknum, servername, 43, whoisbuffer
 
    if(V_flag == 0)
        sockitsendnrecv/TIME=10 sockNum, IP_HOST+"\r\n"
        if(V_Flag==0)
            S_tcp = replacestring("\n", S_tcp, "\r")
            print S_tcp
        else
            print "Error, whois lookup failed for some reason"
            killwaves/z whoisbuffer
            return 1
        endif
    else
        print "Error, connection to whois server not made"
        killwaves/z whoisbuffer
        return 1
    endif
    killwaves/z whoisbuffer
End