1 /*        $NetBSD: mail_conf_long.c,v 1.2 2020/03/18 19:05:16 christos Exp $    */
2 
3 /*++
4 /* NAME
5 /*        mail_conf_long 3
6 /* SUMMARY
7 /*        long integer-valued configuration parameter support
8 /* SYNOPSIS
9 /*        #include <mail_conf.h>
10 /*
11 /*        int       get_mail_conf_long(name, defval, min, max);
12 /*        const char *name;
13 /*        long      defval;
14 /*        long      min;
15 /*        long      max;
16 /*
17 /*        int       get_mail_conf_long_fn(name, defval, min, max);
18 /*        const char *name;
19 /*        long      (*defval)(void);
20 /*        long      min;
21 /*        long      max;
22 /*
23 /*        void      set_mail_conf_long(name, value)
24 /*        const char *name;
25 /*        long      value;
26 /*
27 /*        void      get_mail_conf_long_table(table)
28 /*        const CONFIG_LONG_TABLE *table;
29 /*
30 /*        void      get_mail_conf_long_fn_table(table)
31 /*        const CONFIG_LONG_TABLE *table;
32 /* AUXILIARY FUNCTIONS
33 /*        int       get_mail_conf_long2(name1, name2, defval, min, max);
34 /*        const char *name1;
35 /*        const char *name2;
36 /*        long      defval;
37 /*        long      min;
38 /*        long      max;
39 /* DESCRIPTION
40 /*        This module implements configuration parameter support
41 /*        for long integer values.
42 /*
43 /*        get_mail_conf_long() looks up the named entry in the global
44 /*        configuration dictionary. The default value is returned
45 /*        when no value was found.
46 /*        \fImin\fR is zero or specifies a lower limit on the long
47 /*        integer value; \fImax\fR is zero or specifies an upper limit
48 /*        on the long integer value.
49 /*
50 /*        get_mail_conf_long_fn() is similar but specifies a function that
51 /*        provides the default value. The function is called only
52 /*        when the default value is needed.
53 /*
54 /*        set_mail_conf_long() updates the named entry in the global
55 /*        configuration dictionary. This has no effect on values that
56 /*        have been looked up earlier via the get_mail_conf_XXX() routines.
57 /*
58 /*        get_mail_conf_long_table() and get_mail_conf_long_fn_table() initialize
59 /*        lists of variables, as directed by their table arguments. A table
60 /*        must be terminated by a null entry.
61 /*
62 /*        get_mail_conf_long2() concatenates the two names and is otherwise
63 /*        identical to get_mail_conf_long().
64 /* DIAGNOSTICS
65 /*        Fatal errors: malformed numerical value.
66 /* SEE ALSO
67 /*        config(3) general configuration
68 /*        mail_conf_str(3) string-valued configuration parameters
69 /* LICENSE
70 /* .ad
71 /* .fi
72 /*        The Secure Mailer license must be distributed with this software.
73 /* AUTHOR(S)
74 /*        Wietse Venema
75 /*        IBM T.J. Watson Research
76 /*        P.O. Box 704
77 /*        Yorktown Heights, NY 10598, USA
78 /*
79 /*        Wietse Venema
80 /*        Google, Inc.
81 /*        111 8th Avenue
82 /*        New York, NY 10011, USA
83 /*--*/
84 
85 /* System library. */
86 
87 #include <sys_defs.h>
88 #include <stdlib.h>
89 #include <stdio.h>                      /* BUFSIZ */
90 #include <errno.h>
91 
92 /* Utility library. */
93 
94 #include <msg.h>
95 #include <mymalloc.h>
96 #include <dict.h>
97 #include <stringops.h>
98 
99 /* Global library. */
100 
101 #include "mail_conf.h"
102 
103 /* convert_mail_conf_long - look up and convert integer parameter value */
104 
convert_mail_conf_long(const char * name,long * longval)105 static int convert_mail_conf_long(const char *name, long *longval)
106 {
107     const char *strval;
108     char   *end;
109 
110     if ((strval = mail_conf_lookup_eval(name)) != 0) {
111           errno = 0;
112           *longval = strtol(strval, &end, 10);
113           if (*strval == 0 || *end != 0 || errno == ERANGE)
114               msg_fatal("bad numerical configuration: %s = %s", name, strval);
115           return (1);
116     }
117     return (0);
118 }
119 
120 /* check_mail_conf_long - validate integer value */
121 
check_mail_conf_long(const char * name,long longval,long min,long max)122 static void check_mail_conf_long(const char *name, long longval, long min, long max)
123 {
124     if (min && longval < min)
125           msg_fatal("invalid %s parameter value %ld < %ld", name, longval, min);
126     if (max && longval > max)
127           msg_fatal("invalid %s parameter value %ld > %ld", name, longval, max);
128 }
129 
130 /* get_mail_conf_long - evaluate integer-valued configuration variable */
131 
get_mail_conf_long(const char * name,long defval,long min,long max)132 long    get_mail_conf_long(const char *name, long defval, long min, long max)
133 {
134     long    longval;
135 
136     if (convert_mail_conf_long(name, &longval) == 0)
137           set_mail_conf_long(name, longval = defval);
138     check_mail_conf_long(name, longval, min, max);
139     return (longval);
140 }
141 
142 /* get_mail_conf_long2 - evaluate integer-valued configuration variable */
143 
get_mail_conf_long2(const char * name1,const char * name2,long defval,long min,long max)144 long    get_mail_conf_long2(const char *name1, const char *name2, long defval,
145                                           long min, long max)
146 {
147     long    longval;
148     char   *name;
149 
150     name = concatenate(name1, name2, (char *) 0);
151     if (convert_mail_conf_long(name, &longval) == 0)
152           set_mail_conf_long(name, longval = defval);
153     check_mail_conf_long(name, longval, min, max);
154     myfree(name);
155     return (longval);
156 }
157 
158 /* get_mail_conf_long_fn - evaluate integer-valued configuration variable */
159 
160 typedef long (*stupid_indent_long) (void);
161 
get_mail_conf_long_fn(const char * name,stupid_indent_long defval,long min,long max)162 long    get_mail_conf_long_fn(const char *name, stupid_indent_long defval,
163                                             long min, long max)
164 {
165     long    longval;
166 
167     if (convert_mail_conf_long(name, &longval) == 0)
168           set_mail_conf_long(name, longval = defval());
169     check_mail_conf_long(name, longval, min, max);
170     return (longval);
171 }
172 
173 /* set_mail_conf_long - update integer-valued configuration dictionary entry */
174 
set_mail_conf_long(const char * name,long value)175 void    set_mail_conf_long(const char *name, long value)
176 {
177     const char myname[] = "set_mail_conf_long";
178     char    buf[BUFSIZ];                /* yeah! crappy code! */
179 
180 #ifndef NO_SNPRINTF
181     ssize_t ret;
182 
183     ret = snprintf(buf, sizeof(buf), "%ld", value);
184     if (ret < 0)
185           msg_panic("%s: output error for %%ld", myname);
186     if (ret >= sizeof(buf))
187           msg_panic("%s: output for %%ld exceeds space %ld",
188                       myname, (long) sizeof(buf));
189 #else
190     sprintf(buf, "%ld", value);                             /* yeah! more crappy code! */
191 #endif
192     mail_conf_update(name, buf);
193 }
194 
195 /* get_mail_conf_long_table - look up table of integers */
196 
get_mail_conf_long_table(const CONFIG_LONG_TABLE * table)197 void    get_mail_conf_long_table(const CONFIG_LONG_TABLE *table)
198 {
199     while (table->name) {
200           table->target[0] = get_mail_conf_long(table->name, table->defval,
201                                                         table->min, table->max);
202           table++;
203     }
204 }
205 
206 /* get_mail_conf_long_fn_table - look up integers, defaults are functions */
207 
get_mail_conf_long_fn_table(const CONFIG_LONG_FN_TABLE * table)208 void    get_mail_conf_long_fn_table(const CONFIG_LONG_FN_TABLE *table)
209 {
210     while (table->name) {
211           table->target[0] = get_mail_conf_long_fn(table->name, table->defval,
212                                                              table->min, table->max);
213           table++;
214     }
215 }
216