egghelp/eggheads community

banned words script [Solved]

2007-09-24T15:34:22-04:00

Thank you Sir_Fz I tried it and it works.

Statistics: Posted by jeremie — Mon Sep 24, 2007 3:34 pm

banned words script [Solved]

2007-09-24T15:17:44-04:00

Yes, that line replaces your code (the foreach-statement). Give it a try.

Statistics: Posted by Sir_Fz — Mon Sep 24, 2007 3:17 pm

banned words script [Solved]

2007-09-24T15:12:25-04:00

Yes sorry Sir_Fz I was testing so many different pieces of code and this is what I am using.

Code:

foreach user [split [chanlist $chan] " "] {    set found [string match -nocase *$user* $text]    if {$found} {      regsub -all -nocase -- $user $text "" text    } }

If I used your sugestion of the regsub would it work better?

Code:

regsub -nocase -all [list [join [chanlist $chan] |]] $text {} text

Would I just replace mine with yours or does your one line replace all my code?

Sorry if that's a dumb question but I am still learning.

Statistics: Posted by jeremie — Mon Sep 24, 2007 3:12 pm

Re: banned words script [Solved]

2007-09-24T13:40:35-04:00

Code:

foreach user [split [chanlist $chan] " "] {    set found [string match -nocase *$user* $text]    if {$found} {      regsub -all -nocase -- $user $text [string tolower $user] text    }

This does not strip the nicknames from the message, instead it replaces the nicknames with their lower-case form. Not sure if that was your intention.

Statistics: Posted by Sir_Fz — Mon Sep 24, 2007 1:40 pm

Solved

2007-09-24T07:54:03-04:00

Thank you Sir_Fz for your suggestion.

Thank you awyeah for the help you have given about strings I'm sure that will be very useful for future projects.

After thinking about the problem and remebering what I said in my first post about the code working in my normal pubm proc, the solution I have come up with is to just filter the action text in my action proc and then push it through to my pubm proc.

I have done a quick test on my script and it now seems to work correctly, I will test it with all the different variables then make it live on my bots.

Once again thank you both

Statistics: Posted by jeremie — Mon Sep 24, 2007 7:54 am

banned words script [Solved]

2007-09-24T13:14:11-04:00

Just some piece of advice:

Code:

set text [string trim [string range $text $nick+1 e]]set text [string trim $text {$nick+1} e]set text [string trim $text [expr $nick+1] e]

You cannot perform mathematrical operations on a string which is NOT AN INTEGER, such as $nick. Since IRCd's restrict nicks to be alphanumeric.

Hence you can only perform mathematical operations such as add, sub, mul, div etc on strings which are integers.

Example:

Code:

if {[string is integer $mydata]} { set newtext [string range $text [expr $mydata+1] end]}

And by bad index it refers, this should be:

Code:

set text [string trim $text [expr $nick+1] e]this:set text [string range $text [expr $nick+1] end]#orset text [string range $text [expr $nick+1] end-1]set text [string range $text [expr $nick+1] end-2]#andset text [string trim $text e]set text [string trimright $nick a]set text [string trimleft $ident ~]#etc

String trim is only for trimming certain words in a string, it cannot be used with indexes. See the tcl manual for string range for more help.

Statistics: Posted by awyeah — Mon Sep 24, 2007 1:02 am

banned words script [Solved]

2007-09-23T19:26:22-04:00

Try

Code:

regsub -nocase -all [list [join [chanlist $chan] |]] $text {} text

Edit: Added -all switch.

Statistics: Posted by Sir_Fz — Sun Sep 23, 2007 7:26 pm

banned words script [Solved]

2007-09-24T11:09:00-04:00

I am amending my script to check for the banned words on actions.

I want to strip out the users name from the text and just check the rest of the text.

I tried using this :-

Code:

foreach user [split [chanlist $chan] " "] {    set found [string match -nocase *$user* $text]    if {$found} {      regsub -all -nocase -- $user $text [string tolower $user] text    }

which works on normal pubm but not action.

I also tried using these :-

Code:

set text [string trim [string range $text $nick+1 e]]

Code:

set text [string trim $text {$nick+1} e]

Code:

set text [string trim $text [expr $nick+1] e]

and various combinations using both {} and [] tound the $nick+1 in each

All of the above codes came up with this return :-

bad index "whatever the action was": must be integer or end?-integer?

Can somebody please help me to solve this problem?

Statistics: Posted by jeremie — Sun Sep 23, 2007 6:39 pm