[Tkabber-dev] r1098 - in trunk/tkabber: . jabberlib-tclxml

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Apr 12 09:08:01 MSD 2007


Author: sergei
Date: 2007-04-12 09:08:00 +0400 (Thu, 12 Apr 2007)
New Revision: 1098

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/jabberlib-tclxml/jabberlib.tcl
Log:
	* jabberlib-tclxml/jabberlib.tcl: Fixed bug with delayed delivery
	  timestamps.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-04-11 19:56:54 UTC (rev 1097)
+++ trunk/tkabber/ChangeLog	2007-04-12 05:08:00 UTC (rev 1098)
@@ -1,3 +1,8 @@
+2007-04-12  Sergei Golovan  <sgolovan at nes.ru>
+
+	* jabberlib-tclxml/jabberlib.tcl: Fixed bug with delayed delivery
+	  timestamps.
+
 2007-04-11  Sergei Golovan  <sgolovan at nes.ru>
 
 	* jabberlib-tclxml/jabberlib.tcl: Added partial support of XEP-0203

Modified: trunk/tkabber/jabberlib-tclxml/jabberlib.tcl
===================================================================
--- trunk/tkabber/jabberlib-tclxml/jabberlib.tcl	2007-04-11 19:56:54 UTC (rev 1097)
+++ trunk/tkabber/jabberlib-tclxml/jabberlib.tcl	2007-04-12 05:08:00 UTC (rev 1098)
@@ -1793,7 +1793,9 @@
 			    [jlib::wrapper:getattr $vars stamp] \
 			    {\1\2\3T\4} \
 			    stamp]} {
-		    catch {return [clock scan $stamp -gmt 1]}
+		    if {![catch {clock scan $stamp -gmt 1} seconds]} {
+			return $seconds
+		    }
 		}
 	    }
 	    jabber:x:delay {
@@ -1802,7 +1804,9 @@
 		if {[regexp {\d+\d\d\d\dT\d+:\d+:\d+} \
 			    [jlib::wrapper:getattr $vars stamp] \
 			    stamp]} {
-		    catch {return [clock scan $stamp -gmt 1]}
+		    if {![catch {clock scan $stamp -gmt 1} seconds]} {
+			return $seconds
+		    }
 		}
 	    }
 	}



More information about the Tkabber-dev mailing list