[Tkabber-dev] r1185 - in trunk/tkabber: . examples/tools

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Aug 15 15:25:32 MSD 2007


Author: sergei
Date: 2007-08-15 15:25:31 +0400 (Wed, 15 Aug 2007)
New Revision: 1185

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/examples/tools/jsend.tcl
   trunk/tkabber/examples/tools/rssbot.tcl
Log:
	* examples/tools/jsend.tcl, examples/tools/rssbot.tcl: Fixed sending
	  available presence.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-08-12 15:42:55 UTC (rev 1184)
+++ trunk/tkabber/ChangeLog	2007-08-15 11:25:31 UTC (rev 1185)
@@ -1,3 +1,8 @@
+2007-08-15  Sergei Golovan  <sgolovan at nes.ru>
+
+	* examples/tools/jsend.tcl, examples/tools/rssbot.tcl: Fixed sending
+	  available presence.
+
 2007-08-12  Sergei Golovan  <sgolovan at nes.ru>
 
 	* iq.tcl: Switched to returning service-unavailable instead of

Modified: trunk/tkabber/examples/tools/jsend.tcl
===================================================================
--- trunk/tkabber/examples/tools/jsend.tcl	2007-08-12 15:42:55 UTC (rev 1184)
+++ trunk/tkabber/examples/tools/jsend.tcl	2007-08-15 11:25:31 UTC (rev 1185)
@@ -169,13 +169,13 @@
     }
 
     if {$stayP > 1} {
-        jlib::send_presence -type available -stat Online \
+        jlib::send_presence -stat Online \
 			    -connection $connid
         if {![string compare $options(-type) groupchat]} {
             set nick $aprops(local)@$aprops(domain)/@aprops(resource)
             set nick [string range [sha1::sha1 $nick+[clock seconds]] 0 7]
             foreach to $options(-to) {
-                jlib::send_presence -type available -to $to/$nick \
+                jlib::send_presence -to $to/$nick \
 				    -connection $connid
             }
         }

Modified: trunk/tkabber/examples/tools/rssbot.tcl
===================================================================
--- trunk/tkabber/examples/tools/rssbot.tcl	2007-08-12 15:42:55 UTC (rev 1184)
+++ trunk/tkabber/examples/tools/rssbot.tcl	2007-08-15 11:25:31 UTC (rev 1185)
@@ -135,7 +135,7 @@
     }
     
     if {$stayP > 1} {
-        jlib::send_presence -type available -stat Online \
+        jlib::send_presence -stat Online \
 			    -connection $connid
         return 1
     }



More information about the Tkabber-dev mailing list