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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Dec 26 15:01:28 MSK 2006


Author: sergei
Date: 2006-12-26 15:01:26 +0300 (Tue, 26 Dec 2006)
New Revision: 842

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/logger.tcl
Log:
	* plugins/chat/logger.tcl: Shortened filenames of log files.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-12-26 11:06:16 UTC (rev 841)
+++ trunk/tkabber/ChangeLog	2006-12-26 12:01:26 UTC (rev 842)
@@ -6,6 +6,8 @@
 	  time, so it shows a dialog window with the conversion progress
 	  during the conversion.
 
+	* plugins/chat/logger.tcl: Shortened filenames of log files.
+
 2006-12-25  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/session.tcl: Renamed session to state (only in

Modified: trunk/tkabber/plugins/chat/logger.tcl
===================================================================
--- trunk/tkabber/plugins/chat/logger.tcl	2006-12-26 11:06:16 UTC (rev 841)
+++ trunk/tkabber/plugins/chat/logger.tcl	2006-12-26 12:01:26 UTC (rev 842)
@@ -128,7 +128,13 @@
 	    }
 	}
     }
-    return $filename
+    if {[string index $filename 253] == "%"} {
+	return [string range $filename 0 252]
+    }
+    if {[string index $filename 252] == "%"} {
+	return [string range $filename 0 251]
+    }
+    return [string range $filename 0 253]
 }
 
 #############################################################################



More information about the Tkabber-dev mailing list