Ns httpopen - Revision history

Dossy: clean up formatting of example code

2005-11-22T18:55:48Z

clean up formatting of example code

65.102.63.5: improve proc -- old form did not seem to work for me.

2005-11-21T19:57:06Z

improve proc -- old form did not seem to work for me.

Dossy: question moved to Talk page

2005-11-02T04:17:58Z

question moved to Talk page

Dossy: formatting tweaks

2005-11-02T04:17:15Z

formatting tweaks

67.102.205.18 at 20:43, 1 November 2005

2005-11-01T20:43:47Z

67.102.205.18 at 20:42, 1 November 2005

2005-11-01T20:42:09Z

WikiSysop: imported from WiKit id 579

2004-06-18T14:34:08Z

imported from WiKit id 579

New page

Man page: http://aolserver.com/docs/tcl/ns_httpopen.html

----

'''NAME'''

: ns_httpopen - Fetch a web page

'''SYNOPSIS'''

: '''ns_httpopen''' ''method url ?rqset? ?timeout? ?pdata?''

'''DESCRIPTION'''

: This command opens an http connection to a web page used to fetch its contents via the ''method'', which may be ''POST'', ''GET'', or another valid http method. If the act of opening the connections fails, it may throw an error.

: The url may be either absolute (http://server/page) or local (/page). If it is local, the host and port number of the server are added.

: The parameter ''rqset'' is the handle for an ns_set containing headers to send with the request. The timeout is the number of seconds to wait for the connection to open. ''Pdata'' is the extra data to send with the request (i.e. post data). If ''pdata'' is specified, the caller is responsible for supplying the ''Content-length'' and ''Content-type'' headers in ''rqset''

: The call returns a list with these three elements: a file descriptor for reading, a file descriptor for writing, and a set ID for a set describing the connection.

: Note: ''This command is currently implemented in Tcl, in the source file tcl/http.tcl''

'''EXAMPLES'''

% # A proc to post some data to a url and return the result
% proc postit {url data} {
set rqset [[ns_set new rqset]]
ns_set put $rqset "Accept" "*/*"
ns_set put $rqset "User-Agent" "[[ns_info name]]-Tcl/[[ns_info version]]"
ns_set put $rqset "Content-type" "text/xml"
ns_set put $rqset "Content-length" [[string length $data]]

set timeout 15

set connInfo [[ns_httpopen POST $url $rqset $timeout $data]]

foreach {rfd wfd headers} $connInfo {break}
close $wfd

set length [[ns_set iget $headers content-length]]
if {[[string match "" $length]]} {
set length -1
}

set page ""
set err [[catch {
# Read the content.
while {1} {
set buf [_ns_http_read $timeout $rfd $length]]
append page $buf
if {[[string match "" $buf]]} {
break
}
if {$length > 0} {
incr length -[[string length $buf]]
if {$length <= 0} {
break
}
}
}
} errMsg]

ns_set free $headers
close $rfd
if {$err} {
global errorInfo
return -code error -errorinfo $errorInfo $errMsg
}
return $page
}

'''SEE ALSO'''

: [[ns_http]], [[ns_httpget]], [[ns_httppost]]

----

[[Category Documentation]] - [[Category Core Tcl API]]

← Older revision		Revision as of 04:17, 2 November 2005
Line 16:		Line 16:

	: The parameter ''rqset'' is the handle for an ns_set containing headers to send with the request. The timeout is the number of seconds to wait for the connection to open. ''Pdata'' is the extra data to send with the request (i.e. post data). If ''pdata'' is specified, the caller is responsible for supplying the ''Content-length'' and ''Content-type'' headers in ''rqset''		: The parameter ''rqset'' is the handle for an ns_set containing headers to send with the request. The timeout is the number of seconds to wait for the connection to open. ''Pdata'' is the extra data to send with the request (i.e. post data). If ''pdata'' is specified, the caller is responsible for supplying the ''Content-length'' and ''Content-type'' headers in ''rqset''
−
−	~~: ''What is the format of pdata? foo=bar works, but foo=bar&abc=def does not seem to work.''~~

	: The call returns a list with these three elements: a file descriptor for reading, a file descriptor for writing, and a set ID for a set describing the connection.		: The call returns a list with these three elements: a file descriptor for reading, a file descriptor for writing, and a set ID for a set describing the connection.

@@ Line 1: / Line 1: @@
-Man page: http://aolserver.com/docs/tcl/ns_httpopen.html
+<manpage>ns_httpopen</manpage>
 '''NAME'''
@@ Line 21: / Line 17: @@
 : The parameter ''rqset'' is the handle for an ns_set containing headers to send with the request. The timeout is the number of seconds to wait for the connection to open.  ''Pdata'' is the  extra data to send with the request (i.e. post data). If ''pdata'' is specified, the caller is responsible for supplying the ''Content-length'' and ''Content-type'' headers in ''rqset''
-: What is the format of pdata? foo=bar works, but foo=bar&abc=def does not seem to work.
+: ''What is the format of pdata? foo=bar works, but foo=bar&abc=def does not seem to work.''
 : The call returns a list with these three elements: a file descriptor for reading, a file descriptor for writing, and a set ID for a set describing the connection.
@@ Line 80: / Line 76: @@
 : [[ns_http]], [[ns_httpget]], [[ns_httppost]]
-----
+[[Category:Core Tcl API]]

← Older revision		Revision as of 20:43, 1 November 2005
Line 20:		Line 20:

	: The parameter ''rqset'' is the handle for an ns_set containing headers to send with the request. The timeout is the number of seconds to wait for the connection to open. ''Pdata'' is the extra data to send with the request (i.e. post data). If ''pdata'' is specified, the caller is responsible for supplying the ''Content-length'' and ''Content-type'' headers in ''rqset''		: The parameter ''rqset'' is the handle for an ns_set containing headers to send with the request. The timeout is the number of seconds to wait for the connection to open. ''Pdata'' is the extra data to send with the request (i.e. post data). If ''pdata'' is specified, the caller is responsible for supplying the ''Content-length'' and ''Content-type'' headers in ''rqset''
		+
		+	: What is the format of pdata? foo=bar works, but foo=bar&abc=def does not seem to work.

	: The call returns a list with these three elements: a file descriptor for reading, a file descriptor for writing, and a set ID for a set describing the connection.		: The call returns a list with these three elements: a file descriptor for reading, a file descriptor for writing, and a set ID for a set describing the connection.

← Older revision		Revision as of 20:42, 1 November 2005
Line 1:		Line 1:
	Man page: http://aolserver.com/docs/tcl/ns_httpopen.html		Man page: http://aolserver.com/docs/tcl/ns_httpopen.html
		+
		+	See also: [[Ns_http]]

	----		----

@@ Line 23: / Line 23: @@
 '''EXAMPLES'''
-     % # A proc to post some data to a url and return the result
+<pre>
-     % proc postit {url data} {
+     # A proc to post some data to a url and return the result
-          set rqset [[ns_set new rqset]]
+     proc postit {url data} {
-          ns_set put $rqset "Accept" "*/*"
+        set rqset [ns_set new rqset]
-          ns_set put $rqset "User-Agent" "[[ns_info name]]-Tcl/[[ns_info version]]"
+        ns_set put $rqset "Accept" "*/*"
-         # ns_set put $rqset "Content-type" "text/xml"
+        ns_set put $rqset "User-Agent" "[ns_info name]-Tcl/[ns_info version]"
-          ns_set put $rqset "Content-type" "application/x-www-form-urlencoded"
+        # ns_set put $rqset "Content-type" "text/xml"
-          ns_set put $rqset "Content-length" [[string length $data]]
+        ns_set put $rqset "Content-type" "application/x-www-form-urlencoded"
+        ns_set put $rqset "Content-length" [string length $data]
-          set timeout 15
+        set timeout 15
+        set connInfo [ns_httpopen POST $url $rqset $timeout $data]
-          set connInfo [[ns_httpopen POST $url $rqset $timeout $data]]
+        foreach {rfd wfd headers} $connInfo break
+        close $wfd
-          foreach {rfd wfd headers} $connInfo {break}
+        set length [ns_set iget $headers content-length]
-          close $wfd
+        if {[string match "" $length]} {
+            set length -1
-          set length [[ns_set iget $headers content-length]]
-          if {[[string match "" $length]]} {
+        set page ""
-              set length -1
+        set err [catch {
+            # Read the content.
+            while {1} {
-          set page ""
+                set buf [_ns_http_read $timeout $rfd $length]
-          set err [[catch {
+                append page $buf
-              # Read the content.
+                if {[string match "" $buf]} {
-              while {1} {
+                    break
-                  set buf [_ns_http_read $timeout $rfd $length]]
-                  append page $buf
+                if {$length > 0} {
-                  if {[[string match "" $buf]]} {
+                    incr length -[string length $buf]
-                      break
+                    if {$length <= 0} {
+                        break
-                  if {$length > 0} {
-                      incr length -[[string length $buf]]
-                      if {$length <= 0} {
-                          break
+        } errMsg]
+        ns_set free $headers
+        close $rfd
+        if {$err} {
-          } errMsg]
+            return -code error -errorinfo $::errorInfo $errMsg
-−
+        }
-          ns_set free $headers
+        return $page
-          close $rfd
-          if {$err} {
+</pre>
 '''SEE ALSO'''