src/server/config/keyfile.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2013 Olaf Wintermann. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *   1. Redistributions of source code must retain the above copyright
 *      notice, this list of conditions and the following disclaimer.
 *
 *   2. Redistributions in binary form must reproduce the above copyright
 *      notice, this list of conditions and the following disclaimer in the
 *      documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

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

#include "keyfile.h"

KeyfileConfig *load_keyfile_config(const char *file) {
    FILE *in = fopen(file, "r");
    if(in == NULL) {
        return NULL;
    }
    
    KeyfileConfig *conf = malloc(sizeof(KeyfileConfig));
    conf->parser.parse = keyfile_parse;
    conf->file = strdup(file);
    conf->users = NULL;

    int r = cfg_parse_basic_file((ConfigParser*)conf, in);
    if(r != 0) {
        fclose(in);
        free(conf);
        // TODO: free
        return NULL;
    }
    
    fclose(in);

    return conf;
}

void free_keyfile_config(KeyfileConfig *conf) {
    if(conf->users) {
        ucx_list_free_a(conf->parser.mp, conf->users);
    }
    ucx_mempool_destroy(conf->parser.mp->pool);
    free(conf);
}

int keyfile_parse(void *p, ConfigLine *begin, ConfigLine *end, sstr_t line) {
    KeyfileConfig *conf = p;
    UcxAllocator *mp = conf->parser.mp;
    
    ssize_t tkn = 0;
    sstr_t *tk = sstrsplit(line, sstrn(";", 1), &tkn);
    
    if(tkn < 2) {
        return 1;
    }
    
    KeyfileEntry *entry = OBJ_NEW(mp, KeyfileEntry);
    entry->groups = NULL;
    entry->numgroups = 0;
    
    // get user name
    entry->name = sstrdup_a(mp, tk[0]);
    
    // get hash
    sstr_t hash = sstrtrim(tk[1]);
    if(hash.length < 4) {
        // to short
        return 1;
    }
    if(hash.ptr[0] != '{') {
        // missing hash type specification
        return 1;
    }
    
    // get hash type and data
    sstr_t hash_type;
    sstr_t hash_data;
    for(int i=1;i<hash.length;i++) {
        if(hash.ptr[i] == '}') {
            hash_type = sstrsubsl(hash, 1, i-1);
            hash_data = sstrsubs(hash, i+1);
        }
    }
    
    if(!sstrcmp(hash_type, sstr("SSHA"))) {
        entry->hashtype = KEYFILE_SSHA;
    } else if(!sstrcmp(hash_type, sstr("SSHA256"))) {
        entry->hashtype = KEYFILE_SSHA256;
    } else if(!sstrcmp(hash_type, sstr("SSHA512"))) {
        entry->hashtype = KEYFILE_SSHA512;
    } else {
        // unkown hash type
        log_ereport(
                LOG_FAILURE,
                "keyfile_parse: unknown hash type: %s",
                sstrdup_a(mp, hash_type).ptr);
        return 1;
    }
    
    entry->hashdata = sstrdup_a(mp, hash_data);
    
    // get groups
    if(tkn == 3) {
        sstr_t groups_str = sstrtrim(tk[2]);
        ssize_t ngroups = 0;
        sstr_t *groups = sstrsplit(groups_str, sstrn(",", 1), &ngroups);
        if(ngroups > 0) {
            entry->groups = mp->calloc(mp->pool, ngroups, sizeof(sstr_t));
            entry->numgroups = ngroups;
            for(int i=0;i<ngroups;i++) {
                entry->groups[i] = sstrdup_a(mp, sstrtrim(groups[i]));
                free(groups[i].ptr);
            }
            free(groups);
        }
    }
    
    // add user
    conf->users = ucx_list_append_a(mp, conf->users, entry);
    
    // free tokens
    for(int i=0;i<tkn;i++) {
        free(tk[i].ptr);
    }
    free(tk);
    
    return 0;
}