Posted to tcl by mjanssen at Wed Jul 04 13:37:06 GMT 2007view raw
- --- 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} {
- }