Forums Scripts & Popups Socket Not Getting Data...

alias dnsip {
  set %dnsip $1-
  sockclose dnsip
  sockopen dnsip www.dnsstuff.com 80
}
on *:sockopen:dnsip:{
  if ($sockerr > 0) { echo -a Error: Socket Failed To Open | return }
  sockwrite -t $sockname GET /tools/city.ch?ip= $+ %dnsip
  sockwrite -t $sockname Connection: close
}
on *:sockread:dnsip:{
  var %r
  sockread %r
  tokenize 32 %r
  echo -a - $+ $htmlfree($1-)
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
 

on *:sockopen:dnsip:{
  if ($sockerr > 0) { echo -a Error: Socket Failed To Open | return }
  sockwrite -n $sockname GET /tools/city.ch?ip= $+ %dnsip HTTP/1.1
  sockwrite -n $sockname Host: www.dnsstuff.com
  sockwrite -n $sockname $crlf
}