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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Mar 30 15:27:28 MSD 2009


Author: bigote
Date: 2009-03-30 15:27:27 +0400 (Mon, 30 Mar 2009)
New Revision: 188

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
Bug fixed that prevented to see group roster when
::muc::options(gen_enter_exit_msgs) is enabled.
Thanks to Rakhmanin Ruslan <mailto:rakhmaninr at gmail.com>


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2009-03-30 03:06:03 UTC (rev 187)
+++ trunk/plugins/bldjid/ChangeLog	2009-03-30 11:27:27 UTC (rev 188)
@@ -1,5 +1,16 @@
 2009-03-30  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
+--- Version 0.4b2 of the plugin.
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+	Bug fixed that prevented to see group roster when
+	::muc::options(gen_enter_exit_msgs) is enabled.
+	Thanks to Rakhmanin Ruslan <mailto:rakhmaninr at gmail.com>
+
+2009-03-30  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
 --- Version 0.4b1 of the plugin.
 --- Files modified:
     bldjid.tcl, README, TODO, ChangeLog.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2009-03-30 03:06:03 UTC (rev 187)
+++ trunk/plugins/bldjid/bldjid.tcl	2009-03-30 11:27:27 UTC (rev 188)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2009-03-30 v. 0.4b1
+# "Bldjid" plugin for Tkabber. 2009-03-30 v. 0.4b2
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README file for usage.
 
@@ -59,7 +59,7 @@
 	variable options
 	puts $jid
 	if {!($options(enabled) && !$::muc::options(gen_enter_exit_msgs))} {
-		return stop
+		return
 	}
 	set group [::xmpp::jid::stripResource $jid]
 	set chatid [::chat::chatid $xlib $group]
@@ -241,8 +241,14 @@
 		}
 
 		/visitors {
+			set group [chat::get_jid $chatid]
+			if {$::muc::options(gen_enter_exit_msgs)} {
+				chat::add_message $chatid $group error \
+				"You are trying to use this command while the option \
+				::muc::options(gen_enter_exit_msgs) is enabled." {}
+				return stop
+			}
 			variable jids_by_chats
-			set group [chat::get_jid $chatid]
 			set user_list {}
 			if {$room == ""} {
 				set room $group
@@ -268,8 +274,15 @@
 		}
 
 		/visited {
+			set group [chat::get_jid $chatid]
+			if {$::muc::options(gen_enter_exit_msgs)} {
+				chat::add_message $chatid $group error \
+				"You are trying to use this command while the option \
+				::muc::options(gen_enter_exit_msgs) is enabled." {}
+				return stop
+			}
+
 			variable jids_by_chats
-			set group [chat::get_jid $chatid]
 			set user_list {}
 			if {$nick == ""} {
 				chat::add_message $chatid $group error \



More information about the Tkabber-dev mailing list