Mercurial > pidgin
view libpurple/plugins/tcl/signal-test.tcl @ 17576:d495103dcf88
Two questions:
1. XMPP <status> messages inside <presence> broadcasts should be
plaintext and not HTML, right?
2. 'stripped = purple_markup_strip_html(str)' is basically the same as
'purple_markup_html_to_xhtml(str, NULL, &stripped)', right?
This fixes a bug Emily found where setting an XMPP status message with
an embedded link would drop the link completely. For example, in
Pidgin you set your away message and insert a link so that the message
body is <a href="http://www.example.com/">Example</a>. When we set
this message for an XMPP account it just strips the HTML and sets the
message to "Example". This change causes the message to be
"Example (http://www.example.com/)". It's the same thing we do when
displaying links in tooltips in the blist.
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Sun, 10 Jun 2007 15:58:23 +0000 |
parents | f4c72a722741 |
children |
line wrap: on
line source
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\"" return 0 } 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\"" return 0 } 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\"" return 0 } 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\"" return 0 } 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]]" } if { 0 } { 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::savedstatuses 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 { } { list "Tcl Signal Test" \ "$purple::version" \ "Tests Tcl signal handlers" \ "Debugs a ridiculous amount of signal information." \ "Ethan Blanton <elb@pidgin.im>" \ "http://www.pidgin.im/" }