IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Spamfilter noticelerinin Kanala yansıtılması

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Spamfilter noticelerinin Kanala yansıtılması (https://www.ircforumlari.net/eggdrop-neostats-bnc/315583-spamfilter-noticelerinin-kanala-yansitilmasi.html)

Spamfilter noticelerinin Kanala yansıtılması

Merhabalar

Aslına bakarsanız konuyu açmadan önce bu konuyu öncelikle BuCaLI nickli arkadaşımıza sorup belirli yardımı aldığımı belirtmek isterim ki aşağıda vereceğim koduda tamamen kendisi yazmıştır. Kendisine burada ayrıca tekrardan teşekkürlerimi sunuyorum.

Alıntı:

[code]
bind raw - NOTICE s:notice
proc s:notice {from keyword text} {
if {[string match -nocase "*\[Spamfilter\]*" $text]} {
putquick "privmsg #log $text"
}
}
[code]

Bu kodu kullandığımda Şöyle bir durum ortaya çıkıyor.

Alıntı:

[00:38:28] <Ati> Ati :PING 1265236659
[00:38:29] <Ati> Ati :PING 1265236659
[00:38:30] <Ati> Ati :PING 1265236659
[00:38:30] <Ati> Ati :*** Notice -- Client connecting on port 7000: gececi (abcd@188.56.160.222) [clients]
[00:38:30] <Ati> Ati :PING 1265236659

Bu küçük bir örneğiydi. örnekte Spamfilter noticeleri görünmesede çıktığını belirtmek istiyorum. Spamfilter noticelerinin yanında giriş çıkışları da kanala yansıtıyordu. Ayrıca bir çok kere Şu Pingleri kanala yansıtması (bazen ekranın tamamı o ping mesajlarıyla doluyor) çok çirkin bir görüntü oluşturuyordu. Şu ise kullandığım conf:

Alıntı:

loadmodule seen
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
loadmodule blowfish
loadmodule uptime

set opchars "@&~"
# Botun Identi
set username "Nick"
# Botun Nicki
set nick "Nick"
# Botun Alt Nicki
set altnick "Nick"
# Botun Ip Adresi
set my-ip "IP-Adress"
# Botun Vhost`u (eger destekliyorsa.. Buradaki Vhostun my-ip ile uyusmasi gereklidir)
set my-hostname "Host"
# Botun Whois`inde Cikacak Olan yazi
set realname "Nick"
# Botun ircye baglandiginda yapicagi ilk islemler.
bind evnt - init-server grs

proc grs {type} {
global botnick
putquick "MODE $botnick +i-ws" -next
putquick "PRIVMSG Nickserv :identify NickŞifresi" -next
putquick "OPER Oper OperŞifreSi" -next
putquick "MODE $botnick +H" -next
}
# Botun girmeye calisacagi server listesi..
set servers {
Server IP Adresi:Portu
}
#Botun kanalları
channel add #kanal {
chanmode "+modeler"
idle-kick 0
stopnethack-mode 0
+nodesynch
}
set global-chanset {
-autoop
-autovoice
-bitch
+cycle
+dontkickops
-dynamicbans
-dynamicexempts
-dynamicinvites
-enforcebans
-greet
+nodesynch
-inactive
-protectfriends
-protectops
-revenge
-revengebot
-secret
+seen
-shared
-statuslog
+userbans
+userexempts
+userinvites
-protecthalfops
-autohalfop
}

set nick-len 20
set net-type 3
# Botun sahibinin nicki
set owner "Sahip"
# Botun kullanici dosyasi
set userfile "$nick.user"
# Botun kanal listesi dosyasi
set chanfile "$nick.chan"

# logunu tutmak istediginiz kanal icin kullanabilirsiniz..
logfile jpk #log "logs/Nick.log"

set bounce-modes 0
set bounce-bans 0
set shortnick "prx"

set home "#log"

set mod-path "modules/"
set help-path "help/"
set text-path "text/"
listen 3340 all
logfile msbxco * "logs/fanbot.log"
set console "mkcobxs"
set check-mode-r 1
set nick-len 32
set ignore-time 1
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/userinfo.tcl

Sorum ise şu: Burada Sadece Spamfilter noticelerinin yansıtmak ve yansıtma sırasında baştaki Ati yazısını kaldırmak için neler yapılabilir (giriş çıkış noticelerinin görülüp görünmemesi önemli değil)

Cevap: Spamfilter noticelerinin Kanala yansıtılması

confunda bulunan
set home "#log"
satırındaki kanal adını değiştir.

Cevap: Spamfilter noticelerinin Kanala yansıtılması

Set home #log bölümündeki kanal ismini değiştirmeme rağmen aynı şekilde sorun devam ediyor. aşağıda örneği mevcuttur.

Alıntı:

