[Tkabber-dev] r227 - trunk/plugins/flip

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri May 22 00:18:18 MSD 2009


Author: bigote
Date: 2009-05-22 00:18:18 +0400 (Fri, 22 May 2009)
New Revision: 227

Modified:
   trunk/plugins/flip/flip.tcl
Log:
Added check for existence of TKABBER_SITE_PLUGINS variable.
Thanks to Vladimir Kichigin (voffk).


Modified: trunk/plugins/flip/flip.tcl
===================================================================
--- trunk/plugins/flip/flip.tcl	2009-05-19 08:34:29 UTC (rev 226)
+++ trunk/plugins/flip/flip.tcl	2009-05-21 20:18:18 UTC (rev 227)
@@ -74,7 +74,11 @@
 	\u0420 \u0500
 	\u0421 \u0186
     }
-	variable filename [file join $::configdir plugins flip flip_list]
+	if {[info exists env(TKABBER_SITE_PLUGINS)]} {
+		variable filename [file join $env(TKABBER_SITE_PLUGINS) flip flip_list]
+	} else {
+		variable filename [file join $::configdir plugins flip flip_list]
+	}
 }
 
 proc flip::flipping {xlib nick group} {



More information about the Tkabber-dev mailing list