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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Feb 11 22:10:01 MSK 2010


Author: bigote
Date: 2010-02-11 22:10:01 +0300 (Thu, 11 Feb 2010)
New Revision: 291

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
Fixed an error provoked by Tkabber code refactoring.


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2010-02-11 19:07:33 UTC (rev 290)
+++ trunk/plugins/bldjid/ChangeLog	2010-02-11 19:10:01 UTC (rev 291)
@@ -1,3 +1,13 @@
+2010-02-11  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
+--- Version 0.8.3 of the plugin.
+
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+	Fixed an error provoked by Tkabber code refactoring.
+
 2010-02-06  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
 --- Version 0.8.2 of the plugin.

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2010-02-11 19:07:33 UTC (rev 290)
+++ trunk/plugins/bldjid/bldjid.tcl	2010-02-11 19:10:01 UTC (rev 291)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2010-02-06 v. 0.8.2
+# "Bldjid" plugin for Tkabber. 2010-02-11 v. 0.8.3
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README or README.ru file for usage.
 
@@ -274,23 +274,23 @@
 	set nick ""
 
 	if {[string equal [string range $body 0 9] "/unbldjid "]} {
-		set jid [muc::parse_nick $body 10]
+		set jid [::plugins::muc::parse_nick $body 10]
 	} elseif {[string equal [string range $body 0 7] "/bldjid "]} {
-		lassign [muc::parse_nick_reason $body 8] jid reason
+		lassign [::plugins::muc::parse_nick_reason $body 8] jid reason
 		set params {affiliation outcast}
 	} elseif {[string equal [string range $body 0 7] "/banjid "]} {
-		lassign [muc::parse_nick_reason $body 8] jid reason
+		lassign [::plugins::muc::parse_nick_reason $body 8] jid reason
 		set params {affiliation outcast}
 	} elseif {[string equal [string range $body 0 7] "/amnesty"]} {
 		set attr affiliation
 		set val outcast
 	} elseif {[string equal [string range $body 0 8] "/visitors"]} {
 		if {[string index $body 9] == " " && [string length $body] > 10} {
-			set room [muc::parse_nick $body 10]
+			set room [::plugins::muc::parse_nick $body 10]
 		}
 	} elseif {[string equal [string range $body 0 7] "/visited"]} {
 		if {[string index $body 8] == " " && [string length $body] > 9} {
-			lassign [muc::parse_nick_reason $body 9] nick room
+			lassign [::plugins::muc::parse_nick_reason $body 9] nick room
 		}
 	} elseif {[string equal [string range $body 0 7] "/bldhelp"]} {
 		[namespace current]::help $chatid $group



More information about the Tkabber-dev mailing list