diff http proxy dialog

--- http-2.5.3.tm	Tue May 22 11:56:38 2007
+++ httpsspi-2.5.3.tm	Tue May 01 09:33:14 2007
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution of
 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: http.tcl,v 1.60 2007/03/12 22:08:40 patthoyts Exp $
+# RCS: @(#) $Id: http.tcl,v 1.59 2006/10/06 05:57:21 hobbs Exp $
 
 # Rough version history:
 # 1.0	Old http_get interface.
@@ -24,7 +24,7 @@
 package require Tcl 8.4
 # Keep this in sync with pkgIndex.tcl and with the install directories
 # in Makefiles
-package provide http 2.5.3
+package provide httpsspi 2.5.3
 
 namespace eval http {
     variable http
@@ -33,6 +33,7 @@
 	-proxyhost {}
 	-proxyport {}
 	-proxyfilter http::ProxyRequired
+      -proxydialog http::ProxyDialog
 	-urlencoding utf-8
     }
     set http(-useragent) "Tcl http client package [package provide http]"
@@ -73,7 +74,7 @@
 
 # http::register --
 #
-#     See documentation for details.
+#     See documentaion for details.
 #
 # Arguments:
 #     proto           URL protocol prefix, e.g. https
@@ -108,7 +109,7 @@
 
 # http::config --
 #
-#	See documentation for details.
+#	See documentaion for details.
 #
 # Arguments:
 #	args		Options parsed by the procedure.
@@ -187,7 +188,7 @@
 
 # http::reset --
 #
-#	See documentation for details.
+#	See documentaion for details.
 #
 # Arguments:
 #	token	Connection token.
@@ -497,6 +498,11 @@
 	set state(status) ""
     }
 
+    # Call proxy dialog to allow challenge response reply authentication schemes
+    
+    $http(-proxydialog) $s $host $port $url
+    puts $token   
+
     # Send data in cr-lf format, but accept any line terminators
 
     fconfigure $s -translation {auto crlf} -buffersize $state(-blocksize)
@@ -940,7 +946,7 @@
 
 # http::wait --
 #
-#	See documentation for details.
+#	See documentaion for details.
 #
 # Arguments:
 #	token	Connection token.
@@ -962,7 +968,7 @@
 
 # http::formatQuery --
 #
-#	See documentation for details. Call http::formatQuery with an even
+#	See documentaion for details. Call http::formatQuery with an even
 #	number of arguments, where the first is a name, the second is a value,
 #	the third is another name, and so on.
 #
@@ -1036,4 +1042,10 @@
 	}
 	return [list $http(-proxyhost) $http(-proxyport)]
     }
+}
+
+# http::ProxyDialog --
+#	Default proxy dialog.
+
+proc http::ProxyDialog {socket url} {
 }