[Tkabber-dev] r890 - trunk/tkabber-plugins/quiz

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Jan 28 00:42:29 MSK 2007


Author: sergei
Date: 2007-01-28 00:42:28 +0300 (Sun, 28 Jan 2007)
New Revision: 890

Modified:
   trunk/tkabber-plugins/quiz/quiz.tcl
Log:
	* quiz/quiz.tcl: Fixed check for file.


Modified: trunk/tkabber-plugins/quiz/quiz.tcl
===================================================================
--- trunk/tkabber-plugins/quiz/quiz.tcl	2007-01-27 21:29:15 UTC (rev 889)
+++ trunk/tkabber-plugins/quiz/quiz.tcl	2007-01-27 21:42:28 UTC (rev 890)
@@ -1,6 +1,9 @@
 # $Id$
 
-if {![file readable 3hauka.txt]} return
+if {![file readable [file join [file dirname [info script]] 3hauka.txt]]} {
+    puts "Can't find file 3hauka.txt"
+    return
+}
 
 namespace eval quiz {
     set prefix {[QUIZ]: }



More information about the Tkabber-dev mailing list