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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Sep 21 21:29:59 MSD 2007


Author: sergei
Date: 2007-09-21 21:29:59 +0400 (Fri, 21 Sep 2007)
New Revision: 1238

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/georoster/georoster.tcl
Log:
	* georoster/georoster.tcl: Use separated public XML storage interface.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-09-21 17:27:08 UTC (rev 1237)
+++ trunk/tkabber-plugins/ChangeLog	2007-09-21 17:29:59 UTC (rev 1238)
@@ -1,3 +1,7 @@
+2007-09-21  Sergei Golovan <sgolovan at nes.ru>
+
+	* georoster/georoster.tcl: Use separated public XML storage interface.
+
 2007-09-10  Sergei Golovan <sgolovan at nes.ru>
 
 	* presencecmd/msgs/de.msg: Added German translation (thanks to Roger

Modified: trunk/tkabber-plugins/georoster/georoster.tcl
===================================================================
--- trunk/tkabber-plugins/georoster/georoster.tcl	2007-09-21 17:27:08 UTC (rev 1237)
+++ trunk/tkabber-plugins/georoster/georoster.tcl	2007-09-21 17:29:59 UTC (rev 1238)
@@ -803,12 +803,9 @@
     }
 
     foreach connid [array names items] {
-	jlib::send_iq set \
-	    [jlib::wrapper:createtag query \
-		 -vars {xmlns jabber:iq:private} \
-		 -subtags [list [jlib::wrapper:createtag query \
-				     -vars {xmlns tkabber:georoster} \
-				     -subtags $items($connid)]]] \
+	private::store [list [jlib::wrapper:createtag query \
+				  -vars {xmlns tkabber:georoster} \
+				  -subtags $items($connid)]] \
 	-connection $connid
     }
 }
@@ -828,11 +825,8 @@
 ###############################################################################
 
 proc georoster::retrieve {connid} {
-    jlib::send_iq get \
-	[jlib::wrapper:createtag query \
-	     -vars {xmlns jabber:iq:private} \
-	     -subtags [list [jlib::wrapper:createtag query \
-				 -vars {xmlns tkabber:georoster}]]] \
+    private::retrieve [list [jlib::wrapper:createtag query \
+				 -vars {xmlns tkabber:georoster}]] \
 	-command [list [namespace current]::recv $connid] \
 	-connection $connid
 }



More information about the Tkabber-dev mailing list