; IP locator v1.0 - entropy dalnet

;============================== MENUS

menu menubar,status,channel,query {
  -
  IP Locator { locate }
  -
}

;============================== DIALOGS

dialog locate {
  title "IP Locator"
  size -1 -1 134 93
  option dbu notheme
  text "IP Address", 1, 4 4 26 8, right
  edit "", 2, 32 2 62 11
  button "Bul", 3, 96 2 34 11
  text "Durum", 4, 4 16 25 8, right
  edit "", 5, 32 14 62 11, read
  text "Sehir:", 6, 4 34 25 8, right
  text "Bolge:", 7, 4 43 25 8, right
  text "Ulke:", 8, 4 52 25 8, right
  text "ISS:", 9, 4 61 25 8, right
  text "", 10, 32 34 98 8
  text "", 11, 32 43 98 8
  text "", 12, 32 52 98 8
  text "", 13, 32 61 98 8
  button "Clipboard", 14, 62 78 34 11
  button "OK", 15, 96 78 34 11, ok
  box "", 16, -4 25 142 4
  box "", 17, -3 70 142 4
}

;============================== ALIASES

alias -l locate {
  if ($1) {
    did -ra locate 5 Socket Aciliyor...
    did -r locate 10,11,12,13
    sockclose locate
    sockopen locate 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
    sockmark locate $1-
  }
  else {
    dialog $iif($dialog(locate),-x,-m) locate locate
  }
}

alias -l endlocate {
  did -ra locate 5 Islem Tamamlandi.
  if (%ip) { did -ra locate 10 %city | did -ra locate 11 %state | did -ra locate 12 %country | did -ra locate 13 %isp }
  else { did -r locate 10,11,12,13 | did -ra locate 5 Birsey Bulunamadi . }
  unset %isp
  unset %ip
  unset %city
  unset %state
  unset %country
  unset %isp
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)  
  return %x
}
;============================== EVENTS

on *:dialog:locate:sclick:14:{
  var %a = IP: $did(2).text City: $did(10).text State: $did(11).text Country: $did(12).text ISP: $did(13).text
  clipboard %a
}
on *:dialog:locate:sclick:3:{
  if (!$did(2).text) { beep | return }
  locate $did(2).text
}
on *:sockopen:locate:{
  if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Acma Hatasi. | did -r locate 10,11,12,13 | return }
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2))
  sockwrite -n $sockname Connection: close
}
on *:sockread:locate:{
  if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Okuma Hatası. | did -r locate 10,11,12,13 | return }
  did -ra locate 5 Veri okunuyor...
  var %q | sockread %q | tokenize 32 $htmlfree(%q)
  if $regex(%q,/<i>.+/A) { $iif(*Country:* iswm $2,set -e %country $3-) $iif(*Region:* iswm $2,set -e %state $3-) $iif(*City:* iswm $2,set -e %city $3-) $iif(*Provider:* iswm $2,set -e %isp $3-) }
  set -e %ip $sock($sockname).mark
  .timertrace 1 1 endlocate 
}