rlm_dict.c

Go to the documentation of this file.

/*
 *   This program is is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or (at
 *   your option) any later version.
 *
 *   This program is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with this program; if not, write to the Free Software
 *   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 */
 
/**
 * $Id: 7837207b4bf6410ae4992f2daaab2c30e0f01797 $
 * @file rlm_dict.c
 * @brief Retrieve attributes from a dict.
 *
 * @copyright 2016 Arran Cudbard-Bell (a.cudbardb@freeradius.org)
 */
RCSID("$Id: 7837207b4bf6410ae4992f2daaab2c30e0f01797 $")
 
#include <freeradius-devel/server/base.h>
#include <freeradius-devel/server/module_rlm.h>
#include <freeradius-devel/server/log.h>
#include <freeradius-devel/util/debug.h>
#include <freeradius-devel/util/sbuff.h>
#include <freeradius-devel/util/value.h>
#include <freeradius-devel/unlang/xlat.h>
#include <freeradius-devel/unlang/xlat_func.h>
 
/** Return a VP from the specified request.
 *
 * @param out where to write the pointer to the resolved VP. Will be NULL if the attribute couldn't
 *      be resolved.
 * @param request current request.
 * @param name attribute name including qualifiers.
 * @return
 *      - -4 if either the attribute or qualifier were invalid.
 *      - The same error codes as #tmpl_find_vp for other error conditions.
 */
static int xlat_fmt_get_vp(fr_pair_t **out, request_t *request, char const *name)
{
        int ret;
        tmpl_t *vpt;
 
        *out = NULL;
 
        if (tmpl_afrom_attr_str(request, NULL, &vpt, name,
                                &(tmpl_rules_t){
                                        .attr = {
                                                .dict_def = request->proto_dict,
                                                .list_def = request_attr_request,
                                        }
                                }) <= 0) return -4;
 
        ret = tmpl_find_vp(out, request, vpt);
        talloc_free(vpt);
 
        return ret;
}
 
 
static xlat_arg_parser_t const xlat_dict_attr_by_num_args[] = {
        { .required = true, .single = true, .type = FR_TYPE_UINT32 },
        XLAT_ARG_PARSER_TERMINATOR
};
 
/** Xlat for %attr_by_num(<number>)
 *
 * @ingroup xlat_functions
 */
static xlat_action_t xlat_dict_attr_by_num(TALLOC_CTX *ctx, fr_dcursor_t *out,
                                           UNUSED xlat_ctx_t const *xctx,
                                           request_t *request, fr_value_box_list_t *in)
{
        fr_dict_attr_t const    *da;
        fr_value_box_t          *attr = fr_value_box_list_head(in);
        fr_value_box_t          *vb;
 
        da = fr_dict_attr_child_by_num(fr_dict_root(request->proto_dict), attr->vb_uint32);
        if (!da) {
                REDEBUG("No attribute found with number %pV", attr);
                return XLAT_ACTION_FAIL;
        }
 
        MEM(vb = fr_value_box_alloc_null(ctx));
 
        if (fr_value_box_bstrndup(vb, vb, NULL, da->name, strlen(da->name), false) < 0) {
                talloc_free(vb);
                return XLAT_ACTION_FAIL;
        }
 
        fr_dcursor_append(out, vb);
        return XLAT_ACTION_DONE;
}
 
static xlat_arg_parser_t const xlat_dict_attr_by_oid_args[] = {
        { .required = true, .single = true, .type = FR_TYPE_STRING },
        XLAT_ARG_PARSER_TERMINATOR
};
 
/** Xlat for %attr_by_oid(<oid>)
 *
 * @ingroup xlat_functions
 */
static xlat_action_t xlat_dict_attr_by_oid(TALLOC_CTX *ctx, fr_dcursor_t *out,
                                           UNUSED xlat_ctx_t const *xctx,
                                           request_t *request, fr_value_box_list_t *in)
{
        unsigned int            attr = 0;
        fr_dict_attr_t const    *parent = fr_dict_root(request->proto_dict);
        fr_dict_attr_t const    *da;
        ssize_t                 ret;
        fr_value_box_t          *attr_vb = fr_value_box_list_head(in);
        fr_value_box_t          *vb;
 
        ret = fr_dict_attr_by_oid_legacy(fr_dict_internal(), &parent, &attr, attr_vb->vb_strvalue);
        if (ret <= 0) {
                REMARKER(attr_vb->vb_strvalue, -(ret), "%s", fr_strerror());
                return XLAT_ACTION_FAIL;
        }
 
        da = fr_dict_attr_child_by_num(parent, attr);
        if (!da) {
                RDEBUG("Parent %s has no child %u", parent->name, attr);
                return XLAT_ACTION_FAIL;
        }
 
        MEM(vb = fr_value_box_alloc_null(ctx));
 
        if (fr_value_box_bstrndup(vb, vb, NULL, da->name, strlen(da->name), false) < 0) {
                talloc_free(vb);
                return XLAT_ACTION_FAIL;
        }
 
        fr_dcursor_append(out, vb);
        return XLAT_ACTION_DONE;
}
 
