IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi - Sunucu girişlerini yurt dışına kapatıp açmak

#opers kanalı için;

!yip on !yip off yazıldığında harekete geçer ve sadece 6667 6668 portundan bağlanan kullanıcıları kapsar.
.yip pas Yazıldğında da kod pasif kalır.

.yip on yurt dışından girişler SERBEST
.yip off yurt dışından girişler YASAK
.yip pas yurt dışından girişler PASİF

Kişisel kullanım için;

/yip on yurt dışından girişler SERBEST
/yip off yurt dışından girişler YASAK
/yip pas yurt dışından girişler PASİF
Kod aktif olduktan sonra @G-kontrol penceresinde bilgi verilir.

Kod:

alias yip { 

  if $regex($1,/(on|off|pas)$/i) { set %yurtdisi $regml(1)

    echo -a Yurt dışı girişleri $iif($regml(1) = off,4KAPATILDI,$iif($regml(1) = on,3AÇILDI,$iif($regml(1) = pas,2PASİF)))

} }

on *:text:*:#opers:{ 

  if $regex($1-,/[.!]yip\s(on|off|pas)$/i) { set %yurtdisi $regml(1)

    msg # Yurt dışı girişleri $iif($regml(1) = off,4KAPATILDI,$iif($regml(1) = on,3AÇILDI,$iif($regml(1) = pas,2PASİF)))

  }

}

alias G-kontrol {

  if !$sock($+(G-kontrol@,$1)) {

    sockopen $+(G-kontrol@,$1) ipinfo.io 80

    sockmark $+(G-kontrol@,$1) $+(/,$1,/json?token=bdbdb82ae05b96) 

  } 

}

on *:snotice:*: { 

  if $regex(gk,$1-,/Client\sconnecting(.+)666(7|8):\s(.*)\(((.*)@(.*))\)(.*)/i) {

    if %yurtdisi = pas { return }

G-kontrol $regml(gk,6) 

  }

} 

on *:sockopen:G-kontrol@*:{ 

  var %sw sockwrite -tn $sockname

  %sw GET $sock($sockname).mark HTTP/1.1 

  %sw Host: ipinfo.io

%sw $crlf }

on *:sockread:G-kontrol@*:{ 

  var %d_G-kontrol 

  sockread %d_G-kontrol

  if $regex(ig,%d_G-kontrol,/("country": "(.*)")/i) { 

    if $regml(ig,2) !== TR && %yurtdisi = off {

      if !$window(@G-kontol) {  window -en @G-kontol }

      gzline $+(*@,$gettok($sockname,2,64)) 1h Sunucumuzun girişi şimdilik yurt dışına kapalıdır.

      echo -m @G-kontol $time(d/m/yyyy HH:nn) 5GİRİŞ[4Yurt Dışı] $&

2İP-ADRES: $gettok($sockname,2,64)  

    }

    else { 

echo -m @G-kontol $time(d/m/yyyy HH:nn) $iif($regml(ig,2) = TR,5GİRİŞ[3Yurt $&

 İçi],5GİRİŞ[4Yurt Dışı]) 2İP-ADRES: $gettok($sockname,2,64) }

  }

  if *"org":* iswm %d_G-kontrol { sockclose $sockname }

}