Форум о ботах Eggdrop/Windrop

[tvrsh]

Название: ednsbl.tcl
Версия: 1.0
Автор: tvrsh
Описание: Easy DNS BlackLists. Скрипт проверяет хост входящего на канал юзера на присутствие в DNS BlackLists.
Поддержка Suzi: Да
Пример работы: Пока нет.
Дополнительная информация: На текущий момент проверяет в DroneBL, Barracuda Reputation Block List, SpamCop Blocking List.
Ссылка на скрипт:

[indjov]

If you check more lists would be better in my opinion.
Because the sometimes lags or not online

[tvrsh]

Ok, but did you check this scrpt? It works or not? Any errors?

[indjov]

Yup, your script works perfectly

[tvrsh]

Updated, added Barracuda Reputation Block List and SpamCop Blocking List.

[Jake]

Похоже, для более корректных банов, лучше оставить только DroneBL в скрипте, закомментировав Баракуду и СпамКоп, а то почти всех юзеров банит, заходящих на канал, также банит айпишники сотовых операторов, пробовал и с IP своего провайдера зайти на канал - тоже забанил (бот это всё банил, когда 3 блэклиста были активны). Пока оставил активным только DroneBL в скрипте

[tvrsh]

Этот скрипт реально помогает? Тебя одолевают флудботы?

[Jake]

меня нет, но думаю можно его использовать для наказания нарушителей, которых, к примеру, забанил кто-либо на канале за нарушения и они решили обойти бан, используя Open Proxy. Параноидально, но всё же

[Jake]

при бане юзера бот стал писать следующую ошибку:

[22:39:09] «bnc» [ERROR 0.003ms] дочерний процесс завершился некорректно
[22:39:10] «bnc» [ERROR] при выполнении
[22:39:10] «bnc» [ERROR] "close $input"

в чем может быть дело ? активен только DroneBL в скрипте:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# DroneBL.
proc ::ednsbl::ednsbl_proc_dronebl {nick uhost hand chan text} {
    variable ednsbl
   
    set reverseip [join [lreverse [split $text "."]] "."]
    set input [open "|[exec which nslookup] $reverseip.dnsbl.dronebl.org" r]
    set listed 1
    while ![eof $input] {
        catch {set result [gets $input]}
        if [eof $input] {break}
        set output [string trimleft $result]
        if {[string match  "** server can't find $reverseip.dnsbl.dronebl.org: NXDOMAIN*" $output]} {
            set listed 0
        }
    }
   
    if {$listed == "1"} {
        ::ednsbl::ednsbl_ban $nick $uhost $chan "You are listed in DroneBL. Visit http://dronebl.org/ for more info."
    } else {
        #::ednsbl::ednsbl_proc_efnetbl $nick $uhost $hand $chan $text
    }
    catch {close $input}  
    unset input
    unset result
    return 1  
}

P.S. Eggdrop 1.6.21 + Suzi + TCL 8.6.1

[Vertigo]

при бане юзера бот стал писать следующую ошибку

Это не ошибка. close $input завернут в catch. Ругаться явно на нее бот не может.

[Jake]

Это не ошибка. close $input завернут в catch. Ругаться явно на нее бот не может.

то есть ничего страшного в этом нет ? не обращать внимания ? ) ругается не сам бот, а при выполнении команды !tcl скрипта-аналога команды .tcl (бот сборки с виндроп клана)