From e66f45b122e9a65e4a88947d14f84cda3ff83a49 Mon Sep 17 00:00:00 2001 From: "Alan T. DeKok" Date: Wed, 24 Mar 2021 10:20:06 -0400 Subject: [PATCH] suppress more secrets --- src/modules/rlm_perl/rlm_perl.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c index ee13b671e1..d21db41432 100644 --- a/src/modules/rlm_perl/rlm_perl.c +++ b/src/modules/rlm_perl/rlm_perl.c @@ -765,7 +765,7 @@ static void perl_store_vps(UNUSED TALLOC_CTX *ctx, REQUEST *request, VALUE_PAIR static void pairadd_sv(TALLOC_CTX *ctx, REQUEST *request, VALUE_PAIR **vps, char *key, SV *sv, FR_TOKEN op, const char *hash_name, const char *list_name) { - char *val = NULL; + char const *val = NULL; VALUE_PAIR *vp; STRLEN len; @@ -796,6 +796,10 @@ static void pairadd_sv(TALLOC_CTX *ctx, REQUEST *request, VALUE_PAIR **vps, char if (fr_pair_value_from_str(vp, val, len) < 0) goto fail; } + if (vp->da->flags.secret && request->root->suppress_secrets && (rad_debug_lvl < 3)) { + val = "<<< secret >>>"; + } + RDEBUG("&%s:%s %s $%s{'%s'} -> '%s'", list_name, key, fr_int2str(fr_tokens, op, ""), hash_name, key, val); } -- 2.47.2