3 * addrsbr.c -- parse addresses 822-style
5 * This code is Copyright (c) 2002, by the authors of nmh. See the
6 * COPYRIGHT file in the root directory of the nmh distribution for
7 * complete copyright information.
11 #include <h/addrsbr.h>
14 /* High level parsing of addresses:
16 The routines in sbr/mf.c parse the syntactic representations of
17 addresses. The routines in sbr/addrsbr.c associate semantics with those
20 If #ifdef DUMB is in effect, a full 822-style parser is called
21 for syntax recongition. This breaks each address into its components.
22 Note however that no semantics are assumed about the parts or their
23 totality. This means that implicit hostnames aren't made explicit,
24 and explicit hostnames aren't expanded to their "official" represenations.
26 If DUMB is not in effect, then this module does some
27 high-level thinking about what the addresses are.
31 string%<uucp>@<local> -> string
33 2. for non-MMDF systems:
35 string@host.<uucp> -> host!string
37 3. for any system, an address interpreted relative to the local host:
39 string@<uucp> -> string
41 For cases (1) and (3) above, the leftmost host is extracted. If it's not
42 present, the local host is used. If the tests above fail, the address is
43 considered to be a real 822-style address.
45 If an explicit host is not present, then MH checks for a bang to indicate
46 an explicit UUCP-style address. If so, this is noted. If not, the host is
47 defaulted, typically to the local host. The lack of an explict host is
50 If an explicit 822-style host is present, then MH checks to see if it
51 can expand this to the official name for the host. If the hostname is
52 unknown, the address is so typed.
54 To summarize, when we're all done, here's what MH knows about the address:
56 DUMB - type: local, uucp, or network
57 host: not locally defaulted, not explicitly expanded
60 other - type: local, uucp, network, unknown
66 static char *pers = NULL;
67 static char *mbox = NULL;
68 static char *host = NULL;
69 static char *route = NULL;
70 static char *grp = NULL;
71 static char *note = NULL;
72 static char err[BUFSIZ];
73 static char adr[BUFSIZ];
76 extern boolean username_extension_masquerading; /* defined in mts.c */
82 char *getusername (void);
90 pers = mbox = host = route = grp = note = NULL;
93 if ((ap = getadrx (addrs ? addrs : "")) == NULL)
96 strncpy (adr, ap->text, sizeof(adr));
104 if (ap->err && *ap->err)
105 strncpy (err, ap->err, sizeof(err));
112 getm (char *str, char *dfhost, int dftype, int wanthost, char *eresult)
118 #endif /* not DUMB */
122 strcpy (eresult, err);
124 if (wanthost == AD_HOST)
125 admonish (NULL, "bad address '%s' - %s", str, err);
129 && mbox == NULL && host == NULL && route == NULL
132 strcpy (eresult, "null address");
134 if (wanthost == AD_HOST)
135 admonish (NULL, "null address '%s'", str);
138 if (mbox == NULL && grp == NULL) {
140 strcpy (eresult, "no mailbox in address");
142 if (wanthost == AD_HOST)
143 admonish (NULL, "no mailbox in address '%s'", str);
147 if (dfhost == NULL) {
148 dfhost = LocalName ();
152 mp = (struct mailname *) calloc ((size_t) 1, sizeof(*mp));
155 strcpy (eresult, "insufficient memory to represent address");
157 if (wanthost == AD_HOST)
158 adios (NULL, "insufficient memory to represent address");
163 mp->m_text = getcpy (str);
165 mp->m_pers = getcpy (pers);
168 mp->m_type = BADHOST;
171 mp->m_gname = getcpy (grp);
173 mp->m_note = getcpy (note);
178 mp->m_mbox = getcpy (mbox);
179 mp->m_host = getcpy (host);
182 if ((pp = strchr(mbox, '!'))) {
184 mp->m_mbox = getcpy (pp);
185 mp->m_host = getcpy (mbox);
186 mp->m_type = UUCPHOST;
190 mp->m_mbox = getcpy (mbox);
192 if (route == NULL && dftype == LOCALHOST) {
199 mp->m_host = route ? NULL : getcpy (dfhost);
200 mp->m_type = route ? NETHOST : dftype;
206 if (wanthost == AD_NHST)
207 mp->m_type = !mh_strcasecmp (LocalName (), mp->m_host)
208 ? LOCALHOST : NETHOST;
211 mp->m_type = mh_strcasecmp (LocalName(), mp->m_host) ? NETHOST : LOCALHOST;
214 if (pp = OfficialName (mp->m_host)) {
217 mp->m_host = getcpy (pp);
218 mp->m_type = mh_strcasecmp (LocalName(), mp->m_host) ? NETHOST : LOCALHOST;
221 if (dp = strchr(mp->m_host, '.')) {
223 if (pp = OfficialName (mp->m_host))
227 mp->m_type = BADHOST;
229 #endif /* not DUMB */
233 mp->m_path = getcpy (route);
236 mp->m_gname = getcpy (grp);
238 mp->m_note = getcpy (note);
245 mnfree (struct mailname *mp)
269 #define empty(s) ((s) ? (s) : "")
272 auxformat (struct mailname *mp, int extras)
274 static char addr[BUFSIZ];
275 static char buffer[BUFSIZ];
279 strncpy (addr, mp->m_mbox ? mp->m_mbox : "", sizeof(addr));
283 if (mp->m_type != UUCPHOST)
284 snprintf (addr, sizeof(addr), mp->m_host ? "%s%s@%s" : "%s%s",
285 empty(mp->m_path), empty(mp->m_mbox), mp->m_host);
287 snprintf (addr, sizeof(addr), "%s!%s", mp->m_host, mp->m_mbox);
292 if (mp->m_pers || mp->m_path) {
294 snprintf (buffer, sizeof(buffer), "%s %s <%s>",
295 legal_person (mp->m_pers ? mp->m_pers : mp->m_mbox),
298 snprintf (buffer, sizeof(buffer), "%s <%s>",
299 legal_person (mp->m_pers ? mp->m_pers : mp->m_mbox),
304 snprintf (buffer, sizeof(buffer), "%s %s", addr, mp->m_note);
306 strncpy (buffer, addr, sizeof(buffer));
313 * address specific "sprintf"
317 adrsprintf (char *username, char *domain)
320 static char addr[BUFSIZ];
322 if (username == NULL)
323 username = getusername();
325 if (username_extension_masquerading) {
326 /* mts.conf contains "masquerade:[...]username_extension[...]", so tack
327 on the value of the $USERNAME_EXTENSION environment variable, if set,
329 char* extension = getenv("USERNAME_EXTENSION");
330 static char username_with_extension[BUFSIZ];
332 if (extension != NULL && *extension != '\0') {
333 snprintf_return = snprintf(username_with_extension,
334 sizeof(username_with_extension),
335 "%s%s", username, extension);
337 if (snprintf_return < 0 ||
338 snprintf_return >= sizeof(username_with_extension))
339 adios(NULL, "snprintf() error writing username (%d chars) and"
340 " $USERNAME_EXTENSION (%d chars) to array of BUFSIZ (%d)"
342 strlen(username), strlen(extension), BUFSIZ);
344 username = username_with_extension;
353 domain = LocalName();
355 snprintf_return = snprintf (addr, sizeof(addr), "%s@%s", username, domain);
357 if (snprintf_return < 0 || snprintf_return >= sizeof(addr))
358 adios(NULL, "snprintf() error writing username (%d chars), domain (%d"
359 " chars), and 1 separator char to array of BUFSIZ (%d) chars",
360 strlen(username), strlen(domain), BUFSIZ);
367 #define W_MBEG 0x0001
368 #define W_MEND 0x0002
369 #define W_MBOX (W_MBEG | W_MEND)
370 #define W_HBEG 0x0004
371 #define W_HEND 0x0008
372 #define W_HOST (W_HBEG | W_HEND)
373 #define WBITS "\020\01MBEG\02MEND\03HBEG\04HEND"
376 * Check if this is my address
380 ismymbox (struct mailname *np)
388 static char *am = NULL;
389 static struct mailname mq={NULL};
392 * If this is the first call, initialize
393 * list of alternate mailboxes.
397 mq.m_mbox = getusername ();
398 if ((am = context_find ("alternate-mailboxes")) == NULL)
403 while ((cp = getname (am))) {
404 if ((mp->m_next = getm (cp, NULL, 0, AD_NAME, NULL)) == NULL) {
405 admonish (NULL, "illegal address: %s", cp);
410 if (*mp->m_mbox == '*') {
411 mp->m_type |= W_MBEG;
414 if (*(cp = mp->m_mbox + strlen (mp->m_mbox) - 1) == '*') {
415 mp->m_type |= W_MEND;
419 if (*mp->m_host == '*') {
420 mp->m_type |= W_HBEG;
423 if (*(cp = mp->m_host + strlen (mp->m_host) - 1) == '*') {
424 mp->m_type |= W_HEND;
428 if ((cp = getenv ("MHWDEBUG")) && *cp)
429 fprintf (stderr, "mbox=\"%s\" host=\"%s\" %s\n",
430 mp->m_mbox, mp->m_host,
431 snprintb (buffer, sizeof(buffer), (unsigned) mp->m_type, WBITS));
435 advise (NULL, "please fix the %s: entry in your %s file",
436 "alternate-mailboxes", mh_profile);
440 if (np == NULL) /* XXX */
443 switch (np->m_type) {
445 len = strlen (cp = LocalName ());
446 if (!uprf (np->m_host, cp) || np->m_host[len] != '.')
451 if (mh_strcasecmp (np->m_host, SystemName()))
455 if (!mh_strcasecmp (np->m_mbox, mq.m_mbox))
464 * Now scan through list of alternate
465 * mailboxes, and check for a match.
467 for (mp = &mq; mp->m_next;) {
471 if ((len = strlen (cp = np->m_mbox))
472 < (i = strlen (pp = mp->m_mbox)))
474 switch (mp->m_type & W_MBOX) {
476 if (mh_strcasecmp (cp, pp))
480 if (mh_strcasecmp (cp + len - i, pp))
487 case W_MBEG | W_MEND:
488 if (stringdex (pp, cp) < 0)
495 if (np->m_host == NULL)
497 if ((len = strlen (cp = np->m_host))
498 < (i = strlen (pp = mp->m_host)))
500 switch (mp->m_type & W_HOST) {
502 if (mh_strcasecmp (cp, pp))
506 if (mh_strcasecmp (cp + len - i, pp))
513 case W_HBEG | W_HEND:
514 if (stringdex (pp, cp) < 0)