src/auth/auth-worker-client.c

	auth-worker-client.c revision 6fabfb7bbfd88d0c1de66981e52850f26067623b
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen/* Copyright (C) 2005 Timo Sirainen */
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#include "common.h"
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#include "base64.h"
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#include "ioloop.h"
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#include "network.h"
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#include "istream.h"
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#include "ostream.h"
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen#include "str.h"
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen#include "auth-request.h"
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#include "auth-worker-client.h"
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#include <stdlib.h>
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen/* If no requests have come within this time, kill ourself */
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#define AUTH_WORKER_MAX_IDLE (60*10)
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen#define OUTBUF_THROTTLE_SIZE (1024*10)
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainenstruct auth_worker_client {
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    int refcount;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen        struct auth *auth;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    int fd;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    struct io *io;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    struct istream *input;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    struct ostream *output;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainen    time_t last_request;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    struct timeout *to;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen};
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainenstatic void
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainenauth_worker_client_check_throttle(struct auth_worker_client *client)
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen{
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    if (o_stream_get_buffer_used_size(client->output) >=
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen        OUTBUF_THROTTLE_SIZE) {
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen        /* stop reading new requests until client has read the pending
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen           replies. */
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen        if (client->io != NULL)
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen            io_remove(&client->io);
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    }
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen}
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainenstatic struct auth_request *
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainenworker_auth_request_new(struct auth_worker_client *client, unsigned int id,
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen            const char *args)
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen{
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainen    struct auth_request *auth_request;
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainen    const char *key, *value, *const *tmp;
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainen
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainen    auth_request = auth_request_new_dummy(client->auth);
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainen
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainen    client->refcount++;
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainen    auth_request->context = client;
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen    auth_request->id = id;
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen    if (args != NULL) {
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen        t_push();
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen        for (tmp = t_strsplit(args, "\t"); *tmp != NULL; tmp++) {
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen            value = strchr(*tmp, '=');
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen            if (value == NULL)
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen                continue;
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen            key = t_strdup_until(*tmp, value);
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen            value++;
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen            (void)auth_request_import(auth_request, key, value);
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen        }
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen        t_pop();
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen    }
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    return auth_request;
baf3e87e186453fda13bd21f7cbcb2efc8492e8bTimo Sirainen}
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
b162e16ade1e0d9bfae62e366caf57a3132f5963Timo Sirainenstatic void verify_plain_callback(enum passdb_result result,
96e1ed172ae59cae6bc6e6ddd24d22a158e23dfeTimo Sirainen                  struct auth_request *request)
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen{
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    struct auth_worker_client *client = request->context;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen    string_t *str;
b2ff0468c298dd2f525fff5977f1f24fba3a9f3bTimo Sirainen
    if (request->passdb_failure && result == PASSDB_RESULT_OK)
        result = PASSDB_RESULT_PASSWORD_MISMATCH;

    str = t_str_new(64);
    str_printfa(str, "%u\t", request->id);

    if (result != PASSDB_RESULT_OK)
        str_printfa(str, "FAIL\t%d", result);
    else {
        str_append(str, "OK\t");
        str_append(str, request->user);
        str_append_c(str, '\t');
        if (request->passdb_password != NULL)
            str_append(str, request->passdb_password);
        if (request->no_password)
            str_append(str, "\tnopassword");
        if (request->extra_fields != NULL) {
            const char *field =
                auth_stream_reply_export(request->extra_fields);

            str_append_c(str, '\t');
            str_append(str, field);
        }
    }
    str_append_c(str, '\n');
    o_stream_send(client->output, str_data(str), str_len(str));

    auth_request_unref(&request);
    auth_worker_client_check_throttle(client);
    auth_worker_client_unref(&client);
}

static void
auth_worker_handle_passv(struct auth_worker_client *client,
             unsigned int id, const char *args)
{
    /* verify plaintext password */
    struct auth_request *auth_request;
        struct auth_passdb *passdb;
    const char *password;
    unsigned int passdb_id;

    passdb_id = atoi(t_strcut(args, '\t'));
    args = strchr(args, '\t');
    if (args == NULL) {
        i_error("BUG: Auth worker server sent us invalid PASSV");
        return;
    }
    args++;

    password = t_strcut(args, '\t');
    args = strchr(args, '\t');
    if (args != NULL) args++;

    auth_request = worker_auth_request_new(client, id, args);
    auth_request->mech_password =
        p_strdup(auth_request->pool, password);

    if (auth_request->user == NULL || auth_request->service == NULL) {
        i_error("BUG: PASSV had missing parameters");
        auth_request_unref(&auth_request);
        return;
    }

    passdb = auth_request->passdb;
    while (passdb != NULL && passdb->id != passdb_id)
        passdb = passdb->next;

    if (passdb == NULL) {
        /* could be a masterdb */
        passdb = auth_request->auth->masterdbs;
        while (passdb != NULL && passdb->id != passdb_id)
            passdb = passdb->next;

        if (passdb == NULL) {
            i_error("BUG: PASSV had invalid passdb ID");
            auth_request_unref(&auth_request);
            return;
        }
    }

    auth_request->passdb = passdb;
    passdb->passdb->iface.
        verify_plain(auth_request, password, verify_plain_callback);
}

