Çevrimdışı

buradaki kopya mı -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kullandığınız..en son burada bırakmıştım bu kodu...
sizdeki sunucu girişlerinde alınan Notice'de kullanıcının hostu 11. sıraya denk geliyor ki buda tcl'de 0'dan başlandığı için saymaya 10'a denk geliyor.

"Tcl error [notc:serv]: bad option "-nocase": must be -all, -ascii, -decreasing, -dictionary, -exact, -glob, -increasing, -inline, -integer, -not, -real, -regexp, -sorted, or -start "

bu hata enteresan daha evvel deneyenler bildirmemişti böyle birşeyi.
kopyala-yapıştırdan/kullandığınız editörün tcl desteklememesinden de kaynaklanan bir hata olabilir. (kodda bozulmaya/kaymaya neden olabiliyor desteklemeyen bir editörle açmak/editlemek)

olmadı:

bu satırdaki ikinci string match'deki -nocase kaldırabilir yada yerine -all değişilebilir hala sıkıntı devam ederse..

şu ise :

dosyaları aldığı sitenin bir sorunu.banada bir iki kez denk gelmişti. dosyalardan biri sanırım içinde tor host,IP ve diğer tüm ayrıntılı bilgilerinin olduğu dosyayı çekmeye çalıştığında sunucusundan kaynaklı bir sorun yaşıyor.

