[Tkabber-dev] r1309 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Nov 12 00:54:41 MSK 2007


Author: sergei
Date: 2007-11-12 00:54:39 +0300 (Mon, 12 Nov 2007)
New Revision: 1309

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/logger.tcl
Log:
	* plugins/chat/logger.tcl: Replace trailing dot by its hexadecimal
	  code to make it possible to create log files for JIDs which end by a
	  dot.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-11-11 08:23:09 UTC (rev 1308)
+++ trunk/tkabber/ChangeLog	2007-11-11 21:54:39 UTC (rev 1309)
@@ -1,3 +1,9 @@
+2007-11-12  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/chat/logger.tcl: Replace trailing dot by its hexadecimal
+	  code to make it possible to create log files for JIDs which end by a
+	  dot.
+
 2007-11-11  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iface.tcl: Fixed unneeded tab headers highlighting when

Modified: trunk/tkabber/plugins/chat/logger.tcl
===================================================================
--- trunk/tkabber/plugins/chat/logger.tcl	2007-11-11 08:23:09 UTC (rev 1308)
+++ trunk/tkabber/plugins/chat/logger.tcl	2007-11-11 21:54:39 UTC (rev 1309)
@@ -122,6 +122,14 @@
 		# 34 " 37 % 39 ' 42 * 43 + 47 / 58 : 59 ; 60 < 62 > 63 ? 92 \ 124 | 126 ~
 		append filename [format "%%%02X" $sym]
 	    }
+	    46 {
+		# 46 .
+		if {$i + 1 == $len} {
+		    append filename [format "%%%02X" $sym]
+		} else {
+		    append filename [binary format c $sym]
+		}
+	    }
 	    default {
 		if {$sym >= 128 || $sym <= 32} {
 		    append filename [format "%%%02X" $sym]



More information about the Tkabber-dev mailing list