Added MACHINES to EXTRA_DIST so that it gets put in the distribution.
[mmh] / docs / historical / mh-6.8.5 / uip / whom.c
1 /* whom.c - report who a message would go to */
2 #ifndef lint
3 static char ident[] = "@(#)$Id: whom.c,v 1.11 1992/12/15 00:20:22 jromine Exp $";
4 #endif  /* lint */
5
6 #include "../h/mh.h"
7 #include <stdio.h>
8 #include <signal.h>
9 #ifdef LOCALE
10 #include        <locale.h>
11 #endif
12
13 /* \f */
14
15 static struct swit switches[] = {
16 #define ALIASW  0
17     "alias aliasfile", 0,
18
19 #define CHKSW   1
20     "check", 0,
21 #define NOCHKSW 2
22     "nocheck", 0,
23
24 #define DRAFTSW 3
25     "draft", 0,
26
27 #define DFOLDSW 4
28     "draftfolder +folder", 6,
29 #define DMSGSW  5
30     "draftmessage msg", 6,
31 #define NDFLDSW 6
32     "nodraftfolder", 0,
33
34 #define HELPSW  7
35     "help", 4,
36
37 #define CLIESW  8
38     "client host", -6,
39 #define SERVSW  9
40     "server host", -6,
41 #define SNOOPSW 10
42     "snoop", -5,
43
44     NULL, 0
45 };
46
47 /* \f */
48
49 /* ARGSUSED */
50
51 main (argc, argv)
52 int     argc;
53 char   *argv[];
54 {
55     int     child_id,
56             i,
57             status,
58             isdf = 0,
59             distsw = 0,
60             vecp = 0;
61     char   *cp,
62            *dfolder = NULL,
63            *dmsg = NULL,
64            *msg = NULL,
65           **ap,
66           **argp,
67             backup[BUFSIZ],
68             buf[100],
69            *arguments[MAXARGS],
70            *vec[MAXARGS];
71
72 #ifdef LOCALE
73         setlocale(LC_ALL, "");
74 #endif
75     invo_name = r1bindex (argv[0], '/');
76     if ((cp = m_find (invo_name)) != NULL) {
77         ap = brkstring (cp = getcpy (cp), " ", "\n");
78         ap = copyip (ap, arguments);
79     }
80     else
81         ap = arguments;
82     (void) copyip (argv + 1, ap);
83     argp = arguments;
84
85     vec[vecp++] = invo_name;
86     vec[vecp++] = "-whom";
87     vec[vecp++] = "-library";
88     vec[vecp++] = getcpy (m_maildir (""));
89
90 /* \f */
91
92     while (cp = *argp++) {
93         if (*cp == '-')
94             switch (smatch (++cp, switches)) {
95                 case AMBIGSW: 
96                     ambigsw (cp, switches);
97                     done (1);
98                 case UNKWNSW: 
99                     adios (NULLCP, "-%s unknown", cp);
100                 case HELPSW: 
101                     (void) sprintf (buf, "%s [switches] [file]", invo_name);
102                     help (buf, switches);
103                     done (1);
104
105                 case CHKSW: 
106                 case NOCHKSW: 
107                 case SNOOPSW:
108                     vec[vecp++] = --cp;
109                     continue;
110
111                 case DRAFTSW:
112                     msg = draft;
113                     continue;
114
115                 case DFOLDSW: 
116                     if (dfolder)
117                         adios (NULLCP, "only one draft folder at a time!");
118                     if (!(cp = *argp++) || *cp == '-')
119                         adios (NULLCP, "missing argument to %s", argp[-2]);
120                     dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
121                             *cp != '@' ? TFOLDER : TSUBCWF);
122                     continue;
123                 case DMSGSW: 
124                     if (dmsg)
125                         adios (NULLCP, "only one draft message at a time!");
126                     if (!(dmsg = *argp++) || *dmsg == '-')
127                         adios (NULLCP, "missing argument to %s", argp[-2]);
128                     continue;
129                 case NDFLDSW: 
130                     dfolder = NULL;
131                     isdf = NOTOK;
132                     continue;
133
134                 case ALIASW: 
135                 case CLIESW: 
136                 case SERVSW: 
137                     vec[vecp++] = --cp;
138                     if (!(cp = *argp++) || *cp == '-')
139                         adios (NULLCP, "missing argument to %s", argp[-2]);
140                     vec[vecp++] = cp;
141                     continue;
142             }
143         if (msg)
144             adios (NULLCP, "only one draft at a time!");
145         else
146             vec[vecp++] = msg = cp;
147     }
148     if (cp = m_find ("Aliasfile")) {    /* allow Aliasfile: profile entry */
149         char *dp = NULL;
150
151         for (ap = brkstring(dp = getcpy(cp), " ", "\n"); ap && *ap; ap++) {
152             vec[vecp++] = "-alias";
153             vec[vecp++] = *ap;
154         }
155     }
156
157 /* \f */
158
159     if (msg == NULL) {
160 #ifdef  WHATNOW
161         if (dfolder || (cp = getenv ("mhdraft")) == NULL || *cp == '\0')
162 #endif  /* WHATNOW */
163             cp  = getcpy (m_draft (dfolder, dmsg, 1, &isdf));
164         msg = vec[vecp++] = cp;
165     }
166     if ((cp = getenv ("mhdist"))
167             && *cp
168             && (distsw = atoi (cp))
169             && (cp = getenv ("mhaltmsg"))
170             && *cp) {
171         if (distout (msg, cp, backup) == NOTOK)
172             done (1);
173         vec[vecp++] = "-dist";
174         distsw++;
175     }
176     vec[vecp] = NULL;
177
178     closefds (3);
179
180     if (distsw)
181         for (i = 0; (child_id = fork ()) == NOTOK && i < 5; i++)
182             sleep (5);
183     switch (distsw ? child_id : OK) {
184         case NOTOK:
185             advise (NULLCP, "unable to fork, so checking directly...");
186         case OK:
187             execvp (postproc, vec);
188             fprintf (stderr, "unable to exec ");
189             perror (postproc);
190             _exit (-1);
191
192         default:
193             (void) signal (SIGHUP, SIG_IGN);
194             (void) signal (SIGINT, SIG_IGN);
195             (void) signal (SIGQUIT, SIG_IGN);
196             (void) signal (SIGTERM, SIG_IGN);
197
198             status = pidwait (child_id, OK);
199
200             (void) unlink (msg);
201             if (rename (backup, msg) == NOTOK)
202                 adios (msg, "unable to rename %s to", backup);
203             done (status);
204     }
205 }