alias findip {
  if ($sock(MyIp)) { sockclose MyIp }
  sockopen MyIp whatismyipaddress.com 80
  if ($1) { sockmark myip $1 }
  else { echo -a Used: /findip <IP> }
}
on *:sockopen:myip: {
  sockwrite -nt $sockname GET $iif($sock(myip).mark,/ip/ $+ $v1,/) HTTP/1.1
  sockwrite -nt $sockname Host: whatismyipaddress.com
  sockwrite -nt $sockname $crlf
}
on *:Sockread:myip: {
  var %ipinfo
  sockread %ipinfo
  if ($sock(MyIp)) { 
    set %ip $sock(myip).mark
    tokenize 32 %ipinfo
    var %boo, %get
    %boo = $z(%ipinfo)
    ;write $scriptdirlog.html %ipinfo
    if (<title> isin %ipinfo) { %tempIP = $gettok(%ipinfo,2,60) | .timer 1 2 echo -a $gettok(%tempIP,2,62) }
    if (Country isin $gettok(%boo,1,58)) { .timer 1 3 echo -a Country: $gettok(%boo,2,58) }
    if (State/Region isin $gettok(%boo,1,58)) { .timer 1 4 echo -a State/Region: $gettok(%boo,2,58) }
    if (<th>City:</th> isin %ipinfo) { %tempC = $gettok(%ipinfo,5,62) | .timer 1 5 echo -a City: $gettok(%tempC,1,60) }
    if (Latitude isin $gettok(%boo,1,58)) { .timer 1 6 echo -a Latitude: $gettok(%boo,2,58) }
    if (Longitude isin $gettok(%boo,1,58)) { .timer 1 7 echo -a Longitude: $gettok(%boo,2,58) }
    if (<th>Hostname:</th> isin %ipinfo) { %tempH = $gettok(%ipinfo,10,62) | .timer 1 10 echo -a Hostname: $gettok(%tempH,1,60) }
    if (<th>ISP:</th> isin %ipinfo) { %tempISP = $gettok(%ipinfo,16,62) | .timer 1 11 echo -a ISP: $gettok(%tempISP,1,60) }
    if (<th>Organization:</th> isin %ipinfo) { %tempORG = $gettok(%ipinfo,16,62) | .timer 1 12 echo -a Organization: $gettok(%tempORG,1,60) }
    if (<th>Services:</th> isin %ipinfo) { %tempSEV = $gettok(%ipinfo,28,62) | .timer 1 13 echo -a Services: $gettok(%tempSEV,1,60) }
    if (<th>Type:</th> isin %ipinfo) { %tempTP = $gettok(%ipinfo,35,62) | %tempTP2 = $gettok(%tempTP,1,47) | %tempTP3 = $gettok(%tempTP2,1,9) | .timer 1 14 echo -a Type: $gettok(%tempTP3,1,60) }
    if (<th>Assignment:</th> isin %ipinfo) { %tempASSG = $gettok(%ipinfo,43,62) | %tempASSG2 = $gettok(%tempASSG,1,60) | .timer 1 15 echo -a Assignment: %tempASSG2 }
  }
}
}
alias -l z {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}