; 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 “Locate”, 3, 96 2 34 11
text “Status”, 4, 4 16 25 8, right
edit “”, 5, 32 14 62 11, read
text “City”, 6, 4 34 25 8, right
text “State”, 7, 4 43 25 8, right
text “Country”, 8, 4 52 25 8, right
text “ISP”, 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 Opening socket…
did -r locate 10,11,12,13
sockclose locate
sockopen locate www.melissadata.com 80
sockmark locate $1-
}
else {
dialog $iif($dialog(locate),-x,-m) locate locate
}
}
alias -l striphtml {
var %txt = $mid($1-,1,800)
var %p = 1, %b = $replace(%txt,$chr(38),$+($chr(32),$chr(38)),;,$+(;,$chr(32)),>,$+(>,$chr(32)),<,$+($chr(32),<,)), %c
while ($gettok(%b,%p,32)) {
%c = $ifmatch
if (*<* iswm %c || *&*; iswm %c || ** iswm %c || *=* iswm %c || *”* iswm %c || *>* iswm %c || $+(*,$chr(40),*) iswm %c || $+(*,$chr(41),*) iswm %c || $+(*,$chr(123),*) iswm %c || $+(*,$chr(125),*) iswm %c) { %b = $remove(%b,%c) | %p = 0 }
inc %p
}
return %b
}
alias -l endlocate {
did -ra locate 5 Transaction complete.
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 Nothing found. }
unset %isp
unset %ip
unset %city
unset %state
unset %country
unset %isp
}
;============================== 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 Open Error(s). | did -r locate 10,11,12,13 | return }
sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,$sock($sockname).mark) HTTP/1.1
sockwrite -n $sockname Host: $+(www.melissadata.com,$str($crlf, 2))
sockwrite -n $sockname Connection: keep-alive
}
on *:sockread:locate:{
if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Read Error(s). | did -r locate 10,11,12,13 | return }
var %q
sockread %q
tokenize 32 $striphtml(%q)
did -ra locate 5 Reading data…
if (* IP Address *.*.*.* iswm $1-) { %ip = $4 }
if (* City * iswm $1-) { %city = $3- }
if (* State or Region * iswm $1-) { %state = $5- }
if (* Country * iswm $1-) { %country = $3- }
if (* ISP * iswm $1-) { %ISP = $3- }
.timertrace -o 1 1 endlocate $sock($sockname).mark
}
uzakta kaldı sanki ateşler heryer buz soğuk bugun dilimde var bir şarkı adı oldu yanlızlık ve giderken bu kentten sakın ağlama sus… bu sana veda ederken son bakış son gülücük bu sana kalbimden kopan son öpücük bu sana yıllar yılı büyüttüğüm aşk ne yazık ellerinde küçücük sandınki ne yaparsan yap yanımdasın sen öyle bir rüyaydınki sadece bir kez gördüğüm denedim tutamadım rüzgarda savrulan bir küldün aşk herşeye değer seni seviyorum..
Şimdi anlamsız bir korku var yüreğimde ve gitgide sarıyor ruhumu. Bilmiyorum, neden bu kadar sevdim. Bırakıp gitme sakın tuttuğun bu ellerimi. Her geçen gün biraz daha ben oluyorsun, Her geçen gün biraz daha bağlanıyorum sana. Sakın bırakıp gitme beni… Benliğimi bu kadar senle doldurmuşken, O kadar doldurdun ki yüreğimi, *Gidersen dayanamaz ölürüm yaratacağın boşluğa. Her gece senin hayalinle yumuyorum gözlerimi seninle dolu rüyalara… Her sabah senin sevginle açıyorum gözlerimi. Ve doğan güneşi aşkımız ilan ediyorum… Her karanlık gecenin, her bulutlu sabahın ardından yeniden doğuyor diye… Sakın bırakıp gitme dayanamaz ölürüm sensizliğe…
gözlerine bakınca birden büyüleniyorum çünkü seni çok sewiyorum, seninle her anımı dolu dolu yasıyorum, bundan buyuk bir haz alıyorum, cünkü askım seni cok sewiyorum,,, yanında olsam sana sarılsam biinnn yıl gecse hiç ayrılmasak, ten tene kucak kucaga bir ömür boyu kopmasak ,hep seninle yanında olsam, daima sana baksam bıkmadan tükenmeden, gözlerinde büyülensem orda kalsam, her gittigin yerde bende olsam ve sana doyasıya sarılsam öpsem koklasam, sana doyaya butun sewgimi,özlemimi hissettirebilsem, seni özlüyorum çok çok..
Bir sabah uyandıgında dünün kötülüklerini sabahın güzelliklerin değişme.. Sana iyilik yapanı kötülük yapandan dahçok düşün ki mutlu olabilesin..Seni seveni daha çok düşün çünkü seni sevmeyen hiç kimse seni sevenden daha degerli değildir., unutma seni sevenin senin için feda edemeyeceği tek şey SENSİNDİR..
Bir daha bitti sensiz, güneş tüm güzelligiyleyarına umutla sevgiyle dogmak üzere başka ülkelere yükseliverdi.. güneşin, yeni bir günün sana tüm güzellikleri getrimesi dileğiye, sabahın ilk ışıklarına kadar kapanan o güzel gözlerine tatlı uykular.. ‘Bu Sabah Güneş Senin İçin Dogsun..!
”Bazen susmak gerekiyormuş,bazen bomboş bakmak gerekiyormuş,hayatın yalanlarını anlamaya çalışmak saçmalık(: Anlamadan yaşamak gerekiyormuş.. Ama bazen unutmak gerekiyormuş,unutulma pahasına.. Zaman değilmiş,Gideni getiren.. Aslında zamanmış var olanı Götüren..”
”Bazen susmak gerekiyormuş,bazen bomboş bakmak gerekiyormuş,hayatın yalanlarını anlamaya çalışmak saçmalık(: Anlamadan yaşamak gerekiyormuş.. Ama bazen unutmak gerekiyormuş,unutulma pahasına.. Zaman değilmiş,Gideni getiren.. Aslında zamanmış var olanı Götüren..”
