diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:31 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:31 -0800 |
commit | 5145dd3aa0c02c9fc496d1432fc4410674206e1d (patch) | |
tree | 540afc30c51da085f5bd8ec3f4c89f6496e7900d /http-cgi.txi | |
parent | 8466d8cfa486fb30d1755c4261b781135083787b (diff) | |
download | slib-5145dd3aa0c02c9fc496d1432fc4410674206e1d.tar.gz slib-5145dd3aa0c02c9fc496d1432fc4410674206e1d.zip |
Import Upstream version 3a2upstream/3a2
Diffstat (limited to 'http-cgi.txi')
-rw-r--r-- | http-cgi.txi | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/http-cgi.txi b/http-cgi.txi index 67be216..0e57933 100644 --- a/http-cgi.txi +++ b/http-cgi.txi @@ -8,11 +8,13 @@ Returns a string containing lines for each element of @var{alist}; the @code{car} of which is followed by @samp{: }, then the @code{cdr}. @end defun + @defun http:content alist body @dots{} Returns the concatenation of strings @var{body} with the @code{(http:header @var{alist})} and the @samp{Content-Length} prepended. @end defun + @defvar *http:byline* String appearing at the bottom of error pages. @end defvar @@ -24,17 +26,19 @@ and any additional @var{html-strings} @dots{}; with @var{*http:byline*} or SLIB' default at the bottom. @end defun -@defun http:forwarding-page title delay uri html-string @dots{} -The string or symbol @var{title} is the page title. @var{delay} is a non-negative + +@defun http:forwarding-page title dly uri html-string @dots{} +The string or symbol @var{title} is the page title. @var{dly} is a non-negative integer. The @var{html-strings} @dots{} are typically used to explain to the user why this page is being forwarded. @code{http:forwarding-page} returns an HTML string for a page which automatically forwards to -@var{uri} after @var{delay} seconds. The returned page (string) contains any @var{html-strings} +@var{uri} after @var{dly} seconds. The returned page (string) contains any @var{html-strings} @dots{} followed by a manual link to @var{uri}, in case the browser does not forward automatically. @end defun + @defun http:serve-query serve-proc input-port output-port reads the @dfn{URI} and @dfn{query-string} from @var{input-port}. If the @cindex URI @@ -53,6 +57,7 @@ problem. @end defun + This example services HTTP queries from @var{port-number}: @example @@ -93,6 +98,7 @@ Otherwise, @code{cgi:serve-query} replies (to @code{(current-input-port)}) with appropriate HTML describing the problem. @end defun + @defun make-query-alist-command-server rdb command-table @@ -110,3 +116,4 @@ If optional third argument is non-false, then the command is called with just the parameter-list; otherwise, command is called with the arguments described in its table. @end defun + |