[Tkabber-dev] r193 - trunk/plugins/bldjid

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Mar 31 04:34:17 MSD 2009


Author: bigote
Date: 2009-03-31 04:34:16 +0400 (Tue, 31 Mar 2009)
New Revision: 193

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
If you tried to work with /visit* or /bldjid commands while there is
a conference opened where you cannot enter because of nick coincidence
or too slow connection, you received an error. So, now it's fixed :)


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2009-03-30 22:06:52 UTC (rev 192)
+++ trunk/plugins/bldjid/ChangeLog	2009-03-31 00:34:16 UTC (rev 193)
@@ -1,3 +1,16 @@
+2009-03-31  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
+--- Version 0.4b5 of the plugin.
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+	If you tried to work with /visit* or /bldjid commands while there is
+	a conference opened where you cannot enter because of nick coincidence
+	or too slow connection, you received an error. So, now it's fixed :)
+
+	One debugging 'puts' command removed.
+
 2009-03-30  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
 --- Version 0.4b4 of the plugin.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2009-03-30 22:06:52 UTC (rev 192)
+++ trunk/plugins/bldjid/bldjid.tcl	2009-03-31 00:34:16 UTC (rev 193)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2009-03-30 v. 0.4b4
+# "Bldjid" plugin for Tkabber. 2009-03-31 v. 0.4b5
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README file for usage.
 
@@ -57,7 +57,6 @@
 proc bldjid::smart_enter_exit_message {xlib jid type x args} {
 	global grouproster
 	variable options
-	puts $jid
 	if {!($options(enabled) && !$::muc::options(gen_enter_exit_msgs))} {
 		return
 	}
@@ -467,10 +466,14 @@
 # Here we get our role and affiliation in a room.
 # Thanks to Konstantin Khomoutov (kostix at 007spb.ru)
 proc bldjid::whoami {xlib where} {
+	global grouproster
 	if {[muc::is_compatible $where]} {
 		set chatid [chat::chatid $xlib $where]
 		set jid $where/[get_our_groupchat_nick $chatid]
-		list $muc::users(role,$xlib,$jid) $muc::users(affiliation,$xlib,$jid)
+		if {[lcontain $grouproster(users,$chatid) $jid]} {
+			return [list $muc::users(role,$xlib,$jid) \
+						 $muc::users(affiliation,$xlib,$jid)]
+		}
 	}
 }
 



More information about the Tkabber-dev mailing list