3 * whom.c -- report to whom a message would be sent
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.
13 #include <h/signals.h>
17 # define SASLminc(a) (a)
18 #else /* CYRUS_SASL */
19 # define SASLminc(a) 0
20 #endif /* CYRUS_SASL */
22 static struct swit switches[] = {
24 { "alias aliasfile", 0 },
32 { "draftfolder +folder", 6 },
34 { "draftmessage msg", 6 },
36 { "nodraftfolder", 0 },
42 { "client host", -6 },
44 { "server host", -6 },
48 { "sasl", SASLminc(4) },
50 { "saslmech mechanism", SASLminc(-5) },
52 { "user username", SASLminc(-4) },
54 { "port server port name/number", 4 },
60 main (int argc, char **argv)
63 int i, status, isdf = 0;
64 int distsw = 0, vecp = 0;
65 char *cp, *dfolder = NULL, *dmsg = NULL;
66 char *msg = NULL, **ap, **argp, backup[BUFSIZ];
67 char buf[BUFSIZ], **arguments, *vec[MAXARGS];
70 setlocale(LC_ALL, "");
72 invo_name = r1bindex (argv[0], '/');
74 /* read user profile/context */
77 arguments = getarguments (invo_name, argc, argv, 1);
80 vec[vecp++] = invo_name;
81 vec[vecp++] = "-whom";
82 vec[vecp++] = "-library";
83 vec[vecp++] = getcpy (m_maildir (""));
85 while ((cp = *argp++)) {
87 switch (smatch (++cp, switches)) {
89 ambigsw (cp, switches);
92 adios (NULL, "-%s unknown", cp);
95 snprintf (buf, sizeof(buf), "%s [switches] [file]", invo_name);
96 print_help (buf, switches, 1);
99 print_version(invo_name);
115 adios (NULL, "only one draft folder at a time!");
116 if (!(cp = *argp++) || *cp == '-')
117 adios (NULL, "missing argument to %s", argp[-2]);
118 dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
119 *cp != '@' ? TFOLDER : TSUBCWF);
123 adios (NULL, "only one draft message at a time!");
124 if (!(dmsg = *argp++) || *dmsg == '-')
125 adios (NULL, "missing argument to %s", argp[-2]);
139 if (!(cp = *argp++) || *cp == '-')
140 adios (NULL, "missing argument to %s", argp[-2]);
146 adios (NULL, "only one draft at a time!");
148 vec[vecp++] = msg = cp;
151 /* allow Aliasfile: profile entry */
152 if ((cp = context_find ("Aliasfile"))) {
155 for (ap = brkstring(dp = getcpy(cp), " ", "\n"); ap && *ap; ap++) {
156 vec[vecp++] = "-alias";
163 if (dfolder || (cp = getenv ("mhdraft")) == NULL || *cp == '\0')
165 cp = getcpy (m_draft (dfolder, dmsg, 1, &isdf));
166 msg = vec[vecp++] = cp;
168 if ((cp = getenv ("mhdist"))
170 && (distsw = atoi (cp))
171 && (cp = getenv ("mhaltmsg"))
173 if (distout (msg, cp, backup) == NOTOK)
175 vec[vecp++] = "-dist";
183 for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++)
187 switch (distsw ? child_id : OK) {
189 advise (NULL, "unable to fork, so checking directly...");
191 execvp (postproc, vec);
192 fprintf (stderr, "unable to exec ");
197 SIGNAL (SIGHUP, SIG_IGN);
198 SIGNAL (SIGINT, SIG_IGN);
199 SIGNAL (SIGQUIT, SIG_IGN);
200 SIGNAL (SIGTERM, SIG_IGN);
202 status = pidwait(child_id, OK);
205 if (rename (backup, msg) == NOTOK)
206 adios (msg, "unable to rename %s to", backup);
210 return 0; /* dead code to satisfy the compiler */