From b1bf276e95d7a23c44b78d29fa8e7673f49cb173 Mon Sep 17 00:00:00 2001 From: Marc Huber Date: Sun, 8 Dec 2024 14:19:37 +0100 Subject: [PATCH] tac_plus-ng/perl/tactrace.pl: improve radius dictionary handling --- tac_plus-ng/perl/tactrace.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/tac_plus-ng/perl/tactrace.pl b/tac_plus-ng/perl/tactrace.pl index 6bca46d..c235f12 100755 --- a/tac_plus-ng/perl/tactrace.pl +++ b/tac_plus-ng/perl/tactrace.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl -X # # tactrace.pl # (C) 2022-2023 by Marc Huber @@ -200,8 +200,7 @@ sub read_defaults { av_list => [ { Name => 'Message-Authenticator', Value => '' }, { Name => 'User-Name', Value => $username}, -# { Name => 'User-Password', Value => $password }, - { Name => 'Password', Value => $password}, + { Name => $dictionary->attribute('Password') ? 'Password' : 'User-Password', Value => $password}, { Name => 'Calling-Station-Id', Value => "123.123.123.123"}, { Name => 'Framed-IP-Address', Value => "123.123.123.123"}, ],