pair_print.c

Go to the documentation of this file.

/*
 *   This library is free software; you can redistribute it and/or
 *   modify it under the terms of the GNU Lesser General Public
 *   License as published by the Free Software Foundation; either
 *   version 2.1 of the License, or (at your option) any later version.
 *
 *   This library 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
 *   Lesser General Public License for more details.
 *
 *   You should have received a copy of the GNU Lesser General Public
 *   License along with this library; if not, write to the Free Software
 *   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 */
 
/*
 *      Groups are printed from the referenced attribute.
 *
 *      @todo - parent should _never_ be vp->da.
 */
#define fr_pair_reset_parent(parent) do { \
        if (parent && (parent->type == FR_TYPE_GROUP)) { \
                parent = fr_dict_attr_ref(parent); \
                if (parent->flags.is_root) parent = NULL; \
        } \
        if (parent && (parent == vp->da)) parent = NULL; \
  } while (0)
 
/** Pair serialisation API
 *
 * @file src/lib/util/pair_print.c
 *
 * @copyright 2020 The FreeRADIUS server project
 */
#include <freeradius-devel/util/pair.h>
#include <freeradius-devel/util/talloc.h>
#include <freeradius-devel/util/proto.h>
#include <freeradius-devel/util/pair_legacy.h>
 
/** Print the value of an attribute to a string
 *
 * @param[in] out       Where to write the string.
 * @param[in] vp        to print.
 * @param[in] quote     Char to add before and after printed value,
 *                      if 0 no char will be added, if < 0 raw string
 *                      will be added.
 * @return
 *      - >= 0 length of data written to out.
 *      - <0 the number of bytes we would have needed to write
 *        the complete string to out.
 */
ssize_t fr_pair_print_value_quoted(fr_sbuff_t *out, fr_pair_t const *vp, fr_token_t quote)
{
        fr_sbuff_t      our_out;
        ssize_t         slen;
 
        PAIR_VERIFY(vp);
 
        our_out = FR_SBUFF(out);
 
        switch (vp->vp_type) {
        /*
         *      For structural types descend down
         */
        case FR_TYPE_STRUCTURAL:
                if (fr_pair_list_empty(&vp->vp_group)) {
                        FR_SBUFF_IN_CHAR_RETURN(&our_out, '{', ' ', '}');
 
                } else {
                        FR_SBUFF_IN_CHAR_RETURN(&our_out, '{', ' ');
 
                        FR_SBUFF_RETURN(fr_pair_list_print, &our_out, vp->da, &vp->vp_group);
 
                        FR_SBUFF_IN_CHAR_RETURN(&our_out, ' ', '}');
                }
 
                FR_SBUFF_SET_RETURN(out, &our_out);
 
        /*
         *      For simple types just print the box
         */
        default:
                /*
                 *      If it's raw / unknown and not octets, print the cast before the type.
                 *
                 *      Otherwise on parsing, we don't know how to interpret the value. :(
                 */
                if ((vp->da->flags.is_raw || vp->da->flags.is_unknown) &&
                    (vp->vp_type != FR_TYPE_OCTETS)) {
                        FR_SBUFF_IN_SPRINTF_RETURN(&our_out, "(%s) ", fr_type_to_str(vp->vp_type));
                }
 
                slen = fr_value_box_print_quoted(&our_out, &vp->data, quote);
                if (slen <= 0) return slen;
        }
 
        FR_SBUFF_SET_RETURN(out, &our_out);
}
 
/** Print one attribute and value to a string
 *
 * Print a fr_pair_t in the format:
@verbatim
        <attribute_name> <op> <value>
@endverbatim
 * to a string.
 *
 * @param[in] out       Where to write the string.
 * @param[in] parent    If not NULL, only print OID components from
 *                      this parent to the VP.
 * @param[in] vp        to print.
 * @return
 *      - Length of data written to out.
 *      - value >= outlen on truncation.
 */
