|
Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
bu kod kanala yansıtmak için uygun olmayabilir çünkü olan depremlerin tamamını veriyor ben ekleyip denedim bir kanala bu haliyle verilse flood'da düşer sanırım belki 100 sonuç verio bir /deprem komutuyla.. kanala yansıtmak için komutla serdar arkadaşın kodladığı Deprem Anons vardı onda ayarlanabiliodu kaçtan büyükler yayınlansın vs die hepsini vermek baya bi trafik yaratır..
şu haliyle değilde mesala bir tür RSS feed gibi bir şekilde olabilseydi yani olduğu anda rasathanenin sitesine düştüğü anda ordan alıp kanala yansıtsa böyle topluca ne kadar deprem girdisi varsa hepsini bir anda vermek yerine olduğu anda yansıtma yapılabilrse süper olurdu demin şöyle bir gezindim var mı böyle rss feed akışı olan bir deprem sitesi diye kandilli rasathanesi olsun yabancı -yerli siteler olsun doğru dürüst bir RSS akışı olan bir yere rastlamadım..
|
Supernova Arkadaş haklı bir bakıma bir ikincisi Deprem anında yansıtılmıyor siteye dakikalı sorgu yaptıramıyoruz neyazıkki tüm verileri kaydettirip $date $time sorgularıyla en yakın tarihi bulabilirizki birihtimal gerek duymuyorum saatlik bir sorgu yaptım atılmaya karşı kanala yansıtmak isteyen arkadaşlar için
#dnm yazan yere yansımasını istediğiniz kanal adını yazarsanız sorun olmaz sanıyorum hepinize kolay gelsin arkadaşlar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias
deprem { sockopen aziz
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
on *:sockopen:aziz: {
sockwrite -n $sockname Get /scripts/lst6.asp HTTP/1.1
sockwrite -n $sockname host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:aziz: {
var %a 1
sockread %a
set %ix $gettok($date,3,47) $+ . $+ $gettok($date,2,47) $+ . $+ $gettok($date,1,47) | set %ix1 $chr(32) $gettok($time,1,58) $+ :
if (Enlem isin %a) { SET %iv2 6 $htmlfree(%a) }
if (-------------- isin %a) { SET %iv3 4 $htmlfree(%a) }
if (Büyüklük isin %a) { SET %iv1 3------------------------------------------------------------------0,4 $+ $htmlfree(%a) $+ 3-------------------------------- }
if (son depremler isin %a) { SET %iv4 13 $htmlfree(%a) }
if (%ix isin %a) {
if (%ix1 isin %a) { set %iv $htmlfree(%a) | set %iv $instok(%iv,4T=s,1,32)
set %iv $instok(%iv,4Enlm,4,32) | set %iv $instok(%iv,4Boylm,6,32)
set %iv $instok(%iv,4Dernlk 6km,8,32) | set %iv $instok(%iv,4Sürsi6md ,11,32)
set %iv $instok(%iv,3 -4Şideti3+ ,4,45) | set %iv $instok(%iv,4 İL 3 İlce ,7,45)
iv | msg
#dnm %iv | .disable #iv | .timer 1 3 .enable #iv
}
}
}
#iv on
alias iv { msg
#dnm %iv1 | msg
#dnm %iv2 | msg
#dnm %iv3 }
#iv end
alias iv { }
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
menu * {
Son Deprem
.Başlat:.timer 0 3599
deprem
}