jrd/irssi
1
0
Fork 0
forked from PsychoticNinja/irssi
Code Issues Pull Requests Projects Releases Wiki Activity

Expose 'sasl_success' to the perl side.

Browse Source
This commit is contained in:
LemonBoy 2016-10-20 21:41:36 +02:00
parent 91c9e871c7
commit 4ccffd85ff
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/fe-common/irc/fe-sasl.c
View File

@ -42,7 +42,7 @@ static void sig_cap_end(IRC_SERVER_REC *server)
{ {
/* The negotiation has now been terminated, if we didn't manage to /* The negotiation has now been terminated, if we didn't manage to
* authenticate successfully with the server just disconnect. */ * authenticate successfully with the server just disconnect. */
if (server->sasl_success == FALSE && if (!server->sasl_success &&
settings_get_bool("sasl_disconnect_on_failure")) settings_get_bool("sasl_disconnect_on_failure"))
server_disconnect(SERVER(server)); server_disconnect(SERVER(server));

1
src/perl/irc/Irc.xs
View File

@ -32,6 +32,7 @@ static void perl_irc_server_fill_hash(HV *hv, IRC_SERVER_REC *server)
(void) hv_store(hv, "isupport_sent", 13, newSViv(server->isupport_sent), 0); (void) hv_store(hv, "isupport_sent", 13, newSViv(server->isupport_sent), 0);
(void) hv_store(hv, "cap_complete", 12, newSViv(server->cap_complete), 0); (void) hv_store(hv, "cap_complete", 12, newSViv(server->cap_complete), 0);
(void) hv_store(hv, "sasl_success", 12, newSViv(server->sasl_success), 0);
av = newAV(); av = newAV();
for (tmp = server->cap_supported; tmp != NULL; tmp = tmp->next) for (tmp = server->cap_supported; tmp != NULL; tmp = tmp->next)