ssize_t fr_pair_print(fr_sbuff_t *out, fr_dict_attr_t const *parent, fr_pair_t const *vp)
{
        char const              *token = NULL;
        fr_sbuff_t              our_out = FR_SBUFF(out);
 
        PAIR_VERIFY(vp);
 
        /*
         *      Omit the union if we can.
         */
        if ((vp->vp_type == FR_TYPE_UNION) &&
            (fr_pair_list_num_elements(&vp->vp_group) == 1)) {
                parent = vp->da;
                vp = fr_pair_list_head(&vp->vp_group);
        }
 
        if ((vp->op > T_INVALID) && (vp->op < T_TOKEN_LAST)) {
                token = fr_tokens[vp->op];
        } else {
                token = "<INVALID-TOKEN>";
        }
 
        fr_pair_reset_parent(parent);
 
        if (vp->vp_raw) FR_SBUFF_IN_STRCPY_LITERAL_RETURN(&our_out, "raw.");
        FR_DICT_ATTR_OID_PRINT_RETURN(&our_out, parent, vp->da, false);
        FR_SBUFF_IN_CHAR_RETURN(&our_out, ' ');
        FR_SBUFF_IN_STRCPY_RETURN(&our_out, token);
        FR_SBUFF_IN_CHAR_RETURN(&our_out, ' ');
 
        if (fr_type_is_leaf(vp->vp_type) && vp->data.enumv && vp->data.enumv->flags.has_value) {
                char const *name;
 
                name = fr_dict_enum_name_by_value(vp->data.enumv, &vp->data);
                if (!name) goto no_enumv;
 
                FR_SBUFF_IN_CHAR_RETURN(&our_out, ':', ':');
                FR_SBUFF_IN_STRCPY_RETURN(&our_out, name);
 
        } else {
 
        no_enumv:
                FR_SBUFF_RETURN(fr_pair_print_value_quoted, &our_out, vp, T_DOUBLE_QUOTED_STRING);
        }
 
        FR_SBUFF_SET_RETURN(out, &our_out);
}
 
/** Print one attribute and value to a string with escape rules
 *
 *  Similar to fr_pair_print(), but secrets are omitted.  This function duplicates parts of the functionality
 *  of fr_pair_print(). fr_pair_print_value_quoted(), and fr_value_box_print_quoted(), but for the special
 *  case of secure strings.
 *
 *  Note that only secrets of type "string" and "octets" are omitted.  Other "secret" data types are still
 *  printed as-is.
 *
 *  "octets" are still printed as "<<< secret >>>".  Which won't parse correctly, but that's fine.  Because
 *  omitted data is not meant to be parsed into real data.
 *
 * @param[in] out       Where to write the string.
 * @param[in] parent    If not NULL, only print OID components from
 *                      this parent to the VP.
 * @param[in] vp        to print.
 
 * @return
 *      - < 0 on error
 *      - Length of data written to out.
 *      - value >= outlen on truncation.
 */
