![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to send.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / uip|
Return to send.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / uip |
1.1 root 1: /* send.c - send a composed message */
2:
3: #include "../h/mh.h"
4: #include <stdio.h>
5: #include <sys/types.h>
6: #include <sys/stat.h>
7:
8: /* */
9:
10: static struct swit switches[] = {
11: #define ALIASW 0
12: "alias aliasfile", 0,
13:
14: #define DEBUGSW 1
15: "debug", -5,
16:
17: #define DRAFTSW 2
18: "draft", 0,
19:
20: #define DFOLDSW 3
21: "draftfolder +folder", 6,
22: #define DMSGSW 4
23: "draftmessage msg", 6,
24: #define NDFLDSW 5
25: "nodraftfolder", 0,
26:
27: #define ENCRSW 6
28: "encrypt",
29: #ifndef TMA
30: -7,
31: #else TMA
32: 0,
33: #endif TMA
34: #define NENCRSW 7
35: "noencrypt",
36: #ifndef TMA
37: -9,
38: #else TMA
39: 0,
40: #endif TMA
41:
42: #define FILTSW 8
43: "filter filterfile", 0,
44: #define NFILTSW 9
45: "nofilter", 0,
46:
47: #define FRMTSW 10
48: "format", 0,
49: #define NFRMTSW 11
50: "noformat", 0,
51:
52: #define FORWSW 12
53: "forward", 0,
54: #define NFORWSW 13
55: "noforward", 0,
56:
57: #define MSGDSW 14
58: "msgid", 0,
59: #define NMSGDSW 15
60: "nomsgid", 0,
61:
62: #define PUSHSW 16
63: "push", 0,
64: #define NPUSHSW 17
65: "nopush", 0,
66:
67: #define UNIQSW 18
68: "unique", -6,
69: #define NUNIQSW 19
70: "nounique", -8,
71:
72: #define VERBSW 20
73: "verbose", 0,
74: #define NVERBSW 21
75: "noverbose", 0,
76:
77: #define WATCSW 22
78: "watch", 0,
79: #define NWATCSW 23
80: "nowatch", 0,
81:
82: #define WIDTHSW 24
83: "width columns", 0,
84:
85: #define HELPSW 25
86: "help", 4,
87:
88: #define MAILSW 26
89: "mail", -4,
90: #define SAMLSW 27
91: "saml", -4,
92: #define SENDSW 28
93: "send", -4,
94: #define SOMLSW 29
95: "soml", -4,
96:
97: #define CLIESW 30
98: "client host", -6,
99: #define SERVSW 31
100: "server host", -6,
101: #define SNOOPSW 32
102: "snoop", -5,
103:
104: NULL, NULL
105: };
106:
107: static struct swit anyl[] = {
108: #define NOSW 0
109: "no", 0,
110: #define YESW 1
111: "yes", 0,
112: #define LISTDSW 2
113: "list", 0,
114:
115: NULL, NULL
116: };
117:
118: /* */
119:
120: extern int debugsw; /* from sendsbr.c */
121: extern int forwsw;
122: extern int inplace;
123: extern int pushsw;
124: extern int unique;
125:
126: extern char *altmsg; /* .. */
127: extern char *annotext;
128: extern char *distfile;
129:
130: /* */
131:
132: /* ARGSUSED */
133:
134: main (argc, argv)
135: int argc;
136: char *argv[];
137: {
138: int msgp = 0,
139: distsw = 0,
140: vecp = 1,
141: isdf = 0,
142: msgnum,
143: status;
144: char *cp,
145: *dfolder = NULL,
146: *maildir,
147: buf[100],
148: **ap,
149: **argp,
150: *arguments[MAXARGS],
151: *msgs[MAXARGS],
152: *vec[MAXARGS];
153: struct msgs *mp;
154: struct stat st;
155: #ifdef UCI
156: FILE *fp;
157: #endif UCI
158:
159: invo_name = r1bindex (argv[0], '/');
160: if ((cp = m_find (invo_name)) != NULL) {
161: ap = brkstring (cp = getcpy (cp), " ", "\n");
162: ap = copyip (ap, arguments);
163: }
164: else
165: ap = arguments;
166: (void) copyip (argv + 1, ap);
167: argp = arguments;
168:
169: vec[vecp++] = "-library";
170: vec[vecp++] = getcpy (m_maildir (""));
171:
172: /* */
173:
174: while (cp = *argp++) {
175: if (*cp == '-')
176: switch (smatch (++cp, switches)) {
177: case AMBIGSW:
178: ambigsw (cp, switches);
179: senddone (1);
180: case UNKWNSW:
181: adios (NULLCP, "-%s unknown\n", cp);
182: case HELPSW:
183: (void) sprintf (buf, "%s [file] [switches]", invo_name);
184: help (buf, switches);
185: senddone (1); /* thanks, phyl */
186:
187: case DRAFTSW:
188: msgs[msgp++] = draft;
189: continue;
190:
191: case DFOLDSW:
192: if (dfolder)
193: adios (NULLCP, "only one draft folder at a time!");
194: if (!(cp = *argp++) || *cp == '-')
195: adios (NULLCP, "missing argument to %s", argp[-2]);
196: dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
197: *cp != '@' ? TFOLDER : TSUBCWF);
198: continue;
199: case DMSGSW:
200: if (!(cp = *argp++) || *cp == '-')
201: adios (NULLCP, "missing argument to %s", argp[-2]);
202: msgs[msgp++] = cp;
203: continue;
204: case NDFLDSW:
205: dfolder = NULL;
206: isdf = NOTOK;
207: continue;
208:
209: case PUSHSW:
210: pushsw++;
211: continue;
212: case NPUSHSW:
213: pushsw = 0;
214: continue;
215:
216: case UNIQSW:
217: unique++;
218: continue;
219: case NUNIQSW:
220: unique = 0;
221: continue;
222:
223: case FORWSW:
224: forwsw++;
225: continue;
226: case NFORWSW:
227: forwsw = 0;
228: continue;
229:
230: case DEBUGSW:
231: debugsw++; /* fall */
232: case NFILTSW:
233: case FRMTSW:
234: case NFRMTSW:
235: case MSGDSW:
236: case NMSGDSW:
237: case VERBSW:
238: case NVERBSW:
239: case WATCSW:
240: case NWATCSW:
241: case MAILSW:
242: case SAMLSW:
243: case SENDSW:
244: case SOMLSW:
245: case ENCRSW:
246: case NENCRSW:
247: case SNOOPSW:
248: vec[vecp++] = --cp;
249: continue;
250:
251: case ALIASW:
252: case FILTSW:
253: case WIDTHSW:
254: case CLIESW:
255: case SERVSW:
256: vec[vecp++] = --cp;
257: if (!(cp = *argp++) || *cp == '-')
258: adios (NULLCP, "missing argument to %s", argp[-2]);
259: vec[vecp++] = cp;
260: continue;
261: }
262: else
263: msgs[msgp++] = cp;
264: }
265:
266: /* */
267:
268: if (dfolder == NULL) {
269: if (msgp == 0) {
270: #ifdef WHATNOW
271: if ((cp = getenv ("mhdraft")) && *cp) {
272: msgs[msgp++] = cp;
273: goto go_to_it;
274: }
275: #endif WHATNOW
276: msgs[msgp++] = getcpy (m_draft (NULLCP, NULLCP, 1, &isdf));
277: if (stat (msgs[0], &st) == NOTOK)
278: adios (msgs[0], "unable to stat draft file");
279: cp = concat ("Use \"", msgs[0], "\"? ", NULLCP);
280: for (status = LISTDSW; status != YESW;) {
281: if (!(argp = getans (cp, anyl)))
282: senddone (1);
283: switch (status = smatch (*argp, anyl)) {
284: case NOSW:
285: senddone (0);
286: case YESW:
287: break;
288: case LISTDSW:
289: (void) showfile (++argp, msgs[0]);
290: break;
291: default:
292: advise (NULLCP, "say what?");
293: break;
294: }
295: }
296: }
297: else
298: for (msgnum = 0; msgnum < msgp; msgnum++)
299: msgs[msgnum] = getcpy (m_maildir (msgs[msgnum]));
300: }
301: else {
302: if (!m_find ("path"))
303: free (path ("./", TFOLDER));
304:
305: if (!msgp)
306: msgs[msgp++] = "cur";
307: maildir = m_maildir (dfolder);
308:
309: if (chdir (maildir) == NOTOK)
310: adios (maildir, "unable to change directory to");
311: if (!(mp = m_gmsg (dfolder)))
312: adios (NULLCP, "unable to read folder %s", dfolder);
313: if (mp -> hghmsg == 0)
314: adios (NULLCP, "no messages in %s", dfolder);
315:
316: for (msgnum = 0; msgnum < msgp; msgnum++)
317: if (!m_convert (mp, msgs[msgnum]))
318: senddone (1);
319: m_setseq (mp);
320:
321: for (msgp = 0, msgnum = mp -> lowsel; msgnum <= mp -> hghsel; msgnum++)
322: if (mp -> msgstats[msgnum] & SELECTED) {
323: msgs[msgp++] = getcpy (m_name (msgnum));
324: #ifdef notdef
325: mp -> msgstats[msgnum] |= DELETED;
326: #endif notdef
327: mp -> msgstats[msgnum] &= ~EXISTS;
328: }
329: mp -> msgflags |= SEQMOD;
330:
331: m_sync (mp);
332: }
333: #ifdef WHATNOW
334: go_to_it: ;
335: #endif WHATNOW
336:
337: /* */
338:
339: #ifdef TMA
340: if ((cp = getenv ("KDS")) == NULL || *cp == NULL)
341: if ((cp = m_find ("kdsproc")) && *cp)
342: (void) putenv ("KDS", cp);
343: if ((cp = getenv ("TMADB")) == NULL || *cp == NULL)
344: if ((cp = m_find ("tmadb")) && *cp)
345: (void) putenv ("TMADB", m_maildir (cp));
346: #endif TMA
347:
348: if ((cp = getenv ("SIGNATURE")) == NULL || *cp == NULL)
349: if ((cp = m_find ("signature")) && *cp)
350: (void) putenv ("SIGNATURE", cp);
351: #ifdef UCI
352: else {
353: (void) sprintf (buf, "%s/.signature", mypath);
354: if ((fp = fopen (buf, "r")) != NULL
355: && fgets (buf, sizeof buf, fp) != NULL) {
356: (void) fclose (fp);
357: if (cp = index (buf, '\n'))
358: *cp = NULL;
359: (void) putenv ("SIGNATURE", buf);
360: }
361: }
362: #endif UCI
363:
364: for (msgnum = 0; msgnum < msgp; msgnum++)
365: if (stat (msgs[msgnum], &st) == NOTOK)
366: adios (msgs[msgnum], "unable to stat draft file");
367:
368: if ((annotext = getenv ("mhannotate")) == NULL || *annotext == NULL)
369: annotext = NULL;
370: if (annotext
371: && ((altmsg = getenv ("mhaltmsg")) == NULL || *altmsg == NULL))
372: altmsg = NULL;
373: if (annotext && ((cp = getenv ("mhinplace")) != NULL && *cp != NULL))
374: inplace = atoi (cp);
375:
376: if ((cp = getenv ("mhdist"))
377: && *cp
378: && (distsw = atoi (cp))
379: && altmsg) {
380: vec[vecp++] = "-dist";
381: distfile = getcpy (m_scratch (altmsg, invo_name));
382: if (link (altmsg, distfile) == NOTOK)
383: adios (distfile, "unable to link %s to", altmsg);
384: }
385: else
386: distfile = NULL;
387:
388: if (altmsg == NULL || stat (altmsg, &st) == NOTOK)
389: st.st_mtime = 0, st.st_dev = 0, st.st_ino = 0;
390: if (pushsw)
391: push ();
392:
393: status = 0;
394: vec[0] = r1bindex (postproc, '/');
395: closefds (3);
396:
397: for (msgnum = 0; msgnum < msgp; msgnum++)
398: switch (sendsbr (vec, vecp, msgs[msgnum], &st)) {
399: case DONE:
400: senddone (++status);
401:
402: case NOTOK:
403: status++; /* fall */
404: case OK:
405: break;
406: }
407:
408: m_update ();
409:
410: senddone (status);
411: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.