Çevrimdışı

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)

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

Orhan_VeLi Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

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

 

Çevrimdışı

1001 Allah Razı olsun Tam istediğim gibi oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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.

----------

1001 Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! 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.

 

Çevrimdışı

Nebiliymben Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

 

Çevrimdışı

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.