2 * Copyright (c) 1997 - 2004 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Portions Copyright (c) 2009 Apple Inc. All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
19 * 3. Neither the name of the Institute nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 #include "krb5_locl.h"
39 #include <CoreFoundation/CoreFoundation.h>
42 /* Gaah! I want a portable funopen */
49 config_fgets(char *str
, size_t len
, struct fileptr
*ptr
)
51 /* XXX this is not correct, in that they don't do the same if the
52 line is longer than len */
54 return fgets(str
, len
, ptr
->f
);
56 /* this is almost strsep_copy */
61 p
= ptr
->s
+ strcspn(ptr
->s
, "\n");
64 l
= min(len
, (size_t)(p
- ptr
->s
));
66 memcpy(str
, ptr
->s
, l
);
74 static krb5_error_code
parse_section(char *p
, krb5_config_section
**s
,
75 krb5_config_section
**res
,
76 const char **err_message
);
77 static krb5_error_code
parse_binding(struct fileptr
*f
, unsigned *lineno
, char *p
,
78 krb5_config_binding
**b
,
79 krb5_config_binding
**parent
,
80 const char **err_message
);
81 static krb5_error_code
parse_list(struct fileptr
*f
, unsigned *lineno
,
82 krb5_config_binding
**parent
,
83 const char **err_message
);
86 _krb5_config_get_entry(krb5_config_section
**parent
, const char *name
, int type
)
88 krb5_config_section
**q
;
90 for(q
= parent
; *q
!= NULL
; q
= &(*q
)->next
)
91 if(type
== krb5_config_list
&&
92 (unsigned)type
== (*q
)->type
&&
93 strcmp(name
, (*q
)->name
) == 0)
95 *q
= calloc(1, sizeof(**q
));
98 (*q
)->name
= strdup(name
);
100 if((*q
)->name
== NULL
) {
118 * starting at the line in `p', storing the resulting structure in
119 * `s' and hooking it into `parent'.
120 * Store the error message in `err_message'.
123 static krb5_error_code
124 parse_section(char *p
, krb5_config_section
**s
, krb5_config_section
**parent
,
125 const char **err_message
)
128 krb5_config_section
*tmp
;
130 p1
= strchr (p
+ 1, ']');
132 *err_message
= "missing ]";
133 return KRB5_CONFIG_BADFORMAT
;
136 tmp
= _krb5_config_get_entry(parent
, p
+ 1, krb5_config_list
);
138 *err_message
= "out of memory";
139 return KRB5_CONFIG_BADFORMAT
;
146 * Parse a brace-enclosed list from `f', hooking in the structure at
148 * Store the error message in `err_message'.
151 static krb5_error_code
152 parse_list(struct fileptr
*f
, unsigned *lineno
, krb5_config_binding
**parent
,
153 const char **err_message
)
155 char buf
[KRB5_BUFSIZ
];
157 krb5_config_binding
*b
= NULL
;
158 unsigned beg_lineno
= *lineno
;
160 while(config_fgets(buf
, sizeof(buf
), f
) != NULL
) {
164 buf
[strcspn(buf
, "\r\n")] = '\0';
166 while(isspace((unsigned char)*p
))
168 if (*p
== '#' || *p
== ';' || *p
== '\0')
170 while(isspace((unsigned char)*p
))
176 ret
= parse_binding (f
, lineno
, p
, &b
, parent
, err_message
);
180 *lineno
= beg_lineno
;
181 *err_message
= "unclosed {";
182 return KRB5_CONFIG_BADFORMAT
;
189 static krb5_error_code
190 parse_binding(struct fileptr
*f
, unsigned *lineno
, char *p
,
191 krb5_config_binding
**b
, krb5_config_binding
**parent
,
192 const char **err_message
)
194 krb5_config_binding
*tmp
;
196 krb5_error_code ret
= 0;
199 while (*p
&& *p
!= '=' && !isspace((unsigned char)*p
))
202 *err_message
= "missing =";
203 return KRB5_CONFIG_BADFORMAT
;
206 while (isspace((unsigned char)*p
))
209 *err_message
= "missing =";
210 return KRB5_CONFIG_BADFORMAT
;
213 while(isspace((unsigned char)*p
))
217 tmp
= _krb5_config_get_entry(parent
, p1
, krb5_config_list
);
219 *err_message
= "out of memory";
220 return KRB5_CONFIG_BADFORMAT
;
222 ret
= parse_list (f
, lineno
, &tmp
->u
.list
, err_message
);
224 tmp
= _krb5_config_get_entry(parent
, p1
, krb5_config_string
);
226 *err_message
= "out of memory";
227 return KRB5_CONFIG_BADFORMAT
;
231 while(p
> p1
&& isspace((unsigned char)*(p
-1)))
234 tmp
->u
.string
= strdup(p1
);
240 #if defined(__APPLE__)
242 #if MAC_OS_X_VERSION_MIN_REQUIRED >= 1060
243 #define HAVE_CFPROPERTYLISTCREATEWITHSTREAM 1
247 cfstring2cstring(CFStringRef string
)
252 str
= (char *) CFStringGetCStringPtr(string
, kCFStringEncodingUTF8
);
256 len
= CFStringGetLength(string
);
257 len
= 1 + CFStringGetMaximumSizeForEncoding(len
, kCFStringEncodingUTF8
);
262 if (!CFStringGetCString (string
, str
, len
, kCFStringEncodingUTF8
)) {
270 convert_content(const void *key
, const void *value
, void *context
)
272 krb5_config_section
*tmp
, **parent
= context
;
275 if (CFGetTypeID(key
) != CFStringGetTypeID())
278 k
= cfstring2cstring(key
);
282 if (CFGetTypeID(value
) == CFStringGetTypeID()) {
283 tmp
= _krb5_config_get_entry(parent
, k
, krb5_config_string
);
284 tmp
->u
.string
= cfstring2cstring(value
);
285 } else if (CFGetTypeID(value
) == CFDictionaryGetTypeID()) {
286 tmp
= _krb5_config_get_entry(parent
, k
, krb5_config_list
);
287 CFDictionaryApplyFunction(value
, convert_content
, &tmp
->u
.list
);
294 static krb5_error_code
295 parse_plist_config(krb5_context context
, const char *path
, krb5_config_section
**parent
)
301 url
= CFURLCreateFromFileSystemRepresentation(kCFAllocatorDefault
, (UInt8
*)path
, strlen(path
), FALSE
);
303 krb5_clear_error_message(context
);
307 s
= CFReadStreamCreateWithFile(kCFAllocatorDefault
, url
);
310 krb5_clear_error_message(context
);
314 if (!CFReadStreamOpen(s
)) {
316 krb5_clear_error_message(context
);
320 #ifdef HAVE_CFPROPERTYLISTCREATEWITHSTREAM
321 d
= (CFDictionaryRef
)CFPropertyListCreateWithStream(NULL
, s
, 0, kCFPropertyListImmutable
, NULL
, NULL
);
323 d
= (CFDictionaryRef
)CFPropertyListCreateFromStream(NULL
, s
, 0, kCFPropertyListImmutable
, NULL
, NULL
);
327 krb5_clear_error_message(context
);
331 CFDictionaryApplyFunction(d
, convert_content
, parent
);
341 * Parse the config file `fname', generating the structures into `res'
342 * returning error messages in `err_message'
345 static krb5_error_code
346 krb5_config_parse_debug (struct fileptr
*f
,
347 krb5_config_section
**res
,
349 const char **err_message
)
351 krb5_config_section
*s
= NULL
;
352 krb5_config_binding
*b
= NULL
;
353 char buf
[KRB5_BUFSIZ
];
356 while (config_fgets(buf
, sizeof(buf
), f
) != NULL
) {
360 buf
[strcspn(buf
, "\r\n")] = '\0';
362 while(isspace((unsigned char)*p
))
364 if (*p
== '#' || *p
== ';')
367 ret
= parse_section(p
, &s
, res
, err_message
);
371 } else if (*p
== '}') {
372 *err_message
= "unmatched }";
373 return EINVAL
; /* XXX */
374 } else if(*p
!= '\0') {
376 *err_message
= "binding before section";
379 ret
= parse_binding(f
, lineno
, p
, &b
, &s
->u
.list
, err_message
);
388 is_plist_file(const char *fname
)
390 size_t len
= strlen(fname
);
391 char suffix
[] = ".plist";
392 if (len
< sizeof(suffix
))
394 if (strcasecmp(&fname
[len
- (sizeof(suffix
) - 1)], suffix
) != 0)
400 * Parse a configuration file and add the result into res. This
401 * interface can be used to parse several configuration files into one
402 * resulting krb5_config_section by calling it repeatably.
404 * @param context a Kerberos 5 context.
405 * @param fname a file name to a Kerberos configuration file
406 * @param res the returned result, must be free with krb5_free_config_files().
407 * @return Return an error code or 0, see krb5_get_error_message().
409 * @ingroup krb5_support
412 KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
413 krb5_config_parse_file_multi (krb5_context context
,
415 krb5_config_section
**res
)
418 char *newfname
= NULL
;
424 * If the fname starts with "~/" parse configuration file in the
425 * current users home directory. The behavior can be disabled and
426 * enabled by calling krb5_set_home_dir_access().
428 if (fname
[0] == '~' && fname
[1] == '/') {
429 #ifndef KRB5_USE_PATH_TOKENS
430 const char *home
= NULL
;
432 if (!_krb5_homedir_access(context
)) {
433 krb5_set_error_message(context
, EPERM
,
434 "Access to home directory not allowed");
439 home
= getenv("HOME");
442 struct passwd
*pw
= getpwuid(getuid());
447 asprintf(&newfname
, "%s%s", home
, &fname
[1]);
448 if (newfname
== NULL
) {
449 krb5_set_error_message(context
, ENOMEM
,
450 N_("malloc: out of memory", ""));
455 #else /* KRB5_USE_PATH_TOKENS */
456 if (asprintf(&newfname
, "%%{USERCONFIG}%s", &fname
[1]) < 0 ||
459 krb5_set_error_message(context
, ENOMEM
,
460 N_("malloc: out of memory", ""));
467 if (is_plist_file(fname
)) {
469 ret
= parse_plist_config(context
, fname
, res
);
471 krb5_set_error_message(context
, ret
,
472 "Failed to parse plist %s", fname
);
478 krb5_set_error_message(context
, ENOENT
,
479 "no support for plist configuration files");
483 #ifdef KRB5_USE_PATH_TOKENS
484 char * exp_fname
= NULL
;
486 ret
= _krb5_expand_path_tokens(context
, fname
, &exp_fname
);
495 fname
= newfname
= exp_fname
;
498 f
.f
= fopen(fname
, "r");
502 krb5_set_error_message (context
, ret
, "open %s: %s",
503 fname
, strerror(ret
));
509 ret
= krb5_config_parse_debug (&f
, res
, &lineno
, &str
);
512 krb5_set_error_message (context
, ret
, "%s:%u: %s",
522 KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
523 krb5_config_parse_file (krb5_context context
,
525 krb5_config_section
**res
)
528 return krb5_config_parse_file_multi(context
, fname
, res
);
532 free_binding (krb5_context context
, krb5_config_binding
*b
)
534 krb5_config_binding
*next_b
;
538 if (b
->type
== krb5_config_string
)
540 else if (b
->type
== krb5_config_list
)
541 free_binding (context
, b
->u
.list
);
543 krb5_abortx(context
, "unknown binding type (%d) in free_binding",
552 * Free configuration file section, the result of
553 * krb5_config_parse_file() and krb5_config_parse_file_multi().
555 * @param context A Kerberos 5 context
556 * @param s the configuration section to free
558 * @return returns 0 on successes, otherwise an error code, see
559 * krb5_get_error_message()
561 * @ingroup krb5_support
564 KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
565 krb5_config_file_free (krb5_context context
, krb5_config_section
*s
)
567 free_binding (context
, s
);
571 #ifndef HEIMDAL_SMALLER
573 KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
574 _krb5_config_copy(krb5_context context
,
575 krb5_config_section
*c
,
576 krb5_config_section
**head
)
578 krb5_config_binding
*d
, *previous
= NULL
;
583 d
= calloc(1, sizeof(*d
));
588 d
->name
= strdup(c
->name
);
590 if (d
->type
== krb5_config_string
)
591 d
->u
.string
= strdup(c
->u
.string
);
592 else if (d
->type
== krb5_config_list
)
593 _krb5_config_copy (context
, c
->u
.list
, &d
->u
.list
);
596 "unknown binding type (%d) in krb5_config_copy",
607 #endif /* HEIMDAL_SMALLER */
609 KRB5_LIB_FUNCTION
const void * KRB5_LIB_CALL
610 _krb5_config_get_next (krb5_context context
,
611 const krb5_config_section
*c
,
612 const krb5_config_binding
**pointer
,
619 va_start(args
, type
);
620 ret
= _krb5_config_vget_next (context
, c
, pointer
, type
, args
);
626 vget_next(krb5_context context
,
627 const krb5_config_binding
*b
,
628 const krb5_config_binding
**pointer
,
633 const char *p
= va_arg(args
, const char *);
635 if(strcmp(b
->name
, name
) == 0) {
636 if(b
->type
== (unsigned)type
&& p
== NULL
) {
639 } else if(b
->type
== krb5_config_list
&& p
!= NULL
) {
640 return vget_next(context
, b
->u
.list
, pointer
, type
, p
, args
);
648 KRB5_LIB_FUNCTION
const void * KRB5_LIB_CALL
649 _krb5_config_vget_next (krb5_context context
,
650 const krb5_config_section
*c
,
651 const krb5_config_binding
**pointer
,
655 const krb5_config_binding
*b
;
664 if (*pointer
== NULL
) {
665 /* first time here, walk down the tree looking for the right
667 p
= va_arg(args
, const char *);
670 return vget_next(context
, c
, pointer
, type
, p
, args
);
673 /* we were called again, so just look for more entries with the
674 same name and type */
675 for (b
= (*pointer
)->next
; b
!= NULL
; b
= b
->next
) {
676 if(strcmp(b
->name
, (*pointer
)->name
) == 0 && b
->type
== (unsigned)type
) {
684 KRB5_LIB_FUNCTION
const void * KRB5_LIB_CALL
685 _krb5_config_get (krb5_context context
,
686 const krb5_config_section
*c
,
693 va_start(args
, type
);
694 ret
= _krb5_config_vget (context
, c
, type
, args
);
701 _krb5_config_vget (krb5_context context
,
702 const krb5_config_section
*c
,
706 const krb5_config_binding
*foo
= NULL
;
708 return _krb5_config_vget_next (context
, c
, &foo
, type
, args
);
712 * Get a list of configuration binding list for more processing
714 * @param context A Kerberos 5 context.
715 * @param c a configuration section, or NULL to use the section from context
716 * @param ... a list of names, terminated with NULL.
718 * @return NULL if configuration list is not found, a list otherwise
720 * @ingroup krb5_support
723 KRB5_LIB_FUNCTION
const krb5_config_binding
* KRB5_LIB_CALL
724 krb5_config_get_list (krb5_context context
,
725 const krb5_config_section
*c
,
728 const krb5_config_binding
*ret
;
732 ret
= krb5_config_vget_list (context
, c
, args
);
738 * Get a list of configuration binding list for more processing
740 * @param context A Kerberos 5 context.
741 * @param c a configuration section, or NULL to use the section from context
742 * @param args a va_list of arguments
744 * @return NULL if configuration list is not found, a list otherwise
746 * @ingroup krb5_support
749 KRB5_LIB_FUNCTION
const krb5_config_binding
* KRB5_LIB_CALL
750 krb5_config_vget_list (krb5_context context
,
751 const krb5_config_section
*c
,
754 return _krb5_config_vget (context
, c
, krb5_config_list
, args
);
758 * Returns a "const char *" to a string in the configuration database.
759 * The string may not be valid after a reload of the configuration
760 * database so a caller should make a local copy if it needs to keep
763 * @param context A Kerberos 5 context.
764 * @param c a configuration section, or NULL to use the section from context
765 * @param ... a list of names, terminated with NULL.
767 * @return NULL if configuration string not found, a string otherwise
769 * @ingroup krb5_support
772 KRB5_LIB_FUNCTION
const char* KRB5_LIB_CALL
773 krb5_config_get_string (krb5_context context
,
774 const krb5_config_section
*c
,
781 ret
= krb5_config_vget_string (context
, c
, args
);
787 * Like krb5_config_get_string(), but uses a va_list instead of ...
789 * @param context A Kerberos 5 context.
790 * @param c a configuration section, or NULL to use the section from context
791 * @param args a va_list of arguments
793 * @return NULL if configuration string not found, a string otherwise
795 * @ingroup krb5_support
798 KRB5_LIB_FUNCTION
const char* KRB5_LIB_CALL
799 krb5_config_vget_string (krb5_context context
,
800 const krb5_config_section
*c
,
803 return _krb5_config_vget (context
, c
, krb5_config_string
, args
);
807 * Like krb5_config_vget_string(), but instead of returning NULL,
808 * instead return a default value.
810 * @param context A Kerberos 5 context.
811 * @param c a configuration section, or NULL to use the section from context
812 * @param def_value the default value to return if no configuration
813 * found in the database.
814 * @param args a va_list of arguments
816 * @return a configuration string
818 * @ingroup krb5_support
821 KRB5_LIB_FUNCTION
const char* KRB5_LIB_CALL
822 krb5_config_vget_string_default (krb5_context context
,
823 const krb5_config_section
*c
,
824 const char *def_value
,
829 ret
= krb5_config_vget_string (context
, c
, args
);
836 * Like krb5_config_get_string(), but instead of returning NULL,
837 * instead return a default value.
839 * @param context A Kerberos 5 context.
840 * @param c a configuration section, or NULL to use the section from context
841 * @param def_value the default value to return if no configuration
842 * found in the database.
843 * @param ... a list of names, terminated with NULL.
845 * @return a configuration string
847 * @ingroup krb5_support
850 KRB5_LIB_FUNCTION
const char* KRB5_LIB_CALL
851 krb5_config_get_string_default (krb5_context context
,
852 const krb5_config_section
*c
,
853 const char *def_value
,
859 va_start(args
, def_value
);
860 ret
= krb5_config_vget_string_default (context
, c
, def_value
, args
);
866 next_component_string(char * begin
, const char * delims
, char **state
)
877 while (*end
== '"') {
878 char * t
= strchr(end
+ 1, '"');
889 pos
= strcspn(end
, delims
);
896 if (*begin
== '"' && *(end
- 1) == '"' && begin
+ 1 < end
) {
897 begin
++; *(end
- 1) = '\0';
903 if (*begin
== '"' && *(end
- 1) == '"' && begin
+ 1 < end
) {
904 begin
++; *(end
- 1) = '\0';
910 * Get a list of configuration strings, free the result with
911 * krb5_config_free_strings().
913 * @param context A Kerberos 5 context.
914 * @param c a configuration section, or NULL to use the section from context
915 * @param args a va_list of arguments
917 * @return TRUE or FALSE
919 * @ingroup krb5_support
922 KRB5_LIB_FUNCTION
char ** KRB5_LIB_CALL
923 krb5_config_vget_strings(krb5_context context
,
924 const krb5_config_section
*c
,
927 char **strings
= NULL
;
929 const krb5_config_binding
*b
= NULL
;
932 while((p
= _krb5_config_vget_next(context
, c
, &b
,
933 krb5_config_string
, args
))) {
934 char *tmp
= strdup(p
);
939 s
= next_component_string(tmp
, " \t", &pos
);
941 char **tmp2
= realloc(strings
, (nstr
+ 1) * sizeof(*strings
));
945 strings
[nstr
] = strdup(s
);
947 if(strings
[nstr
-1] == NULL
)
949 s
= next_component_string(NULL
, " \t", &pos
);
954 char **tmp
= realloc(strings
, (nstr
+ 1) * sizeof(*strings
));
958 strings
[nstr
] = NULL
;
970 * Get a list of configuration strings, free the result with
971 * krb5_config_free_strings().
973 * @param context A Kerberos 5 context.
974 * @param c a configuration section, or NULL to use the section from context
975 * @param ... a list of names, terminated with NULL.
977 * @return TRUE or FALSE
979 * @ingroup krb5_support
982 KRB5_LIB_FUNCTION
char** KRB5_LIB_CALL
983 krb5_config_get_strings(krb5_context context
,
984 const krb5_config_section
*c
,
990 ret
= krb5_config_vget_strings(context
, c
, ap
);
996 * Free the resulting strings from krb5_config-get_strings() and
997 * krb5_config_vget_strings().
999 * @param strings strings to free
1001 * @ingroup krb5_support
1004 KRB5_LIB_FUNCTION
void KRB5_LIB_CALL
1005 krb5_config_free_strings(char **strings
)
1016 * Like krb5_config_get_bool_default() but with a va_list list of
1017 * configuration selection.
1019 * Configuration value to a boolean value, where yes/true and any
1020 * non-zero number means TRUE and other value is FALSE.
1022 * @param context A Kerberos 5 context.
1023 * @param c a configuration section, or NULL to use the section from context
1024 * @param def_value the default value to return if no configuration
1025 * found in the database.
1026 * @param args a va_list of arguments
1028 * @return TRUE or FALSE
1030 * @ingroup krb5_support
1033 KRB5_LIB_FUNCTION krb5_boolean KRB5_LIB_CALL
1034 krb5_config_vget_bool_default (krb5_context context
,
1035 const krb5_config_section
*c
,
1036 krb5_boolean def_value
,
1040 str
= krb5_config_vget_string (context
, c
, args
);
1043 if(strcasecmp(str
, "yes") == 0 ||
1044 strcasecmp(str
, "true") == 0 ||
1045 atoi(str
)) return TRUE
;
1050 * krb5_config_get_bool() will convert the configuration
1051 * option value to a boolean value, where yes/true and any non-zero
1052 * number means TRUE and other value is FALSE.
1054 * @param context A Kerberos 5 context.
1055 * @param c a configuration section, or NULL to use the section from context
1056 * @param args a va_list of arguments
1058 * @return TRUE or FALSE
1060 * @ingroup krb5_support
1063 KRB5_LIB_FUNCTION krb5_boolean KRB5_LIB_CALL
1064 krb5_config_vget_bool (krb5_context context
,
1065 const krb5_config_section
*c
,
1068 return krb5_config_vget_bool_default (context
, c
, FALSE
, args
);
1072 * krb5_config_get_bool_default() will convert the configuration
1073 * option value to a boolean value, where yes/true and any non-zero
1074 * number means TRUE and other value is FALSE.
1076 * @param context A Kerberos 5 context.
1077 * @param c a configuration section, or NULL to use the section from context
1078 * @param def_value the default value to return if no configuration
1079 * found in the database.
1080 * @param ... a list of names, terminated with NULL.
1082 * @return TRUE or FALSE
1084 * @ingroup krb5_support
1087 KRB5_LIB_FUNCTION krb5_boolean KRB5_LIB_CALL
1088 krb5_config_get_bool_default (krb5_context context
,
1089 const krb5_config_section
*c
,
1090 krb5_boolean def_value
,
1095 va_start(ap
, def_value
);
1096 ret
= krb5_config_vget_bool_default(context
, c
, def_value
, ap
);
1102 * Like krb5_config_get_bool() but with a va_list list of
1103 * configuration selection.
1105 * Configuration value to a boolean value, where yes/true and any
1106 * non-zero number means TRUE and other value is FALSE.
1108 * @param context A Kerberos 5 context.
1109 * @param c a configuration section, or NULL to use the section from context
1110 * @param ... a list of names, terminated with NULL.
1112 * @return TRUE or FALSE
1114 * @ingroup krb5_support
1117 KRB5_LIB_FUNCTION krb5_boolean KRB5_LIB_CALL
1118 krb5_config_get_bool (krb5_context context
,
1119 const krb5_config_section
*c
,
1125 ret
= krb5_config_vget_bool (context
, c
, ap
);
1131 * Get the time from the configuration file using a relative time.
1133 * Like krb5_config_get_time_default() but with a va_list list of
1134 * configuration selection.
1136 * @param context A Kerberos 5 context.
1137 * @param c a configuration section, or NULL to use the section from context
1138 * @param def_value the default value to return if no configuration
1139 * found in the database.
1140 * @param args a va_list of arguments
1142 * @return parsed the time (or def_value on parse error)
1144 * @ingroup krb5_support
1147 KRB5_LIB_FUNCTION
int KRB5_LIB_CALL
1148 krb5_config_vget_time_default (krb5_context context
,
1149 const krb5_config_section
*c
,
1156 str
= krb5_config_vget_string (context
, c
, args
);
1159 if (krb5_string_to_deltat(str
, &t
))
1165 * Get the time from the configuration file using a relative time, for example: 1h30s
1167 * @param context A Kerberos 5 context.
1168 * @param c a configuration section, or NULL to use the section from context
1169 * @param args a va_list of arguments
1171 * @return parsed the time or -1 on error
1173 * @ingroup krb5_support
1176 KRB5_LIB_FUNCTION
int KRB5_LIB_CALL
1177 krb5_config_vget_time (krb5_context context
,
1178 const krb5_config_section
*c
,
1181 return krb5_config_vget_time_default (context
, c
, -1, args
);
1185 * Get the time from the configuration file using a relative time, for example: 1h30s
1187 * @param context A Kerberos 5 context.
1188 * @param c a configuration section, or NULL to use the section from context
1189 * @param def_value the default value to return if no configuration
1190 * found in the database.
1191 * @param ... a list of names, terminated with NULL.
1193 * @return parsed the time (or def_value on parse error)
1195 * @ingroup krb5_support
1198 KRB5_LIB_FUNCTION
int KRB5_LIB_CALL
1199 krb5_config_get_time_default (krb5_context context
,
1200 const krb5_config_section
*c
,
1206 va_start(ap
, def_value
);
1207 ret
= krb5_config_vget_time_default(context
, c
, def_value
, ap
);
1213 * Get the time from the configuration file using a relative time, for example: 1h30s
1215 * @param context A Kerberos 5 context.
1216 * @param c a configuration section, or NULL to use the section from context
1217 * @param ... a list of names, terminated with NULL.
1219 * @return parsed the time or -1 on error
1221 * @ingroup krb5_support
1224 KRB5_LIB_FUNCTION
int KRB5_LIB_CALL
1225 krb5_config_get_time (krb5_context context
,
1226 const krb5_config_section
*c
,
1232 ret
= krb5_config_vget_time (context
, c
, ap
);
1238 KRB5_LIB_FUNCTION
int KRB5_LIB_CALL
1239 krb5_config_vget_int_default (krb5_context context
,
1240 const krb5_config_section
*c
,
1245 str
= krb5_config_vget_string (context
, c
, args
);
1251 l
= strtol(str
, &endptr
, 0);
1259 KRB5_LIB_FUNCTION
int KRB5_LIB_CALL
1260 krb5_config_vget_int (krb5_context context
,
1261 const krb5_config_section
*c
,
1264 return krb5_config_vget_int_default (context
, c
, -1, args
);
1267 KRB5_LIB_FUNCTION
int KRB5_LIB_CALL
1268 krb5_config_get_int_default (krb5_context context
,
1269 const krb5_config_section
*c
,
1275 va_start(ap
, def_value
);
1276 ret
= krb5_config_vget_int_default(context
, c
, def_value
, ap
);
1281 KRB5_LIB_FUNCTION
int KRB5_LIB_CALL
1282 krb5_config_get_int (krb5_context context
,
1283 const krb5_config_section
*c
,
1289 ret
= krb5_config_vget_int (context
, c
, ap
);
1295 #ifndef HEIMDAL_SMALLER
1298 * Deprecated: configuration files are not strings
1300 * @ingroup krb5_deprecated
1303 KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
1304 krb5_config_parse_string_multi(krb5_context context
,
1306 krb5_config_section
**res
)
1307 KRB5_DEPRECATED_FUNCTION("Use X instead")
1310 unsigned lineno
= 0;
1311 krb5_error_code ret
;
1316 ret
= krb5_config_parse_debug (&f
, res
, &lineno
, &str
);
1318 krb5_set_error_message (context
, ret
, "%s:%u: %s",
1319 "<constant>", lineno
, str
);