problem with £

tal0s · Post by **tal0s** » Tue Aug 03, 2004 2:16 pm

i'm writing a script for a buddy of mine and the channel name has the £ in it....however, the tcl script i'm writing won't do anything because of the £. here's a sample from the script:

Code: Select all

set chan1 "chan name omitted but contains two £"
set chan2 "chan name omitted and contains no £"
set msg1 "!test"

bind pubm - * pubm:all
proc pubm:all { nick uhost hand chan text } {
  global chan1
  global chan2
  global msg1

  if {$chan == $chan1} {
    if {[lindex [split $text] 0] == $msg1} {
      putserv "PRIVMSG $chan2 :$msg1"
    }
  }
}

Papillon · Post by **Papillon** » Tue Aug 03, 2004 3:05 pm

Code: Select all

#try changing this...
if {$chan == $chan1} {

#...to this
if {[string equal -nocase $chan $chan1]} {

tal0s · Post by **tal0s** » Tue Aug 03, 2004 3:47 pm

nope, same problem.....i can change $chan1 to not include £ and it works, but as soon as it includes the symbol, nothing

tal0s · Post by **tal0s** » Tue Aug 03, 2004 4:55 pm

changed it from:

Code: Select all

if {$chan == $chan1}

to:

Code: Select all

if {[string compare -nocase $chan $chan1]}

and it works now, thanks for the help

tal0s · Post by **tal0s** » Wed Aug 04, 2004 1:22 am

heh actually i wasn't thinking clearly and it still doesn't work...i just realized that it's only entering the if because it thinks the strings aren't equal

Post by **user** » Wed Aug 04, 2004 2:33 am

sounds like you've got an encoding problem.

tal0s · Post by **tal0s** » Mon Aug 09, 2004 10:03 pm

solved the problem, used a wildcard character (?) to replace the single character that was causing the problem

Code: Select all

[string match "a?goeshere" "a£goeshere"]