src/doveadm/doveadm-auth.c

	doveadm-auth.c revision 4a0d2f71a13f1f7be1a861a410d6961bc798579e
/* Copyright (c) 2009-2013 Dovecot authors, see the included COPYING file */

#include "lib.h"
#include "ioloop.h"
#include "array.h"
#include "askpass.h"
#include "base64.h"
#include "str.h"
#include "wildcard-match.h"
#include "settings-parser.h"
#include "master-service.h"
#include "master-service-settings.h"
#include "auth-client.h"
#include "auth-master.h"
#include "auth-server-connection.h"
#include "mail-storage-service.h"
#include "mail-user.h"
#include "doveadm.h"
#include "doveadm-print.h"

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

struct authtest_input {
    const char *username;
    const char *password;
    struct auth_user_info info;
    bool success;
};

static void auth_cmd_help(doveadm_command_t *cmd);

static struct auth_master_connection *
doveadm_get_auth_master_conn(const char *auth_socket_path)
{
    enum auth_master_flags flags = 0;

    if (doveadm_debug)
        flags |= AUTH_MASTER_FLAG_DEBUG;
    return auth_master_init(auth_socket_path, flags);
}

static int
cmd_user_input(struct auth_master_connection *conn,
           const struct authtest_input *input,
           const char *show_field, bool userdb)
{
    const char *lookup_name = userdb ? "userdb lookup" : "passdb lookup";
    pool_t pool;
    const char *username, *const *fields, *p;
    int ret;

    pool = pool_alloconly_create("auth master lookup", 1024);

    if (userdb) {
        ret = auth_master_user_lookup(conn, input->username, &input->info,
                          pool, &username, &fields);
    } else {
        ret = auth_master_pass_lookup(conn, input->username, &input->info,
                          pool, &fields);
    }
    if (ret < 0) {
        if (fields[0] == NULL)
            i_error("%s failed for %s", lookup_name, input->username);
        else {
            i_error("%s failed for %s: %s", lookup_name,
                input->username, fields[0]);
        }
    } else if (ret == 0) {
        fprintf(show_field == NULL ? stdout : stderr,
            "%s: user %s doesn't exist\n", lookup_name,
            input->username);
    } else if (show_field != NULL) {
        unsigned int show_field_len = strlen(show_field);

        for (; *fields; fields++) {
            if (strncmp(*fields, show_field, show_field_len) == 0 &&
                (*fields)[show_field_len] == '=')
                printf("%s\n", *fields + show_field_len + 1);
        }
    } else {
        printf("%s: %s\n", userdb ? "userdb" : "passdb", input->username);

        for (; *fields; fields++) {
            p = strchr(*fields, '=');
            if (p == NULL)
                printf("  %-10s\n", *fields);
            else {
                printf("  %-10s: %s\n",
                       t_strcut(*fields, '='), p + 1);
            }
        }
    }
    return ret;
}

static void
auth_callback(struct auth_client_request *request ATTR_UNUSED,
          enum auth_request_status status,
          const char *data_base64 ATTR_UNUSED,
          const char *const *args, void *context)
{
    struct authtest_input *input = context;

    if (!io_loop_is_running(current_ioloop))
        return;

    if (status == 0)
        i_fatal("passdb expects SASL continuation");

    if (status < 0)
        printf("passdb: %s auth failed\n", input->username);
    else {
        input->success = TRUE;
        printf("passdb: %s auth succeeded\n", input->username);
    }

    if (*args != NULL) {
        printf("extra fields:\n");
        for (; *args != NULL; args++)
            printf("  %s\n", *args);
    }
    io_loop_stop(current_ioloop);
}

static void auth_connected(struct auth_client *client,
               bool connected, void *context)
{
    struct authtest_input *input = context;
    struct auth_request_info info;
    string_t *init_resp, *base64_resp;

    if (!connected)
        i_fatal("Couldn't connect to auth socket");

    init_resp = t_str_new(128);
    str_append_c(init_resp, '\0');
    str_append(init_resp, input->username);
    str_append_c(init_resp, '\0');
    str_append(init_resp, input->password);

    base64_resp = t_str_new(128);
    base64_encode(str_data(init_resp), str_len(init_resp), base64_resp);

    memset(&info, 0, sizeof(info));
    info.mech = "PLAIN";
    info.service = input->info.service;
    info.local_ip = input->info.local_ip;
    info.local_port = input->info.local_port;
    info.remote_ip = input->info.remote_ip;
    info.remote_port = input->info.remote_port;
    info.initial_resp_base64 = str_c(base64_resp);

    (void)auth_client_request_new(client, &info,
                      auth_callback, input);
}

