tac_plus-ng/perl/tactrace.pl: improve radius dictionary handling

MarcJHuber · Dec 8, 2024 · b1bf276 · b1bf276
1 parent 1a219b3
commit b1bf276
Showing 1 changed file with 2 additions and 3 deletions.
diff --git 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 <[email protected]>
@@ -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"},
 			],