http_natives.cpp

/**
 * vim: set ts=4 :
 * =============================================================================
 * SourceMod REST in Pawn Extension
 * Copyright 2017-2020 Erik Minekus
 * =============================================================================
 *
 * This program is free software: you can redistribute it and/or modify it under
 * the terms of the GNU General Public License as published by the Free Software
 * Foundation, either version 3 of the License, or (at your option) any later
 * version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 * details.
 *
 * You should have received a copy of the GNU General Public License along with
 * this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include "extension.h"
#include "httpclient.h"
#include "httprequest.h"

static HTTPRequest *GetRequestFromHandle(IPluginContext *pContext, Handle_t hndl)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request;
	if ((err=handlesys->ReadHandle(hndl, htHTTPRequest, &sec, (void **)&request)) != HandleError_None)
	{
		pContext->ThrowNativeError("Invalid HTTPRequest handle %x (error %d)", hndl, err);
		return NULL;
	}

	return request;
}

static cell_t CreateClient(IPluginContext *pContext, const cell_t *params)
{
	char *baseURL;
	pContext->LocalToString(params[1], &baseURL);

	if (baseURL[0] == '\0')
	{
		pContext->ThrowNativeError("Base URL cannot be empty.");
		return BAD_HANDLE;
	}

	HTTPClient *client = new HTTPClient(baseURL);

	Handle_t hndl = handlesys->CreateHandle(htHTTPClient, client, pContext->GetIdentity(), myself->GetIdentity(), NULL);
	if (hndl == BAD_HANDLE)
	{
		delete client;

		pContext->ThrowNativeError("Could not create HTTP client handle.");
		return BAD_HANDLE;
	}

	return hndl;
}

static cell_t SetClientHeader(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	char *name;
	pContext->LocalToString(params[2], &name);

	char *value;
	pContext->LocalToString(params[3], &value);

	client->SetHeader(name, value);

	return 1;
}

static cell_t GetRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	char *endpoint;
	pContext->LocalToString(params[2], &endpoint);

	IPluginFunction *callback = pContext->GetFunctionById(params[3]);
	cell_t value = params[4];

	client->Request("GET", endpoint, NULL, callback, value);

	return 1;
}

static cell_t PostRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	char *endpoint;
	pContext->LocalToString(params[2], &endpoint);

	char *data;
	pContext->LocalToString(params[3], &data);

	IPluginFunction *callback = pContext->GetFunctionById(params[4]);
	cell_t value = params[5];

	client->Request("POST", endpoint, data, callback, value);

	return 1;
}

static cell_t PutRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	char *endpoint;
	pContext->LocalToString(params[2], &endpoint);

	char *data;
	pContext->LocalToString(params[3], &data);

	IPluginFunction *callback = pContext->GetFunctionById(params[4]);
	cell_t value = params[5];

	client->Request("PUT", endpoint, data, callback, value);

	return 1;
}

static cell_t PatchRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	char *endpoint;
	pContext->LocalToString(params[2], &endpoint);

	char *data;
	pContext->LocalToString(params[3], &data);

	IPluginFunction *callback = pContext->GetFunctionById(params[4]);
	cell_t value = params[5];

	client->Request("PATCH", endpoint, data, callback, value);

	return 1;
}

static cell_t DeleteRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	char *endpoint;
	pContext->LocalToString(params[2], &endpoint);

	IPluginFunction *callback = pContext->GetFunctionById(params[3]);
	cell_t value = params[4];

	client->Request("DELETE", endpoint, NULL, callback, value);

	return 1;
}

static cell_t DownloadFile(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	char *endpoint;
	pContext->LocalToString(params[2], &endpoint);

	char *path;
	pContext->LocalToString(params[3], &path);

	IPluginFunction *callback = pContext->GetFunctionById(params[4]);
	cell_t value = params[5];

	client->DownloadFile(endpoint, path, callback, value);

	return 1;
}

static cell_t UploadFile(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	char *endpoint;
	pContext->LocalToString(params[2], &endpoint);

	char *path;
	pContext->LocalToString(params[3], &path);

	IPluginFunction *callback = pContext->GetFunctionById(params[4]);
	cell_t value = params[5];

	client->UploadFile(endpoint, path, callback, value);

	return 1;
}

static cell_t GetClientConnectTimeout(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	return client->GetConnectTimeout();
}

static cell_t SetClientConnectTimeout(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	client->SetConnectTimeout(params[2]);

	return 1;
}

static cell_t GetClientFollowLocation(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	return client->GetFollowLocation();
}

static cell_t SetClientFollowLocation(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	client->SetFollowLocation(params[2] == 1);

	return 1;
}

static cell_t GetClientTimeout(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	return client->GetTimeout();
}

static cell_t SetClientTimeout(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	client->SetTimeout(params[2]);

	return 1;
}

static cell_t GetClientMaxSendSpeed(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	return client->GetMaxSendSpeed();
}

static cell_t SetClientMaxSendSpeed(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	client->SetMaxSendSpeed(params[2]);

	return 1;
}

static cell_t GetClientMaxRecvSpeed(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	return client->GetMaxRecvSpeed();
}

static cell_t SetClientMaxRecvSpeed(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPClient *client;
	Handle_t hndlClient = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlClient, htHTTPClient, &sec, (void **)&client)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP client handle %x (error %d)", hndlClient, err);
	}

	client->SetMaxRecvSpeed(params[2]);

	return 1;
}

static cell_t CreateRequest(IPluginContext *pContext, const cell_t *params)
{
	char *url;
	pContext->LocalToString(params[1], &url);

	if (url[0] == '\0')
	{
		pContext->ThrowNativeError("URL cannot be empty.");
		return BAD_HANDLE;
	}

	HTTPRequest *request = new HTTPRequest(url);

	Handle_t hndlRequest = handlesys->CreateHandle(htHTTPRequest, request, pContext->GetIdentity(), myself->GetIdentity(), NULL);
	if (hndlRequest == BAD_HANDLE)
	{
		delete request;

		pContext->ThrowNativeError("Could not create HTTPRequest handle.");
		return BAD_HANDLE;
	}

	return hndlRequest;
}

static cell_t AppendRequestFormParam(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *name;
	pContext->LocalToString(params[2], &name);

	if (name[0] == '\0')
	{
		return pContext->ThrowNativeError("Parameter name cannot be empty.");
	}

	char value[8192];
	{
		DetectExceptions eh(pContext);
		smutils->FormatString(value, sizeof(value), pContext, params, 3);

		if (eh.HasException())
		{
			return 0;
		}
	}

	request->AppendFormParam(name, value);

	return 1;
}

static cell_t AppendRequestQueryParam(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *name;
	pContext->LocalToString(params[2], &name);

	if (name[0] == '\0')
	{
		return pContext->ThrowNativeError("Parameter name cannot be empty.");
	}

	char value[8192];
	{
		DetectExceptions eh(pContext);
		smutils->FormatString(value, sizeof(value), pContext, params, 3);

		if (eh.HasException())
		{
			return 0;
		}
	}

	request->AppendQueryParam(name, value);

	return 1;
}

static cell_t SetRequestBasicAuth(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *username;
	pContext->LocalToString(params[2], &username);

	char *password;
	pContext->LocalToString(params[3], &password);

	request->SetBasicAuth(username, password);

	return 1;
}

static cell_t SetRequestHeader(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *name;
	pContext->LocalToString(params[2], &name);

	if (name[0] == '\0')
	{
		return pContext->ThrowNativeError("Header name cannot be empty.");
	}

	char value[8192];
	{
		DetectExceptions eh(pContext);
		smutils->FormatString(value, sizeof(value), pContext, params, 3);

		if (eh.HasException())
		{
			return 0;
		}
	}

	request->SetHeader(name, value);

	return 1;
}

static cell_t PerformGetRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	IPluginFunction *callback = pContext->GetFunctionById(params[2]);
	cell_t value = params[3];

	IChangeableForward *forward = forwards->CreateForwardEx(NULL, ET_Ignore, 3, NULL, Param_Cell, Param_Cell, Param_String);
	if (forward == NULL || !forward->AddFunction(callback))
	{
		return pContext->ThrowNativeError("Could not create forward.");
	}

	request->Perform("GET", NULL, forward, value);

	handlesys->FreeHandle(params[1], &sec);

	return 1;
}

static cell_t PerformPostRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *data;
	pContext->LocalToString(params[2], &data);

	IPluginFunction *callback = pContext->GetFunctionById(params[3]);
	cell_t value = params[4];

	IChangeableForward *forward = forwards->CreateForwardEx(NULL, ET_Ignore, 3, NULL, Param_Cell, Param_Cell, Param_String);
	if (forward == NULL || !forward->AddFunction(callback))
	{
		return pContext->ThrowNativeError("Could not create forward.");
	}

	request->Perform("POST", data, forward, value);

	handlesys->FreeHandle(params[1], &sec);

	return 1;
}

static cell_t PerformPutRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *data;
	pContext->LocalToString(params[2], &data);

	IPluginFunction *callback = pContext->GetFunctionById(params[3]);
	cell_t value = params[4];

	IChangeableForward *forward = forwards->CreateForwardEx(NULL, ET_Ignore, 3, NULL, Param_Cell, Param_Cell, Param_String);
	if (forward == NULL || !forward->AddFunction(callback))
	{
		return pContext->ThrowNativeError("Could not create forward.");
	}

	request->Perform("PUT", data, forward, value);

	handlesys->FreeHandle(params[1], &sec);

	return 1;
}

static cell_t PerformPatchRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *data;
	pContext->LocalToString(params[2], &data);

	IPluginFunction *callback = pContext->GetFunctionById(params[3]);
	cell_t value = params[4];

	IChangeableForward *forward = forwards->CreateForwardEx(NULL, ET_Ignore, 3, NULL, Param_Cell, Param_Cell, Param_String);
	if (forward == NULL || !forward->AddFunction(callback))
	{
		return pContext->ThrowNativeError("Could not create forward.");
	}

	request->Perform("PATCH", data, forward, value);

	handlesys->FreeHandle(params[1], &sec);

	return 1;
}

static cell_t PerformDeleteRequest(IPluginContext *pContext, const cell_t *params)
{
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	IPluginFunction *callback = pContext->GetFunctionById(params[2]);
	cell_t value = params[3];

	IChangeableForward *forward = forwards->CreateForwardEx(NULL, ET_Ignore, 3, NULL, Param_Cell, Param_Cell, Param_String);
	if (forward == NULL || !forward->AddFunction(callback))
	{
		return pContext->ThrowNativeError("Could not create forward.");
	}

	request->Perform("DELETE", NULL, forward, value);

	handlesys->FreeHandle(params[1], &sec);

	return 1;
}

static cell_t PerformDownloadFile(IPluginContext *pContext, const cell_t *params)
{
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *path;
	pContext->LocalToString(params[2], &path);

	IPluginFunction *callback = pContext->GetFunctionById(params[3]);
	cell_t value = params[4];

	IChangeableForward *forward = forwards->CreateForwardEx(NULL, ET_Ignore, 3, NULL, Param_Cell, Param_Cell, Param_String);
	if (forward == NULL || !forward->AddFunction(callback))
	{
		return pContext->ThrowNativeError("Could not create forward.");
	}

	request->DownloadFile(path, forward, value);

	handlesys->FreeHandle(params[1], &sec);

	return 1;
}

static cell_t PerformUploadFile(IPluginContext *pContext, const cell_t *params)
{
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	char *path;
	pContext->LocalToString(params[2], &path);

	IPluginFunction *callback = pContext->GetFunctionById(params[3]);
	cell_t value = params[4];

	IChangeableForward *forward = forwards->CreateForwardEx(NULL, ET_Ignore, 3, NULL, Param_Cell, Param_Cell, Param_String);
	if (forward == NULL || !forward->AddFunction(callback))
	{
		return pContext->ThrowNativeError("Could not create forward.");
	}

	request->UploadFile(path, forward, value);

	handlesys->FreeHandle(params[1], &sec);

	return 1;
}

static cell_t PerformPostForm(IPluginContext *pContext, const cell_t *params)
{
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	IPluginFunction *callback = pContext->GetFunctionById(params[2]);
	cell_t value = params[3];

	IChangeableForward *forward = forwards->CreateForwardEx(NULL, ET_Ignore, 3, NULL, Param_Cell, Param_Cell, Param_String);
	if (forward == NULL || !forward->AddFunction(callback))
	{
		return pContext->ThrowNativeError("Could not create forward.");
	}

	request->PostForm(forward, value);

	handlesys->FreeHandle(params[1], &sec);

	return 1;
}

static cell_t GetRequestConnectTimeout(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	return request->GetConnectTimeout();
}

static cell_t SetRequestConnectTimeout(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	request->SetConnectTimeout(params[2]);

	return 1;
}

static cell_t GetRequestMaxRedirects(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	return request->GetMaxRedirects();
}

static cell_t SetRequestMaxRedirects(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	request->SetMaxRedirects(params[2]);

	return 1;
}

static cell_t GetRequestMaxRecvSpeed(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	return request->GetMaxRecvSpeed();
}

static cell_t SetRequestMaxRecvSpeed(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	request->SetMaxRecvSpeed(params[2]);

	return 1;
}

static cell_t GetRequestMaxSendSpeed(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	return request->GetMaxSendSpeed();
}

static cell_t SetRequestMaxSendSpeed(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	request->SetMaxSendSpeed(params[2]);

	return 1;
}

static cell_t GetRequestTimeout(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	return request->GetTimeout();
}

static cell_t SetRequestTimeout(IPluginContext *pContext, const cell_t *params)
{
	HTTPRequest *request = GetRequestFromHandle(pContext, params[1]);
	if (request == NULL)
	{
		return 0;
	}

	request->SetTimeout(params[2]);

	return 1;
}

static cell_t GetResponseData(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	struct HTTPResponse *response;
	Handle_t hndlResponse = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlResponse, htHTTPResponse, &sec, (void **)&response)) != HandleError_None)
		return pContext->ThrowNativeError("Invalid HTTP response handle %x (error %d)", hndlResponse, err);

	pContext->StringToLocalUTF8(params[2], params[3], (response->body), NULL);
	return 0;
}

static cell_t GetResponseStatus(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	struct HTTPResponse *response;
	Handle_t hndlResponse = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlResponse, htHTTPResponse, &sec, (void **)&response)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP response handle %x (error %d)", hndlResponse, err);
	}

	return response->status;
}

static cell_t GetResponseDataLength(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	struct HTTPResponse *response;
	Handle_t hndlResponse = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlResponse, htHTTPResponse, &sec, (void **)&response)) != HandleError_None)
		return pContext->ThrowNativeError("Invalid HTTP response handle %x (error code %d)", hndlResponse, err);

	return response->size;
}


static cell_t GetResponseHeader(IPluginContext *pContext, const cell_t *params)
{
	HandleError err;
	HandleSecurity sec(pContext->GetIdentity(), myself->GetIdentity());

	struct HTTPResponse *response;
	Handle_t hndlResponse = static_cast<Handle_t>(params[1]);
	if ((err=handlesys->ReadHandle(hndlResponse, htHTTPResponse, &sec, (void **)&response)) != HandleError_None)
	{
		return pContext->ThrowNativeError("Invalid HTTP response handle %x (error %d)", hndlResponse, err);
	}

	char *name;
	pContext->LocalToString(params[2], &name);

	std::string lowercaseName(name);
	for (size_t i = 0; i < lowercaseName.size(); i++)
	{
		lowercaseName[i] = tolower(lowercaseName[i]);
	}

	HTTPHeaderMap::Result header = response->headers.find(lowercaseName.c_str());
	if (!header.found())
	{
		return 0;
	}

	pContext->StringToLocalUTF8(params[3], params[4], header->value.c_str(), NULL);

	return 1;
}


const sp_nativeinfo_t http_natives[] =
{
	{"HTTP.HTTP",				CreateClient},
	{"HTTP.SetHeader",			SetClientHeader},
	{"HTTP.Get",					GetRequest},
	{"HTTP.Post",					PostRequest},
	{"HTTP.Put",					PutRequest},
	{"HTTP.Patch",				PatchRequest},
	{"HTTP.Delete",				DeleteRequest},
	{"HTTP.DownloadFile",			DownloadFile},
	{"HTTP.UploadFile",			UploadFile},
	{"HTTP.ConnectTimeout.get",	GetClientConnectTimeout},
	{"HTTP.ConnectTimeout.set",	SetClientConnectTimeout},
	{"HTTP.FollowLocation.get",	GetClientFollowLocation},
	{"HTTP.FollowLocation.set",	SetClientFollowLocation},
	{"HTTP.Timeout.get",			GetClientTimeout},
	{"HTTP.Timeout.set",			SetClientTimeout},
	{"HTTP.MaxSendSpeed.get",		GetClientMaxSendSpeed},
	{"HTTP.MaxSendSpeed.set",		SetClientMaxSendSpeed},
	{"HTTP.MaxRecvSpeed.get",		GetClientMaxRecvSpeed},
	{"HTTP.MaxRecvSpeed.set",		SetClientMaxRecvSpeed},
	{"HTTPReq.HTTPReq",				CreateRequest},
	{"HTTPReq.AppendFormParam",		AppendRequestFormParam},
	{"HTTPReq.AppendQueryParam",	AppendRequestQueryParam},
	{"HTTPReq.SetBasicAuth",		SetRequestBasicAuth},
	{"HTTPReq.SetHeader",			SetRequestHeader},
	{"HTTPReq.Get",					PerformGetRequest},
	{"HTTPReq.Post",				PerformPostRequest},
	{"HTTPReq.Put",					PerformPutRequest},
	{"HTTPReq.Patch",				PerformPatchRequest},
	{"HTTPReq.Delete",				PerformDeleteRequest},
	{"HTTPReq.DownloadFile",		PerformDownloadFile},
	{"HTTPReq.UploadFile",			PerformUploadFile},
	{"HTTPReq.PostForm",			PerformPostForm},
	{"HTTPReq.ConnectTimeout.get",	GetRequestConnectTimeout},
	{"HTTPReq.ConnectTimeout.set",	SetRequestConnectTimeout},
	{"HTTPReq.MaxRedirects.get",	GetRequestMaxRedirects},
	{"HTTPReq.MaxRedirects.set",	SetRequestMaxRedirects},
	{"HTTPReq.MaxRecvSpeed.get",	GetRequestMaxRecvSpeed},
	{"HTTPReq.MaxRecvSpeed.set",	SetRequestMaxRecvSpeed},
	{"HTTPReq.MaxSendSpeed.get",	GetRequestMaxSendSpeed},
	{"HTTPReq.MaxSendSpeed.set",	SetRequestMaxSendSpeed},
	{"HTTPReq.Timeout.get",			GetRequestTimeout},
	{"HTTPReq.Timeout.set",			SetRequestTimeout},
	{"HTTPRes.GetData",			GetResponseData},
	{"HTTPRes.Status.get",			GetResponseStatus},
	{"HTTPRes.DataLength.get",		GetResponseDataLength},
	{"HTTPRes.GetHeader",			GetResponseHeader},

	{NULL,								NULL}
};