static void
cmd_auth_input(const char *auth_socket_path, struct authtest_input *input)
{
    struct auth_client *client;

    if (auth_socket_path == NULL) {
        auth_socket_path = t_strconcat(doveadm_settings->base_dir,
                           "/auth-client", NULL);
    }

    client = auth_client_init(auth_socket_path, getpid(), FALSE);
    auth_client_set_connect_notify(client, auth_connected, input);

    if (!auth_client_is_disconnected(client))
        io_loop_run(current_ioloop);

    auth_client_set_connect_notify(client, NULL, NULL);
    auth_client_deinit(&client);
}

static void auth_user_info_parse(struct auth_user_info *info, const char *arg)
{
    if (strncmp(arg, "service=", 8) == 0)
        info->service = arg + 8;
    else if (strncmp(arg, "lip=", 4) == 0) {
        if (net_addr2ip(arg + 4, &info->local_ip) < 0)
            i_fatal("lip: Invalid ip");
    } else if (strncmp(arg, "rip=", 4) == 0) {
        if (net_addr2ip(arg + 4, &info->remote_ip) < 0)
            i_fatal("rip: Invalid ip");
    } else if (strncmp(arg, "lport=", 6) == 0) {
        info->local_port = atoi(arg + 6);
    } else if (strncmp(arg, "rport=", 6) == 0) {
        info->remote_port = atoi(arg + 6);
    } else {
        i_fatal("Unknown -x argument: %s", arg);
    }
}

static void
cmd_user_list(struct auth_master_connection *conn,
          const struct authtest_input *input,
          char *const *users)
{
    struct auth_master_user_list_ctx *ctx;
    const char *username, *user_mask = NULL;
    unsigned int i;

    if (users[0] != NULL && users[1] == NULL)
        user_mask = users[0];

    ctx = auth_master_user_list_init(conn, user_mask, &input->info);
    while ((username = auth_master_user_list_next(ctx)) != NULL) {
        for (i = 0; users[i] != NULL; i++) {
            if (wildcard_match_icase(username, users[i]))
                break;
        }
        if (users[i] != NULL)
            printf("%s\n", username);
    }
    if (auth_master_user_list_deinit(&ctx) < 0)
        i_fatal("user listing failed");
}

static void cmd_auth_cache_flush(int argc, char *argv[])
{
    const char *master_socket_path = NULL;
    struct auth_master_connection *conn;
    unsigned int count;
    int c;

    while ((c = getopt(argc, argv, "a:")) > 0) {
        switch (c) {
        case 'a':
            master_socket_path = optarg;
            break;
        default:
            auth_cmd_help(cmd_auth_cache_flush);
        }
    }
    argv += optind;

    if (master_socket_path == NULL) {
        master_socket_path = t_strconcat(doveadm_settings->base_dir,
                         "auth-master", NULL);
    }

    conn = doveadm_get_auth_master_conn(master_socket_path);
    if (auth_master_cache_flush(conn, (void *)argv, &count) < 0) {
        i_error("Cache flush failed");
        doveadm_exit_code = EX_TEMPFAIL;
    } else {
        printf("%u cache entries flushed\n", count);
    }
    auth_master_deinit(&conn);
}

static void cmd_auth_test(int argc, char *argv[])
{
    const char *auth_socket_path = NULL;
    struct authtest_input input;
    int c;

    memset(&input, 0, sizeof(input));
    input.info.service = "doveadm";

    while ((c = getopt(argc, argv, "a:x:")) > 0) {
        switch (c) {
        case 'a':
            auth_socket_path = optarg;
            break;
        case 'x':
            auth_user_info_parse(&input.info, optarg);
            break;
        default:
            auth_cmd_help(cmd_auth_test);
        }
    }

    if (optind == argc)
        auth_cmd_help(cmd_auth_test);

    input.username = argv[optind++];
    input.password = argv[optind] != NULL ? argv[optind++] :
        t_askpass("Password: ");
    if (argv[optind] != NULL)
            i_fatal("Unexpected parameter: %s", argv[optind]);
    cmd_auth_input(auth_socket_path, &input);
    if (!input.success)
        doveadm_exit_code = EX_NOPERM;
}

