[Tkabber-dev] r1644 - in trunk/tkabber-plugins: . georoster

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Feb 11 20:30:07 MSK 2009


Author: sergei
Date: 2009-02-11 20:30:06 +0300 (Wed, 11 Feb 2009)
New Revision: 1644

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/georoster/georoster.tcl
Log:
	* georoster/georoster.tcl: Use private XML storage interface from
	  TclXMPP.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2009-02-09 20:08:34 UTC (rev 1643)
+++ trunk/tkabber-plugins/ChangeLog	2009-02-11 17:30:06 UTC (rev 1644)
@@ -1,3 +1,8 @@
+2009-02-11  Sergei Golovan <sgolovan at nes.ru>
+
+	* georoster/georoster.tcl: Use private XML storage interface from
+	  TclXMPP.
+
 2009-01-10  Sergei Golovan <sgolovan at nes.ru>
 
 	* socials/preload.tcl, socials/socials.tcl: Made socials plugin

Modified: trunk/tkabber-plugins/georoster/georoster.tcl
===================================================================
--- trunk/tkabber-plugins/georoster/georoster.tcl	2009-02-09 20:08:34 UTC (rev 1643)
+++ trunk/tkabber-plugins/georoster/georoster.tcl	2009-02-11 17:30:06 UTC (rev 1644)
@@ -4,6 +4,7 @@
 
 package require msgcat
 package require http 2
+package require xmpp::private
 
 ###############################################################################
 
@@ -812,9 +813,9 @@
     }
 
     foreach xlib [array names items] {
-	private::store $xlib [list [::xmpp::xml::create query \
-					-xmlns tkabber:georoster \
-					-subelements $items($xlib)]]
+	::xmpp::private::store $xlib [list [::xmpp::xml::create query \
+						-xmlns tkabber:georoster \
+						-subelements $items($xlib)]]
     }
 }
 
@@ -833,9 +834,9 @@
 ###############################################################################
 
 proc georoster::retrieve {xlib} {
-    private::retrieve $xlib [list [::xmpp::xml::create query \
-					-xmlns tkabber:georoster]] \
-	-command [list [namespace current]::recv $xlib]
+    ::xmpp::private::retrieve $xlib [list [::xmpp::xml::create query \
+						-xmlns tkabber:georoster]] \
+	    -command [list [namespace current]::recv $xlib]
 }
 
 hook::add connected_hook [namespace current]::georoster::retrieve



More information about the Tkabber-dev mailing list