Kod:
on *:input:#:{
if $regex($1,/^[!.&-][ıiİ]p$/Si) {
if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] }
elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return }
msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
msg # -
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
dec %:_ar
}
msg # -
msg # 4* Bilgi: $+(2,$strip($2),) IP'sine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır.
msg # ===============================================================
msg # -
.hadd -ms Ns-list $strip($2) #
ns list $+(*@,$strip($2))
}
else {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($5),) Nick'ine ait kayıt bulunamadı. | return }
msg # =====" 2IP "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
msg # -
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
dec %:_ar
}
msg # -
msg # 4* Bilgi: $+(2,$strip($2),) Nick'ine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır.
msg # ===============================================================
msg # -
}
}
}
on *:notice:*:?:{
if ($nick == NickServ) {
if $regex($1-,/uyan veriler:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { msg $hget(Ns-list,$regml(1)) $+(2,$regml(1),) IP'ine ait NickServ kayıtları. }
elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { msg # $hget(Ns-list,$regml(1)) Nick:4 $strip($1) }
elseif $regex($1-,/liste sonu/Si) {
$iif($4 == 0/0,msg $hget(NS-list,1).data NickServ de identify edilmiş nick bulunmamaktadır.)
.hfree -sw Ns-list
}
}
}
on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 7005,Mobil,$iif(%_port == 1985,Web,IRC))) Girişi
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
.write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
}
elseif $regex($1-,/his\/her nickname to/Si) {
var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41)
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Nick Değişimi
.write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Nick Değişimi
}
elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) { .hadd -msu15 IRC-Giris $regml(2) $regml(3) $regml(1) Uyguladı. }
elseif $regex($1-,/Client exiting/Si) {
if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) }
elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
var %:ban = $hget(IRC-Giris,%_cip)
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
.write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
$iif($hget(IRC-Giris,%_cip),.hdel -ms IRC-Giris %_cip)
}
}