IRCDefteri - En İyi IRCForum Sayfasi - Güncel Deprem Kodu Socket

;--------------------------------------------------------------
; Deprem Bildirim Socket Kodu
; Bu kod Kandilli Rasathanesi (KOERI) web sitesinden
; deprem verilerini belirli aralıklarla kontrol eder.
;
; Önemli Not:
; Veriler ANLIK değildir. KOERI sayfasında yayınlandığı
; zaman gelir. Dolayısıyla bildirimler gecikmeli olabilir.
;
; Kullanım:
; 1) Deprem mesajının gönderileceği kanalı "depremkanal" aliasında değiştirin.
; 2) Scripti başlatmak için komut yazın.
; /timer 0 30 deprem
; (30 saniyede bir deprem kontrolü yapar)
;
; Yeni bir deprem bulunduğunda:
; - deprem.txt dosyasına kaydedilir.
; - Belirtilen kanala bildirilir.
;--------------------------------------------------------------

https://i.hizliresim.com/eksewaa.png

Kod:

alias depremkanal return #Sohbet

alias depremler { .sockclose deprem | .sockopen deprem www.koeri.boun.edu.tr 80 }

alias deprem { depremler }

on *:sockopen:deprem:{ var %j = sockwrite -n $sockname | %j GET /scripts/lst9.asp HTTP/1.1 | %j Host: www.koeri.boun.edu.tr | %j $crlf }

on *:sockread:deprem:{

  var %deprem

  sockread %deprem

  if ($+(*,$time(yyyy.mm.dd),*) iswm %deprem) {

    tokenize 32 %deprem

    set %depremdetay Tarih: $1 Saat: $2 Derinlik: $5 km Siddet: $7 Yer: $9-

    if !$read(deprem.txt,w,%depremdetay) { write deprem.txt %depremdetay | msg $depremkanal 0,1[DEPREM] %depremdetay | .sockclose deprem }

    if $read(deprem.txt,w,%depremdetay) { .sockclose deprem }

  }

}