[Tkabber-dev] r864 - in trunk/tkabber-plugins: . debug traffic

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Jan 6 18:40:35 MSK 2007


Author: sergei
Date: 2007-01-06 18:40:32 +0300 (Sat, 06 Jan 2007)
New Revision: 864

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/debug/debug.tcl
   trunk/tkabber-plugins/traffic/traffic.tcl
Log:
	* debug/debug.tcl, traffic/traffic.tcl: Changed config directory
	  references to $::configdir.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-01-05 19:21:09 UTC (rev 863)
+++ trunk/tkabber-plugins/ChangeLog	2007-01-06 15:40:32 UTC (rev 864)
@@ -1,3 +1,8 @@
+2006-01-06  Sergei Golovan <sgolovan at nes.ru>
+
+	* debug/debug.tcl, traffic/traffic.tcl: Changed config directory
+	  references to $::configdir.
+
 2006-01-05  Sergei Golovan <sgolovan at nes.ru>
 
 	* debug/msgs/pl.msg, tkabber-khim/khim/pl.msg,

Modified: trunk/tkabber-plugins/debug/debug.tcl
===================================================================
--- trunk/tkabber-plugins/debug/debug.tcl	2007-01-05 19:21:09 UTC (rev 863)
+++ trunk/tkabber-plugins/debug/debug.tcl	2007-01-06 15:40:32 UTC (rev 864)
@@ -109,9 +109,9 @@
 
     if {$options(log_to_file)} {
 	if {![info exists debug_fd]} {
-	    catch { file rename -force -- ~/.tkabber/tkabber.log \
-					  ~/.tkabber/tkabber0.log }
-	    set debug_fd [open ~/.tkabber/tkabber.log w]
+	    catch { file rename -force -- $::configdir/tkabber.log \
+					  $::configdir/tkabber0.log }
+	    set debug_fd [open $::configdir/tkabber.log w]
 	    fconfigure $debug_fd -buffering line
 	}
 

Modified: trunk/tkabber-plugins/traffic/traffic.tcl
===================================================================
--- trunk/tkabber-plugins/traffic/traffic.tcl	2007-01-05 19:21:09 UTC (rev 863)
+++ trunk/tkabber-plugins/traffic/traffic.tcl	2007-01-06 15:40:32 UTC (rev 864)
@@ -385,7 +385,7 @@
     variable jids
 
     set filename [tk_getSaveFile \
-                      -initialdir ~/.tkabber/]
+                      -initialdir $::configdir]
     if {$filename != ""} {
 	set fd [open $filename w]
 



More information about the Tkabber-dev mailing list