[Tkabber-dev] r1870 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Jan 15 16:12:59 MSK 2010


Author: sergei
Date: 2010-01-15 16:12:59 +0300 (Fri, 15 Jan 2010)
New Revision: 1870

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/privacy.tcl
Log:
	* privacy.tcl: Added IQ to blocked stanzas for JIDs in invisible list
	  to close another channel of leaking user's presence. The obvious
	  drawback is that it becomes impossible to query contacts bare JID
	  also (which doesn't reveal presence if the contact doesn't have full
	  access to his server).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2010-01-14 18:36:14 UTC (rev 1869)
+++ trunk/tkabber/ChangeLog	2010-01-15 13:12:59 UTC (rev 1870)
@@ -1,3 +1,11 @@
+2010-01-15  Sergei Golovan  <sgolovan at nes.ru>
+
+	* privacy.tcl: Added IQ to blocked stanzas for JIDs in invisible list
+	  to close another channel of leaking user's presence. The obvious
+	  drawback is that it becomes impossible to query contacts bare JID
+	  also (which doesn't reveal presence if the contact doesn't have full
+	  access to his server).
+
 2010-01-14  Sergei Golovan  <sgolovan at nes.ru>
 
 	* login.tcl: Turned connect and login procedures into asynchronous

Modified: trunk/tkabber/privacy.tcl
===================================================================
--- trunk/tkabber/privacy.tcl	2010-01-14 18:36:14 UTC (rev 1869)
+++ trunk/tkabber/privacy.tcl	2010-01-15 13:12:59 UTC (rev 1870)
@@ -764,7 +764,7 @@
 	    set postitems $olditems
 	}
 	invisible {
-	    set stanzas {presence-out}
+	    set stanzas {presence-out iq}
 	    set action deny
 	    foreach jid $newitems {
 		send_custom_presence $xlib $jid unavailable
@@ -773,7 +773,7 @@
 	}
 	visible {
 	    # TODO: invisibility
-	    set stanzas {presence-out}
+	    set stanzas {}
 	    set action allow
 	    set postitems $newitems
 	}
@@ -883,7 +883,7 @@
 		       {allow {} {}} -command #
 	    join_lists $xlib "i-am-invisible-list" \
 		       {ignore-list visible-list conference-list subscription-list} \
-		       {deny {} {presence-out}} -command #
+		       {deny {} {presence-out iq}} -command #
 	}
 	invisible {
 	    join_lists $xlib "i-am-visible-list" \
@@ -893,7 +893,7 @@
 	visible {
 	    join_lists $xlib "i-am-invisible-list" \
 		       {ignore-list visible-list conference-list subscription-list} \
-		       {deny {} {presence-out}} -command #
+		       {deny {} {presence-out iq}} -command #
 	}
     }
 



More information about the Tkabber-dev mailing list