Mercurial > pidgin.yaz
comparison plugins/tcl/signal-test.tcl @ 6694:2d2f04c5c7d2
[gaim-migrate @ 7220]
Sean probably won't think this is contact support. This is in fact a
Tcl script plugin loader. That's probably what he'll think it is.
committer: Tailor Script <tailor@pidgin.im>
author | Ethan Blanton <elb@pidgin.im> |
---|---|
date | Tue, 02 Sep 2003 03:34:37 +0000 |
parents | |
children | fe9568f4055f |
comparison
equal
deleted
inserted
replaced
6693:8c1b5dd87fbf | 6694:2d2f04c5c7d2 |
---|---|
1 gaim::signal connect [gaim::account handle] account-away { account state message } { | |
2 gaim::debug -info "tcl signal" "account-away [gaim::account username $account] \"$state\" \"$message\"" | |
3 } | |
4 | |
5 gaim::signal connect [gaim::account handle] account-connecting { account } { | |
6 gaim::debug -info "tcl signal" "account-connecting [gaim::account username $account]" | |
7 } | |
8 | |
9 gaim::signal connect [gaim::account handle] account-set-info { account info } { | |
10 gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info" | |
11 } | |
12 | |
13 gaim::signal connect [gaim::account handle] account-setting-info { account info } { | |
14 gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info" | |
15 } | |
16 | |
17 gaim::signal connect [gaim::account handle] account-warned { account who level } { | |
18 gaim::debug -info "tcl signal" "account-warned [gaim::account username $account] $who $level" | |
19 } | |
20 | |
21 gaim::signal connect [gaim::buddy handle] buddy-away { buddy } { | |
22 gaim::debug -info "tcl signal" "buddy-away [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
23 } | |
24 | |
25 gaim::signal connect [gaim::buddy handle] buddy-back { buddy } { | |
26 gaim::debug -info "tcl signal" "buddy-back [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
27 } | |
28 | |
29 gaim::signal connect [gaim::buddy handle] buddy-idle { buddy } { | |
30 gaim::debug -info "tcl signal" "buddy-idle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
31 } | |
32 | |
33 gaim::signal connect [gaim::buddy handle] buddy-unidle { buddy } { | |
34 gaim::debug -info "tcl signal" "buddy-unidle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
35 } | |
36 | |
37 gaim::signal connect [gaim::buddy handle] buddy-signed-on { buddy } { | |
38 gaim::debug -info "tcl signal" "buddy-signed-on [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
39 } | |
40 | |
41 gaim::signal connect [gaim::buddy handle] buddy-signed-off { buddy } { | |
42 gaim::debug -info "tcl signal" "buddy-signed-off [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]" | |
43 } | |
44 | |
45 gaim::signal connect [gaim::core handle] quitting {} { | |
46 gaim::debug -info "tcl signal" "quitting" | |
47 } | |
48 | |
49 gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id } { | |
50 gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $who \"$what\"" | |
51 return 0 | |
52 } | |
53 | |
54 gaim::signal connect [gaim::conversation handle] received-im-msg { account who what flags } { | |
55 gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $flags $who \"$what\"" | |
56 return 0 | |
57 } | |
58 | |
59 gaim::signal connect [gaim::conversation handle] sending-chat-msg { account what id } { | |
60 gaim::debug -info "tcl signal" "sending-chat-msg [gaim::account username $account] $id \"$what\"" | |
61 return 0 | |
62 } | |
63 | |
64 gaim::signal connect [gaim::conversation handle] sending-im-msg { account who what } { | |
65 gaim::debug -info "tcl signal" "sending-im-msg [gaim::account username $account] $who \"$what\"" | |
66 return 0 | |
67 } | |
68 | |
69 gaim::signal connect [gaim::conversation handle] sent-chat-msg { account id what } { | |
70 gaim::debug -info "tcl signal" "sent-chat-msg [gaim::account username $account] $id \"$what\"" | |
71 } | |
72 | |
73 gaim::signal connect [gaim::conversation handle] sent-im-msg { account who what } { | |
74 gaim::debug -info "tcl signal" "sent-im-msg [gaim::account username $account] $who \"$what\"" | |
75 } | |
76 | |
77 gaim::signal connect [gaim::connection handle] signed-on { gc } { | |
78 gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]" | |
79 } | |
80 | |
81 gaim::signal connect [gaim::connection handle] signed-off { gc } { | |
82 gaim::debug -info "tcl signal" "signed-off [gaim::account username [gaim::connection account $gc]]" | |
83 } | |
84 | |
85 gaim::signal connect [gaim::connection handle] signing-on { gc } { | |
86 gaim::debug -info "tcl signal" "signing-on [gaim::account username [gaim::connection account $gc]]" | |
87 } | |
88 | |
89 if { 0 } { | |
90 gaim::signal connect signing-off { | |
91 gaim::debug -info "tcl signal" "signing-off [gaim::account username [gaim::connection account $event::gc]]" | |
92 } | |
93 | |
94 gaim::signal connect update-idle { | |
95 gaim::debug -info "tcl signal" "update-idle" | |
96 } | |
97 } | |
98 | |
99 proc plugin_init { } { | |
100 list "Tcl Signal Test" \ | |
101 "$gaim::version" \ | |
102 "Debugs a ridiculous amount of signal information." \ | |
103 "Ethan Blanton <eblanton@cs.purdue.edu>" \ | |
104 "http://gaim.sourceforge.net/" | |
105 } |