egghelp/eggheads community

problem in chanlist with nick char

2004-03-02T18:28:57-04:00

You can search the list with lsearch and remove the nick you want with lreplace, for part. For join, you can add the nick you want with lappend.

Statistics: Posted by stdragon — Tue Mar 02, 2004 6:28 pm

problem in chanlist with nick char

2004-03-02T18:04:54-04:00

Thanks strikelight

The list of nick appears to me all good, with nicks correct with

Code:

puts $file "[join $$prueba]"

But now not like doing, that in part it clears to nick that it leaves the channel, of the list and sees the others nicks.
IE. In Join: [^__^] atest axe
In part: (if list leaves the channel [^__^]): atest axe

Thanks.

Statistics: Posted by Careto — Tue Mar 02, 2004 6:04 pm

problem in chanlist with nick char

2004-03-02T14:01:41-04:00

There is no need to be using regsub..
Your problem is with trying to use lists as strings...

for example... you use "lrange" to return a LIST, which will escape/protect special character elements...
To convert to a string you must use the [join] command....

ie. Topic: [join [lrange yer-normal-stuff-here]]

And when writing your variable "prueba" and "cuentame" to file, they are lists,
if you want to write it as a string, you must again, use [join]...

ie. puts $file "[join $prueba]"

Statistics: Posted by strikelight — Tue Mar 02, 2004 2:01 pm

problem in chanlist with nick char

2004-03-02T13:56:32-04:00

I have one problem with chanlist:

Code:

bind join - "#canal *" topicsproc topics {nick uhost hand chan} {if {[string equal -nocase $chan "$chan"]} {set file [open pruebanick w]set cuentame [chanlist $chan]regsub -all "{" $cuentame "" cuentameregsub -all "}" $cuentame "" cuentameputs $file "$cuentame"set op 0set voice 0set normal 0putserv "notice $nick :Topic: [lrange [topic $chan] 0 end]"putserv "notice $nick :Total de Usuarios: [llength [chanlist $chan]]"putserv "notice $nick :Modos del canal: [lindex [getchanmode $chan] 0]"foreach user [chanlist $chan] {    if {[isop $user $chan]} {      incr op    } elseif {[isvoice $user $chan]} {      incr voice    } else { incr normal }  }putserv "notice $nick :Total de Op: $op - Total Voice: $voice - Total Normales: $normal"}close $file}bind part - "#canal *" partesproc partes {nick uhost hand chan reason} {if {$reason == ""} {if {[string equal -nocase $chan "$chan"]} {set file [open pruebanick w]set cuentame [chanlist $chan]regsub -all $nick $cuentame "" cuentameset prueba [lsort -increasing -dictionary $cuentame]puts $file "$prueba"}close $file}}

the problem is, in $file chanlist, if nick is [^__^] or |-XXX-|, when copying itself in the file it appears {[^__^]}, in the bind join this corrected with:

Code:

regsub -all "{" $cuentame "" cuentameregsub -all "}" $cuentame "" cuentame

But in the bind part, not remove $nick with char "[] {} | |".
thanks

Statistics: Posted by Careto — Tue Mar 02, 2004 1:56 pm