Rebol 编程/read-cgi

用法

READ-CGI /limit size 

描述

从 Web 服务器输入流读取 CGI 数据。以字符串形式返回数据。

READ-CGI 是一个函数值。

细化

• /limit
  • size -- 限制为此字节数的选项（类型：任何）

源代码

read-cgi: func [
    {Read CGI data from web server input stream. Return data as string.} 
    /limit size "Option to limit to this number of bytes" 
    /local data buffer
][
    either system/options/cgi/request-method = "post" [
        data: make string! 1020 
        buffer: make string! 16380 
        while [positive? read-io system/ports/input buffer 16380] [
            append data buffer 
            clear buffer 
            if all [limit (length? data) > size] [
                do make error! reform [
                    "read-cgi aborted - posting is too long:" 
                    length? data "limit:" size
                ]
            ]
        ]
    ] [data: system/options/cgi/query-string] 
    any [data copy ""]
]