Güncel Deprem Kodu Socket - IRCDefteri

Forbidden · 26.Eylül.2025

;--------------------------------------------------------------
; 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.
;--------------------------------------------------------------

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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 }
  }
}

26.Eylül.2025	#1
Çevrimdışı Forbidden BuSohbet.com	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. ;-------------------------------------------------------------- Kod: Kodu kopyalamak için üzerine çift tıklayın! 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 } } }

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş Arama Yap
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.