purple::signal connect [purple::account handle] account-away { account state message } {

purple::debug -info "tcl signal" "account-away [purple::account username $account] \"$state\" \"$message\""

purple::signal connect [purple::account handle] account-connecting { account } {

purple::debug -info "tcl signal" "account-connecting [purple::account username $account]"

purple::signal connect [purple::account handle] account-set-info { account info } {

purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info"

purple::signal connect [purple::account handle] account-setting-info { account info } {

purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info"

purple::signal connect [purple::buddy handle] buddy-away { buddy } {

purple::debug -info "tcl signal" "buddy-away [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"

purple::signal connect [purple::buddy handle] buddy-back { buddy } {

purple::debug -info "tcl signal" "buddy-back [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"

purple::signal connect [purple::buddy handle] buddy-idle { buddy } {

purple::debug -info "tcl signal" "buddy-idle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"

purple::signal connect [purple::buddy handle] buddy-unidle { buddy } {

purple::debug -info "tcl signal" "buddy-unidle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"

purple::signal connect [purple::buddy handle] buddy-signed-on { buddy } {

purple::debug -info "tcl signal" "buddy-signed-on [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"

purple::signal connect [purple::buddy handle] buddy-signed-off { buddy } {

purple::debug -info "tcl signal" "buddy-signed-off [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"

purple::signal connect [purple::core handle] quitting {} {

purple::debug -info "tcl signal" "quitting"

purple::signal connect [purple::conversation handle] receiving-chat-msg { account who what id flags } {

purple::debug -info "tcl signal" "receiving-chat-msg [purple::account username $account] $id $flags $who \"$what\""

purple::signal connect [purple::conversation handle] receiving-im-msg { account who what id flags } {

purple::debug -info "tcl signal" "receiving-im-msg [purple::account username $account] $id $flags $who \"$what\""

purple::signal connect [purple::conversation handle] received-chat-msg { account who what id flags } {

purple::debug -info "tcl signal" "received-chat-msg [purple::account username $account] $id $flags $who \"$what\""

purple::signal connect [purple::conversation handle] received-im-msg { account who what id flags } {

purple::debug -info "tcl signal" "received-im-msg [purple::account username $account] $id $flags $who \"$what\""

purple::signal connect [purple::conversation handle] sending-chat-msg { account what id } {

purple::debug -info "tcl signal" "sending-chat-msg [purple::account username $account] $id \"$what\""

purple::signal connect [purple::conversation handle] sending-im-msg { account who what } {

purple::debug -info "tcl signal" "sending-im-msg [purple::account username $account] $who \"$what\""

purple::signal connect [purple::conversation handle] sent-chat-msg { account id what } {

purple::debug -info "tcl signal" "sent-chat-msg [purple::account username $account] $id \"$what\""

purple::signal connect [purple::conversation handle] sent-im-msg { account who what } {

purple::debug -info "tcl signal" "sent-im-msg [purple::account username $account] $who \"$what\""

purple::signal connect [purple::connection handle] signed-on { gc } {

purple::debug -info "tcl signal" "signed-on [purple::account username [purple::connection account $gc]]"

purple::signal connect [purple::connection handle] signed-off { gc } {

purple::debug -info "tcl signal" "signed-off [purple::account username [purple::connection account $gc]]"

purple::signal connect [purple::connection handle] signing-on { gc } {

purple::debug -info "tcl signal" "signing-on [purple::account username [purple::connection account $gc]]"

purple::signal connect signing-off {

purple::debug -info "tcl signal" "signing-off [purple::account username [purple::connection account $event::gc]]"

purple::signal connect update-idle {

purple::debug -info "tcl signal" "update-idle"

purple::signal connect [purple::plugins handle] plugin-load args {

purple::debug -info "tcl signal" "plugin-load [list $args]"

purple::signal connect [purple::plugins handle] plugin-unload args {

purple::debug -info "tcl signal" "plugin-unload [list $args]"

purple::signal connect [purple::savedstatus handle] savedstatus-changed args {

purple::debug -info "tcl signal" "savedstatus-changed [list $args]"

purple::debug -info "tcl signal" "purple::savedstatus current = [purple::savedstatus current]"

proc plugin_init { } {