egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2013-12-18T06:46:11-04:00 https://forum.eggheads.org/app.php/feed/topic/19572 2013-12-18T06:46:11-04:00 2013-12-18T06:46:11-04:00 https://forum.eggheads.org/viewtopic.php?p=102341#p102341 <![CDATA[After split my bot put ban *!*@*]]>

Code: 

bind join - "*" badidentproc badident {nick host hand chan} {if {[matchattr $hand X]} {putlog "14Защитен потребител:15 $nick ($host)" return 0}if {[isbotnick $nick] || ![botisop $chan]} returnif {[regexp {^~[a-z]{1}[0-9]{2,5}$} [lindex [split $host @] 0]]} {set banMask "*!*@[lindex [split $host @] 1]"if {![string match -nocase $banMask $::botname]} {newchanban $chan $banMask $::botnick "proxyta sa zabraneni" 60}}}

Statistics: Posted by caesar — Wed Dec 18, 2013 6:46 am

]]> 2013-12-18T05:42:32-04:00 2013-12-18T05:42:32-04:00 https://forum.eggheads.org/viewtopic.php?p=102339#p102339 <![CDATA[After split my bot put ban *!*@*]]>

Code: 

bind join - "*" badident proc badident {nick host hand chan} { } if {[matchattr $hand X]} {   putlog "14Защитен потребител:15 $nick ($host)"   return 0 }    if {![isbotnick $nick] && [botisop $chan]} {     if {[regexp {^~[a-z]{1}[0-9]{2,5}$} [lindex [split $host @] 0]]} {      set banMask "*!*@[lindex [split $host @] 1]"        if {![string match -nocase $banMask $::botname]} {    newchanban $chan $banMask $::botnick "proxyta sa zabraneni" 60 }

Statistics: Posted by Al — Wed Dec 18, 2013 5:42 am

]]> 2013-12-18T02:22:34-04:00 2013-12-18T02:22:34-04:00 https://forum.eggheads.org/viewtopic.php?p=102338#p102338 <![CDATA[After split my bot put ban *!*@*]]> Statistics: Posted by caesar — Wed Dec 18, 2013 2:22 am

]]> 2013-12-17T12:34:32-04:00 2013-12-17T12:34:32-04:00 https://forum.eggheads.org/viewtopic.php?p=102336#p102336 <![CDATA[After split my bot put ban *!*@*]]>
can't read "chan": no such variable
while executing
"botisop $chan"
invoked from within
"if {![isbotnick $nick] && [botisop $chan]} {
if {[regexp {^~[a-z]{1}[0-9]{2,5}$} [lindex [split $host @] 0]]} {
set banMask "*!*@[lindex [spl..."
(file "scripts/ident.tcl" line 8)
invoked from within
"source scripts/ident.tcl"

Statistics: Posted by Al — Tue Dec 17, 2013 12:34 pm

]]> 2013-12-17T02:18:19-04:00 2013-12-17T02:18:19-04:00 https://forum.eggheads.org/viewtopic.php?p=102335#p102335 <![CDATA[After split my bot put ban *!*@*]]>
A quick fix would be replacing:

Code: 

newchanban $chan *!*@[lindex [split $host @] 1] $::botnick "proxyta sa zabraneni" 60
with:

Code: 

set banMask "*!*@[lindex [split $host @] 1]"if {![string match -nocase $banMask $::botname]} {newchanban $chan $banMask $::botnick "proxyta sa zabraneni" 60}
that will match the ban with it's host. the *!*@* will match him and thus avoid banning itself.

Statistics: Posted by caesar — Tue Dec 17, 2013 2:18 am

]]> 2013-12-16T07:50:09-04:00 2013-12-16T07:50:09-04:00 https://forum.eggheads.org/viewtopic.php?p=102332#p102332 <![CDATA[After split my bot put ban *!*@*]]> I looked all your tcl`s seemingly everything is fine
bother me only one tcl.
Eggdrop version:1.6.21

Code: 

bind join - "*" badidentproc badident {nick host hand chan} { if {[matchattr $hand X]} {  putlog "14Защитен потребител:15 $nick ($host)"   return 0}   if {![isbotnick $nick] && [botisop $chan]} {    if {[regexp {^~[a-z]{1}[0-9]{2,5}$} [lindex [split $host @] 0]]} {      newchanban $chan *!*@[lindex [split $host @] 1] $::botnick "proxyta sa zabraneni" 60      }   }}

Statistics: Posted by Al — Mon Dec 16, 2013 7:50 am

]]>