Skip to content
Snippets Groups Projects
Commit a84bc9c4 authored by Jon Robertson's avatar Jon Robertson
Browse files

Improved dump() attributes and added KRB5_KDB_PWCHANGE_SERVICE

Added an interface to return the KRB5_KDB_PWCHANGE_SERVICE constant
value.  This was already listed in the exportable functions, but wasn't
defined.  Also improved the dump printing of all attributes to give an
output more similar to the kadmin get command by converting the constant
name to the text descriptio as seen in get.
parent f114b6e0
No related branches found
No related tags found
No related merge requests found
...@@ -571,9 +571,15 @@ sub getAttributeNames ...@@ -571,9 +571,15 @@ sub getAttributeNames
'KRB5_KDB_SUPPORT_DESMD5', 'KRB5_KDB_SUPPORT_DESMD5',
); );
foreach my $test (@possible) { foreach my $test (@possible)
push (@attrs, $test) if $bitmask & &{"Heimdal::Kadm5::$test"}(); {
} if ($bitmask & &{"Heimdal::Kadm5::$test"}()) {
my $cleaned = lc ($test);
$cleaned =~ s#^krb5_kdb_##;
$cleaned =~ s#_#-#g;
push (@attrs, $cleaned);
}
}
return @attrs; return @attrs;
} }
......
...@@ -454,6 +454,12 @@ constant(char *name, int arg) ...@@ -454,6 +454,12 @@ constant(char *name, int arg)
goto not_there; goto not_there;
#endif #endif
if (strEQ(name, "KRB5_KDB_PWCHANGE_SERVICE"))
#ifdef KRB5_KDB_PWCHANGE_SERVICE
return KRB5_KDB_PWCHANGE_SERVICE;
#else
goto not_there;
#endif
if (strEQ(name, "KRB5_KDB_REQUIRES_HW_AUTH")) if (strEQ(name, "KRB5_KDB_REQUIRES_HW_AUTH"))
#ifdef KRB5_KDB_REQUIRES_HW_AUTH #ifdef KRB5_KDB_REQUIRES_HW_AUTH
return KRB5_KDB_REQUIRES_HW_AUTH; return KRB5_KDB_REQUIRES_HW_AUTH;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment