alias ipwhois {
  if ($1 == $null) {
    set %temp.ad $?="Enter Address: "
    sockopen wip $+ $r(1,10000) completewhois.com 80
  }
  if ($1 != $null) {
    set %temp.ad $1
    sockopen wip $+ $r(1,10000) completewhois.com 80
  }
}
on 1:sockopen:wip*: {
  sockwrite -n $sockname POST /cgi-bin/whois.cgi?query= $+ %temp.ad HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).ip $+ $str($crlf ,2)
}
on 1:sockread:wip*:{
  window -e @Whois
  aline @Whois Getting Info... done.
  if ($sockerr > 0) return
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  if ($nohtml(%temp) != $null) {
    aline @Whois $nohtml(%temp)
    goto nextread
    sockclose wip*
  }
}
on 1:sockopen:wh*: {
  sockwrite -n $sockname GET /whois.cgi2?d= $+ %temp.ho HTTP/1.1
  sockwrite -n $sockname Host: whois.net $+ $str($crlf ,2)
}
on 1:sockread:wh*:{
  if (%whoisrdy == 1) {
    if (15f9 isin %temp) {
      set %whoisrdy 0
    }
    window -e @Whois
    sockread %temp
    if ($nohtml(%temp) != $Null) { 
      aline @Whois  $+ $nohtml(%temp)
      .timerss 1 3 /sockclose wh*
    }
  }
}
alias -l nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}