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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Mar 30 21:25:45 MSD 2009


Author: bigote
Date: 2009-03-30 21:25:44 +0400 (Mon, 30 Mar 2009)
New Revision: 190

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
Fixed another bug that provoked error when trying to display an empty list by commands /visit*

Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2009-03-30 14:35:21 UTC (rev 189)
+++ trunk/plugins/bldjid/ChangeLog	2009-03-30 17:25:44 UTC (rev 190)
@@ -1,5 +1,15 @@
 2009-03-30  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
+--- Version 0.4b4 of the plugin.
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+    Fixed another bug that provoked error when trying to display 
+    an empty list by commands /visit*
+
+2009-03-30  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
 --- Version 0.4b3 of the plugin.
 --- Files modified:
     bldjid.tcl, ChangeLog.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2009-03-30 14:35:21 UTC (rev 189)
+++ trunk/plugins/bldjid/bldjid.tcl	2009-03-30 17:25:44 UTC (rev 190)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2009-03-30 v. 0.4b3
+# "Bldjid" plugin for Tkabber. 2009-03-30 v. 0.4b4
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README file for usage.
 
@@ -261,9 +261,11 @@
 				set user_list $jids_by_chats($room)
 			} else {
 				chat::add_message $chatid $group error \
-				"Room '$room' doesn't exist. Make sure you provide a full room's JID." {}
+				"List for room '$room' doesn't exist. Make sure you provide a full room's JID\
+				or check if the plugin is turned on." {}
 				return stop
 			}
+			set msg ""
 			set n 0
 			chat::add_message $chatid $group error $header {}
 			foreach user $user_list {
@@ -277,10 +279,9 @@
 			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 \
+				"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 user_list {}
@@ -311,11 +312,12 @@
 					}
 				} else {
 					chat::add_message $chatid $group error \
-					"Room '$room' doesn't exist. \
-					Make sure you provide a full room's JID." {}
+					"List for room '$room' doesn't exist. Make sure you provide a full room's JID\
+					or check if the plugin is turned on." {}
 					return stop
 				}
 			}
+			set msg ""
 			set n 0
 			chat::add_message $chatid $group error $header {}
 			foreach user $user_list {



More information about the Tkabber-dev mailing list