static void
lookup_credentials_callback(enum passdb_result result,
                const unsigned char *credentials, size_t size,
                struct auth_request *request)
{
    struct auth_worker_client *client = request->context;
    string_t *str;

    if (request->passdb_failure && result == PASSDB_RESULT_OK)
        result = PASSDB_RESULT_PASSWORD_MISMATCH;

    str = t_str_new(64);
    str_printfa(str, "%u\t", request->id);

    if (result != PASSDB_RESULT_OK)
        str_printfa(str, "FAIL\t%d", result);
    else {
        str_printfa(str, "OK\t%s\t{%s.b64}", request->user,
                request->credentials_scheme);
        base64_encode(credentials, size, str);
        str_append_c(str, '\t');
        if (request->extra_fields != NULL) {
            const char *field =
                auth_stream_reply_export(request->extra_fields);
            str_append(str, field);
        }
    }
    str_append_c(str, '\n');
    o_stream_send(client->output, str_data(str), str_len(str));

    auth_request_unref(&request);
    auth_worker_client_check_throttle(client);
    auth_worker_client_unref(&client);
}

static void
auth_worker_handle_passl(struct auth_worker_client *client,
             unsigned int id, const char *args)
{
    /* lookup credentials */
    struct auth_request *auth_request;
    const char *scheme;
    unsigned int passdb_id;

    passdb_id = atoi(t_strcut(args, '\t'));
    args = strchr(args, '\t');
    if (args == NULL) {
        i_error("BUG: Auth worker server sent us invalid PASSL");
        return;
    }
    args++;

    scheme = t_strcut(args, '\t');
    args = strchr(args, '\t');
    if (args != NULL) args++;

    auth_request = worker_auth_request_new(client, id, args);
    auth_request->credentials_scheme = p_strdup(auth_request->pool, scheme);

    if (auth_request->user == NULL || auth_request->service == NULL) {
        i_error("BUG: PASSL had missing parameters");
        auth_request_unref(&auth_request);
        return;
    }

    while (auth_request->passdb->id != passdb_id) {
        auth_request->passdb = auth_request->passdb->next;
        if (auth_request->passdb == NULL) {
            i_error("BUG: PASSL had invalid passdb ID");
            auth_request_unref(&auth_request);
            return;
        }
    }

    auth_request->passdb->passdb->iface.
        lookup_credentials(auth_request, lookup_credentials_callback);
}

static void
set_credentials_callback(enum passdb_result result,
              struct auth_request *request)
{
    struct auth_worker_client *client = request->context;

    string_t *str;

    str = t_str_new(64);
    str_printfa(str, "%u\t", request->id);

    if (result != PASSDB_RESULT_OK)
        str_printfa(str, "FAIL\t%d\t", result);
    else
        str_printfa(str, "OK\t%s\t", request->user);
    str_append_c(str, '\n');
    o_stream_send(client->output, str_data(str), str_len(str));

    auth_request_unref(&request);
    auth_worker_client_check_throttle(client);
    auth_worker_client_unref(&client);
}

static void
auth_worker_handle_setcred(struct auth_worker_client *client,
               unsigned int id, const char *args)
{
    struct auth_request *auth_request;
    unsigned int passdb_id;
    const char *data;

    passdb_id = atoi(t_strcut(args, '\t'));
    args = strchr(args, '\t');
    if (args == NULL) {
        i_error("BUG: Auth worker server sent us invalid SETCRED");
        return;
    }
    args++;

    data = t_strcut(args, '\t');
    args = strchr(args, '\t');
    if (args != NULL) args++;

    auth_request = worker_auth_request_new(client, id, args);

    if (auth_request->user == NULL || auth_request->service == NULL) {
        i_error("BUG: SETCRED had missing parameters");
        auth_request_unref(&auth_request);
        return;
    }

    while (auth_request->passdb->id != passdb_id) {
        auth_request->passdb = auth_request->passdb->next;
        if (auth_request->passdb == NULL) {
            i_error("BUG: SETCRED had invalid passdb ID");
            auth_request_unref(&auth_request);
            return;
        }
    }

    auth_request->passdb->passdb->iface.
        set_credentials(auth_request, data, set_credentials_callback);
}

static void
lookup_user_callback(enum userdb_result result,
             struct auth_request *auth_request)
{
    struct auth_worker_client *client = auth_request->context;
    struct auth_stream_reply *reply = auth_request->userdb_reply;
    string_t *str;

    if (auth_request->userdb_lookup_failed)
        result = USERDB_RESULT_INTERNAL_FAILURE;

    str = t_str_new(128);
    str_printfa(str, "%u\t", auth_request->id);
    switch (result) {
    case USERDB_RESULT_INTERNAL_FAILURE:
        str_append(str, "FAIL\t");
        break;
    case USERDB_RESULT_USER_UNKNOWN:
        str_append(str, "NOTFOUND\t");
        break;
    case USERDB_RESULT_OK:
        str_append(str, "OK\t");
        str_append(str, auth_stream_reply_export(reply));
        break;
    }
    str_append_c(str, '\n');

