[Tkabber-dev] r803 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Nov 24 23:40:37 MSK 2006


Author: sergei
Date: 2006-11-24 23:40:31 +0300 (Fri, 24 Nov 2006)
New Revision: 803

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/custom.tcl
Log:
	* custom.tcl: Do not store loginconf automatically.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-11-24 19:14:19 UTC (rev 802)
+++ trunk/tkabber/ChangeLog	2006-11-24 20:40:31 UTC (rev 803)
@@ -1,5 +1,7 @@
 2006-11-24  Sergei Golovan  <sgolovan at nes.ru>
 
+	* custom.tcl: Do not store loginconf automatically.
+
 	* contrib/extract-translations/extract.tcl: Changed the only
 	  defined variable when checking for variables in strings to
 	  less common name. Added hidden key -showvars to show all

Modified: trunk/tkabber/custom.tcl
===================================================================
--- trunk/tkabber/custom.tcl	2006-11-24 19:14:19 UTC (rev 802)
+++ trunk/tkabber/custom.tcl	2006-11-24 20:40:31 UTC (rev 803)
@@ -83,7 +83,12 @@
 	    # any procedure which is not in ::custom namespace
 	    if {[catch {info level -1} prc] || \
 		    ![regexp {^(::)*custom::} $prc]} {
-		store_vars $varname
+		# Don't store loginconf here
+		# (storing all loginconf except password may be
+		# confusing)
+		if {![regexp {^(::)+loginconf\(.*\)} $varname]} {
+		    store_vars $varname
+		}
 	    }
 	}
     }



More information about the Tkabber-dev mailing list