Merge commit 'upstream/1.7.4'
[debian/sudo] / defaults.c
1 /*
2  * Copyright (c) 1999-2005, 2007-2008, 2010
3  *      Todd C. Miller <Todd.Miller@courtesan.com>
4  *
5  * Permission to use, copy, modify, and distribute this software for any
6  * purpose with or without fee is hereby granted, provided that the above
7  * copyright notice and this permission notice appear in all copies.
8  *
9  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
10  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
11  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
12  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
13  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
14  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
15  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
16  *
17  * Sponsored in part by the Defense Advanced Research Projects
18  * Agency (DARPA) and Air Force Research Laboratory, Air Force
19  * Materiel Command, USAF, under agreement number F39502-99-1-0512.
20  */
21
22 #include <config.h>
23
24 #include <sys/types.h>
25 #include <sys/param.h>
26 #include <stdio.h>
27 #ifdef STDC_HEADERS
28 # include <stdlib.h>
29 # include <stddef.h>
30 #else
31 # ifdef HAVE_STDLIB_H
32 #  include <stdlib.h>
33 # endif
34 #endif /* STDC_HEADERS */
35 #ifdef HAVE_STRING_H
36 # include <string.h>
37 #endif /* HAVE_STRING_H */
38 #ifdef HAVE_STRINGS_H
39 # include <strings.h>
40 #endif /* HAVE_STRINGS_H */
41 # ifdef HAVE_UNISTD_H
42 #include <unistd.h>
43 #endif /* HAVE_UNISTD_H */
44 #include <pwd.h>
45 #include <ctype.h>
46
47 #include "sudo.h"
48 #include "parse.h"
49 #include <gram.h>
50
51 /*
52  * For converting between syslog numbers and strings.
53  */
54 struct strmap {
55     char *name;
56     int num;
57 };
58
59 #ifdef LOG_NFACILITIES
60 static struct strmap facilities[] = {
61 #ifdef LOG_AUTHPRIV
62         { "authpriv",   LOG_AUTHPRIV },
63 #endif
64         { "auth",       LOG_AUTH },
65         { "daemon",     LOG_DAEMON },
66         { "user",       LOG_USER },
67         { "local0",     LOG_LOCAL0 },
68         { "local1",     LOG_LOCAL1 },
69         { "local2",     LOG_LOCAL2 },
70         { "local3",     LOG_LOCAL3 },
71         { "local4",     LOG_LOCAL4 },
72         { "local5",     LOG_LOCAL5 },
73         { "local6",     LOG_LOCAL6 },
74         { "local7",     LOG_LOCAL7 },
75         { NULL,         -1 }
76 };
77 #endif /* LOG_NFACILITIES */
78
79 static struct strmap priorities[] = {
80         { "alert",      LOG_ALERT },
81         { "crit",       LOG_CRIT },
82         { "debug",      LOG_DEBUG },
83         { "emerg",      LOG_EMERG },
84         { "err",        LOG_ERR },
85         { "info",       LOG_INFO },
86         { "notice",     LOG_NOTICE },
87         { "warning",    LOG_WARNING },
88         { NULL,         -1 }
89 };
90
91 /*
92  * Local prototypes.
93  */
94 static int store_int __P((char *, struct sudo_defs_types *, int));
95 static int store_list __P((char *, struct sudo_defs_types *, int));
96 static int store_mode __P((char *, struct sudo_defs_types *, int));
97 static int store_str __P((char *, struct sudo_defs_types *, int));
98 static int store_syslogfac __P((char *, struct sudo_defs_types *, int));
99 static int store_syslogpri __P((char *, struct sudo_defs_types *, int));
100 static int store_tuple __P((char *, struct sudo_defs_types *, int));
101 static int store_uint __P((char *, struct sudo_defs_types *, int));
102 static int store_float __P((char *, struct sudo_defs_types *, int));
103 static void list_op __P((char *, size_t, struct sudo_defs_types *, enum list_ops));
104 static const char *logfac2str __P((int));
105 static const char *logpri2str __P((int));
106
107 /*
108  * Table describing compile-time and run-time options.
109  */
110 #include <def_data.c>
111
112 /*
113  * Print version and configure info.
114  */
115 void
116 dump_defaults()
117 {
118     struct sudo_defs_types *cur;
119     struct list_member *item;
120     struct def_values *def;
121
122     for (cur = sudo_defs_table; cur->name; cur++) {
123         if (cur->desc) {
124             switch (cur->type & T_MASK) {
125                 case T_FLAG:
126                     if (cur->sd_un.flag)
127                         puts(cur->desc);
128                     break;
129                 case T_STR:
130                     if (cur->sd_un.str) {
131                         (void) printf(cur->desc, cur->sd_un.str);
132                         putchar('\n');
133                     }
134                     break;
135                 case T_LOGFAC:
136                     if (cur->sd_un.ival) {
137                         (void) printf(cur->desc, logfac2str(cur->sd_un.ival));
138                         putchar('\n');
139                     }
140                     break;
141                 case T_LOGPRI:
142                     if (cur->sd_un.ival) {
143                         (void) printf(cur->desc, logpri2str(cur->sd_un.ival));
144                         putchar('\n');
145                     }
146                     break;
147                 case T_UINT:
148                 case T_INT:
149                     (void) printf(cur->desc, cur->sd_un.ival);
150                     putchar('\n');
151                     break;
152                 case T_FLOAT:
153                     (void) printf(cur->desc, cur->sd_un.fval);
154                     putchar('\n');
155                     break;
156                 case T_MODE:
157                     (void) printf(cur->desc, cur->sd_un.mode);
158                     putchar('\n');
159                     break;
160                 case T_LIST:
161                     if (cur->sd_un.list) {
162                         puts(cur->desc);
163                         for (item = cur->sd_un.list; item; item = item->next)
164                             printf("\t%s\n", item->value);
165                     }
166                     break;
167                 case T_TUPLE:
168                     for (def = cur->values; def->sval; def++) {
169                         if (cur->sd_un.ival == def->ival) {
170                             (void) printf(cur->desc, def->sval);
171                             break;
172                         }
173                     }
174                     putchar('\n');
175                     break;
176             }
177         }
178     }
179 }
180
181 /*
182  * List each option along with its description.
183  */
184 void
185 list_options()
186 {
187     struct sudo_defs_types *cur;
188     char *p;
189
190     (void) puts("Available options in a sudoers ``Defaults'' line:\n");
191     for (cur = sudo_defs_table; cur->name; cur++) {
192         if (cur->name && cur->desc) {
193             switch (cur->type & T_MASK) {
194                 case T_FLAG:
195                     (void) printf("%s: %s\n", cur->name, cur->desc);
196                     break;
197                 default:
198                     p = strrchr(cur->desc, ':');
199                     if (p)
200                         (void) printf("%s: %.*s\n", cur->name,
201                             (int) (p - cur->desc), cur->desc);
202                     else
203                         (void) printf("%s: %s\n", cur->name, cur->desc);
204                     break;
205             }
206         }
207     }
208 }
209
210 /*
211  * Sets/clears an entry in the defaults structure
212  * If a variable that takes a value is used in a boolean
213  * context with op == 0, disable that variable.
214  * Eg. you may want to turn off logging to a file for some hosts.
215  * This is only meaningful for variables that are *optional*.
216  */
217 int
218 set_default(var, val, op)
219     char *var;
220     char *val;
221     int op;     /* TRUE or FALSE */
222 {
223     struct sudo_defs_types *cur;
224     int num;
225
226     for (cur = sudo_defs_table, num = 0; cur->name; cur++, num++) {
227         if (strcmp(var, cur->name) == 0)
228             break;
229     }
230     if (!cur->name) {
231         warningx("unknown defaults entry `%s'", var);
232         return(FALSE);
233     }
234
235     switch (cur->type & T_MASK) {
236         case T_LOGFAC:
237             if (!store_syslogfac(val, cur, op)) {
238                 if (val)
239                     warningx("value `%s' is invalid for option `%s'", val, var);
240                 else
241                     warningx("no value specified for `%s'", var);
242                 return(FALSE);
243             }
244             break;
245         case T_LOGPRI:
246             if (!store_syslogpri(val, cur, op)) {
247                 if (val)
248                     warningx("value `%s' is invalid for option `%s'", val, var);
249                 else
250                     warningx("no value specified for `%s'", var);
251                 return(FALSE);
252             }
253             break;
254         case T_STR:
255             if (!val) {
256                 /* Check for bogus boolean usage or lack of a value. */
257                 if (!ISSET(cur->type, T_BOOL) || op != FALSE) {
258                     warningx("no value specified for `%s'", var);
259                     return(FALSE);
260                 }
261             }
262             if (ISSET(cur->type, T_PATH) && val && *val != '/') {
263                 warningx("values for `%s' must start with a '/'", var);
264                 return(FALSE);
265             }
266             if (!store_str(val, cur, op)) {
267                 warningx("value `%s' is invalid for option `%s'", val, var);
268                 return(FALSE);
269             }
270             break;
271         case T_INT:
272             if (!val) {
273                 /* Check for bogus boolean usage or lack of a value. */
274                 if (!ISSET(cur->type, T_BOOL) || op != FALSE) {
275                     warningx("no value specified for `%s'", var);
276                     return(FALSE);
277                 }
278             }
279             if (!store_int(val, cur, op)) {
280                 warningx("value `%s' is invalid for option `%s'", val, var);
281                 return(FALSE);
282             }
283             break;
284         case T_UINT:
285             if (!val) {
286                 /* Check for bogus boolean usage or lack of a value. */
287                 if (!ISSET(cur->type, T_BOOL) || op != FALSE) {
288                     warningx("no value specified for `%s'", var);
289                     return(FALSE);
290                 }
291             }
292             if (!store_uint(val, cur, op)) {
293                 warningx("value `%s' is invalid for option `%s'", val, var);
294                 return(FALSE);
295             }
296             break;
297         case T_FLOAT:
298             if (!val) {
299                 /* Check for bogus boolean usage or lack of a value. */
300                 if (!ISSET(cur->type, T_BOOL) || op != FALSE) {
301                     warningx("no value specified for `%s'", var);
302                     return(FALSE);
303                 }
304             }
305             if (!store_float(val, cur, op)) {
306                 warningx("value `%s' is invalid for option `%s'", val, var);
307                 return(FALSE);
308             }
309             break;
310         case T_MODE:
311             if (!val) {
312                 /* Check for bogus boolean usage or lack of a value. */
313                 if (!ISSET(cur->type, T_BOOL) || op != FALSE) {
314                     warningx("no value specified for `%s'", var);
315                     return(FALSE);
316                 }
317             }
318             if (!store_mode(val, cur, op)) {
319                 warningx("value `%s' is invalid for option `%s'", val, var);
320                 return(FALSE);
321             }
322             break;
323         case T_FLAG:
324             if (val) {
325                 warningx("option `%s' does not take a value", var);
326                 return(FALSE);
327             }
328             cur->sd_un.flag = op;
329             break;
330         case T_LIST:
331             if (!val) {
332                 /* Check for bogus boolean usage or lack of a value. */
333                 if (!ISSET(cur->type, T_BOOL) || op != FALSE) {
334                     warningx("no value specified for `%s'", var);
335                     return(FALSE);
336                 }
337             }
338             if (!store_list(val, cur, op)) {
339                 warningx("value `%s' is invalid for option `%s'", val, var);
340                 return(FALSE);
341             }
342             break;
343         case T_TUPLE:
344             if (!val && !ISSET(cur->type, T_BOOL)) {
345                 warningx("no value specified for `%s'", var);
346                 return(FALSE);
347             }
348             if (!store_tuple(val, cur, op)) {
349                 warningx("value `%s' is invalid for option `%s'", val, var);
350                 return(FALSE);
351             }
352             break;
353     }
354
355     return(TRUE);
356 }
357
358 /*
359  * Set default options to compiled-in values.
360  * Any of these may be overridden at runtime by a "Defaults" file.
361  */
362 void
363 init_defaults()
364 {
365     static int firsttime = 1;
366     struct sudo_defs_types *def;
367
368     /* Clear any old settings. */
369     if (!firsttime) {
370         for (def = sudo_defs_table; def->name; def++) {
371             switch (def->type & T_MASK) {
372                 case T_STR:
373                     efree(def->sd_un.str);
374                     def->sd_un.str = NULL;
375                     break;
376                 case T_LIST:
377                     list_op(NULL, 0, def, freeall);
378                     break;
379             }
380             zero_bytes(&def->sd_un, sizeof(def->sd_un));
381         }
382     }
383
384     /* First initialize the flags. */
385 #ifdef LONG_OTP_PROMPT
386     def_long_otp_prompt = TRUE;
387 #endif
388 #ifdef IGNORE_DOT_PATH
389     def_ignore_dot = TRUE;
390 #endif
391 #ifdef ALWAYS_SEND_MAIL
392     def_mail_always = TRUE;
393 #endif
394 #ifdef SEND_MAIL_WHEN_NO_USER
395     def_mail_no_user = TRUE;
396 #endif
397 #ifdef SEND_MAIL_WHEN_NO_HOST
398     def_mail_no_host = TRUE;
399 #endif
400 #ifdef SEND_MAIL_WHEN_NOT_OK
401     def_mail_no_perms = TRUE;
402 #endif
403 #ifndef NO_TTY_TICKETS
404     def_tty_tickets = TRUE;
405 #endif
406 #ifndef NO_LECTURE
407     def_lecture = once;
408 #endif
409 #ifndef NO_AUTHENTICATION
410     def_authenticate = TRUE;
411 #endif
412 #ifndef NO_ROOT_SUDO
413     def_root_sudo = TRUE;
414 #endif
415 #ifdef HOST_IN_LOG
416     def_log_host = TRUE;
417 #endif
418 #ifdef SHELL_IF_NO_ARGS
419     def_shell_noargs = TRUE;
420 #endif
421 #ifdef SHELL_SETS_HOME
422     def_set_home = TRUE;
423 #endif
424 #ifndef DONT_LEAK_PATH_INFO
425     def_path_info = TRUE;
426 #endif
427 #ifdef FQDN
428     def_fqdn = TRUE;
429 #endif
430 #ifdef USE_INSULTS
431     def_insults = TRUE;
432 #endif
433 #ifdef ENV_EDITOR
434     def_env_editor = TRUE;
435 #endif
436 #ifdef _PATH_SUDO_ASKPASS
437     def_askpass = estrdup(_PATH_SUDO_ASKPASS);
438 #endif
439     def_sudoers_locale = estrdup("C");
440     def_env_reset = TRUE;
441     def_set_logname = TRUE;
442     def_closefrom = STDERR_FILENO + 1;
443
444     /* Syslog options need special care since they both strings and ints */
445 #if (LOGGING & SLOG_SYSLOG)
446     (void) store_syslogfac(LOGFAC, &sudo_defs_table[I_SYSLOG], TRUE);
447     (void) store_syslogpri(PRI_SUCCESS, &sudo_defs_table[I_SYSLOG_GOODPRI],
448         TRUE);
449     (void) store_syslogpri(PRI_FAILURE, &sudo_defs_table[I_SYSLOG_BADPRI],
450         TRUE);
451 #endif
452
453     /* Password flags also have a string and integer component. */
454     (void) store_tuple("any", &sudo_defs_table[I_LISTPW], TRUE);
455     (void) store_tuple("all", &sudo_defs_table[I_VERIFYPW], TRUE);
456
457     /* Then initialize the int-like things. */
458 #ifdef SUDO_UMASK
459     def_umask = SUDO_UMASK;
460 #else
461     def_umask = 0777;
462 #endif
463     def_loglinelen = MAXLOGFILELEN;
464     def_timestamp_timeout = TIMEOUT;
465     def_passwd_timeout = PASSWORD_TIMEOUT;
466     def_passwd_tries = TRIES_FOR_PASSWORD;
467 #ifdef HAVE_ZLIB_H
468     def_compress_io = TRUE;
469 #endif
470
471     /* Now do the strings */
472     def_mailto = estrdup(MAILTO);
473     def_mailsub = estrdup(MAILSUBJECT);
474     def_badpass_message = estrdup(INCORRECT_PASSWORD);
475     def_timestampdir = estrdup(_PATH_SUDO_TIMEDIR);
476     def_passprompt = estrdup(PASSPROMPT);
477     def_runas_default = estrdup(RUNAS_DEFAULT);
478 #ifdef _PATH_SUDO_SENDMAIL
479     def_mailerpath = estrdup(_PATH_SUDO_SENDMAIL);
480     def_mailerflags = estrdup("-t");
481 #endif
482 #if (LOGGING & SLOG_FILE)
483     def_logfile = estrdup(_PATH_SUDO_LOGFILE);
484 #endif
485 #ifdef EXEMPTGROUP
486     def_exempt_group = estrdup(EXEMPTGROUP);
487 #endif
488 #ifdef SECURE_PATH
489     def_secure_path = estrdup(SECURE_PATH);
490 #endif
491     def_editor = estrdup(EDITOR);
492 #ifdef _PATH_SUDO_NOEXEC
493     def_noexec_file = estrdup(_PATH_SUDO_NOEXEC);
494 #endif
495
496     /* Finally do the lists (currently just environment tables). */
497     init_envtables();
498
499     firsttime = 0;
500 }
501
502 /*
503  * Update the defaults based on what was set by sudoers.
504  * Pass in an OR'd list of which default types to update.
505  */
506 int
507 update_defaults(what)
508     int what;
509 {
510     struct defaults *def;
511     int rc = TRUE;
512
513     tq_foreach_fwd(&defaults, def) {
514         switch (def->type) {
515             case DEFAULTS:
516                 if (ISSET(what, SETDEF_GENERIC) &&
517                     !set_default(def->var, def->val, def->op))
518                     rc = FALSE;
519                 break;
520             case DEFAULTS_USER:
521                 if (ISSET(what, SETDEF_USER) &&
522                     userlist_matches(sudo_user.pw, &def->binding) == ALLOW &&
523                     !set_default(def->var, def->val, def->op))
524                     rc = FALSE;
525                 break;
526             case DEFAULTS_RUNAS:
527                 if (ISSET(what, SETDEF_RUNAS) &&
528                     runaslist_matches(&def->binding, NULL) == ALLOW &&
529                     !set_default(def->var, def->val, def->op))
530                     rc = FALSE;
531                 break;
532             case DEFAULTS_HOST:
533                 if (ISSET(what, SETDEF_HOST) &&
534                     hostlist_matches(&def->binding) == ALLOW &&
535                     !set_default(def->var, def->val, def->op))
536                     rc = FALSE;
537                 break;
538             case DEFAULTS_CMND:
539                 if (ISSET(what, SETDEF_CMND) &&
540                     cmndlist_matches(&def->binding) == ALLOW &&
541                     !set_default(def->var, def->val, def->op))
542                     rc = FALSE;
543                 break;
544         }
545     }
546     return(rc);
547 }
548
549 static int
550 store_int(val, def, op)
551     char *val;
552     struct sudo_defs_types *def;
553     int op;
554 {
555     char *endp;
556     long l;
557
558     if (op == FALSE) {
559         def->sd_un.ival = 0;
560     } else {
561         l = strtol(val, &endp, 10);
562         if (*endp != '\0')
563             return(FALSE);
564         /* XXX - should check against INT_MAX */
565         def->sd_un.ival = (int)l;
566     }
567     if (def->callback)
568         return(def->callback(val));
569     return(TRUE);
570 }
571
572 static int
573 store_uint(val, def, op)
574     char *val;
575     struct sudo_defs_types *def;
576     int op;
577 {
578     char *endp;
579     long l;
580
581     if (op == FALSE) {
582         def->sd_un.ival = 0;
583     } else {
584         l = strtol(val, &endp, 10);
585         if (*endp != '\0' || l < 0)
586             return(FALSE);
587         /* XXX - should check against INT_MAX */
588         def->sd_un.ival = (unsigned int)l;
589     }
590     if (def->callback)
591         return(def->callback(val));
592     return(TRUE);
593 }
594
595 static int
596 store_float(val, def, op)
597     char *val;
598     struct sudo_defs_types *def;
599     int op;
600 {
601     char *endp;
602     double d;
603
604     if (op == FALSE) {
605         def->sd_un.fval = 0.0;
606     } else {
607         d = strtod(val, &endp);
608         if (*endp != '\0')
609             return(FALSE);
610         /* XXX - should check against HUGE_VAL */
611         def->sd_un.fval = d;
612     }
613     if (def->callback)
614         return(def->callback(val));
615     return(TRUE);
616 }
617
618 static int
619 store_tuple(val, def, op)
620     char *val;
621     struct sudo_defs_types *def;
622     int op;
623 {
624     struct def_values *v;
625
626     /*
627      * Since enums are really just ints we store the value as an ival.
628      * In the future, there may be multiple enums for different tuple
629      * types we want to avoid and special knowledge of the tuple type.
630      * This does assume that the first entry in the tuple enum will
631      * be the equivalent to a boolean "false".
632      */
633     if (!val) {
634         def->sd_un.ival = (op == FALSE) ? 0 : 1;
635     } else {
636         for (v = def->values; v->sval != NULL; v++) {
637             if (strcmp(v->sval, val) == 0) {
638                 def->sd_un.ival = v->ival;
639                 break;
640             }
641         }
642         if (v->sval == NULL)
643             return(FALSE);
644     }
645     if (def->callback)
646         return(def->callback(val));
647     return(TRUE);
648 }
649
650 static int
651 store_str(val, def, op)
652     char *val;
653     struct sudo_defs_types *def;
654     int op;
655 {
656
657     efree(def->sd_un.str);
658     if (op == FALSE)
659         def->sd_un.str = NULL;
660     else
661         def->sd_un.str = estrdup(val);
662     if (def->callback)
663         return(def->callback(val));
664     return(TRUE);
665 }
666
667 static int
668 store_list(str, def, op)
669     char *str;
670     struct sudo_defs_types *def;
671     int op;
672 {
673     char *start, *end;
674
675     /* Remove all old members. */
676     if (op == FALSE || op == TRUE)
677         list_op(NULL, 0, def, freeall);
678
679     /* Split str into multiple space-separated words and act on each one. */
680     if (op != FALSE) {
681         end = str;
682         do {
683             /* Remove leading blanks, if nothing but blanks we are done. */
684             for (start = end; isblank(*start); start++)
685                 ;
686             if (*start == '\0')
687                 break;
688
689             /* Find end position and perform operation. */
690             for (end = start; *end && !isblank(*end); end++)
691                 ;
692             list_op(start, end - start, def, op == '-' ? delete : add);
693         } while (*end++ != '\0');
694     }
695     return(TRUE);
696 }
697
698 static int
699 store_syslogfac(val, def, op)
700     char *val;
701     struct sudo_defs_types *def;
702     int op;
703 {
704     struct strmap *fac;
705
706     if (op == FALSE) {
707         def->sd_un.ival = FALSE;
708         return(TRUE);
709     }
710 #ifdef LOG_NFACILITIES
711     if (!val)
712         return(FALSE);
713     for (fac = facilities; fac->name && strcmp(val, fac->name); fac++)
714         ;
715     if (fac->name == NULL)
716         return(FALSE);                          /* not found */
717
718     def->sd_un.ival = fac->num;
719 #else
720     def->sd_un.ival = -1;
721 #endif /* LOG_NFACILITIES */
722     return(TRUE);
723 }
724
725 static const char *
726 logfac2str(n)
727     int n;
728 {
729 #ifdef LOG_NFACILITIES
730     struct strmap *fac;
731
732     for (fac = facilities; fac->name && fac->num != n; fac++)
733         ;
734     return(fac->name);
735 #else
736     return("default");
737 #endif /* LOG_NFACILITIES */
738 }
739
740 static int
741 store_syslogpri(val, def, op)
742     char *val;
743     struct sudo_defs_types *def;
744     int op;
745 {
746     struct strmap *pri;
747
748     if (op == FALSE || !val)
749         return(FALSE);
750
751     for (pri = priorities; pri->name && strcmp(val, pri->name); pri++)
752         ;
753     if (pri->name == NULL)
754         return(FALSE);                          /* not found */
755
756     def->sd_un.ival = pri->num;
757     return(TRUE);
758 }
759
760 static const char *
761 logpri2str(n)
762     int n;
763 {
764     struct strmap *pri;
765
766     for (pri = priorities; pri->name && pri->num != n; pri++)
767         ;
768     return(pri->name);
769 }
770
771 static int
772 store_mode(val, def, op)
773     char *val;
774     struct sudo_defs_types *def;
775     int op;
776 {
777     char *endp;
778     long l;
779
780     if (op == FALSE) {
781         def->sd_un.mode = (mode_t)0777;
782     } else {
783         l = strtol(val, &endp, 8);
784         if (*endp != '\0' || l < 0 || l > 0777)
785             return(FALSE);
786         def->sd_un.mode = (mode_t)l;
787     }
788     if (def->callback)
789         return(def->callback(val));
790     return(TRUE);
791 }
792
793 static void
794 list_op(val, len, def, op)
795     char *val;
796     size_t len;
797     struct sudo_defs_types *def;
798     enum list_ops op;
799 {
800     struct list_member *cur, *prev, *tmp;
801
802     if (op == freeall) {
803         for (cur = def->sd_un.list; cur; ) {
804             tmp = cur;
805             cur = tmp->next;
806             efree(tmp->value);
807             efree(tmp);
808         }
809         def->sd_un.list = NULL;
810         return;
811     }
812
813     for (cur = def->sd_un.list, prev = NULL; cur; prev = cur, cur = cur->next) {
814         if ((strncmp(cur->value, val, len) == 0 && cur->value[len] == '\0')) {
815
816             if (op == add)
817                 return;                 /* already exists */
818
819             /* Delete node */
820             if (prev != NULL)
821                 prev->next = cur->next;
822             else
823                 def->sd_un.list = cur->next;
824             efree(cur->value);
825             efree(cur);
826             break;
827         }
828     }
829
830     /* Add new node to the head of the list. */
831     if (op == add) {
832         cur = emalloc(sizeof(struct list_member));
833         cur->value = emalloc(len + 1);
834         (void) memcpy(cur->value, val, len);
835         cur->value[len] = '\0';
836         cur->next = def->sd_un.list;
837         def->sd_un.list = cur;
838     }
839 }