[Tkabber-dev] r1157 - trunk/tkabber/jabberlib-tclxml

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Jul 16 00:39:11 MSD 2007


Author: sergei
Date: 2007-07-16 00:39:10 +0400 (Mon, 16 Jul 2007)
New Revision: 1157

Modified:
   trunk/tkabber/jabberlib-tclxml/https.tcl
Log:
	* jabberlib-tclxml/https.tcl: Fixed typo.


Modified: trunk/tkabber/jabberlib-tclxml/https.tcl
===================================================================
--- trunk/tkabber/jabberlib-tclxml/https.tcl	2007-07-15 13:53:33 UTC (rev 1156)
+++ trunk/tkabber/jabberlib-tclxml/https.tcl	2007-07-15 20:39:10 UTC (rev 1157)
@@ -287,11 +287,12 @@
 
     # if username is domain/username or domain\username
     # then set domain and username
+    set username $state(-username)
     regexp {(\w+)[\\/](.*)} $username -> domain username
 
     set ntlmtok [NTLM::new -domain $domain \
 			   -host $host \
-			   -username $state(-username) \
+			   -username $username \
 			   -password $state(-password)]
     set message1 [$ntlmtok type1Message]
 



More information about the Tkabber-dev mailing list