[Tkabber-dev] r2037 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Dec 30 18:47:59 MSK 2013


Author: sergei
Date: 2013-12-30 18:47:59 +0400 (Mon, 30 Dec 2013)
New Revision: 2037

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/tkabber-remote.tcl
Log:
	* tkabber-remote.tcl: Take config directory from the TKABBER_HOME
	  environment variable if it is set. This partly mitigates the problem
	  that tkabber-remote.tcl cant find comm.PID files on non-unix
	  platforms.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2013-12-30 11:11:06 UTC (rev 2036)
+++ trunk/tkabber/ChangeLog	2013-12-30 14:47:59 UTC (rev 2037)
@@ -4,6 +4,11 @@
 	  explains how to modify proxy configuration when upgrading from the
 	  older Tkabber versions.
 
+	* tkabber-remote.tcl: Take config directory from the TKABBER_HOME
+	  environment variable if it is set. This partly mitigates the problem
+	  that tkabber-remote.tcl cant find comm.PID files on non-unix
+	  platforms.
+
 2013-12-29  Sergei Golovan  <sgolovan at nes.ru>
 
 	* login.tcl: Added missing global definition.

Modified: trunk/tkabber/tkabber-remote.tcl
===================================================================
--- trunk/tkabber/tkabber-remote.tcl	2013-12-30 11:11:06 UTC (rev 2036)
+++ trunk/tkabber/tkabber-remote.tcl	2013-12-30 14:47:59 UTC (rev 2037)
@@ -39,8 +39,12 @@
     exit 1
 }
 
-# TODO
-set configdir [file join ~$params(user) .tkabber]
+if {[info exists env(TKABBER_HOME)]} {
+    set configdir $env(TKABBER_HOME)
+} else {
+    # TODO: make this work for non-UNIX platform
+    set configdir [file join ~$params(user) .tkabber]
+}
 
 if {$params(pid) != 0} {
     set files [list [file join $configdir comm.$params(pid)]]



More information about the Tkabber-dev mailing list