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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Feb 5 12:55:46 MSK 2010


Author: bigote
Date: 2010-02-05 12:55:46 +0300 (Fri, 05 Feb 2010)
New Revision: 286

Modified:
   trunk/plugins/bldjid/ChangeLog
   trunk/plugins/bldjid/bldjid.tcl
Log:
A bugfix: Variable var_os is set to default value of "".
It must exist always because there could be cases when
no iq error is received but nevertheless we have no result.
A bugfix: Fixed processing of some client versions that contain
newline characters, to avoid breaking lines in log file.


Modified: trunk/plugins/bldjid/ChangeLog
===================================================================
--- trunk/plugins/bldjid/ChangeLog	2010-02-05 04:00:01 UTC (rev 285)
+++ trunk/plugins/bldjid/ChangeLog	2010-02-05 09:55:46 UTC (rev 286)
@@ -1,5 +1,19 @@
 2010-02-05  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
 
+--- Version 0.8.1 of the plugin.
+
+--- Files modified:
+    bldjid.tcl, ChangeLog.
+
+--- Changes:
+	A bugfix: Variable var_os is set to default value of "".
+	It must exist always because there could be cases when
+	no iq error is received but nevertheless we have no result.
+	A bugfix: Fixed processing of some client versions that contain
+	newline characters, to avoid breaking lines in log file.
+
+2010-02-05  Serge Yudin  <xmpp:bigote at jabber.ru> <mailto:bigote at gmail.com>
+
 --- Version 0.8 of the plugin.
 
 --- Files modified:

Modified: trunk/plugins/bldjid/bldjid.tcl
===================================================================
--- trunk/plugins/bldjid/bldjid.tcl	2010-02-05 04:00:01 UTC (rev 285)
+++ trunk/plugins/bldjid/bldjid.tcl	2010-02-05 09:55:46 UTC (rev 286)
@@ -1,4 +1,4 @@
-# "Bldjid" plugin for Tkabber. 2010-02-05 v. 0.8
+# "Bldjid" plugin for Tkabber. 2010-02-05 v. 0.8.1
 # Written by Serge Yudin xmpp:bigote at jabber.ru
 # See README or README.ru file for usage.
 
@@ -935,6 +935,7 @@
     if {![winfo exists [chat::chat_win $chatid]]} {
 		return
     }
+	set ver_os ""
 	set jid $group/$nick
     if {![cequal $res ok]} {
 		set ver_os "*NO VER/OS*"
@@ -952,6 +953,7 @@
 		}
     }
 	set ver_os [string trim $ver_os]
+	set ver_os [join [split $ver_os \n] ""]
 	if {$options(log_file) != ""} {
 		set msg4log "$ent_cntr\t$ts\t$group\t$nick\t$rjid\t$role_aff\t$ver_os"
 		[namespace current]::log_msg $msg4log



More information about the Tkabber-dev mailing list