egghelp/eggheads community

swproc error in tcl script

2005-07-27T14:23:27-04:00

Code:

set banreason "Badword was detected in your text"set bantime "15"set badwords {"badword""badword1""badword2""badword3""etc"} bind pubm - * pub:badwordproc pub:badword {nick host hand chan text} {  global badwords banreason bantime  if {![matchattr $hand nmo|nmof]} {     foreach badword $badwords {       if {[string match *$badword* $text]} {         putserv "KICK $chan $nick :You are not allowed to say $badword"         newchanban $chan *![string map ~ * $host] BadWord $banreason $bantime none       }     }   } }

Statistics: Posted by Merk0r — Wed Jul 27, 2005 2:23 pm

swproc error in tcl script

2005-07-27T14:15:31-04:00

Code:

set banreason "Used a badword"set badwords { "badword" "badword1" "badword2" "badword3" "etc" }   bind pubm - * pub:badword proc pub:badword {nick host hand chan text} {   global badwords banreason  if {![matchattr $hand nmo|nmof]} {      foreach badword $badwords {        if {[string match *$badword* $text]} {          putserv "KICK $chan $nick :You are not allowed to say $badword"         set ban *!*[string tolower [string range $uhost [string first @ $uhost] end]]          newchanban $chan $ban BadWord $banreason 15        }      }    }  }

That with a channelban, its ban like *!*@user.domain.com

Statistics: Posted by Dizzle — Wed Jul 27, 2005 2:15 pm

swproc error in tcl script

2005-07-27T12:36:09-04:00

That's all wrong.

Code:

set badwords {"badword""badword1""badword2""badword3""etc"} bind pubm - * pub:badwordproc pub:badword {nick host hand chan text} {  global badwords  if {![matchattr $hand nmo|nmof]} {     foreach badword $badwords {       if {[string match *$badword* $text]} {         putserv "KICK $chan $nick :You are not allowed to say $badword"         break       }     }   } }

Statistics: Posted by Merk0r — Wed Jul 27, 2005 12:36 pm

swproc error in tcl script

2005-07-26T17:11:59-04:00

ban (channel ban) and then kick. Thanks

Statistics: Posted by Nucleus — Tue Jul 26, 2005 5:11 pm

swproc error in tcl script

2005-07-26T17:06:37-04:00

Code:

set badwords { "badword""badword1""badword2""badword3""etc"} bind pub - * pub:badwordproc pub:badword {nick host hand chan text} {  if {![matchattr $hand nmo|nmof]} {    if {[string match "*$badwords*" $text]} {      set badword $text      putserv "KICK $chan $nick $badword is a badword"    }  }}

Try that. Set badwords to the badwords you want. If a badword is detected, the person is kicked from the channel.

Tell me what you want in it, kick and then ban the user. Just ask me .

Statistics: Posted by r0t3n — Tue Jul 26, 2005 5:06 pm

swproc error in tcl script

2005-07-26T16:05:19-04:00

i have no idea. Any suggestions on fixing it?

Statistics: Posted by Nucleus — Tue Jul 26, 2005 4:05 pm

swproc error in tcl script

2005-07-26T15:59:11-04:00

the proc 'swproc' does not exist maybe . And why so many string match -nocase's .

Statistics: Posted by r0t3n — Tue Jul 26, 2005 3:59 pm

swproc error in tcl script

2005-07-26T15:54:52-04:00

Code:

bind pubm - "*badword1*" swprocbind pubm - "*badword2*" swprocbind pubm - "*badword3*" swprocbind pubm - "*badword4*" swproc set swdura 600set swkick "Swearing"######## CODE - DO NOT TOUCH ########bind ctcp - ACTION ctcp:badword proc ctcp:badword {nick uhost hand chan keyword text} {  if {[string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text] || [string match -nocase *badword* $text]} {   swproc $nick $uhost $hand $chan $text  } }putlog "=====>> Swearing Protection Loaded"

This script gives me this error in the partyline.

Code:

[22:16] Tcl error [swproc]: invalid command name "swproc"[22:23] Tcl error [swproc]: invalid command name "swproc"[22:24] Tcl error [swproc]: invalid command name "swproc"

Whats wrong with it? How do i fix it?

Statistics: Posted by Nucleus — Tue Jul 26, 2005 3:54 pm