[Tkabber-dev] r1983 - trunk/tkabber/plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Oct 6 16:06:05 MSD 2011


Author: kostix
Date: 2011-10-06 16:06:05 +0400 (Thu, 06 Oct 2011)
New Revision: 1983

Modified:
   trunk/tkabber/plugins/chat/histool.tcl
Log:
Fix regexp matching month numbers in log file hierarchy


Modified: trunk/tkabber/plugins/chat/histool.tcl
===================================================================
--- trunk/tkabber/plugins/chat/histool.tcl	2011-10-05 06:18:18 UTC (rev 1982)
+++ trunk/tkabber/plugins/chat/histool.tcl	2011-10-06 12:06:05 UTC (rev 1983)
@@ -667,7 +667,7 @@
 	set LB {}
 	foreach dmonth [glob -nocomplain -type d -directory $dyear *] {
 	    set month [file tail $dmonth]
-	    if {![regexp {^0[1-9]$|^1[1-2]$} $month]} continue
+	    if {![regexp {^0[1-9]$|^1[0-2]$} $month]} continue
 	    set LC {}
 	    foreach file [glob -nocomplain -type f -directory $dmonth *] {
 		lappend LC [::logger::filename_to_jid [file tail $file]]



More information about the Tkabber-dev mailing list