Tkabber

Artifact 16171e43d6cb979660a4ac925d6328dedf8c1293:

• File chat-plugins/nick_command.tcl — part of check-in [8b78cfb5ff] at 2002-07-29 08:01:52 on branch trunk — Initial revision (user: aleksey size: 371)

# $Id$

proc handle_nick_change {chatid user body type} {
    variable F

    if {[cequal [crange $body 0 5] "/nick "] && [cequal $type groupchat]} {
	set nick [string trim [crange $body 6 end]]
	set_our_groupchat_nick $chatid $nick
	jlib::send_presence -to $chatid/$nick
	puts "NICK: $nick"
	return stop
    }
}
plugins::add_hook chat_send_message handle_nick_change 50