--- http.tcl.cvs 2006-11-20 10:24:45.000000000 -0800
+++ http.tcl.cvs-new 2006-11-20 10:33:27.000000000 -0800
@@ -217,7 +217,8 @@
# Arguments:
# url The http URL to goget.
# args Option value pairs. Valid options include:
-# -blocksize, -validate, -headers, -timeout
+# -blocksize, -validate, -headers, -timeout,
+# -method
# Results:
# Returns a token for this connection. This token is the name of an array
# that the caller should unset to garbage collect the state.
@@ -249,6 +250,7 @@
-headers {}
-timeout 0
-type application/x-www-form-urlencoded
+ -method {}
-queryprogress {}
state header
meta {}
@@ -273,7 +275,7 @@
set state(charset) $defaultCharset
set options {-binary -blocksize -channel -command -handler -headers \
-progress -query -queryblocksize -querychannel -queryprogress\
- -validate -timeout -type}
+ -validate -timeout -type -method}
set usage [join $options ", "]
set options [string map {- ""} $options]
set pat ^-([join $options |])$
@@ -526,6 +528,10 @@
set contDone 0
}
+ if {[string length $state(-method)] > 0} {
+ set how $state(-method)
+ }
+
if {[catch {
puts $s "$how $srvurl HTTP/1.0"
puts $s "Accept: $http(-accept)"