bu sonradan kendileri sanırım fark edip düzeltiyorlar.dosyaları çekme konusunda küçük bir kod parçası yazıp denemeler yaptığımda bunla karşılaşmış ,hatta direk site sahibi (aynı zamanda tor project'in geliştiriici / yapımcılarından biriymiş) bulup mailleştim. attığım maile cevap yazdı ve onarmıştı ama sonra yine tekrarlandı,yine onarıldı....


bu kod ile alakalı son iki aydır hiç bir çalışma yapmadım. öylece bıraktım.
nedenine gelince:

kodun bu son halini , tcl programcılarına ve eggdrop geliştiricilerinden samimi olduğum birkaçına gösterdim.
"böyle bir kod yazdım, ama deneme şansım yok,ben daha bir hata/eksik göremiyorum,siz herhangi bir sorun yada hata/kusur görüyormusunuz" diye danıştım/sordum..

kodu gören/inceleyenler arasında eggdrop tcl kod yazarları madalin, Spike ( bogus trivia'nın yapımcısı) speechles ayrıca eggdrop geliştiricilerinden thommey tcl geliştiricisi stu ve dkf bunlara danışıp fikirlerini sordum.benim görmediğim/bilmediğim bir hata/eksik gedik görüyorlar mı diye...

hiçbiri tek bir hata/kusur ,mantık hatası vs göremedi.kod ile alakalı bana şurayı şöyle değiş vs demedi.

yalnız thommey aklımda yer eden şöyle birşey söyledi:
" bir programcı ortalama her 10 satır yazdığı kodda bir hata/bug yapar bu normaldir/ortalama kabul edilebilir hata oranıdır.
ancak programcı yazdığı kodu mutlaka öncelikle kendi denemelidir. mantık yürüterek kağıt üzerinde kod yazılmaz/olmaz.mutlaka yazdığın kodu çalışırken görmelisin" dedi özetle...

işte benimde bu kodla alakalı sıkıntım bu olduğundan ve defalarca silbaştan yazıp çok fazla bu tek bir koda zaman harcayıp ,artık sıkıldığımdan olduğu gibi bıraktım.

yeni bir bahar / heves gelipde yeniden bu kodla ilgili bir motivasyon yakalarsam, localhost'a ircd kurup bir bot sokup kurduğum sunucuya saldırarak deneyip görücem ...

 

Çevrimdışı

Alıntı:

;# IP-host eşleşmesinde yapılacak işlemde kullanılacak kullanıcıyı uzaklaştırma sebebiniz: set sebep "Guvenlik nedeniyle Chatwork.NET sunucusundan uzaklastirildiniz. Wingate/Socks/Proxy/Tor/Drones baglanti girisleri yasaktir." ;# yakalanan tor IP-hostları için yapılacak işlem: set method "gzline" ;# yapılan işlem için gereken uzaklaştırma süresi: set sure "30m" ;# anons yaptırılacak oda olacak mı ( 1 = evet - 0 = hayır) set anons "1" ;# anons kanalı olacaksa adı ne olacak: set anonsknl "#Anons" ;# yakalanan her tor için bu sayıdan itibaren saydırılacak: set torno "0" ;############burdan sonrasını değişmemelisiniz.################################# ################################### ;# tor IP'lerin olduğu birinci dosya: set csvfile1 "Tor_ip_list_ALL.csv" ;# tor IP-host ve diğer tüm bilgilerinin olduğu dosya: set csvfile2 "Tor_query_EXPORT.csv" ;##########################ayarlar bitti############################################# ############################## bind raw * notice notc:serv bind time - "30 *" csv:wget proc notc:serv {from keyword arg} { if {![string match -nocase "*client connecting*" $arg] || [string match -nocase "*!*@*" $from]} { return 0;} set arg [string map {\[ "" \] ""} [join $arg]] set ip [string range [lindex [split [lindex [split $arg] 10] @] 1] 0 end-1] set stamp "[clock format [expr {3600 + [clock seconds]}] -format "Tarih: %d/%m/%Y - Saat: %H:%M:%S - %z"]" set ::tip $ip ;set ::tstamp $stamp if {[regexp {^(? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ?:[01]?\d?\d|2[04]\d|25[0-5])(\.|$)){4}$} $ip]} { tor:ip:file } else { tor:hosts:file tor } return 0 } proc tor:ip:file {} { set ip $::tip ;set stamp $::tstamp set fp [open $::csvfile1 "r"] set data [read -nonewline $fp] close $fp set lines [split $data "\n"] if {[lsearch -nocase -index 0 $lines $ip] == -1} { putcmdlog "$ip ile ilgili $::csvfile1 dosyasında eşleşme bulunmadı. $stamp" tor:hosts:ip:file tor } else { incr ::torno putquick "$::method *@[lindex $lines [lsearch -nocase -index 0 $lines $ip] 0] $::sure :$::sebep:[concat $::torno - $stamp]" if {$::anons != "0"} { puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]" return 0 } } } proc tor:hosts:ip:file {tor} { set ip $::tip ;set stamp $::tstamp set torip [lindex [split $tor ,] 4] set fp [open $::csvfile2 "r"] set data [read -nonewline $fp] close $fp foreach line [split $data "\n"] { if {$ip != $torip} { putcmdlog "$ip ile ilgili $::csvfile2 dosyasında eşleşme bulunmadı. $stamp" return 0 } else { incr ::torno putquick "$::method *@$ip $::sure :$::sebep:[concat $::torno - $stamp]" if {$::anons != "0"} { puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]" return 0 } } } } proc tor:hosts:file {tor} { set ip $::tip ;set stamp $::tstamp set torhost [lindex [split $tor ,] 5] set fp [open $::csvfile2 "r"] set data [read -nonewline $fp] close $fp foreach line [split $data "\n"] { if {$ip != $torhost} { putcmdlog "$ip ile ilgili $::csvfile2 dosyasında eşleşme bulunmadı. $stamp" return 0 } else { incr ::torno putquick "$::method *@$ip $::sure :$::sebep:[concat $::torno - $stamp]" if {$::anons != "0"} { puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]" return 0 } } } } proc csv:wget {minute hour day month year} { set torips "wget -N [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] DEBUG" set torhosts "wget -N [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] DEBUG" eval exec $torips utimer 1[list eval exec $torhosts] } putlog "ok...."

Kodu bu şekilde kullanıyorum son halinde hata veriyordu onuda paylaşırım.. Ayrıca ilgin alakan için teşekkür ederim.. Eğer yanlış anlamazsan ve kabul edersen kodları bana ait test sunucumda deneyebilirsin vps makina var bende zaten önce kodları test sunucumda kontrol ediyorum daha sora irc sunucuma monte ediyorum.. Eğer kabul edersen test sunucumun bilgilerini seninle paylaşabilirim.. tekrardan teşekkür ederim ilgin alakan için..

 

Çevrimdışı

üstünden ne kadar zaman geçti tam söyleyemem ,epey geçti üzerinden, ya efnet ya freenode üstünde biri gelip kod / yardım istemişti,, yine ya sunucudan ya servislerden gelen notice mesajı yakalayıp işlem yapmakla alakalı bişeydi.

10-15 satırlık bi kodla kolayca halledilecek bişeydi,, bende kanal üstüne yazıverdim istediği kodu... o sıra thommey araya girdi, "peki ya kullanıcının biri aynı notice mesajını bota gönderip aklını karıştırırsa ne olacak ? " gibi bişi söyledi ...bende hmm öyleyse böyle yaparız diye buna önlem alacak satırı yazıverdimdi...

o zamandan itibaren ne zaman bu gibi sunucu/servislerden gelecek notice yakalama üzerine bir proc yazsam otomatik olarak bunu da ekliyorum.

bu satırda : eğer yakalanan arg *client connecting* içermiyorsa ve bir kullanıcıdan geliyorsa işlem yapma....

bu tür daha evvel yaptığım kodlarda bunu hep bu tarz/üslupta kullandım,şimdiye dek te bunla alakalı herhangi bi sorun/hata duymadım/görmedimdi..

şöyle düşünülebilir: nasıl bir zekaya sahip mahlukat , kalkıp girdiği sunucudaki bota "/notice bot bak client connecting yapıyorum bot" gibisinden bir notice göndermeye niyet etsin.....

ama işte thommey o zaman ortaya attı böyle bişey diye önlem mahiyetine bizde ekliyoruz o zamandan beri bunu...

o satırdaki -nocase büyük/küçük harf uyumu önemli değil* gibi anlam taşıyor ki kişiyi/kullanıcıyı check ettiği için orda olup olmaması gereksiz.yani olsada olmasada bi zararı yok böyle bir *match* seçeneğinin...o nedenle tamamen kaldırılıp :


halinde de kullanılabilir.. hatta yukarda izah etmeye çalıştığım sebeple "hade canım olur mu hiç öyle birşey" diye düşünerek tamamen o kontrol de ortadan kaldırılıp :

haliylede kullanmak tercih edilebilir....

yukarda bilmiyorum belki copy-paste yaptığınızda da oluşmuş olabilir ama bazı satır kayma hataları gözüme ilişti. yuıkardaki verdiğim linkten [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "raw code" yazısına tıklayıp temiz bi kopya çekipde deneyebilirsiniz. çünkü dediğim gibi daha önce pek çok farklı kodlarda kullandığım bir yapı bu ve hiç sorun olduğu olmamıştı...

diğer yukarda söz ettiğim konuysa tamamen "motivasyonla" alakalı...benim kendi huyum suyum alışkanlıklarımla alakalı..imkanım yok vs konusu değil yoksa...
şu an kullandığım makinada CentOS, opensuse ve archlinux halihazırda kurulu. ayrıca birkaç tanede sanal makina üzerinde var.disklerden biri iso kalıplarıyla dolu...yeni çıkan bi distro yada sürüm olduğunda , bu benim hobilerimden biridir illa alır indirip kurarım,orasını burasını şöyle bir kurcalayıp bakarım.

bu işi öylece bırakma nedenim, diğer şuan bekleyip duran nerden baksanız onlarca diğer kodlar/proje/fikirlerle aynı sebepten.. hevesin kaçması, motivasyonun kaybolması yada kısacası artık sıkılıp başka şeylerle ilgilenmeye başlamam.

ne zaman gene aklıma gelir " ya Bismillah" deyip yine "niyet" edersem o zaman olacak o iş... de benim işlerim böyledir. bi iş uzun sürerse sıkılırım,sıkılıncada ortalık yerde bırakıverip,başka şeylere geçerim.bi yerde takılıp kalmayı sevmiyorum.afaganlar basıyor...

 

Çevrimdışı

Dostum sanada cidden zahmet veriyorum okadar bizler paylaşımlar yapiyorsun emek veriyorsun kusura bakmazsan son verdiğin Tcl code by nrt - 127 lines - codepad yükledikten sora bu seferde böle hata verdi.
[23:52] <K9> [23:51:05] Tcl error [notc:serv]: wrong # args: extra words after "else" clause in "if" command
[23:52] <K9> [23:51:05] -NOTICE- *** Notice -- Client connecting on port 6667: test (admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].174.57.203) [clients]

 

Çevrimdışı

->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 

Çevrimdışı

bugün itibariyle, ircforumlari'ndan ayrılıyorum.

bunun gibi ,sonunu getirmenin bir türlü kısmet olmadığı işleri, inşallah başkaları sonuna erdirip,paylaşır.

burda paylaştığım kodları/scriptleri vs. isteyen ,istediği şekilde kullanabilir,editleyebilir, sahipte çıkabilir.benden yana sorun yoktur. Helal-i hoş olsun...


öyle yada böyle herhangi birinizi üzdüm,kırdıysam, gücendirdiysem af ola.

Allah'a emanet olun...

 

Çevrimdışı

Yahu nereye... Bizlerle bilgi paylaşımı yapan bir kaç kişiden birtanesi sensin tcl eggdrop vs yönünde
sayende zengin bir arşivimiz oluştu.. ayrılmana cidden üzüldüm umarım birilerine kırılıp buradan ayrılmıyorsundur.. Emeklerin için teşekkürler ayrıca umarım sana ulaşıp yine senin bilgilerinden yararlanabiliriz..