static xlat_arg_parser_t const xlat_vendor_args[] = {
        { .required = true, .single = true, .type = FR_TYPE_STRING },
        XLAT_ARG_PARSER_TERMINATOR
};
 
/** Return the vendor of an attribute reference
 *
 * @ingroup xlat_functions
 */
static xlat_action_t xlat_vendor(TALLOC_CTX *ctx, fr_dcursor_t *out,
                                 UNUSED xlat_ctx_t const *xctx,
                                 request_t *request, fr_value_box_list_t *in)
{
        fr_pair_t               *vp;
        fr_dict_vendor_t const  *vendor;
        fr_value_box_t          *attr = fr_value_box_list_head(in);
        fr_value_box_t          *vb;
 
        if ((xlat_fmt_get_vp(&vp, request, attr->vb_strvalue) < 0) || !vp) return XLAT_ACTION_FAIL;
 
        vendor = fr_dict_vendor_by_da(vp->da);
        if (!vendor) return XLAT_ACTION_FAIL;
 
        MEM(vb = fr_value_box_alloc_null(ctx));
 
        if (fr_value_box_bstrndup(vb, vb, NULL, vendor->name, strlen(vendor->name), false) < 0) {
                talloc_free(vb);
                return XLAT_ACTION_FAIL;
        }
 
        fr_dcursor_append(out, vb);
        return XLAT_ACTION_DONE;
}
 
static xlat_arg_parser_t const xlat_vendor_num_args[] = {
        { .required = true, .single = true, .type = FR_TYPE_STRING },
        XLAT_ARG_PARSER_TERMINATOR
};
 
/** Return the vendor number of an attribute reference
 *
 * @ingroup xlat_functions
 */
static xlat_action_t xlat_vendor_num(TALLOC_CTX *ctx, fr_dcursor_t *out,
                                     UNUSED xlat_ctx_t const *xctx,
                                     request_t *request, fr_value_box_list_t *in)
{
        fr_pair_t       *vp;
        fr_value_box_t  *attr = fr_value_box_list_head(in);
        fr_value_box_t  *vb;
 
        if ((xlat_fmt_get_vp(&vp, request, attr->vb_strvalue) < 0) || !vp) return XLAT_ACTION_FAIL;
 
        MEM(vb = fr_value_box_alloc_null(ctx));
        fr_value_box_uint32(vb, NULL, fr_dict_vendor_num_by_da(vp->da), false);
        fr_dcursor_append(out, vb);
        return XLAT_ACTION_DONE;
}
 
static xlat_arg_parser_t const xlat_attr_args[] = {
        { .required = true, .single = true, .type = FR_TYPE_STRING },
        XLAT_ARG_PARSER_TERMINATOR
};
 
/** Return the attribute name of an attribute reference
 *
 * @ingroup xlat_functions
 */
static xlat_action_t xlat_attr(TALLOC_CTX *ctx, fr_dcursor_t *out,
                               UNUSED xlat_ctx_t const *xctx,
                               request_t *request, fr_value_box_list_t *in)
{
        fr_pair_t       *vp;
        fr_value_box_t  *attr = fr_value_box_list_head(in);
        fr_value_box_t  *vb;
 
        if ((xlat_fmt_get_vp(&vp, request, attr->vb_strvalue) < 0) || !vp) return XLAT_ACTION_FAIL;
 
        MEM(vb = fr_value_box_alloc_null(ctx));
 
        if (fr_value_box_bstrndup(vb, vb, NULL, vp->da->name, strlen(vp->da->name), false) < 0) {
                talloc_free(vb);
                return XLAT_ACTION_FAIL;
        }
 
        fr_dcursor_append(out, vb);
        return XLAT_ACTION_DONE;
}
 
static xlat_arg_parser_t const xlat_attr_num_args[] = {
        { .required = true, .single = true, .type = FR_TYPE_STRING },
        XLAT_ARG_PARSER_TERMINATOR
};
 
/** Return the attribute number of an attribute reference
 *
 * @ingroup xlat_functions
 */
static xlat_action_t xlat_attr_num(TALLOC_CTX *ctx, fr_dcursor_t *out,
                                   UNUSED xlat_ctx_t const *xctx,
                                   request_t *request, fr_value_box_list_t *in)
{
        fr_pair_t       *vp;
        fr_value_box_t  *attr = fr_value_box_list_head(in);
        fr_value_box_t  *vb;
 
        if ((xlat_fmt_get_vp(&vp, request, attr->vb_strvalue) < 0) || !vp) return XLAT_ACTION_FAIL;
 
        MEM(vb = fr_value_box_alloc_null(ctx));
 
        fr_value_box_uint32(vb, NULL, vp->da->attr, false);
        fr_dcursor_append(out, vb);
        return XLAT_ACTION_DONE;
}
 
