change key via tcl, possible?

[cez]

is it possible to automagically change the need-key via tcl. i was thinking about something like this:

bind mode - "*+k*" key_change

proc key_change { nick uhost hand chan mc key } {
chanset $chan need-key putserv "join #$chan $key"
putlog "new key $victim"
}

[ppslim]

Yes.

You are allmost there, it is just the commands in use that need slight changing.

See tcl-commands.doc on the "channel" command (search the file for "channel set" to be more precise).