egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-06-22T08:57:30-04:00 https://forum.eggheads.org/app.php/feed/topic/4778 2003-06-22T08:57:30-04:00 2003-06-22T08:57:30-04:00 https://forum.eggheads.org/viewtopic.php?p=22376#p22376 <![CDATA[error detection and correction]]>
As I understood you have a PUBM bind, witch binds a procedure named bdkb_check_proc. Here's an example code:

Code: 

proc bdkb_check_proc { nick host hand chan text } {global bdkb_badwords  set text [split $text]  # now you can check a text for "bad words" by using lsearch   # or looping this text (using for,while,foreach and lindex [ofcourse :)])}
I hope this will help you :wink:

Statistics: Posted by pollar — Sun Jun 22, 2003 8:57 am

]]> 2003-06-22T07:41:45-04:00 2003-06-22T07:41:45-04:00 https://forum.eggheads.org/viewtopic.php?p=22372#p22372 <![CDATA[error detection and correction]]>
is it possible to create a proc which is called if an error occurs?
this procedure should also fix the error if possible.

the reason why i'm asking is because i made a script which kicks people if they enter different "bad words" - for example "^^"
all these words are listed in one list called bdkb_badwords
example: set bdkb_badwords "*^^* ^?^" and so on...

this procedure is working quite fine, but it has one big bug.
if someone enter "^^ (please note the ") the following error occurs:
Tcl error [bdkb_check_proc]: unmatched open quote in list

therefore i got the idea of doing some error correction. how could i create such a procedure that either trims the trailing " or puts another " at the end? i got no idea...

tia

Statistics: Posted by meks — Sun Jun 22, 2003 7:41 am

]]>