egghelp/eggheads community

caps script

2005-07-30T22:19:52-04:00

Demond, many thanks.

Statistics: Posted by mm — Sat Jul 30, 2005 10:19 pm

caps script

2005-07-30T03:21:58-04:00

yeah that must be it

try to truncate the $nick if necessary, using [string range]

Statistics: Posted by demond — Sat Jul 30, 2005 3:21 am

caps script

2005-07-30T02:03:21-04:00

oh i think its problem with the nick length, if nick length more than 9 then it doesn't work and if nick is less than 9 then it works, so it means adduser fails due to nicklength. Do i need to change the nick length in the source?

oh log says XXX 0 in both cases even if it worked or not. i've added that log after
adduser $nick [maskhost [getchanhost $nick $chan]]

oh also if nick length is 12 then adduser was taking just 9.

Thanks

Statistics: Posted by mm — Sat Jul 30, 2005 2:03 am

caps script

2005-07-30T01:59:37-04:00

so what does the log say? 0 or 1?

Statistics: Posted by demond — Sat Jul 30, 2005 1:59 am

caps script

2005-07-30T01:45:01-04:00

I tried another another test using putlog "XXX [adduser $nick [maskhost [getchanhost $nick $chan]]]"

Code:

[01:39] XXX 0[01:39] Tcl error [ctcp:caps]: No such user. Currently: No such user.  Currently:     while executing  Currently: "setuser $nick PASS [rand 987654321]"  Currently:     (procedure "caps:perc:kick" line 24)  Currently:     invoked from within  Currently: "caps:perc:kick $nick $uhost $hand $chan $arg "  Currently:     (procedure "ctcp:caps" line 3)  Currently:     invoked from within  Currently: "ctcp:caps $_ctcpr1 $_ctcpr2 $_ctcpr3 $_ctcpr4 $_ctcpr5 $_ctcpr6"

it's odd some it works fine and some time it doesn't...oh i am using eggdrop1.6.17

Thanks again

Statistics: Posted by mm — Sat Jul 30, 2005 1:45 am

caps script

2005-07-30T01:32:05-04:00

OK, demond, let me try it, thanks.

Statistics: Posted by mm — Sat Jul 30, 2005 1:32 am

caps script

2005-07-30T01:28:46-04:00

patch the script, check the result of that [adduser]:

Code:

putlog "XXX [adduser $nick [maskhost [getchanhost $nick $chan]]]"

Statistics: Posted by demond — Sat Jul 30, 2005 1:28 am

caps script

2005-07-30T01:07:18-04:00

Just tried to recreate the problem with the test ip and i used caps using action command i.e. /me TESTTTTTTTTTTTTTTTTTTTTTTTTT

and i saw this message in the partyline
Tcl error [ctcp:caps]: No such user.
after seeing this error i used .set errorInfo

Code:

Currently: No such user. Currently:     while executing Currently: "setuser $nick PASS [rand 987654321]" Currently:     (procedure "caps:perc:kick" line 24) Currently:     invoked from within Currently: "caps:perc:kick $nick $uhost $hand $chan $arg " Currently:     (procedure "ctcp:caps" line 3) Currently:     invoked from within Currently: "ctcp:caps $_ctcpr1 $_ctcpr2 $_ctcpr3 $_ctcpr4 $_ctcpr5 $_ctcpr6"

and these are the final codes and i've restarted the bot after loading the script.

Code:

set cap_min 21set cap_per 50 bind pubm - * cap:perc:kick bind ctcp - ACTION ctcp_caps proc cap:perc:kick {nick uhost hand chan arg} {   global cap_per cap_min sbanner owner botnick   if {[string length $arg] <= $cap_min} { return }   set full [string length $arg]   regsub -all {[A-Z]} $arg "" arg   set perc [expr (($full - [string length $arg]) * 100) / $full]   set banmask "*!*[string range $uhost [string first "@" $uhost] end]"   if {$perc >= $cap_per} {     if {[onchan $nick $chan]} {       if {[matchattr $hand fo $chan]} {       putlog "*** ignored***********"    } elseif {[matchattr $hand Ek]} {             putserv "KICK $chan $nick :You are on auto kick..."       } elseif {[matchattr $hand F]} {       adduser $nick [maskhost [getchanhost $nick $chan]]             chattr $nick -F+Ek             newchanban $chan $banmask $owner "caps are not allowed" 60                  } else {          adduser $nick [maskhost [getchanhost $nick $chan]]             setuser $nick PASS [rand 987654321]             puthelp "PRIVMSG $chan :$nick: no caps"             chattr $nick +F    }; return 1     }   } }   proc ctcp_caps {nick uhost hand chan keyword arg} { if {[isbotnick [lindex [split $chan "@"] 0]] || [lindex [split $chan "@"] 1] != ""} {return 0}     cap:perc:kick $nick $uhost $hand $chan $arg }

Thanks

