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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Jul 16 00:44:37 MSD 2007


Author: sergei
Date: 2007-07-16 00:44:37 +0400 (Mon, 16 Jul 2007)
New Revision: 1158

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


Modified: trunk/tkabber/jabberlib-tclxml/https.tcl
===================================================================
--- trunk/tkabber/jabberlib-tclxml/https.tcl	2007-07-15 20:39:10 UTC (rev 1157)
+++ trunk/tkabber/jabberlib-tclxml/https.tcl	2007-07-15 20:44:37 UTC (rev 1158)
@@ -295,6 +295,7 @@
 			   -username $username \
 			   -password $state(-password)]
     set message1 [$ntlmtok type1Message]
+    set state(ntlmtok) $ntlmtok
 
     PutsConnectQuery $token "NTLM $message1"
 
@@ -332,9 +333,11 @@
 	# Success
 	while {[string length [gets $state(sock)]]} { }
 	Finish $token
+	return
     } elseif {$code != 407} {
 	# Failure
 	Finish $token $state(result)
+	return
     }
 
     set content_length -1
@@ -355,9 +358,9 @@
 
     ReadProxyJunk $token $content_length
 
-    $ntlmtok parseType2Message -message $message2
-    set message3 [$ntlmtok type3Message]
-    $ntlmtok free
+    $state(ntlmtok) parseType2Message -message $message2
+    set message3 [$state(ntlmtok) type3Message]
+    $state(ntlmtok) free
 
     PutsConnectQuery $token "NTLM $message3"
 



More information about the Tkabber-dev mailing list