[Tkabber-dev] r1907 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Feb 1 19:19:44 MSK 2010


Author: sergei
Date: 2010-02-01 19:19:44 +0300 (Mon, 01 Feb 2010)
New Revision: 1907

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/chats.tcl
Log:
	* chats.tcl: Added a few debug instructions.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2010-01-31 20:50:49 UTC (rev 1906)
+++ trunk/tkabber/ChangeLog	2010-02-01 16:19:44 UTC (rev 1907)
@@ -1,3 +1,7 @@
+2010-02-01  Sergei Golovan  <sgolovan at nes.ru>
+
+	* chats.tcl: Added a few debug instructions.
+
 2010-01-31  Sergei Golovan  <sgolovan at nes.ru>
 
 	* chats.tcl, muc.tcl, plugins/chat/muc_ignore.tcl: Changed arguments

Modified: trunk/tkabber/chats.tcl
===================================================================
--- trunk/tkabber/chats.tcl	2010-01-31 20:50:49 UTC (rev 1906)
+++ trunk/tkabber/chats.tcl	2010-02-01 16:19:44 UTC (rev 1907)
@@ -886,6 +886,8 @@
     variable chats
     variable options
 
+    debugmsg chat "ADD_MESSAGE: [lindex [info level -1] 0] $chatid $from $type $body $x"
+    
     if {[is_opened $chatid]} {
 	set chatw [chat_win $chatid]
 
@@ -985,6 +987,8 @@
     variable options
     global statusdesc
 
+    debugmsg chat "PRESENCE: $xlib $jid $type $x $args"
+
     switch -- $type {
 	error -
 	unavailable { set status $type }



More information about the Tkabber-dev mailing list