[Tkabber-dev] r1697 - in trunk/tkabber: . plugins/chat plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Feb 28 20:15:35 MSK 2009


Author: sergei
Date: 2009-02-28 20:15:35 +0300 (Sat, 28 Feb 2009)
New Revision: 1697

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/draw_timestamp.tcl
   trunk/tkabber/plugins/chat/logger.tcl
   trunk/tkabber/plugins/general/headlines.tcl
   trunk/tkabber/plugins/general/message_archive.tcl
Log:
	* plugins/chat/draw_timestamp.tcl, plugins/chat/logger.tcl,
	  plugins/general/headlines.tcl, plugins/general/message_archive.tcl:
	  Adapted to a change in output format in ::xmpp::delay::parse
	  procedure.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-02-28 14:03:55 UTC (rev 1696)
+++ trunk/tkabber/ChangeLog	2009-02-28 17:15:35 UTC (rev 1697)
@@ -5,6 +5,11 @@
 	* plugins/iq/version.tcl: Don't report Tkabber version in disco#info
 	  replies if user chooses not to show the version.
 
+	* plugins/chat/draw_timestamp.tcl, plugins/chat/logger.tcl,
+	  plugins/general/headlines.tcl, plugins/general/message_archive.tcl:
+	  Adapted to a change in output format in ::xmpp::delay::parse
+	  procedure.
+
 2009-02-27  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/caps.tcl: Fixed erroneous emptying features list

Modified: trunk/tkabber/plugins/chat/draw_timestamp.tcl
===================================================================
--- trunk/tkabber/plugins/chat/draw_timestamp.tcl	2009-02-28 14:03:55 UTC (rev 1696)
+++ trunk/tkabber/plugins/chat/draw_timestamp.tcl	2009-02-28 17:15:35 UTC (rev 1697)
@@ -19,7 +19,7 @@
 
     set chatw [chat::chat_win $chatid]
 
-    set seconds [::xmpp::delay::parse $x]
+    set seconds [::xmpp::xml::getAttr [::xmpp::delay::parse $x] seconds]
     set seconds1 [expr {[clock seconds] - 24*60*60 + 60}]
     if {$seconds <= $seconds1} {
 	set format $options(delayed_timestamp_format)

Modified: trunk/tkabber/plugins/chat/logger.tcl
===================================================================
--- trunk/tkabber/plugins/chat/logger.tcl	2009-02-28 14:03:55 UTC (rev 1696)
+++ trunk/tkabber/plugins/chat/logger.tcl	2009-02-28 17:15:35 UTC (rev 1697)
@@ -205,7 +205,7 @@
 
     set nick [chat::get_nick $xlib $from $type]
 
-    set seconds [::xmpp::delay::parse $x]
+    set seconds [::xmpp::xml::getAttr [::xmpp::delay::parse $x] seconds]
     foreach xelem $x {
 	::xmpp::xml::split $xelem tag xmlns attrs cdata subels
 	

Modified: trunk/tkabber/plugins/general/headlines.tcl
===================================================================
--- trunk/tkabber/plugins/general/headlines.tcl	2009-02-28 14:03:55 UTC (rev 1696)
+++ trunk/tkabber/plugins/general/headlines.tcl	2009-02-28 17:15:35 UTC (rev 1697)
@@ -224,7 +224,7 @@
 
     set desc ""
     set url ""
-    set seconds [::xmpp::delay::parse $x]
+    set seconds [::xmpp::xml::getAttr [::xmpp::delay::parse $x] seconds]
     foreach extra $x {
         ::xmpp::xml::split $extra tag xmlns attrs cdata subels
 	switch -- $xmlns {

Modified: trunk/tkabber/plugins/general/message_archive.tcl
===================================================================
--- trunk/tkabber/plugins/general/message_archive.tcl	2009-02-28 14:03:55 UTC (rev 1696)
+++ trunk/tkabber/plugins/general/message_archive.tcl	2009-02-28 17:15:35 UTC (rev 1697)
@@ -33,7 +33,7 @@
 proc ::message_archive::log_message {from to subject body x} {
     variable archive_file
 
-    set seconds [::xmpp::delay::parse $x]
+    set seconds [::xmpp::xml::getAttr [::xmpp::delay::parse $x] seconds]
     set ts [clock format $seconds -format "%Y%m%dT%H%M%S"]
 
     set fd [open $archive_file a]



More information about the Tkabber-dev mailing list