egghelp/eggheads community

help needed for my script

2004-11-09T12:00:33-04:00

Try to use this proc to clean it

Code:

  proc clean {i} {    regsub -all -- \\\\ $i \\\\\\\\ i    regsub -all -- \\\[ $i \\\\\[ i    regsub -all -- \\\] $i \\\\\] i    regsub -all -- \\\} $i \\\\\} i    regsub -all -- \\\{ $i \\\\\{ i    return $i  }

this could work, but it's not the proper way to approach that common problem of inexperienced scripters; there's a nice article in the FAQ section explaining how to deal with that issue; in essence, you shouldn't use certain list operation on strings before splitting the string into a proper list - no need of "cleaning", just use [split] and [join] wisely

@seroal:
instead of building rather ugly-looking nested lindex/split constructs, use this to divide nick!user@host into variables:

Code:

scan $who %\[^!\]!%\[^@\]@%s nick user host

Statistics: Posted by demond — Tue Nov 09, 2004 12:00 pm

help needed for my script

2004-11-09T09:56:19-04:00

Try to use this proc to clean it

Code:

  proc clean {i} {    regsub -all -- \\\\ $i \\\\\\\\ i    regsub -all -- \\\[ $i \\\\\[ i    regsub -all -- \\\] $i \\\\\] i    regsub -all -- \\\} $i \\\\\} i    regsub -all -- \\\{ $i \\\\\{ i    return $i  }

Statistics: Posted by metroid — Tue Nov 09, 2004 9:56 am

help needed for my script

2004-11-09T07:42:07-04:00

Code:

bind pub - !bans pub:banesproc pub:banes { nick uhost handle chan arg } {if { [isop $nick $chan] || [ishalfop $nick $chan] || [isvoice $nick $chan] } {set channel $chanif { $arg!="" } {set channel $arg}set banli [chanbans $channel]set banes 0foreach x $banli {set banner [lindex [split [split [lindex [split [lindex [split $x] 1] !] 0] \]] |] 0]if { [lsearch [lrange [split $banes] 1 end] $banner]==-1 } {set banes "$banes $banner"putlog [lrange [split $banes] 1 end]"set banarray($banner) 1} else {set banarray($banner) [expr $banarray($banner)+1]putlog "$banarray($banner)"}}set listabaneador [lrange [split $banes] 1 end]set textofin 0putlog "longitud de baneado [llength $listabaneador]"for { set i 0 } { $i<[llength $listabaneador] } { incr i } {if { $i==[expr [llength $listabaneador]-1] } {set textofin "$textofin y $banarray([lindex $listabaneador $i]) son de [lindex $listabaneador $i]. " } else {set textofin "$textofin, $banarray([lindex $listabaneador $i]) son de [lindex $listabaneador $i]" putlog "$textofin"}}set final [lrange [split $textofin] 1 end]set text [join $final]putlog "$text"putserv "PRIVMSG $chan :There is [llength $banli] bans of 100 posible en in the channel $channel from which $text"}}

This is one of the scripts i made to count the number of bans in a chan and sum the bans made by each op in that chan. The problem is when i have a nick with special chars. Normaly the [ ] chars. For exemple, if i have a nick like [test] , it'll return:
{\\\{\\\[test\\} {{}} and then ..

Tcl error [pub:banes]: can't read "banarray(\{\[test)": no such element in array

i've tried reading all posts but i still don't know how i could solve it.. sorry if this as already been treated in other post but i'de apreciate some help. thx for all (sorry for my bad scripting .. )

Statistics: Posted by seroal — Tue Nov 09, 2004 7:42 am