dan
/
liminix
1
0
Fork 5
Code Issues 2 Pull Requests 1 Projects Releases Wiki Activity

extend libfetch lua glue to other HTTP methods

This commit is contained in:
Daniel Barlow 2024-08-28 01:37:02 +01:00
parent 81a6480a4f
commit ff76d854fc
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pkgs/fetch-freebsd/lua-glue.c
View File

@ -57,8 +57,38 @@ int lp_fetch(lua_State *L) {
return lp_fetched(L, fp, &stat);
}
int lp_request(lua_State *L) {
const char * request_method = luaL_checkstring(L, 1);
const char * url_string = luaL_checkstring(L, 2);
const char * flags = luaL_optstring(L, 3, "");
time_t if_modified_since = luaL_optinteger(L, 4, 0);
const char * content_type = lua_tostring(L, 5);
const char * body = lua_tostring(L, 6);
struct url *url = fetchParseURL(url_string);
if(url == NULL) {
return lp_error(L, -1, "url not parseable");
}
url->ims_time = if_modified_since;
struct url_stat stat;
FXRETTYPE fp = http_request_body(url,
request_method,
&stat,
NULL, /* no proxy */
flags,
content_type,
body);
fetchFreeURL(url);
if(fp == NULL) {
return lp_error(L, fetchLastErrCode, fetchLastErrString);
}
return lp_fetched(L, fp, &stat);
}
static const struct luaL_Reg funcs [] = {
{"fetch", lp_fetch},
{"request", lp_request},
{NULL, NULL} /* sentinel */
};