egghelp/eggheads community

A big problem

2008-01-09T23:41:53-04:00

First off all, thanks for your replys
Second,

You expect the first character to be a #, not the \003 color control-code.

nml375, I`m not expecting for every user who wants to make a advertise with colors, bolds or underlines to start there advertise with # and then the \003 | \037 | \002 .... I tryin to make a if statement so that this script will ban *ONLY* simple text that contain \003 , \037 or \002.

Keep in mind that ^ means start of word, so the expression "^#\w" will only match when # is the very first character in the word, not when the first character is a \003 (which is what you used for testing).

I`ve tryed to remove the "^#\w" and leave only this part:

Code:

if {[regexp {(?i)(http://|www\.|\s#\w)} $text]}

This si the result (including TCL_no_TK's suggestion):

mmmm test
* |EGG sets mode: +b *!*@127.0.0.1
* teste22 was kicked by |EGG (NO colors allowed here!)
<@me> .tcl killchanban #channels *!*@127.0.0.1
<@|EGG> OK: 1 - 0.029 ms
* |tester sets mode: -b *!*@X101.DSL02.lipetsk.ru
* Joins: teste22 (~test@127.0.0.1)
mmmm #test
* |EGG sets mode: +b *!*@127.0.0.1
* teste22 was kicked by |EGG (NO colors allowed here!)
<@me> .tcl killchanban #channels *!*@127.0.0.1
<@|EGG> OK: 1 - 0.031 ms
mmmm http://test.ro
* |EGG sets mode: +b *!*@127.0.0.1
* teste22 was kicked by |EGG (NO colors allowed here!)

.... now the user gets ban if he types #|http:// or any type of channel/web advertise

I`ll try to fing other ways in the code for the bot NOT to ban ( with this script ) users who use in there messages #* | http://* | ftp://* | www.*

Statistics: Posted by Riddler — Wed Jan 09, 2008 11:41 pm

A big problem

2008-01-09T10:46:18-04:00

The code is pretty much fine, the regular expression however is flawed.
You expect the first character to be a #, not the \003 color control-code. Also, I fail to see the purpose of the (?i) entity in your expression.

Keep in mind that ^ means start of word, so the expression "^#\w" will only match when # is the very first character in the word, not when the first character is a \003 (which is what you used for testing). One easy workaround might be to use the stripcodes command to remove any and all control-codes before running the regular expression.

Statistics: Posted by nml375 — Wed Jan 09, 2008 10:46 am

A big problem

2008-01-09T01:13:51-04:00

Try changing

Code:

 if {[regexp {(?i)(http://|www\.|\s#\w|^#\w)} $text]} {  return 1 } else {  ban $nick $uhost $hand $chan $text }   return 0}

Code:

 if {[regexp {(?i)(http://|www\.|\s#\w|^#\w)} $text]} {return 0} else {ban "$nick $uhost $hand $chan $text"; return 1}; return}

Am not good with regexp but i think thats the reutrn's sorted out.

Statistics: Posted by TCL_no_TK — Wed Jan 09, 2008 1:13 am

A big problem

2008-01-09T00:20:03-04:00

Heya guys, I have a issue with a tcl I`m trying to upgrade...

Here is the code

Code:

# color.tclset color(chan) "#chan"set color(kickmsg) "NO colors allowed here!"set color(bantime) "60"### END CFG ###bind pubm - * s:colorproc s:color {nick uhost hand chan text} { global botnick color  if {[matchattr $hand of|of $chan] || [isop $nick $chan] || [isvoice $nick $chan]}  { return 0 }  if {(([lsearch -exact [string tolower $color(chan)] [string tolower $chan]] != -1) || ($color(chan) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {    if {[string match *\003* $text]} {      if {[regexp {(?i)(http://|www\.|\s#\w|^#\w)} $text]} {        return 1      } else {        ban $nick $uhost $hand $chan $text      }      return 0     }  }}proc ban {nick uhost hand chan text} { global botnick color   set ban "*!*@[lindex [split $uhost @] 1]"   newchanban $chan $ban color $color(kickmsg) $color(bantime)   putquick "KICK $chan $nick :$color(kickmsg)"   return 1}putlog "color.tcl loaded!"

So here is the main idea ... as the code show's I`m trying to make this tcl ban only users who use color text only, and will NOT ban those type of text that contain channel/web advertise. ( because that job is done by another code...)

Now the problem:

(05:19:29) * Joins: teste1 (~test@127.0.0.1)
(05:19:35) #test
(05:19:35) * |EGG sets mode: +b *!*@127.0.0.1
(05:19:35) * teste1 was kicked by |EGG (NO colors allowed here!)

This is not the way I want the code to work!! When the user typed "#test" (with the red color) the reaction should be null ( return 1 )

This is the wright way for this code to work

(05:29:29) * Joins: teste1 (~test@127.0.0.1)
(05:29:35) #test
..... no banning ( the above text normaly will activate the chan/web advertise script )
(05:29:46) color test
(05:29:46) * |EGG sets mode: +b *!*@127.0.0.1
(05:29:46) * teste1 was kicked by |EGG (NO colors allowed here!)
..... do the ban ( corect order )

What's the bug ?!

Any ideas how to fix it ? .... ( hope so )

Statistics: Posted by Riddler — Wed Jan 09, 2008 12:20 am