mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-08-05 17:30:27 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update LuaFetch to initiate POST request when body is provided (#97).

Browse source
This commit is contained in:
Paul Kulchenko 2021-07-08 17:50:45 -07:00
parent 4178896aa0
commit 2a4ace89ed
1 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

20
tool/net/redbean.c
View file

@ -3412,13 +3412,13 @@ static int LuaFetch(lua_State *L) {
bool usessl;
uint32_t ip;
struct Url url;
int t, ret, sock;
int t, ret, sock, method;
char *host, *port;
struct Buffer inbuf;
struct addrinfo *addr;
struct HttpMessage msg;
struct HttpUnchunker u;
const char *urlarg, *request;
const char *urlarg, *request, *body;
size_t urlarglen, requestlen;
size_t g, i, n, hdrsize, paylen;
struct addrinfo hints = {.ai_family = AF_INET,
@ -3430,6 +3430,14 @@ static int LuaFetch(lua_State *L) {
* Get args.
*/
urlarg = luaL_checklstring(L, 1, &urlarglen);
if (lua_isnoneornil(L, 2)) {
body = "";
method = kHttpGet;
} else {
size_t bodylen;
body = luaL_checklstring(L, 2, &bodylen);
method = kHttpPost;
}
/*
* Parse URL.
@ -3481,12 +3489,12 @@ static int LuaFetch(lua_State *L) {
/*
* Create HTTP message.
*/
request = gc(xasprintf("GET %s HTTP/1.1\r\n"
request = gc(xasprintf("%s %s HTTP/1.1\r\n"
"Host: %s:%s\r\n"
"Connection: close\r\n"
"User-Agent: %s\r\n"
"\r\n",
gc(EncodeUrl(&url, 0)), host, port, brand));
"\r\n%s",
kHttpMethod[method], gc(EncodeUrl(&url, 0)), host, port, brand, body));
requestlen = strlen(request);
/*
@ -3540,7 +3548,7 @@ static int LuaFetch(lua_State *L) {
/*
* Send HTTP Message.
*/
DEBUGF("client sending");
DEBUGF("client sending %s request", kHttpMethod[method]);
if (usessl) {
ret = mbedtls_ssl_write(&sslcli, request, requestlen);
if (ret != requestlen) {