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