/* Copyright 2009 Myhailo Danylenko
This file is part of lua-lm.
lua-lm 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 2 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 <lua.h>
#include <lauxlib.h>
#include <glib.h>
#include <loudmouth/loudmouth.h>
#include "config.h"
#include "util.h"
#include "lm_types.h"
/// lm.proxy
/// Object, containing information about proxy-server for connection.
/// Create object, set it's parameters, and then attach to connection
/// with 'proxy' method.
/// proxy type
/// Stirng, specifying proxy-server type. The only type supported for now is http.
/// G:
const string2enum_t type_lm_proxy[] = {
{ "http", LM_PROXY_TYPE_HTTP },
{ "none", LM_PROXY_TYPE_NONE },
{ NULL, LM_PROXY_TYPE_HTTP },
};
/// lm.proxy.new
/// Creates new proxy object.
/// Note, you should specify either none of args or both.
/// A: proxy type, string (optional proxy server name), integer (optional server port)
/// R: lm proxy object
static int new_lm_proxy (lua_State *L)
{
int type = luaL_checkenum (L, 1, type_lm_proxy);
LmProxy *proxy;
if (lua_gettop (L) > 0)
proxy = lm_proxy_new_with_server (type, luaL_checkstring (L, 2), luaL_checkint (L, 3));
else
proxy = lm_proxy_new (type);
bless_lm_proxy (L, proxy);
lm_proxy_unref (proxy); // XXX
D ("Proxy %p created", proxy);
return 1;
}
/// lm.proxy.bless
/// Blesses given pointer to lm proxy object.
/// A: lightuserdata (C lm proxy object)
/// R: lm proxy object
static int bless_lua_lm_proxy (lua_State *L)
{
luaL_argcheck (L, lua_islightuserdata (L, 1), 1, "lm proxy lightuserdata expected");
bless_lm_proxy (L, lua_touserdata (L, 1));
return 1;
}
/// proxy:type
/// Gets or sets proxy server type.
/// A: proxy type (optional)
/// R: proxy type (when called with no args) or lm proxy object
static int kind_lm_proxy (lua_State *L)
{
llm_proxy_t *proxy = luaL_checklm_proxy (L, 1);
if (lua_gettop (L) > 1) { // Set
lm_proxy_set_type (proxy->proxy, luaL_checkenum (L, 2, type_lm_proxy));
lua_pop (L, 1);
} else // Get
luaL_pushenum (L, lm_proxy_get_type (proxy->proxy), type_lm_proxy);
return 1;
}
/// proxy:server
/// Gets or sets proxy server name.
/// A: string (optional)
/// R: string (when called with no args) or lm proxy object
static int server_lm_proxy (lua_State *L)
{
llm_proxy_t *object = luaL_checklm_proxy (L, 1);
if (lua_gettop (L) > 1) { // Set
lm_proxy_set_server (object->proxy, luaL_checkstring (L, 2));
lua_pop (L, 1);
} else // Get
lua_pushstring (L, lm_proxy_get_server (object->proxy));
return 1;
}
/// proxy:port
/// Gets or sets proxy server port.
/// A: integer (optional)
/// R: integer (when called with no args) or lm proxy object
static int port_lm_proxy (lua_State *L)
{
llm_proxy_t *object = luaL_checklm_proxy (L, 1);
if (lua_gettop (L) > 1) { // Set
lm_proxy_set_port (object->proxy, luaL_checkint (L, 2));
lua_pop (L, 1);
} else // Get
lua_pushnumber (L, lm_proxy_get_port (object->proxy));
return 1;
}
/// proxy:username
/// Gets or sets username to authenticate to proxy server with.
/// A: string (optional)
/// R: string (when called with no args) or lm proxy object
static int username_lm_proxy (lua_State *L)
{
llm_proxy_t *object = luaL_checklm_proxy (L, 1);
if (lua_gettop (L) > 1) { // Set
lm_proxy_set_username (object->proxy, luaL_checkstring (L, 2));
lua_pop (L, 1);
} else // Get
lua_pushstring (L, lm_proxy_get_username (object->proxy));
return 1;
}
/// proxy:password
/// Gets or sets password to authenticate to proxy server with.
/// A: string (optional)
/// R: string (when called with no args) or lm proxy object
static int password_lm_proxy (lua_State *L)
{
llm_proxy_t *object = luaL_checklm_proxy (L, 1);
if (lua_gettop (L) > 1) { // Set
lm_proxy_set_password (object->proxy, luaL_checkstring (L, 2));
lua_pop (L, 1);
} else // Get
lua_pushstring (L, lm_proxy_get_password (object->proxy));
return 1;
}
/// proxy:pointer
/// Returns pointer to underlying C structure.
/// R: lightuserdata
static int pointer_lm_proxy (lua_State *L)
{
llm_proxy_t *object = luaL_checklm_proxy (L, 1);
lua_pushlightuserdata (L, object->proxy);
return 1;
}
static int gc_lm_proxy (lua_State *L)
{
llm_proxy_t *object = luaL_checklm_proxy (L, 1);
D ("Proxy %p gc called", object);
lm_proxy_unref (object->proxy);
return 0;
}
static const luaL_Reg reg_f_lm_proxy[] = {
{ "new", new_lm_proxy },
{ "bless", bless_lua_lm_proxy },
{ NULL, NULL },
};
static const luaL_Reg reg_m_lm_proxy[] = {
{ "port", port_lm_proxy },
{ "server", server_lm_proxy },
{ "type", kind_lm_proxy },
{ "username", username_lm_proxy },
{ "password", password_lm_proxy },
{ "pointer", pointer_lm_proxy },
{ "__gc", gc_lm_proxy },
{ NULL, NULL },
};
int luaopen_lm_proxy (lua_State *L)
{
luaL_newmetatable (L, "loudmouth.proxy");
lua_pushvalue (L, -1);
lua_setfield (L, -2, "__index");
luaL_register (L, NULL, reg_m_lm_proxy);
lua_pop (L, 1);
lua_newtable (L); // XXX we can specify here exact amount of fields
luaL_register (L, NULL, reg_f_lm_proxy);
return 1;
}