egghelp/eggheads community

$strip

2003-09-21T14:15:44-04:00

Sorry?

Are you saying that No!Spam is correct, but the one your posted wasn't?

Statistics: Posted by ppslim — Sun Sep 21, 2003 2:15 pm

$strip

2003-09-20T13:53:54-04:00

Funny.. I do see that the same proc as I've posted above is still used in the no!spam 1.7.2.. so, wich is wich? I'm a bit confused..

Statistics: Posted by caesar — Sat Sep 20, 2003 1:53 pm

$strip

2003-09-19T12:30:53-04:00

I'ts the same code as you've *sugested* to me in a post long time ago.. Thanks for pointing that out.

Statistics: Posted by caesar — Fri Sep 19, 2003 12:30 pm

$strip

2003-09-18T17:00:23-04:00

I havn't got chance to check, however, is the bugger version actualy included in no!spam, or have you altered yours on accident?

The loss of such things is trivial, though it is still incorrect.

As for the non-mirc codes. Correct, however, both are two well used codes.

007 is BEL.

006 is used by other client, which I can't remember.

I should also have 011 in as mIRC will render it as a tab with certain fonts.

Statistics: Posted by ppslim — Thu Sep 18, 2003 5:00 pm

$strip

2003-09-18T16:46:12-04:00

What you mean by "losing stuff that is not part of the color code" ? I'll have a look on yours tomorow, not I'm off to bed.

Statistics: Posted by caesar — Thu Sep 18, 2003 4:46 pm

$strip

2003-09-18T16:20:43-04:00

I'm using it and is working fine at me.

Sure..if you don't care about losing stuff that is not part of the color code Try my example and you'll see what I mean.

Statistics: Posted by user — Thu Sep 18, 2003 4:20 pm

$strip

2003-09-18T16:01:03-04:00

Bugg ppslim with the ctrl:filter proc I'm using it and is working fine at me.. also, doh! I've gave you an example with the set text [ctrl:filter $text] .. don't take it *ad literam*

PS: Here is a lil test to proove that ppslim control filter thing is working fine:

Code:

bind pub - !bla pub:blaproc pub:bla {nick uhost hand chan text} {putserv "PRIVMSG $chan :result: [ctrl:filter $text]"}proc ctrl:filter {str} { regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str return $str }

Just do a !bla something with bold or whatever you want and then see by yourself what is the result..

Statistics: Posted by caesar — Thu Sep 18, 2003 4:01 pm

$strip

2003-09-18T15:20:26-04:00

i have problems with case sensitive .....
how i resolve this?

Some commands have a -nocase option. (check the manual) If the command you're using doesn't have this, convert the strings to lowercase using 'string tolower'

Statistics: Posted by user — Thu Sep 18, 2003 3:20 pm

$strip

2003-09-18T15:14:35-04:00

thanks everybody
i tryed put the code you guys send to me every place in the tcl
and finally it worked
the bot doesnt acept color codes , bold etc , but , i have problems with case sensitive .....
how i resolve this?

Statistics: Posted by Guest — Thu Sep 18, 2003 3:14 pm

$strip

2003-09-18T14:57:21-04:00

the eggdrop says that can't find "text" variable ...

if your text is in "i", why are you trying to filter "text"?

Statistics: Posted by user — Thu Sep 18, 2003 2:57 pm

$strip

2003-09-18T14:54:56-04:00

the problem is here

Code:

set text [ctrl:filter $text]

the eggdrop says that can't find "text" variable ...

Statistics: Posted by Guest — Thu Sep 18, 2003 2:54 pm

$strip

2003-09-18T14:51:09-04:00

use something like: ...

Filtering "a\003,\0030,\0030,0b" should result in "a,,b", not "ab" (like the proc you pasted)

Try

Code:

proc ctrlfilter {str} {regsub -all {\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037} $str "" strreturn $str}

and btw: \006 & \007 ain't mirc control codes

Statistics: Posted by user — Thu Sep 18, 2003 2:51 pm

$strip

2003-09-18T14:33:41-04:00

just added what you said to my tcl , and the eggdrop returned this

Code:

[15:26] Tcl error in file 'eggdrop.conf':[15:26] can't read "text": no such variable    while executing"ctrl:filter $text"    invoked from within"set text [ctrl:filter $text] "    (file "scripts/aprender.tcl" line 130)    invoked from within"source scripts/aprender.tcl"    (file "eggdrop.conf" line 1363)[15:26] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

[/code]

Statistics: Posted by Guest — Thu Sep 18, 2003 2:33 pm

$strip

2003-09-18T14:00:12-04:00

do a forum search, you will find a procedure provided by Ppslim that strips all control characters from the text.

Statistics: Posted by Sir_Fz — Thu Sep 18, 2003 2:00 pm

$strip

2003-09-18T14:00:09-04:00

use something like:

Code:

set text [ctrl:filter $text]

and this:

Code:

proc ctrl:filter {str} {  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str  return $str}

Thanks to ppslim for the strip code.

Statistics: Posted by caesar — Thu Sep 18, 2003 2:00 pm