Statistics: Posted by mm — Sat Jul 30, 2005 1:07 am

caps script

2005-07-30T01:06:01-04:00

well it's still less than 27 lines from the proc's beginning to that [setuser] anyway

are you absolutely sure that there is [adduser] right before [setuser]? since I don't see how could [setuser] fail, provided the user has been just added (or already there)

Statistics: Posted by demond — Sat Jul 30, 2005 1:06 am

caps script

2005-07-30T00:39:23-04:00

demond, yeap this is the whole script, actually i have remove some comments and extra codes.

here is the latest errorinfo with the above codes and i've removed all other scripts as well, only this one is loaded.

Currently: No such user.
Currently: while executing
Currently: "setuser $nick PASS [rand 987654321]"
Currently: (procedure "caps:perc:kick" line 27)
Currently: invoked from within
Currently: "caps:perc:kick $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

Thanks again

Statistics: Posted by mm — Sat Jul 30, 2005 12:39 am

caps script

2005-07-30T00:10:14-04:00

hmm interesting, that proc is less than 37 lines long but the error traceback points at line 37... are you sure you posted the whole script?

Statistics: Posted by demond — Sat Jul 30, 2005 12:10 am

caps script

2005-07-29T22:32:39-04:00

Yeah, sometime i see error message that "No such user" but user is on the channel. I have these codes.

Code:

set cap_min 21set cap_per 50 bind pubm - * cap:perc:kick bind ctcp - ACTION ctcp_caps proc cap:perc:kick {nick uhost hand chan arg} {   global cap_per cap_min sbanner owner botnick  if {[string length $arg] <= $cap_min} { return }   set full [string length $arg]   regsub -all {[A-Z]} $arg "" arg   set perc [expr (($full - [string length $arg]) * 100) / $full]  set banmask "*!*[string range $uhost [string first "@" $uhost] end]"   if {$perc >= $cap_per} {    if {[onchan $nick $chan]} {      if {[matchattr $hand fo $chan]} {putlog "*** ignored***********"} elseif {[matchattr $hand Ek]} {            putserv "KICK $chan $nick :You are on auto kick..."      } elseif {[matchattr $hand F]} {adduser $nick [maskhost [getchanhost $nick $chan]]            chattr $nick -F+Ek            newchanban $chan $banmask $owner "caps are not allowed" 60             } else {adduser $nick [maskhost [getchanhost $nick $chan]]            setuser $nick PASS [rand 987654321]            puthelp "PRIVMSG $chan :$nick: no caps"            chattr $nick +F}; return 1    }  }} proc ctcp_caps {nick uhost hand chan keyword arg} {if {[isbotnick [lindex [split $chan "@"] 0]] || [lindex [split $chan "@"] 1] != ""} {return 0}    cap:perc:kick $nick $uhost $hand $chan $arg }

Code:

now .set errorInfo results Currently: No such user. Currently:     while executing Currently: "setuser $nick PASS [rand 987654321]" Currently:     (procedure "caps:perc:kick" line 37) Currently:     invoked from within Currently: "caps:perc:kick $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

Thanks again.

Statistics: Posted by mm — Fri Jul 29, 2005 10:32 pm

caps script

2005-07-29T00:26:54-04:00

are you sure the error is on that [setuser] immediately after [adduser]? with those 2 lines, even if [adduser] fails, [setuser] should succeed on the already existing user $nick

post the whole script

Statistics: Posted by demond — Fri Jul 29, 2005 12:26 am

caps script

2005-07-28T22:17:47-04:00

HI Sir_Fz, I get this

Code:

Currently: No such user. Currently:     while executing Currently: "setuser $nick PASS [rand 987654321]" Currently:     (procedure "cap:perc:kick" line 37) Currently:     invoked from within Currently: "cap:perc:kick $nick $uhost $hand $chan $arg " Currently:     (procedure "ctcp_caps" line 4) Currently:     invoked from within Currently: "ctcp_caps $_ctcpr1 $_ctcpr2 $_ctcpr3 $_ctcpr4 $_ctcpr5 $_ctcpr6"

I've some extra codes in the script to use some userdefine flags etc

Code:

if {$perc >= $cap_per} {   -   -   -   adduser $nick [maskhost [getchanhost $nick $chan]]   setuser $nick PASS [rand 987654321]   puthelp "PRIVMSG $chan :$nick: no caps."   chattr $nick +F

it seems error on this line -> setuser $nick PASS [rand 987654321]

Thanks again

Statistics: Posted by mm — Thu Jul 28, 2005 10:17 pm

caps script

2005-07-27T07:21:49-04:00

Thanks, Sir_Fz.

This happens once in a while, so should I type .set errorInfo after i see that error? or

thanks

Just type it, and if it tells you "you need help" then add a "#" before the line that says

unbind dcc n tcl *dcc:tcl

and the line after it as well (for the .set dcc command)

Statistics: Posted by Sir_Fz — Wed Jul 27, 2005 7:21 am