From 66d8b0ad7b849ed743d3c3b4199fd05ece3891bb Mon Sep 17 00:00:00 2001 From: Berke Viktor Date: Tue, 10 Jan 2012 04:00:20 +0100 Subject: [PATCH] initial XSASL plugin based on cap_sasl --- plugins/makefile.mak | 4 + plugins/xsasl/makefile.mak | 18 +++ plugins/xsasl/xsasl.c | 224 +++++++++++++++++++++++++++++++++++++ win32/release-x64.bat | 1 + win32/release-x86.bat | 1 + 5 files changed, 248 insertions(+) create mode 100644 plugins/xsasl/makefile.mak create mode 100644 plugins/xsasl/xsasl.c diff --git a/plugins/makefile.mak b/plugins/makefile.mak index f8642d2e..b692c41f 100644 --- a/plugins/makefile.mak +++ b/plugins/makefile.mak @@ -19,6 +19,8 @@ all: @-$(MAKE) /nologo /s /f makefile.mak $@ @cd ..\upd @-$(MAKE) /nologo /s /f makefile.mak $@ + @cd ..\xsasl + @-$(MAKE) /nologo /s /f makefile.mak $@ @cd ..\xtray @-$(MAKE) /nologo /s /f makefile.mak $@ @cd ..\winamp @@ -49,6 +51,8 @@ clean: @-$(MAKE) /nologo /s /f makefile.mak clean $@ @cd ..\upd @-$(MAKE) /nologo /s /f makefile.mak clean $@ + @cd ..\xsasl + @-$(MAKE) /nologo /s /f makefile.mak clean $@ @cd ..\xtray @-$(MAKE) /nologo /s /f makefile.mak clean $@ @cd ..\winamp diff --git a/plugins/xsasl/makefile.mak b/plugins/xsasl/makefile.mak new file mode 100644 index 00000000..e1ffd0ec --- /dev/null +++ b/plugins/xsasl/makefile.mak @@ -0,0 +1,18 @@ +include "..\..\src\makeinc.mak" + +all: xsasl.obj xsasl.def + link $(LDFLAGS) $(LIBS) /dll /out:xcxsasl.dll /def:xsasl.def xsasl.obj + +xsasl.def: + echo EXPORTS > xsasl.def + echo xchat_plugin_init >> xsasl.def + echo xchat_plugin_deinit >> xsasl.def + +xsasl.obj: xsasl.c makefile.mak + cl $(CFLAGS) $(GLIB) /I.. xsasl.c + +clean: + del *.obj + del *.dll + del *.exp + del *.lib diff --git a/plugins/xsasl/xsasl.c b/plugins/xsasl/xsasl.c new file mode 100644 index 00000000..776b8137 --- /dev/null +++ b/plugins/xsasl/xsasl.c @@ -0,0 +1,224 @@ +/* + * SASL authentication plugin for XChat + * Extremely primitive: only PLAIN, no error checking + * + * Copyright (c) 2010, + * http://ygrek.org.ua/p/cap_sasl.html + * + * Docs: + * http://hg.atheme.org/charybdis/charybdis/file/6144f52a119b/doc/sasl.txt + * http://tools.ietf.org/html/rfc4422 + */ + + +#include +#include +#include +#include + +#include "xchat-plugin.h" + +#define PNAME "XSASL" +#define PDESC "SASL authentication plugin"; +#define PVERSION "0.0.4" + +static xchat_plugin *ph; /* plugin handle */ + +struct sasl_info; + +struct sasl_info +{ + char const* login; + char const* password; + char const* network; + struct sasl_info* next; +}; + +typedef struct sasl_info sasl_info; + +sasl_info* all_info = NULL; + +static void add_info(char const* login, char const* password, char const* network) +{ + sasl_info* prev = all_info; + sasl_info* info = (sasl_info*)malloc(sizeof(sasl_info)); + + info->login = strdup(login); + info->password = strdup(password); + info->network = strdup(network); + info->next = prev; + + all_info = info; +} + +static sasl_info* find_info(char const* network) +{ + sasl_info* cur = all_info; + while (cur) + { + if (0 == strcmp(cur->network, network)) return cur; + cur = cur->next; + } + return NULL; +} + +static sasl_info* get_info(void) +{ + const char* name = xchat_get_info(ph, "network"); + if (name) + return find_info(name); + else + return NULL; +} + +static int authend_cb(char *word[], char *word_eol[], void *userdata) +{ + if (get_info()) + { + xchat_printf(ph, "XSASL result: %s", word_eol[1]); + xchat_commandf(ph, "QUOTE CAP END"); + } + return XCHAT_EAT_ALL; +} + +/* +static int disconnect_cb(char *word[], void *userdata) +{ + xchat_printf(ph, "disconnected"); + return XCHAT_EAT_NONE; +} +*/ + +static int server_cb(char *word[], char *word_eol[], void *userdata) +{ + if (0 == strcmp("AUTHENTICATE",word[1]) && 0 == strcmp("+",word[2])) + { + size_t len; + char* buf; + char* enc; + sasl_info* p = get_info(); + if (!p) return XCHAT_EAT_NONE; + + xchat_printf(ph,"XSASL authenticating as %s",p->login); + + len = strlen(p->login)*2 + 2 + strlen(p->password); + buf = (char*)malloc(len + 1); + strcpy(buf,p->login); + strcpy(buf+strlen(p->login)+1,p->login); + strcpy(buf+strlen(p->login)*2+2,p->password); + enc = g_base64_encode((unsigned char*)buf,len); + + /*xchat_printf(ph,"AUTHENTICATE %s",enc);*/ + xchat_commandf(ph,"QUOTE AUTHENTICATE %s",enc); + + free(enc); + free(buf); + + return XCHAT_EAT_ALL; + } + return XCHAT_EAT_NONE; +} + +static int cap_cb(char *word[], char *word_eol[], void *userdata) +{ + if (get_info()) + { + /* FIXME test sasl cap */ + xchat_printf(ph, "XSASL info: %s", word_eol[1]); + xchat_commandf(ph,"QUOTE AUTHENTICATE PLAIN"); + } + + return XCHAT_EAT_ALL; +} + +static int sasl_cmd_cb(char *word[], char *word_eol[], void *userdata) +{ + const char* login = word[2]; + const char* password = word[3]; + const char* network = word_eol[4]; + + if (!login || !*login) + { + sasl_info *cur = all_info; + if (NULL == cur) + { + xchat_printf(ph,"Nothing, see /help sasl"); + return XCHAT_EAT_ALL; + } + + while (cur) + { + xchat_printf(ph,"%s:%s at %s",cur->login,cur->password,cur->network); + cur = cur->next; + } + return XCHAT_EAT_ALL; + } + + if (!login || !password || !network || !*login || !*password || !*network) + { + xchat_printf(ph,"Wrong usage, try /help sasl"); + return XCHAT_EAT_ALL; + } + + add_info(login,password,network); + + xchat_printf(ph,"Enabled SASL authentication for %s",network); + + return XCHAT_EAT_ALL; +} + +static int connect_cb(char *word[], void *userdata) +{ + if (get_info()) + { + xchat_printf(ph, "XSASL enabled"); + xchat_commandf(ph, "QUOTE CAP REQ :sasl"); + } + + return XCHAT_EAT_NONE; +} + +int xchat_plugin_init(xchat_plugin *plugin_handle, + char **plugin_name, + char **plugin_desc, + char **plugin_version, + char *arg) +{ + /* we need to save this for use with any xchat_* functions */ + ph = plugin_handle; + + /* tell xchat our info */ + *plugin_name = PNAME; + *plugin_desc = PDESC; + *plugin_version = PVERSION; + + xchat_hook_command(ph, "sasl", XCHAT_PRI_NORM, sasl_cmd_cb, + "Usage: SASL , enable SASL authentication for given network", 0); + + xchat_hook_print(ph, "Connected", XCHAT_PRI_NORM, connect_cb, NULL); +/* + xchat_hook_print(ph, "Disconnected", XCHAT_PRI_NORM, disconnect_cb, NULL); +*/ + + xchat_hook_server(ph, "CAP", XCHAT_PRI_NORM, cap_cb, NULL); + xchat_hook_server(ph, "RAW LINE", XCHAT_PRI_NORM, server_cb, NULL); + + xchat_hook_server(ph, "903", XCHAT_PRI_NORM, authend_cb, NULL); + xchat_hook_server(ph, "904", XCHAT_PRI_NORM, authend_cb, NULL); + xchat_hook_server(ph, "905", XCHAT_PRI_NORM, authend_cb, NULL); + xchat_hook_server(ph, "906", XCHAT_PRI_NORM, authend_cb, NULL); + xchat_hook_server(ph, "907", XCHAT_PRI_NORM, authend_cb, NULL); + + /* xchat_print(ph,"Loading cap_sasl.conf"); + xchat_commandf(ph, "load -e %s/cap_sasl.conf",xchat_get_info(ph, "xchatdir")); */ + + xchat_printf(ph, PNAME " plugin loaded\n"); + + return 1; +} + +int xchat_plugin_deinit (void) +{ + xchat_printf(ph, PNAME " plugin unloaded\n"); + return 1; +} diff --git a/win32/release-x64.bat b/win32/release-x64.bat index 6483a950..9e092a2b 100644 --- a/win32/release-x64.bat +++ b/win32/release-x64.bat @@ -67,6 +67,7 @@ copy ..\plugins\perl\xcperl-514.dll %XCHAT_DEST%\plugins copy ..\plugins\python\xcpython.dll %XCHAT_DEST%\plugins copy ..\plugins\tcl\xctcl.dll %XCHAT_DEST%\plugins copy ..\plugins\upd\xcupd.dll %XCHAT_DEST%\plugins +copy ..\plugins\xsasl\xcxsasl.dll %XCHAT_DEST%\plugins copy ..\plugins\xtray\xtray.dll %XCHAT_DEST%\plugins copy ..\plugins\winamp\xcwinamp.dll %XCHAT_DEST%\plugins copy ..\plugins\winsys\xcwinsys.dll %XCHAT_DEST%\plugins diff --git a/win32/release-x86.bat b/win32/release-x86.bat index dc45146a..bf0a8db6 100644 --- a/win32/release-x86.bat +++ b/win32/release-x86.bat @@ -69,6 +69,7 @@ copy ..\plugins\perl\xcperl-514.dll %XCHAT_DEST%\plugins copy ..\plugins\python\xcpython.dll %XCHAT_DEST%\plugins copy ..\plugins\tcl\xctcl.dll %XCHAT_DEST%\plugins copy ..\plugins\upd\xcupd.dll %XCHAT_DEST%\plugins +copy ..\plugins\xsasl\xcxsasl.dll %XCHAT_DEST%\plugins copy ..\plugins\xtray\xtray.dll %XCHAT_DEST%\plugins copy ..\plugins\winamp\xcwinamp.dll %XCHAT_DEST%\plugins copy ..\plugins\winsys\xcwinsys.dll %XCHAT_DEST%\plugins