Posted to tcl by patthoyts at Thu Sep 14 22:23:51 GMT 2006view raw
- proc ::tkjabber::away { status {show away} } {
- variable AwayStatus
- variable conference
- set AwayStatus $status
- set jid $conference/[$tkjabber::muc mynick $conference]
- $tkjabber::jabber send_presence -type available \
- -from $jid -to $conference -show $show -status $status
- autoStatus
- }