comparison: libpurple/plugins/tcl/signal-test.tcl
libpurple/plugins/tcl/signal-test.tcl
- changeset 37581
- 1fb661b5f206
- parent 37580
- 498763742ea4
- child 37582
- ca3533cdddc7
equal
deleted
inserted
replaced
| 37580:498763742ea4 | 37581:1fb661b5f206 |
|---|---|
| 1 purple::signal connect [purple::account handle] account-away { account state message } { | |
| 2 purple::debug -info "tcl signal" "account-away [purple::account username $account] \"$state\" \"$message\"" | |
| 3 } | |
| 4 | |
| 5 purple::signal connect [purple::account handle] account-connecting { account } { | |
| 6 purple::debug -info "tcl signal" "account-connecting [purple::account username $account]" | |
| 7 } | |
| 8 | |
| 9 purple::signal connect [purple::account handle] account-set-info { account info } { | |
| 10 purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info" | |
| 11 } | |
| 12 | |
| 13 purple::signal connect [purple::account handle] account-setting-info { account info } { | |
| 14 purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info" | |
| 15 } | |
| 16 | |
| 17 purple::signal connect [purple::buddy handle] buddy-away { buddy } { | |
| 18 purple::debug -info "tcl signal" "buddy-away [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 19 } | |
| 20 | |
| 21 purple::signal connect [purple::buddy handle] buddy-back { buddy } { | |
| 22 purple::debug -info "tcl signal" "buddy-back [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 23 } | |
| 24 | |
| 25 purple::signal connect [purple::buddy handle] buddy-idle { buddy } { | |
| 26 purple::debug -info "tcl signal" "buddy-idle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 27 } | |
| 28 | |
| 29 purple::signal connect [purple::buddy handle] buddy-unidle { buddy } { | |
| 30 purple::debug -info "tcl signal" "buddy-unidle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 31 } | |
| 32 | |
| 33 purple::signal connect [purple::buddy handle] buddy-signed-on { buddy } { | |
| 34 purple::debug -info "tcl signal" "buddy-signed-on [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 35 } | |
| 36 | |
| 37 purple::signal connect [purple::buddy handle] buddy-signed-off { buddy } { | |
| 38 purple::debug -info "tcl signal" "buddy-signed-off [purple::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
| 39 } | |
| 40 | |
| 41 purple::signal connect [purple::core handle] quitting {} { | |
| 42 purple::debug -info "tcl signal" "quitting" | |
| 43 } | |
| 44 | |
| 45 purple::signal connect [purple::conversation handle] receiving-chat-msg { account who what id flags } { | |
| 46 purple::debug -info "tcl signal" "receiving-chat-msg [purple::account username $account] $id $flags $who \"$what\"" | |
| 47 return 0 | |
| 48 } | |
| 49 | |
| 50 purple::signal connect [purple::conversation handle] receiving-im-msg { account who what id flags } { | |
| 51 purple::debug -info "tcl signal" "receiving-im-msg [purple::account username $account] $id $flags $who \"$what\"" | |
| 52 return 0 | |
| 53 } | |
| 54 | |
| 55 purple::signal connect [purple::conversation handle] received-chat-msg { account who what id flags } { | |
| 56 purple::debug -info "tcl signal" "received-chat-msg [purple::account username $account] $id $flags $who \"$what\"" | |
| 57 } | |
| 58 | |
| 59 purple::signal connect [purple::conversation handle] received-im-msg { account who what id flags } { | |
| 60 purple::debug -info "tcl signal" "received-im-msg [purple::account username $account] $id $flags $who \"$what\"" | |
| 61 } | |
| 62 | |
| 63 purple::signal connect [purple::conversation handle] sending-chat-msg { account what id } { | |
| 64 purple::debug -info "tcl signal" "sending-chat-msg [purple::account username $account] $id \"$what\"" | |
| 65 return 0 | |
| 66 } | |
| 67 | |
| 68 purple::signal connect [purple::conversation handle] sending-im-msg { account who what } { | |
| 69 purple::debug -info "tcl signal" "sending-im-msg [purple::account username $account] $who \"$what\"" | |
| 70 return 0 | |
| 71 } | |
| 72 | |
| 73 purple::signal connect [purple::conversation handle] sent-chat-msg { account id what } { | |
| 74 purple::debug -info "tcl signal" "sent-chat-msg [purple::account username $account] $id \"$what\"" | |
| 75 } | |
| 76 | |
| 77 purple::signal connect [purple::conversation handle] sent-im-msg { account who what } { | |
| 78 purple::debug -info "tcl signal" "sent-im-msg [purple::account username $account] $who \"$what\"" | |
| 79 } | |
| 80 | |
| 81 purple::signal connect [purple::connection handle] signed-on { gc } { | |
| 82 purple::debug -info "tcl signal" "signed-on [purple::account username [purple::connection account $gc]]" | |
| 83 } | |
| 84 | |
| 85 purple::signal connect [purple::connection handle] signed-off { gc } { | |
| 86 purple::debug -info "tcl signal" "signed-off [purple::account username [purple::connection account $gc]]" | |
| 87 } | |
| 88 | |
| 89 purple::signal connect [purple::connection handle] signing-on { gc } { | |
| 90 purple::debug -info "tcl signal" "signing-on [purple::account username [purple::connection account $gc]]" | |
| 91 } | |
| 92 | |
| 93 if { 0 } { | |
| 94 purple::signal connect signing-off { | |
| 95 purple::debug -info "tcl signal" "signing-off [purple::account username [purple::connection account $event::gc]]" | |
| 96 } | |
| 97 | |
| 98 purple::signal connect update-idle { | |
| 99 purple::debug -info "tcl signal" "update-idle" | |
| 100 } | |
| 101 } | |
| 102 | |
| 103 purple::signal connect [purple::plugins handle] plugin-load args { | |
| 104 purple::debug -info "tcl signal" "plugin-load [list $args]" | |
| 105 } | |
| 106 | |
| 107 purple::signal connect [purple::plugins handle] plugin-unload args { | |
| 108 purple::debug -info "tcl signal" "plugin-unload [list $args]" | |
| 109 } | |
| 110 | |
| 111 purple::signal connect [purple::savedstatus handle] savedstatus-changed args { | |
| 112 purple::debug -info "tcl signal" "savedstatus-changed [list $args]" | |
| 113 purple::debug -info "tcl signal" "purple::savedstatus current = [purple::savedstatus current]" | |
| 114 } | |
| 115 | |
| 116 proc plugin_init { } { | |
| 117 list "Tcl Signal Test" \ | |
| 118 "$purple::version" \ | |
| 119 "Tests Tcl signal handlers" \ | |
| 120 "Debugs a ridiculous amount of signal information." \ | |
| 121 "Ethan Blanton <elb@pidgin.im>" \ | |
| 122 "https://pidgin.im/" | |
| 123 } |