static void cmd_auth_lookup(int argc, char *argv[])
{
    const char *auth_socket_path = doveadm_settings->auth_socket_path;
    struct auth_master_connection *conn;
    struct authtest_input input;
    const char *show_field = NULL;
    bool first = TRUE;
    int c, ret;

    memset(&input, 0, sizeof(input));
    input.info.service = "doveadm";

    while ((c = getopt(argc, argv, "a:f:x:")) > 0) {
        switch (c) {
        case 'a':
            auth_socket_path = optarg;
            break;
        case 'f':
            show_field = optarg;
            break;
        case 'x':
            auth_user_info_parse(&input.info, optarg);
            break;
        default:
            auth_cmd_help(cmd_auth_lookup);
        }
    }

    if (optind == argc)
        auth_cmd_help(cmd_auth_lookup);

    conn = doveadm_get_auth_master_conn(auth_socket_path);
    while ((input.username = argv[optind++]) != NULL) {
        if (first)
            first = FALSE;
        else
            putchar('\n');

        ret = cmd_user_input(conn, &input, show_field, FALSE);
        switch (ret) {
        case -1:
            doveadm_exit_code = EX_TEMPFAIL;
            break;
        case 0:
            doveadm_exit_code = EX_NOUSER;
            break;
        }
    }
    auth_master_deinit(&conn);
}

static void cmd_user_mail_input_field(const char *key, const char *value,
                      const char *show_field)
{
    if (show_field == NULL) {
        doveadm_print(key);
        doveadm_print(value);
    } else if (strcmp(show_field, key) == 0) {
        printf("%s\n", value);
    }
}

static int cmd_user_mail_input(struct mail_storage_service_ctx *storage_service,
                   const struct authtest_input *input,
                   const char *show_field)
{
    struct mail_storage_service_input service_input;
    struct mail_storage_service_user *service_user;
    struct mail_user *user;
    const struct mail_storage_settings *mail_set;
    const char *key, *value, *error, *const *userdb_fields;
    unsigned int i;
    pool_t pool;
    int ret;

    memset(&service_input, 0, sizeof(service_input));
    service_input.module = "mail";
    service_input.service = input->info.service;
    service_input.username = input->username;
    service_input.local_ip = input->info.local_ip;
    service_input.local_port = input->info.local_port;
    service_input.remote_ip = input->info.remote_ip;
    service_input.remote_port = input->info.remote_port;

    pool = pool_alloconly_create("userdb fields", 1024);
    mail_storage_service_save_userdb_fields(storage_service, pool,
                        &userdb_fields);

    if ((ret = mail_storage_service_lookup_next(storage_service, &service_input,
                            &service_user, &user,
                            &error)) <= 0) {
        pool_unref(&pool);
        if (ret < 0)
            return -1;
        fprintf(show_field == NULL ? stdout : stderr,
            "userdb lookup: user %s doesn't exist\n",
            input->username);
        return 0;
    }

    if (show_field == NULL) {
        doveadm_print_init(DOVEADM_PRINT_TYPE_TAB);
        doveadm_print_header_simple("field");
        doveadm_print_header_simple("value");
    }

    cmd_user_mail_input_field("uid", user->set->mail_uid, show_field);
    cmd_user_mail_input_field("gid", user->set->mail_gid, show_field);
    cmd_user_mail_input_field("home", user->set->mail_home, show_field);

    mail_set = mail_user_set_get_storage_set(user);
    cmd_user_mail_input_field("mail", mail_set->mail_location, show_field);

    if (userdb_fields != NULL) {
        for (i = 0; userdb_fields[i] != NULL; i++) {
            value = strchr(userdb_fields[i], '=');
            if (value != NULL)
                key = t_strdup_until(userdb_fields[i], value++);
            else {
                key = userdb_fields[i];
                value = "";
            }
            if (strcmp(key, "uid") != 0 &&
                strcmp(key, "gid") != 0 &&
                strcmp(key, "home") != 0 &&
                strcmp(key, "mail") != 0)
                cmd_user_mail_input_field(key, value, show_field);
        }
    }

    mail_user_unref(&user);
    mail_storage_service_user_free(&service_user);
    pool_unref(&pool);
    return 1;
}