ssize_t fr_pair_print_secure(fr_sbuff_t *out, fr_dict_attr_t const *parent, fr_pair_t const *vp)
{
        char const              *token = NULL;
        fr_sbuff_t              our_out = FR_SBUFF(out);
 
        PAIR_VERIFY(vp);
 
        if ((vp->op > T_INVALID) && (vp->op < T_TOKEN_LAST)) {
                token = fr_tokens[vp->op];
        } else {
                token = "<INVALID-TOKEN>";
        }
 
        fr_pair_reset_parent(parent);
 
        if (vp->vp_raw) FR_SBUFF_IN_STRCPY_LITERAL_RETURN(&our_out, "raw.");
        FR_DICT_ATTR_OID_PRINT_RETURN(&our_out, parent, vp->da, false);
        FR_SBUFF_IN_CHAR_RETURN(&our_out, ' ');
        FR_SBUFF_IN_STRCPY_RETURN(&our_out, token);
        FR_SBUFF_IN_CHAR_RETURN(&our_out, ' ');
 
        if (fr_type_is_leaf(vp->vp_type)) {
                if (!vp->data.secret) {
                        FR_SBUFF_RETURN(fr_pair_print_value_quoted, &our_out, vp, T_DOUBLE_QUOTED_STRING);
 
                } else {
                        switch (vp->vp_type) {
                        case FR_TYPE_STRING:
                        case FR_TYPE_OCTETS:
                                FR_SBUFF_IN_STRCPY_LITERAL_RETURN(&our_out, "<<< secret >>>");
                                break;
 
                        default:
                                fr_assert(0); /* see dict_tokenize.c, which enforces parsing of "secret" in dictionaries */
                                FR_SBUFF_IN_STRCPY_LITERAL_RETURN(&our_out, "<<< secret >>>");
                                break;
                        }
                }
        } else {
                fr_pair_t *child;
                fr_dcursor_t cursor;
 
                fr_assert(fr_type_is_structural(vp->vp_type));
 
                FR_SBUFF_IN_CHAR_RETURN(&our_out, '{', ' ');
                for (child = fr_pair_dcursor_init(&cursor, &vp->vp_group);
                     child != NULL;
                     child = fr_dcursor_next(&cursor)) {
                        FR_SBUFF_RETURN(fr_pair_print_secure, &our_out, vp->da, child);
                        if (fr_dcursor_next_peek(&cursor)) FR_SBUFF_IN_CHAR_RETURN(&our_out, ',', ' ');
                }
                FR_SBUFF_IN_CHAR_RETURN(&our_out, ' ', '}');
        }
 
        FR_SBUFF_SET_RETURN(out, &our_out);
}
 
/** Print a pair list
 *
 * @param[in] out       Where to write the string.
 * @param[in] parent    parent da to start from
 * @param[in] list      pair list
 * @return
 *      - Length of data written to out.
 *      - value >= outlen on truncation.
 */
ssize_t fr_pair_list_print(fr_sbuff_t *out, fr_dict_attr_t const *parent, fr_pair_list_t const *list)
{
        fr_pair_t       *vp;
        fr_sbuff_t      our_out = FR_SBUFF(out);
 
        vp = fr_pair_list_head(list);
        if (!vp) {
                FR_SBUFF_IN_CHAR_RETURN(out, '\0');
                return fr_sbuff_used(out);
        }
 
        fr_pair_reset_parent(parent);
 
        while (true) {
                FR_SBUFF_RETURN(fr_pair_print, &our_out, parent, vp);
                vp = fr_pair_list_next(list, vp);
                if (!vp) break;
 
                FR_SBUFF_IN_STRCPY_LITERAL_RETURN(&our_out, ", ");
        }
 
        FR_SBUFF_SET_RETURN(out, &our_out);
}
 
static void fr_pair_list_log_sbuff(fr_log_t const *log, int lvl, fr_pair_t *parent, fr_pair_list_t const *list, char const *file, int line, fr_sbuff_t *sbuff)
{
        fr_dict_attr_t const *parent_da = NULL;
 
        fr_pair_list_foreach(list, vp) {
                PAIR_VERIFY_WITH_LIST(list, vp);
 
                fr_sbuff_set_to_start(sbuff);
 
                if (vp->vp_raw) (void) fr_sbuff_in_strcpy(sbuff, "raw.");
 
                if (parent && (parent->vp_type != FR_TYPE_GROUP)) parent_da = parent->da;
                if (fr_dict_attr_oid_print(sbuff, parent_da, vp->da, false) <= 0) return;
 
                /*
                 *      Recursively print grouped attributes.
                 */
                switch (vp->vp_type) {
                case FR_TYPE_STRUCTURAL:
                        fr_log(log, L_DBG, file, line, "%*s%*s {", lvl * 2, "",
                               (int) fr_sbuff_used(sbuff), fr_sbuff_start(sbuff));
                        _fr_pair_list_log(log, lvl + 1, vp, &vp->vp_group, file, line);
                        fr_log(log, L_DBG, file, line, "%*s}", lvl * 2, "");
                        break;
 
                default:
                        (void) fr_sbuff_in_strcpy(sbuff, " = ");
                        if (fr_value_box_print_quoted(sbuff, &vp->data, T_DOUBLE_QUOTED_STRING)< 0) break;
 
                        fr_log(log, L_DBG, file, line, "%*s%*s", lvl * 2, "",
                               (int) fr_sbuff_used(sbuff), fr_sbuff_start(sbuff));
                }
        }
}
 
 
/** Print a list of attributes and enumv
 *
 * @param[in] log       to output to.
 * @param[in] lvl       depth in structural attribute.
 * @param[in] parent    parent attribute
 * @param[in] list      to print.
 * @param[in] file      where the message originated
 * @param[in] line      where the message originated
 */
