egghelp/eggheads community

string match problem

2003-06-16T15:04:18-04:00

Well I took user's suggestion at the bottom of his post. That is much better now. I don't receive any more errors.

Thanks for the post stdragon. I did not think anything of the == 1 being taken as arguments. I'll keep that in mind next time.

Statistics: Posted by Solarin — Mon Jun 16, 2003 3:04 pm

string match problem

2003-06-16T14:56:32-04:00

Well you have this bit:

[string match \[a-z\] [string index $ident 0] == 1]

Now, the way you have that written, these are the arguments:

match
\[a-z\]
[string index $ident 0]
==
1

Tcl is treating "==" as a string argument to the command, because it's inside the [ ] with the rest of the parameters. Probably you meant for the ] after the 1 to actually be before the ==.

Do yourself a favor and split that horrible mess into a couple different lines heh. Also take a look at what User said.

Statistics: Posted by stdragon — Mon Jun 16, 2003 2:56 pm

string match problem

2003-06-16T14:51:17-04:00

I escaped the brackets and now I receive the following error:
Tcl error [join:nospam]: wrong # args: should be "string match ?-nocase? pattern string"

Code:

if {[string match \[a-z\] [string index $ident 0] == 1] && [string match \[0-9\] [string index $ident 1] == 1] && [string match \[a-z\] [string index $ident 2] == 1] && [string match \[0-9\] [string index $ident 3] == 1] && [string match \[a-z\] [string index $ident 4] == 1]} {

Statistics: Posted by Solarin — Mon Jun 16, 2003 2:51 pm

string match problem

2003-06-16T14:39:55-04:00

escape the brackets (\[a-z\])

btw: you can do [string match \[a-z\]\[0-9\]\[a-z\]\[0-9\]\[a-z\] $ident] if the number/order of chars is always the same.

Statistics: Posted by user — Mon Jun 16, 2003 2:39 pm

string match problem

2003-06-16T14:26:10-04:00

Help with error:
Tcl error [join:nospam]: invalid command name "a-z"

The code is as follows:

Code:

bind join - * join:nospamproc join:nospam {nick host hand chan} {   set ident [string range $host [string first ! $host] [string first @ $host]]  if {[string match [a-z] [string index $ident 0] == 1] && [string match [0-9] [string index $ident 1] == 1] && [string match [a-z] [string index $ident 2] == 1] && [string match [0-9] [string index $ident 3] == 1] && [string match [a-z] [string index $ident 4] == 1]} {    putserv "KICK $chan $nick :Spamming ident."    newban [string trimleft [maskhost [getchanhost $nick $chan]] ~] NoSpam "Spamming ident." $spambantime  }}

Basically, I want to kick and ban any user with the alpha-number-alpha-number-alpha type ident (i.e. o1j2e).
This is a widely used type of spamming ident on Austnet and the ident always follows such a pattern. It would be nice to get this working.

Your help is appreciated.

Statistics: Posted by Solarin — Mon Jun 16, 2003 2:26 pm