diff options
| author | LemonBoy <thatlemon@gmail.com> | 2016-10-20 21:41:36 +0200 |
|---|---|---|
| committer | LemonBoy <thatlemon@gmail.com> | 2016-12-12 21:41:07 +0100 |
| commit | 4ccffd85ffd06325687546f78b78e3e7fce575c5 (patch) | |
| tree | e75c659ca06281cdc0f532cdc81e8121861755c1 | |
| parent | 91c9e871c78e203aed834edd1e1f558680a6ccfa (diff) | |
| download | irssi-4ccffd85ffd06325687546f78b78e3e7fce575c5.zip | |
Expose 'sasl_success' to the perl side.
| -rw-r--r-- | src/fe-common/irc/fe-sasl.c | 2 | ||||
| -rw-r--r-- | src/perl/irc/Irc.xs | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/fe-common/irc/fe-sasl.c b/src/fe-common/irc/fe-sasl.c index dfbfc84a..4c86f850 100644 --- a/src/fe-common/irc/fe-sasl.c +++ b/src/fe-common/irc/fe-sasl.c @@ -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 * authenticate successfully with the server just disconnect. */ - if (server->sasl_success == FALSE && + if (!server->sasl_success && settings_get_bool("sasl_disconnect_on_failure")) server_disconnect(SERVER(server)); diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs index 8b3b0c45..41690010 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -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, "cap_complete", 12, newSViv(server->cap_complete), 0); + (void) hv_store(hv, "sasl_success", 12, newSViv(server->sasl_success), 0); av = newAV(); for (tmp = server->cap_supported; tmp != NULL; tmp = tmp->next) |