Blowfish weird problem

[ka0n]

Hi guys,

I've create this procedure that handles outgoing msg to diff chans and i want my bot to switch between 2 blowkeys, #chan and #chan-ops, in chan i use blowkey "LOL" and in #chan-ops "101". With windrop (1.6.18+nosharefix) everything seems to run smooth and easy but in *nix (tried with 1.16.17 and 1.6.18RC1) all the problems come up. The same script doesn't work there, it always uses the blokey "LOL" in both chans.

Here is the proc.

Code: Select all

set blow_key "LOL"
set blow_key_op_chan "101"
set chans "#chan #chan2"
set admin_chan "#chan-ops"

proc msg_out {who what} {
global admin_chan blow_key blow_key_op_chan
	if {![string match -noc "*$admin_chan*" $who]} {set what [encrypt $blow_key $what]
	} else {set what [encrypt $blow_key_op_chan $what]}
	putserv "privmsg $who :+OK $what"
}

proc testing {nick host hand arg} {
global admin_chan
msg_out "$admin_chan" "testing"

}

Anyone got ideas?

Thanks for the help guys!

[De Kus]

I see only one thing that might cause an TCL error, but none that could cause your described problem.
always use full parameter names. Some TCL compilations (at least I believe its a configure thing of TCL install) dont like even unique shortcuts. Try using -nocase instead of -noc .