void _fr_pair_list_log(fr_log_t const *log, int lvl, fr_pair_t *parent, fr_pair_list_t const *list, char const *file, int line)
{
        fr_sbuff_t sbuff;
        char buffer[1024];
 
        fr_sbuff_init_out(&sbuff, buffer, sizeof(buffer));
 
        fr_pair_list_log_sbuff(log, lvl, parent, list, file, line, &sbuff);
}
 
static void fr_pair_list_debug_sbuff(FILE *fp, int lvl, fr_pair_t *parent, fr_pair_list_t const *list, fr_sbuff_t *sbuff)
{
        fr_dict_attr_t const *parent_da = NULL;
 
        fr_pair_list_foreach(list, vp) {
                PAIR_VERIFY_WITH_LIST(list, vp);
 
                fr_sbuff_set_to_start(sbuff);
 
                if (vp->vp_raw) (void) fr_sbuff_in_strcpy(sbuff, "raw.");
 
                if (parent && (parent->vp_type != FR_TYPE_GROUP)) parent_da = parent->da;
                if (fr_dict_attr_oid_print(sbuff, parent_da, vp->da, false) <= 0) return;
 
                /*
                 *      Recursively print grouped attributes.
                 */
                switch (vp->vp_type) {
                case FR_TYPE_STRUCTURAL:
                        fprintf(fp, "%*s%*s {\n", lvl * 2, "", (int) fr_sbuff_used(sbuff), fr_sbuff_start(sbuff));
                        _fr_pair_list_debug(fp, lvl + 1, vp, &vp->vp_group);
                        fprintf(fp, "%*s}\n", lvl * 2, "");
                        break;
 
                default:
                        (void) fr_sbuff_in_strcpy(sbuff, " = ");
                        if (fr_value_box_print_quoted(sbuff, &vp->data, T_DOUBLE_QUOTED_STRING)< 0) break;
 
                        fprintf(fp, "%*s%*s\n", lvl * 2, "", (int) fr_sbuff_used(sbuff), fr_sbuff_start(sbuff));
                }
        }
}
 
/** Print a list of attributes and enumv
 *
 * @param[in] fp        to output to.
 * @param[in] lvl       depth in structural attribute.
 * @param[in] parent    parent attribute
 * @param[in] list      to print.
 */
void _fr_pair_list_debug(FILE *fp, int lvl, fr_pair_t *parent, fr_pair_list_t const *list)
{
        fr_sbuff_t sbuff;
        char buffer[1024];
 
        fr_sbuff_init_out(&sbuff, buffer, sizeof(buffer));
 
        fr_pair_list_debug_sbuff(fp, lvl, parent, list, &sbuff);
}
 
/** Dumps a list to the default logging destination - Useful for calling from debuggers
 *
 */
void fr_pair_list_debug(FILE *fp, fr_pair_list_t const *list)
{
        _fr_pair_list_debug(fp, 0, NULL, list);
}
 
 
/** Dumps a pair to the default logging destination - Useful for calling from debuggers
 *
 */
void fr_pair_debug(FILE *fp, fr_pair_t const *pair)
{
        fr_sbuff_t sbuff;
        char buffer[1024];
 
        fr_sbuff_init_out(&sbuff, buffer, sizeof(buffer));
 
        (void) fr_pair_print(&sbuff, NULL, pair);
 
        fprintf(fp, "%pV\n", fr_box_strvalue_len(fr_sbuff_start(&sbuff), fr_sbuff_used(&sbuff)));
}