[22:18:02] <Ati> Ati :PING 1265573848
[22:18:04] <Ati> Ati :PING 1265573848
[22:18:04] <Ati> Ati :PING 1265573848
[22:18:05] <Ati> Ati :PING 1265573848
[22:18:06] <Ati> Ati :PING 1265573848
[22:18:07] <Ati> Ati :PING 1265573848
[22:18:08] <Ati> Ati :*** Notice -- Client connecting on port 6667: elif (GencLik@88.252.207.217) [clients]
[22:18:08] <Ati> Ati :PING 1265573848
[22:18:09] <Ati> Ati :PING 1265573848
[22:18:10] <Ati> Ati :*** Notice -- Client connecting on port 6667: lowejunior (GencLik@88.244.155.115) [clients]
[22:18:10] <Ati> Ati :PING 1265573848
[22:18:11] <Ati> Ati :PING 1265573848
[22:18:12] <Ati> Ati :PING 1265573848
[22:18:13] <Ati> Ati :PING 1265573848

Cevap: Spamfilter noticelerinin Kanala yansıtılması

Alıntı:

Orhan_VeLi Nickli Üyeden Alıntı (Mesaj 1040317817)

Set home #log bölümündeki kanal ismini değiştirmeme rağmen aynı şekilde sorun devam ediyor. aşağıda örneği mevcuttur.

Kod:

bind raw * NOTICE s:notice 

proc s:notice {from keyword arg} { 

if { [string match "*Spamfilter*" $arg] } {

set spam [string range $arg [string first Spamfilter $arg] e]

putquick "privmsg #log $spam"

}

}

şöyle birşey yaptım..
bir dene bakalım belki işine yarar..

Cevap: Spamfilter noticelerinin Kanala yansıtılması

1001 Allah Razı olsun Tam istediğim gibi oldu :)

Nebiliymben Allah Razı olsun Ping sorununuda çözdüm bir yerde daha log kanalının ismi varmış orayıda Set home #kanal bölümünde yazan kanal ismiyle aynı yaptım ping olayı düzeldi.

Bu konuları pek bilmiyorum ben Ama öğrenmeyede niyetliyim. :)

Cevap: Spamfilter noticelerinin Kanala yansıtılması

Ben de sorununu anlatırken tam anlatılması gerektiği gibi anlattığın ve sorununun ne olduğunu çözebilmemiz için gerekli tüm bilgileri verdiğin için teşekkür ediyorum. Bu açtığın konunun diğer arkadaşlara da örnek olmasını temenni ediyorum.

----------

Alıntı:

1001 Nickli Üyeden Alıntı (Mesaj 1040317825)

Kod:

bind raw * NOTICE s:notice 

proc s:notice {from keyword arg} { 

if { [string match "*Spamfilter*" $arg] } {

set spam [string range $arg [string first Spamfilter $arg] e]

putquick "privmsg #log $spam"

}

}

şöyle birşey yaptım..
bir dene bakalım belki işine yarar..

yalnız burada
set spam [string range $arg [string first Spamfilter $arg] e]
şu satırın ne ifade ettiğini biliyormusun? Bunla alakalı bir şey değil. Bir üst satırda "*Spamfilter*" kullandığın için sonuç doğru oluyor. Kendisinin kullanımında burası "*\[Spamfilter\]*" şeklinde olduğu için içinde bu kelime geçmese bile her defasında sonuç 1 olarak dönüyor. Yani kendi kodunda sadece orayı "*Spamfilter*" şeklinde değiştirmen de sorununu çözecektir.

Cevap: Spamfilter noticelerinin Kanala yansıtılması

Alıntı:

Nebiliymben Nickli Üyeden Alıntı (Mesaj 1040317839)

yalnız burada
set spam [string range $arg [string first Spamfilter $arg] e]
şu satırın ne ifade ettiğini biliyormusun?

Nebiliymben..
şimdi açık konuşmak gerekirse..
ben bu konularda sizin kadar detaylı bilgiye sahip değilim..
forum üzerinde siz(ler)in yayınlamış olduğu makaleleri ve..
göstermiş olduğunuz kodlamalardan yola çıkarak..
kendi kendime mantık yürüterek birşeyler yapmaya çalışıyorum..
burada da arkadaşımız bir isteğini beyan etmiş..
bende kendimce bu şekilde bir sonuç çıkarttıp denemesini yaptım..
çalıştığını görünce arkadaşımıza sundum..
sonuç olarak bir şeyi bildiğimi asla beyan etmem edemem..

Cevap: Spamfilter noticelerinin Kanala yansıtılması

Yanlış anlama zaten sana ukalalık yapıyorsun falan gibi bir tabirde bulunmadım, sadece doğrusunu göstermeye çalışıyorum.
Dediğim gibi çalışıyor olmasına neden o eklediğin satır değil de bir üstteki kısım.
Yoksa özellike tcl scriptingi öğrenmek isteyenlere elimden geldiğince dilimin döndüğünce ben de yardımcı olmak isterim.