Changeset d7c2ce6 for perl/lib

Timestamp:

Nov 13, 2006, 11:06:52 PM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

6e9e50e

Parents:

51c57f8

git-author:

Nelson Elhage <nelhage@mit.edu> (11/13/06 23:06:12)

git-committer:

Nelson Elhage <nelhage@mit.edu> (11/13/06 23:06:52)

Message:

Net::Jabber::Owl patch to support muc configuration and history requests on MUC join

File:

• perl/lib/Net/Jabber/Namespaces.pm (modified) (3 diffs)

perl/lib/Net/Jabber/Namespaces.pm

@@ -1442 +1442 @@
             xpath => {
                       Password => { path => 'password/text()' },
+                      History  => {
+                                    type  => 'child',
+                                    path  => 'history',
+                                    child => { ns => '__netjabber__:iq:muc:history' },
+                                    calls => ['Add', 'Get', 'Set', 'Defined' ],
+                                   },
                       MUC      => { type => 'master' },
                      },
@@ -1449 +1455 @@
            );
 }
-       
+
+#-----------------------------------------------------------------------------
+# __netjabber__:iq:muc:history
+#-----------------------------------------------------------------------------
+{
+    &add_ns(ns    => '__netjabber__:iq:muc:history',
+            tag   => 'history',
+            xpath => {
+                      MaxChars   => { path => '@maxchars' },
+                      MaxStanzas => { path => '@maxstanzas' },
+                      Seconds    => { path => '@seconds' },
+                      Since      => { path => '@since' }
+                     },
+            docs  => {
+                      module => 'Net::Jabber',
+                     },
+           );
+                   
+}
+
 #-----------------------------------------------------------------------------
 # http://jabber.org/protocol/muc#admin
@@ -1584 +1609 @@
 }
 
+
+#-----------------------------------------------------------------------------
+# http://jabber.org/protocol/muc#owner
+#-----------------------------------------------------------------------------
+
+{
+        &add_ns(
+                ns  => "http://jabber.org/protocol/muc#owner",
+                tag => 'query',
+               );
+}
+
+
 #-----------------------------------------------------------------------------
 # http://jabber.org/protocol/pubsub