1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22 /*
23 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27
28 /*
29 * mkmap - program to convert the mail.aliases map into an
30 * inverse map of <user@host> back to <preferred-alias>
31 */
32
33 #pragma ident "%Z%%M% %I% %E% SMI"
34
35 #include <stdlib.h>
36 #include <unistd.h>
37 #include <string.h>
38 #include <fcntl.h>
39 #include <ndbm.h>
40 #include <stdio.h>
41 #include <ctype.h>
42 #include <netdb.h>
43 #include <sys/systeminfo.h>
44
45 #include "ypdefs.h"
46 USE_YP_PREFIX
47 USE_YP_MASTER_NAME
48 USE_YP_LAST_MODIFIED
49
50 #define MKAL_INCLUDE ":include:"
51
52 void CopyName(char *dst, char *src, int len);
53 int HostCheck(char *h, char *a);
54 void DoName(char *cp);
55 void UpperCase(char *cp);
56 void AddYPEntries(void);
57
58 int Verbose = 0; /* to get the gory details */
59 int UucpOK = 0; /* pass all UUCP names right through */
60 int DomainOK = 0; /* pass all Domain names (with dots) */
61 int ErrorCheck = 0; /* check carefully for errors */
62 int NoOutput = 0; /* no output, just do the check */
63 int Simple = 0; /* Do not do the user name preference step */
64 int NameMode = 0; /* Try to capitalize as names */
65
66 DBM *Indbm = NULL, *Scandbm = NULL, *Outdbm = NULL;
67
68 int
IsMailingList(char * s)69 IsMailingList(char *s)
70 {
71 /*
72 * returns true if the given string is a mailing list
73 */
74 char *p;
75
76 if (strchr(s, ','))
77 return (1);
78 if (strchr(s, '|'))
79 return (1);
80 p = strchr(s, ':');
81 if (p && strncmp(p, MKAL_INCLUDE, sizeof (MKAL_INCLUDE)))
82 return (1);
83 return (0);
84 }
85
86 int
IsQualified(char * s,char * p,char * h)87 IsQualified(char *s, char *p, char *h)
88 {
89 /*
90 * returns true if the given string is qualified with a host name
91 */
92 register char *middle;
93
94 middle = strchr(s, '@');
95 if (middle) {
96 for (middle = s; *middle != '@'; *p++ = *middle++)
97 continue;
98 *p = '\0';
99 CopyName(h, middle+1, strlen(middle + 1));
100 return (1);
101 }
102 middle = strrchr(s, '!');
103 if (middle) {
104 strcpy(p, middle+1);
105 *middle = '\0';
106 CopyName(h, s, strlen(s));
107 *middle = '!';
108 return (1);
109 }
110 return (0);
111 }
112
113 int
IsMaint(char * s)114 IsMaint(char *s)
115 {
116 /*
117 * returns true if the given string is one of the maintenence
118 * strings used in sendmail or NIS.
119 */
120 if (*s == '@')
121 return (1);
122 if (strncmp(s, yp_prefix, yp_prefix_sz) == 0)
123 return (1);
124 return (0);
125 }
126
127 void
CopyName(char * dst,char * src,int len)128 CopyName(char *dst, char *src, int len)
129 {
130 /*
131 * copy a string, but ignore white space
132 */
133 while (*src && len--) {
134 if (isspace(*src))
135 src++;
136 else
137 *dst++ = *src++;
138 }
139 *dst = '\0';
140 }
141
142 int
Compare(char * s1,char * s2)143 Compare(char *s1, char *s2)
144 {
145 /*
146 * compare strings, but ignore white space
147 */
148 while (*s1 != '\0' && isspace(*s1))
149 s1++;
150 while (*s2 != '\0' && isspace(*s2))
151 s2++;
152 return (strcmp(s1, s2));
153 }
154
155 void
ProcessMap(void)156 ProcessMap(void)
157 {
158 datum key, value, part, partvalue;
159 char address[PBLKSIZ]; /* qualified version */
160 char user[PBLKSIZ]; /* unqualified version */
161 char userpart[PBLKSIZ]; /* unqualified part of qualified addr. */
162 char hostpart[PBLKSIZ]; /* rest of qualified addr. */
163
164 for (key = dbm_firstkey(Scandbm); key.dptr != NULL;
165 key = dbm_nextkey(Scandbm)) {
166 value = dbm_fetch(Indbm, key);
167 CopyName(address, value.dptr, value.dsize);
168 CopyName(user, key.dptr, key.dsize);
169 if (address == NULL) continue;
170 if (IsMailingList(address)) continue;
171 if (!IsQualified(address, userpart, hostpart)) continue;
172 if (IsMaint(user)) continue;
173 if (ErrorCheck && HostCheck(hostpart, address)) {
174 printf("Invalid host %s in %s:%s\n",
175 hostpart, user, address);
176 continue;
177 }
178 part.dptr = userpart;
179 part.dsize = strlen(userpart) + 1;
180 if (Simple)
181 partvalue.dptr = NULL;
182 else
183 partvalue = dbm_fetch(Indbm, part);
184 value.dptr = address;
185 value.dsize = strlen(address) + 1;
186 if (partvalue.dptr != NULL &&
187 Compare(partvalue.dptr, user) == 0) {
188
189 if (NameMode)
190 DoName(userpart);
191 if (!NoOutput)
192 dbm_store(Outdbm, value, part, DBM_REPLACE);
193 if (Verbose) printf("%s --> %s --> %s\n",
194 userpart, user, address);
195 } else {
196 if (NameMode)
197 DoName(user);
198 key.dptr = user;
199 key.dsize = strlen(user) + 1;
200 if (!NoOutput)
201 dbm_store(Outdbm, value, key, DBM_REPLACE);
202 if (Verbose)
203 printf("%s --> %s\n", user, address);
204 }
205 }
206 }
207
208
209 /*
210 * Returns true if this is an invalid host
211 */
212 int
HostCheck(char * h,char * a)213 HostCheck(char *h, char *a)
214 {
215 struct hostent *hp;
216
217 if (DomainOK && strchr(a, '.'))
218 return (0);
219
220 if (UucpOK && strchr(a, '!'))
221 return (0);
222
223 hp = gethostbyname(h);
224 return (hp == NULL);
225 }
226
227 /*
228 * Apply some Heurisitcs to upper case-ify the name
229 * If it has a dot in it.
230 */
231 void
DoName(char * cp)232 DoName(char *cp)
233 {
234 if (strchr(cp, '.') == NULL)
235 return;
236
237 while (*cp) {
238 UpperCase(cp);
239 while (*cp && *cp != '-' && *cp != '.')
240 cp++;
241 if (*cp)
242 cp++; /* skip past punctuation */
243 }
244 }
245
246 /*
247 * upper cases one name - stops at a .
248 */
249 void
UpperCase(char * cp)250 UpperCase(char *cp)
251 {
252 int ch = cp[0];
253
254 if (isupper(ch))
255 ch = tolower(ch);
256
257 if (ch == 'f' && cp[1] == 'f')
258 return; /* handle ff */
259
260 if (ch == 'm' && cp[1] == 'c' && islower(cp[2]))
261 cp[2] = toupper(cp[2]);
262 if (islower(ch))
263 cp[0] = toupper(ch);
264 }
265
266 void
AddYPEntries(void)267 AddYPEntries(void)
268 {
269 datum key, value;
270 char last_modified[PBLKSIZ];
271 char host_name[PBLKSIZ];
272 time_t now;
273
274 /*
275 * Add the special NIS entries.
276 */
277 key.dptr = yp_last_modified;
278 key.dsize = yp_last_modified_sz;
279 time(&now);
280 sprintf(last_modified, "%10.10d", now);
281 value.dptr = last_modified;
282 value.dsize = strlen(value.dptr);
283 dbm_store(Outdbm, key, value, DBM_REPLACE);
284
285 key.dptr = yp_master_name;
286 key.dsize = yp_master_name_sz;
287 sysinfo(SI_HOSTNAME, host_name, sizeof (host_name));
288 value.dptr = host_name;
289 value.dsize = strlen(value.dptr);
290 dbm_store(Outdbm, key, value, DBM_REPLACE);
291 }
292
293 int
main(int argc,char * argv[])294 main(int argc, char *argv[])
295 {
296 while (argc > 1 && argv[1][0] == '-') {
297 switch (argv[1][1]) {
298 case 'v':
299 Verbose = 1;
300 break;
301
302 case 'u':
303 UucpOK = 1;
304 break;
305
306 case 'd':
307 DomainOK = 1;
308 break;
309
310 case 'e':
311 ErrorCheck = 1;
312 break;
313
314 case 's':
315 Simple = 1;
316 break;
317
318 case 'n':
319 NameMode = 1;
320 break;
321
322 default:
323 printf("Unknown option %c\n", argv[1][1]);
324 break;
325 }
326 argc--; argv++;
327 }
328 if (argc < 2) {
329 printf("Usage: mkalias [-e] [-v] [-u] [-d] [-s] [-n] <input> <output>\n");
330 exit(1);
331 }
332 Indbm = dbm_open(argv[1], O_RDONLY, 0);
333 if (Indbm == NULL) {
334 printf("Unable to open input database %s\n", argv[1]);
335 exit(1);
336 }
337 Scandbm = dbm_open(argv[1], O_RDONLY, 0);
338 if (Scandbm == NULL) {
339 printf("Unable to open input database %s\n", argv[1]);
340 exit(1);
341 }
342 if (argv[2] == NULL)
343 NoOutput = 1;
344 else {
345 Outdbm = dbm_open(argv[2], O_RDWR|O_CREAT|O_TRUNC, 0644);
346 if (Outdbm == NULL) {
347 printf("Unable to open output database %s\n", argv[2]);
348 exit(1);
349 }
350 }
351 ProcessMap();
352 dbm_close(Indbm);
353 dbm_close(Scandbm);
354 if (!NoOutput) {
355 AddYPEntries();
356 dbm_close(Outdbm);
357 }
358 return (0);
359 }
360