--- 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)"
