[Tkabber-dev] r900 - in trunk/tkabber: . plugins/si

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Feb 7 11:06:53 MSK 2007


Author: sergei
Date: 2007-02-07 11:06:51 +0300 (Wed, 07 Feb 2007)
New Revision: 900

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/si/socks5.tcl
Log:
	* plugins/si/socks5.tcl: Fixed bug with lowering case of JID. Resource
	  case does not need to be lowered.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-02-04 15:35:23 UTC (rev 899)
+++ trunk/tkabber/ChangeLog	2007-02-07 08:06:51 UTC (rev 900)
@@ -1,3 +1,8 @@
+2007-02-07  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/si/socks5.tcl: Fixed bug with lowering case of JID. Resource
+	  case does not need to be lowered.
+
 2007-02-01  Sergei Golovan  <sgolovan at nes.ru>
 
 	* utils.tcl: Optiimized jid_to_tag (thanks to Konstantin Khomoutov).

Modified: trunk/tkabber/plugins/si/socks5.tcl
===================================================================
--- trunk/tkabber/plugins/si/socks5.tcl	2007-02-04 15:35:23 UTC (rev 899)
+++ trunk/tkabber/plugins/si/socks5.tcl	2007-02-07 08:06:51 UTC (rev 900)
@@ -87,8 +87,8 @@
     }
 
     set myjid [encoding convertto utf-8 \
-		   [string tolower [my_jid $state(connid) $state(jid)]]]
-    set hisjid [encoding convertto utf-8 [string tolower $state(jid)]]
+		   [tolower_node_and_domain [my_jid $state(connid) $state(jid)]]]
+    set hisjid [encoding convertto utf-8 [tolower_node_and_domain $state(jid)]]
     set hash [::sha1::sha1 $state(id)$hisjid$myjid]
 
     set len [binary format c [string length $hash]]
@@ -161,8 +161,8 @@
     lassign [fconfigure $servsock -sockname] addr hostname port
     set ip [jlib::socket_ip $state(connid)]
     set myjid [encoding convertto utf-8 \
-		   [string tolower [my_jid $state(connid) $state(jid)]]]
-    set hisjid [encoding convertto utf-8 [string tolower $state(jid)]]
+		   [tolower_node_and_domain [my_jid $state(connid) $state(jid)]]]
+    set hisjid [encoding convertto utf-8 [tolower_node_and_domain $state(jid)]]
     set hash [::sha1::sha1 $state(id)$myjid$hisjid]
     set hash_sid($hash) $state(id)
 
@@ -368,8 +368,8 @@
     }
 
     set myjid [encoding convertto utf-8 \
-		   [string tolower [my_jid $state(connid) $state(jid)]]]
-    set hisjid [encoding convertto utf-8 [string tolower $state(jid)]]
+		   [tolower_node_and_doamin [my_jid $state(connid) $state(jid)]]]
+    set hisjid [encoding convertto utf-8 [tolower_node_and_domain $state(jid)]]
     set hash [::sha1::sha1 $state(id)$myjid$hisjid]
 
     set len [binary format c [string length $hash]]



More information about the Tkabber-dev mailing list