    o_stream_send(client->output, str_data(str), str_len(str));

    auth_request_unref(&auth_request);
    auth_worker_client_check_throttle(client);
    auth_worker_client_unref(&client);
}

static void
auth_worker_handle_user(struct auth_worker_client *client,
            unsigned int id, const char *args)
{
    /* lookup user */
    struct auth_request *auth_request;
    unsigned int num;

    num = atoi(t_strcut(args, '\t'));
    args = strchr(args, '\t');
    if (args != NULL) args++;

    auth_request = worker_auth_request_new(client, id, args);

    if (auth_request->user == NULL || auth_request->service == NULL) {
        i_error("BUG: USER had missing parameters");
        auth_request_unref(&auth_request);
        return;
    }

    for (; num > 0; num--) {
        auth_request->userdb = auth_request->userdb->next;
        if (auth_request->userdb == NULL) {
            i_error("BUG: USER had invalid userdb num");
            auth_request_unref(&auth_request);
            return;
        }
    }

    auth_request->userdb->userdb->iface->
        lookup(auth_request, lookup_user_callback);
}

static bool
auth_worker_handle_line(struct auth_worker_client *client, const char *line)
{
    const char *p;
    unsigned int id;

    p = strchr(line, '\t');
    if (p == NULL)
        return FALSE;

    id = (unsigned int)strtoul(t_strdup_until(line, p), NULL, 10);
    line = p + 1;

    if (strncmp(line, "PASSV\t", 6) == 0)
        auth_worker_handle_passv(client, id, line + 6);
    else if (strncmp(line, "PASSL\t", 6) == 0)
        auth_worker_handle_passl(client, id, line + 6);
    else if (strncmp(line, "SETCRED\t", 8) == 0)
        auth_worker_handle_setcred(client, id, line + 8);
    else if (strncmp(line, "USER\t", 5) == 0)
        auth_worker_handle_user(client, id, line + 5);

        return TRUE;
}

static void auth_worker_input(struct auth_worker_client *client)
{
    char *line;
    bool ret;

    switch (i_stream_read(client->input)) {
    case 0:
        return;
    case -1:
        /* disconnected */
        auth_worker_client_destroy(&client);
        return;
    case -2:
        /* buffer full */
        i_error("BUG: Auth worker server sent us more than %d bytes",
            (int)AUTH_WORKER_MAX_LINE_LENGTH);
        auth_worker_client_destroy(&client);
        return;
    }

    client->last_request = ioloop_time;

        client->refcount++;
    while ((line = i_stream_next_line(client->input)) != NULL) {
        t_push();
        ret = auth_worker_handle_line(client, line);
        t_pop();

        if (!ret) {
            auth_worker_client_destroy(&client);
            break;
        }
    }
    auth_worker_client_unref(&client);
}

static int auth_worker_output(struct auth_worker_client *client)
{
    if (o_stream_flush(client->output) < 0) {
        auth_worker_client_destroy(&client);
        return 1;
    }

    if (o_stream_get_buffer_used_size(client->output) <=
        OUTBUF_THROTTLE_SIZE/3 && client->io == NULL) {
        /* allow input again */
        client->io = io_add(client->fd, IO_READ,
                    auth_worker_input, client);
    }
    return 1;
}

static void auth_worker_client_timeout(struct auth_worker_client *client)
{
    if (client->last_request + AUTH_WORKER_MAX_IDLE <= ioloop_time)
                auth_worker_client_destroy(&client);
}

struct auth_worker_client *
auth_worker_client_create(struct auth *auth, int fd)
{
        struct auth_worker_client *client;

    client = i_new(struct auth_worker_client, 1);
    client->refcount = 1;

    client->auth = auth;
    client->fd = fd;
    client->input =
        i_stream_create_file(fd, default_pool,
                     AUTH_WORKER_MAX_LINE_LENGTH, FALSE);
    client->output =
        o_stream_create_file(fd, default_pool, (size_t)-1, FALSE);
    o_stream_set_flush_callback(client->output, auth_worker_output, client);
    client->io = io_add(fd, IO_READ, auth_worker_input, client);

    client->last_request = ioloop_time;
    client->to = timeout_add(1000*60, auth_worker_client_timeout, client);

    return client;
}

void auth_worker_client_destroy(struct auth_worker_client **_client)
{
    struct auth_worker_client *client = *_client;

    *_client = NULL;
    if (client->fd == -1)
        return;

    timeout_remove(&client->to);

    i_stream_close(client->input);
    o_stream_close(client->output);

    if (client->io != NULL)
        io_remove(&client->io);

    net_disconnect(client->fd);
    client->fd = -1;

    io_loop_stop(ioloop);
}

void auth_worker_client_unref(struct auth_worker_client **_client)
{
    struct auth_worker_client *client = *_client;

    if (--client->refcount > 0) {
        *_client = NULL;
        return;
    }

    if (client->fd != -1)
        auth_worker_client_destroy(_client);

    i_stream_unref(&client->input);
    o_stream_unref(&client->output);
    i_free(client);
}