Posted to tcl by mjanssen at Wed Jul 04 13:37:06 GMT 2007view raw

  1. --- http-2.5.3.tm Tue May 22 11:56:38 2007
  2. +++ httpsspi-2.5.3.tm Tue May 01 09:33:14 2007
  3. @@ -8,7 +8,7 @@
  4. # See the file "license.terms" for information on usage and redistribution of
  5. # this file, and for a DISCLAIMER OF ALL WARRANTIES.
  6. #
  7. -# RCS: @(#) $Id: http.tcl,v 1.60 2007/03/12 22:08:40 patthoyts Exp $
  8. +# RCS: @(#) $Id: http.tcl,v 1.59 2006/10/06 05:57:21 hobbs Exp $
  9.  
  10. # Rough version history:
  11. # 1.0 Old http_get interface.
  12. @@ -24,7 +24,7 @@
  13. package require Tcl 8.4
  14. # Keep this in sync with pkgIndex.tcl and with the install directories
  15. # in Makefiles
  16. -package provide http 2.5.3
  17. +package provide httpsspi 2.5.3
  18.  
  19. namespace eval http {
  20. variable http
  21. @@ -33,6 +33,7 @@
  22. -proxyhost {}
  23. -proxyport {}
  24. -proxyfilter http::ProxyRequired
  25. + -proxydialog http::ProxyDialog
  26. -urlencoding utf-8
  27. }
  28. set http(-useragent) "Tcl http client package [package provide http]"
  29. @@ -73,7 +74,7 @@
  30.  
  31. # http::register --
  32. #
  33. -# See documentation for details.
  34. +# See documentaion for details.
  35. #
  36. # Arguments:
  37. # proto URL protocol prefix, e.g. https
  38. @@ -108,7 +109,7 @@
  39.  
  40. # http::config --
  41. #
  42. -# See documentation for details.
  43. +# See documentaion for details.
  44. #
  45. # Arguments:
  46. # args Options parsed by the procedure.
  47. @@ -187,7 +188,7 @@
  48.  
  49. # http::reset --
  50. #
  51. -# See documentation for details.
  52. +# See documentaion for details.
  53. #
  54. # Arguments:
  55. # token Connection token.
  56. @@ -497,6 +498,11 @@
  57. set state(status) ""
  58. }
  59.  
  60. + # Call proxy dialog to allow challenge response reply authentication schemes
  61. +
  62. + $http(-proxydialog) $s $host $port $url
  63. + puts $token
  64. +
  65. # Send data in cr-lf format, but accept any line terminators
  66.  
  67. fconfigure $s -translation {auto crlf} -buffersize $state(-blocksize)
  68. @@ -940,7 +946,7 @@
  69.  
  70. # http::wait --
  71. #
  72. -# See documentation for details.
  73. +# See documentaion for details.
  74. #
  75. # Arguments:
  76. # token Connection token.
  77. @@ -962,7 +968,7 @@
  78.  
  79. # http::formatQuery --
  80. #
  81. -# See documentation for details. Call http::formatQuery with an even
  82. +# See documentaion for details. Call http::formatQuery with an even
  83. # number of arguments, where the first is a name, the second is a value,
  84. # the third is another name, and so on.
  85. #
  86. @@ -1036,4 +1042,10 @@
  87. }
  88. return [list $http(-proxyhost) $http(-proxyport)]
  89. }
  90. +}
  91. +
  92. +# http::ProxyDialog --
  93. +# Default proxy dialog.
  94. +
  95. +proc http::ProxyDialog {socket url} {
  96. }