static void cmd_user(int argc, char *argv[])
{
    const char *auth_socket_path = doveadm_settings->auth_socket_path;
    struct auth_master_connection *conn;
    struct authtest_input input;
    const char *show_field = NULL;
    struct mail_storage_service_ctx *storage_service = NULL;
    unsigned int i;
    bool have_wildcards, userdb_only = FALSE, first = TRUE;
    int c, ret;

    memset(&input, 0, sizeof(input));
    input.info.service = "doveadm";

    while ((c = getopt(argc, argv, "a:f:ux:")) > 0) {
        switch (c) {
        case 'a':
            auth_socket_path = optarg;
            break;
        case 'f':
            show_field = optarg;
            break;
        case 'u':
            userdb_only = TRUE;
            break;
        case 'x':
            auth_user_info_parse(&input.info, optarg);
            break;
        default:
            auth_cmd_help(cmd_user);
        }
    }

    if (optind == argc)
        auth_cmd_help(cmd_user);

    conn = doveadm_get_auth_master_conn(auth_socket_path);

    have_wildcards = FALSE;
    for (i = optind; argv[i] != NULL; i++) {
        if (strchr(argv[i], '*') != NULL ||
            strchr(argv[i], '?') != NULL) {
            have_wildcards = TRUE;
            break;
        }
    }

    if (have_wildcards) {
        cmd_user_list(conn, &input, argv + optind);
        auth_master_deinit(&conn);
        return;
    }

    if (!userdb_only) {
        storage_service = mail_storage_service_init(master_service, NULL,
            MAIL_STORAGE_SERVICE_FLAG_USERDB_LOOKUP |
            MAIL_STORAGE_SERVICE_FLAG_NO_CHDIR |
            MAIL_STORAGE_SERVICE_FLAG_NO_LOG_INIT |
            MAIL_STORAGE_SERVICE_FLAG_NO_PLUGINS |
            MAIL_STORAGE_SERVICE_FLAG_NO_NAMESPACES |
            MAIL_STORAGE_SERVICE_FLAG_TEMP_PRIV_DROP);
        mail_storage_service_set_auth_conn(storage_service, conn);
        conn = NULL;
    }

    while ((input.username = argv[optind++]) != NULL) {
        if (first)
            first = FALSE;
        else
            putchar('\n');

        ret = !userdb_only ?
            cmd_user_mail_input(storage_service, &input, show_field) :
            cmd_user_input(conn, &input, show_field, TRUE);
        switch (ret) {
        case -1:
            doveadm_exit_code = EX_TEMPFAIL;
            break;
        case 0:
            doveadm_exit_code = EX_NOUSER;
            break;
        }
    }
    if (storage_service != NULL)
        mail_storage_service_deinit(&storage_service);
    if (conn != NULL)
        auth_master_deinit(&conn);
}

struct doveadm_cmd doveadm_cmd_auth[] = {
    { cmd_auth_test, "auth test",
      "[-a <auth socket path>] [-x <auth info>] <user> [<password>]" },
    { cmd_auth_lookup, "auth lookup",
      "[-a <userdb socket path>] [-x <auth info>] [-f field] <user> [...]" },
    { cmd_auth_cache_flush, "auth cache flush",
      "[-a <master socket path>] [<user> [...]]" },
    { cmd_user, "user",
      "[-a <userdb socket path>] [-x <auth info>] [-f field] [-u] <user mask> [...]" }
};

static void auth_cmd_help(doveadm_command_t *cmd)
{
    unsigned int i;

    for (i = 0; i < N_ELEMENTS(doveadm_cmd_auth); i++) {
        if (doveadm_cmd_auth[i].cmd == cmd)
            help(&doveadm_cmd_auth[i]);
    }
    i_unreached();
}

void doveadm_register_auth_commands(void)
{
    unsigned int i;

    for (i = 0; i < N_ELEMENTS(doveadm_cmd_auth); i++)
        doveadm_register_cmd(&doveadm_cmd_auth[i]);
}