static xlat_arg_parser_t const xlat_attr_oid_args[] = {
        { .required = true, .single = true, .type = FR_TYPE_STRING },
        XLAT_ARG_PARSER_TERMINATOR
};
 
/** Return the attribute number of an attribute reference
 *
 * @ingroup xlat_functions
 */
static xlat_action_t xlat_attr_oid(TALLOC_CTX *ctx, fr_dcursor_t *out,
                                   UNUSED xlat_ctx_t const *xctx,
                                   request_t *request, fr_value_box_list_t *in)
{
        fr_pair_t       *vp;
        fr_value_box_t  *attr = fr_value_box_list_head(in);
        fr_value_box_t  *vb;
        fr_sbuff_t      *oid_buff;
 
        FR_SBUFF_TALLOC_THREAD_LOCAL(&oid_buff, 50, SIZE_MAX);
 
        if ((xlat_fmt_get_vp(&vp, request, attr->vb_strvalue) < 0) || !vp) return XLAT_ACTION_FAIL;
 
        MEM(vb = fr_value_box_alloc_null(ctx));
 
        /*
         *      Print to an extendable buffer, so we don't have to worry
         *      about the size of the OID.
         */
        if (fr_dict_attr_oid_print(oid_buff, NULL, vp->da, true) < 0) {
                RPEDEBUG("Printing OID for '%s' failed", vp->da->name);
                return XLAT_ACTION_FAIL;
        }
 
        fr_value_box_strdup(vb, vb, NULL, fr_sbuff_start(oid_buff), false);
        fr_dcursor_append(out, vb);
 
        return XLAT_ACTION_DONE;
}
 
/** Return the data type of an attribute reference
 *
 * @ingroup xlat_functions
 */
static xlat_action_t xlat_attr_type(TALLOC_CTX *ctx, fr_dcursor_t *out,
                                   UNUSED xlat_ctx_t const *xctx,
                                   request_t *request, fr_value_box_list_t *in)
{
        fr_pair_t       *vp;
        fr_value_box_t  *attr = fr_value_box_list_head(in);
        fr_value_box_t  *vb;
 
        if ((xlat_fmt_get_vp(&vp, request, attr->vb_strvalue) < 0) || !vp) return XLAT_ACTION_FAIL;
 
        MEM(vb = fr_value_box_alloc_null(ctx));
 
        fr_value_box_strdup(vb, vb, vp->da, fr_type_to_str(vp->vp_type), false);
        fr_dcursor_append(out, vb);
        return XLAT_ACTION_DONE;
}
 
#define XLAT_REGISTER(_name, _func, _type, _args) \
if (unlikely(!(xlat = xlat_func_register(NULL, _name, _func, _type)))) return -1; \
xlat_func_args_set(xlat, _args)
 
static int mod_load(void)
{
        xlat_t  *xlat;
 
        XLAT_REGISTER("dict.attr.by_num", xlat_dict_attr_by_num, FR_TYPE_STRING, xlat_dict_attr_by_num_args);
        XLAT_REGISTER("dict.attr.by_oid", xlat_dict_attr_by_oid, FR_TYPE_STRING, xlat_dict_attr_by_oid_args);
        XLAT_REGISTER("dict.vendor", xlat_vendor, FR_TYPE_STRING, xlat_vendor_args);
        XLAT_REGISTER("dict.vendor.num", xlat_vendor_num, FR_TYPE_UINT32, xlat_vendor_num_args);
        XLAT_REGISTER("dict.attr", xlat_attr, FR_TYPE_STRING, xlat_attr_args);
        XLAT_REGISTER("dict.attr.num", xlat_attr_num, FR_TYPE_UINT32, xlat_attr_num_args);
        XLAT_REGISTER("dict.attr.oid", xlat_attr_oid, FR_TYPE_STRING, xlat_attr_oid_args);
        XLAT_REGISTER("dict.attr.type", xlat_attr_type, FR_TYPE_STRING, xlat_attr_args);
        return 0;
}
 
static void mod_unload(void)
{
        xlat_func_unregister("dict.attr.by_num");
        xlat_func_unregister("dict.attr.by_oid");
        xlat_func_unregister("dict.vendor");
        xlat_func_unregister("dict.vendor.num");
        xlat_func_unregister("dict.attr");
        xlat_func_unregister("dict.attr.num");
        xlat_func_unregister("dict.attr.oid");
        xlat_func_unregister("dict.attr.type");
}
 
extern module_rlm_t rlm_dict;
module_rlm_t rlm_dict = {
        .common = {
                .magic          = MODULE_MAGIC_INIT,
                .name           = "dict",
                .onload         = mod_load,
                .unload         = mod_unload
        }
};