3 * mts.c -- definitions for the mail transport system
7 * This code is Copyright (c) 2002, by the authors of nmh. See the
8 * COPYRIGHT file in the root directory of the nmh distribution for
9 * complete copyright information.
12 #include <h/mh.h> /* for snprintf() */
15 #define nmhetcdir(file) NMHETCDIR#file
23 #ifdef HAVE_SYS_UTSNAME_H
24 # include <sys/utsname.h>
35 static char *tailor_value (char *);
36 static void getuserinfo (void);
39 * *mmdfldir and *uucpldir are the maildrop directories. If maildrops
40 * are kept in the user's home directory, then these should be empty
41 * strings. In this case, the appropriate ...lfil array should contain
42 * the name of the file in the user's home directory. Usually, this is
43 * something like ".mail".
47 * nmh mail transport interface customization file
49 static char *mtsconf = nmhetcdir(/mts.conf);
51 static char *localname = "";
52 static char *localdomain = "";
53 static char *systemname = "";
55 char *mmdfldir = MAILSPOOL;
57 char *uucpldir = "/usr/spool/mail";
60 char *mmdlm1 = "\001\001\001\001\n";
61 char *mmdlm2 = "\001\001\001\001\n";
63 /* Cache the username and fullname of the user */
64 static char username[BUFSIZ];
65 static char fullname[BUFSIZ];
67 /* Variables for username masquerading: */
68 boolean draft_from_masquerading = FALSE; /* also used from post.c */
69 static boolean mmailid_masquerading = FALSE;
70 boolean username_extension_masquerading = FALSE; /* " from addrsbr.c */
71 static char* masquerade = "";
74 * MTS specific variables
77 static char *sm_method = "smtp";
78 int sm_mts = MTS_SMTP;
79 char *hostable = nmhetcdir(/hosts);
80 char *sendmail = SENDMAILPATH;
86 char *clientname = NULL;
87 char *servers = "localhost \01localnet";
91 * BBoards-specific variables
97 * POP BBoards-specific variables
100 char *popbbhost = "";
101 char *popbbuser = "";
102 char *popbblist = nmhetcdir(/hosts.popbb);
106 * Global MailDelivery file
108 char *maildelivery = nmhetcdir(/maildelivery);
112 * Aliasing Facility (doesn't belong here)
114 int Everyone = NOTOK;
115 static char *everyone = "-1";
119 * Customize the MTS settings for nmh by adjusting
120 * the file mts.conf in the nmh etc directory.
128 static struct bind binds[] = {
129 { "localname", &localname },
130 { "localdomain", &localdomain },
131 { "systemname", &systemname },
132 { "mmdfldir", &mmdfldir },
133 { "mmdflfil", &mmdflfil },
134 { "uucpldir", &uucpldir },
135 { "uucplfil", &uucplfil },
136 { "mmdelim1", &mmdlm1 },
137 { "mmdelim2", &mmdlm2 },
138 { "masquerade", &masquerade },
141 { "mts", &sm_method },
142 { "hostable", &hostable },
143 { "sendmail", &sendmail },
146 { "clientname", &clientname },
147 { "servers", &servers },
148 { "pophost", &pophost },
149 { "bbdomain", &bb_domain },
152 { "popbbhost", &popbbhost },
153 { "popbbuser", &popbbuser },
154 { "popbblist", &popbblist },
158 { "nntphost", &popbbhost },
161 { "maildelivery", &maildelivery },
162 { "everyone", &everyone },
163 { "noshell", &NoShell },
169 * Read the configuration file for the nmh interface
170 * to the mail transport system (MTS).
174 mts_init (char *name)
176 char *bp, *cp, buffer[BUFSIZ];
179 static int inited = 0;
181 if (inited++ || (fp = fopen (mtsconf, "r")) == NULL)
184 while (fgets (buffer, sizeof(buffer), fp)) {
185 if (!(cp = strchr(buffer, '\n')))
188 if (*buffer == '#' || *buffer == '\0')
190 if (!(bp = strchr(buffer, ':')))
193 while (isspace (*bp))
196 for (b = binds; b->keyword; b++)
197 if (!strcmp (buffer, b->keyword))
199 if (b->keyword && (cp = tailor_value (bp)))
205 Everyone = atoi (everyone);
207 if (strstr(masquerade, "draft_from") != NULL)
208 draft_from_masquerading = TRUE;
210 if (strstr(masquerade, "mmailid") != NULL)
211 mmailid_masquerading = TRUE;
213 if (strstr(masquerade, "username_extension") != NULL)
214 username_extension_masquerading = TRUE;
217 if (strcmp(sm_method, "smtp") == 0)
219 else if (strcmp(sm_method, "sendmail") == 0)
220 sm_mts = MTS_SENDMAIL;
222 advise(NULL, "unsupported \"mts\" value in mts.conf: %s", sm_method);
232 * Convert escaped values, malloc some new space,
233 * and copy string to malloc'ed memory.
237 tailor_value (char *s)
244 for (bp = buffer; *s; bp++, s++) {
249 case 'b': *bp = '\b'; break;
250 case 'f': *bp = '\f'; break;
251 case 'n': *bp = '\n'; break;
252 case 't': *bp = '\t'; break;
264 r = *s != '0' ? 10 : 8;
265 for (i = 0; isdigit (*s); s++)
266 i = i * r + *s - '0';
275 len = strlen (buffer) + 1;
276 if ((bp = malloc (len)))
277 memcpy (bp, buffer, len);
283 * Get the fully qualified name of the local host.
289 static char buffer[BUFSIZ] = "";
296 /* check if we have cached the local name */
302 /* check if the mts.conf file specifies a "localname" */
304 strncpy (buffer, localname, sizeof(buffer));
307 /* first get our local name */
309 strncpy (buffer, name.nodename, sizeof(buffer));
311 /* first get our local name */
312 gethostname (buffer, sizeof(buffer));
314 #ifdef HAVE_SETHOSTENT
317 /* now fully qualify our name */
318 if ((hp = gethostbyname (buffer)))
319 strncpy (buffer, hp->h_name, sizeof(buffer));
323 * If the mts.conf file specifies a "localdomain",
324 * we append that now. This should rarely be needed.
327 strcat (buffer, ".");
328 strcat (buffer, localdomain);
336 * This is only for UUCP mail. It gets the hostname
337 * as part of the UUCP "domain".
343 static char buffer[BUFSIZ] = "";
349 /* check if we have cached the system name */
355 /* check if mts.conf file specifies a "systemname" */
357 strncpy (buffer, systemname, sizeof(buffer));
363 strncpy (buffer, name.nodename, sizeof(buffer));
365 gethostname (buffer, sizeof(buffer));
373 * Get the username of current user
379 if (username[0] == '\0')
387 * Get full name of current user (typically from GECOS
388 * field of password file).
394 if (username[0] == '\0')
402 * Find the user's username and full name, and cache them.
403 * Also, handle "mmailid" username masquerading controlled from the GECOS field
404 * of the passwd file.
410 register char *cp, *np;
411 register struct passwd *pw;
417 if (uid == geteuid () && (cp = getenv ("USER")) != NULL
418 && (pw = getpwnam (cp)) != NULL)
419 strncpy (username, cp, sizeof(username));
420 else if ((pw = getpwuid (uid)) == NULL
421 || pw->pw_name == NULL
422 || *pw->pw_name == '\0') {
424 if ((pw = getpwuid (getuid ())) == NULL
425 || pw->pw_name == NULL
426 || *pw->pw_name == '\0') {
428 strncpy (username, "unknown", sizeof(username));
429 snprintf (fullname, sizeof(fullname), "The Unknown User-ID (%d)",
436 /* Get the user's real name from the GECOS field. Stop once we hit a ',',
437 which some OSes use to separate other 'finger' information in the GECOS
438 field, like phone number. Also, if mmailid masquerading is turned on due
439 to "mmailid" appearing on the "masquerade:" line of mts.conf, stop if we
440 hit a '<' (which should precede any ','s). */
442 if (mmailid_masquerading)
443 /* Stop at ',' or '<'. */
444 for (cp = fullname; *np != '\0' && *np != ',' && *np != '<';
448 /* Allow '<' as a legal character of the user's name. This code is
449 basically a duplicate of the code above the "else" -- we don't
450 collapse it down to one copy and put the mmailid_masquerading check
451 inside the loop with "(x ? y : z)" because that's inefficient and the
452 value'll never change while it's in there. */
453 for (cp = fullname; *np != '\0' && *np != ',';
457 /* On BSD(-derived) systems, the system utilities that deal with the GECOS
458 field (finger, mail, sendmail, etc.) translate any '&' character in it to
459 the login name, with the first letter capitalized. So, for instance,
460 fingering a user "bob" with the GECOS field "& Jones" would reveal him to
461 be "In real life: Bob Jones". Surprisingly, though, the OS doesn't do
462 the translation for you, so we have to do it manually here. */
463 if (mmailid_masquerading)
464 /* Stop at ',' or '<'. */
466 *np != '\0' && *np != ',' && *np != '<';) {
467 if (*np == '&') { /* blech! */
468 strcpy (cp, pw->pw_name);
478 /* Allow '<' as a legal character of the user's name. This code is
479 basically a duplicate of the code above the "else" -- we don't
480 collapse it down to one copy and put the mmailid_masquerading check
481 inside the loop with "(x ? y : z)" because that's inefficient and the
482 value'll never change while it's in there. */
484 *np != '\0' && *np != ',';) {
485 if (*np == '&') { /* blech! */
486 strcpy (cp, pw->pw_name);
498 if (mmailid_masquerading) {
499 /* Do mmailid processing. The GECOS field should have the form
500 "Full Name <fakeusername>". For instance,
501 "Dan Harkless <Dan.Harkless>". Naturally, you'll want your MTA to
502 have an alias (e.g. in /etc/aliases) from "fakeusername" to your
506 for (cp = username; *np && *np != '>'; *cp++ = *np++)
510 if (!mmailid_masquerading || *np == '\0')
511 strncpy (username, pw->pw_name, sizeof(username));
513 /* The $SIGNATURE environment variable overrides the GECOS field's idea of
515 if ((cp = getenv ("SIGNATURE")) && *cp)
516 strncpy (fullname, cp, sizeof(fullname));
518 if (strchr(fullname, '.')) { /* quote any .'s */
521 /* should quote "'s too */
522 snprintf (tmp, sizeof(tmp), "\"%s\"", fullname);
523 strncpy (fullname, tmp, sizeof(fullname));