From 0ffac62571ea42aa03eab24fd08b43c2cfe815c1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mat=C4=9Bj=20Cepl?= <mcepl@redhat.com>
Date: Fri, 12 Feb 2010 16:16:33 +0100
Subject: [PATCH] Add empty handlers for chat-joined and chat-left signals.

---
 open-chats-from-xmpp-bookmarks.pl | 43 +++++++++++++++++++++++++++++++++++----
 1 file changed, 39 insertions(+), 4 deletions(-)

diff --git a/open-chats-from-xmpp-bookmarks.pl b/open-chats-from-xmpp-bookmarks.pl
index abeba4b..2dc356f 100644
--- a/open-chats-from-xmpp-bookmarks.pl
+++ b/open-chats-from-xmpp-bookmarks.pl
@@ -167,6 +167,28 @@ sub got_xml_cb {
         }
     }
 }
+
+# information links
+# http://xmpp.org/extensions/xep-0048.html
+# http://xmpp.org/extensions/xep-0223.html
+# http://xmpp.org/extensions/xep-0060.html
+
+sub joined_chat {
+    my $conv = shift; # PurpleConversation
+    Purple::Debug::info("$pluginName", "joined chat " .
+            $conv->get_name() . " for account " .
+            $conv->get_account()->get_username() . "\n");
+    # if not("chat already registered") then add_to_server
+}
+
+sub left_chat {
+    my $conv = shift; # PurpleConversation
+    Purple::Debug::info("$pluginName", "left chat " .
+            $conv->get_name() . " for account " .
+            $conv->get_account()->get_username() . "\n");
+    # if "chat already registered" then remove_from_server
+}
+
 my @connected_signals = ();
 my $blist;
 
@@ -188,19 +210,32 @@ sub plugin_load {
     $plugin = shift;
     my $connected_signal;
 
+    # it doesn't make any sense when we don't have jabber
+    my $jabber = Purple::Find::prpl("prpl-jabber");
+    if (!$jabber) {
+        return NULL;
+    }
+
+    # connect signed-on signal
     $conn = Purple::Connections::get_handle();
     $consignal = Purple::Signal::connect($conn, "signed-on", $plugin,
         \&signed_on, 0);
     push @connected_signals,$consignal;
 
-    my $jabber = Purple::Find::prpl("prpl-jabber");
-    if (!$jabber) {
-        return NULL;
-    }
+    # connect IQ management signals
     $consignal = Purple::Signal::connect($jabber,
         "jabber-receiving-iq",$plugin,\&got_xml_cb, 0);
     push @connected_signals,$consignal;
 
+    # connect chat management signals
+    $conn = Purple::Conversations::get_handle();
+    $consignal = Purple::Signal::connect($conn,
+        "chat-joined",$plugin,\&joined_chat, 0);
+    push @connected_signals,$consignal;
+    $consignal = Purple::Signal::connect($conn,
+        "chat-left",$plugin,\&left_chat, 0);
+    push @connected_signals,$consignal;
+
     # Initialize a buddy list
     # FIXME Do we need it? What it is good for?
     $blist = Purple::get_blist();
-- 
2.11.4.GIT