![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to repl.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip|
Return to repl.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip |
1.1 root 1: /* repl.c - reply to a 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 ANNOSW 0
12: "annotate", 0,
13: #define NANNOSW 1
14: "noannotate", 0,
15:
16: #define CCSW 2
17: "cc type", 0,
18: #define NCCSW 3
19: "nocc type", 0,
20:
21: #define DFOLDSW 4
22: "draftfolder +folder", 0,
23: #define DMSGSW 5
24: "draftmessage msg", 0,
25: #define NDFLDSW 6
26: "nodraftfolder", 0,
27:
28: #define EDITRSW 7
29: "editor editor", 0,
30: #define NEDITSW 8
31: "noedit", 0,
32:
33: #define FCCSW 9
34: "fcc folder", 0,
35:
36: #define FILTSW 10
37: "filter filterfile", 0,
38: #define FORMSW 11
39: "form formfile", 0,
40:
41: #define FRMTSW 12
42: "format", 5,
43: #define NFRMTSW 13
44: "noformat", 7,
45:
46: #define INPLSW 14
47: "inplace", 0,
48: #define NINPLSW 15
49: "noinplace", 0,
50:
51: #define QURYSW 16
52: "query", 0,
53: #define NQURYSW 17
54: "noquery", 0,
55:
56: #define WHATSW 18
57: "whatnowproc program", 0,
58: #define NWHATSW 19
59: "nowhatnowproc", 0,
60:
61: #define WIDTHSW 20
62: "width columns", 0,
63:
64: #define HELPSW 21
65: "help", 4,
66:
67: #define FILESW 22
68: "file file", -4, /* interface from msh */
69:
70: #ifdef MHE
71: #define BILDSW 23
72: "build", -5, /* interface from mhe */
73: #endif MHE
74:
75: NULL, NULL
76: };
77:
78:
79: static struct swit ccswitches[] = {
80: #define CTOSW 0
81: "to", 0,
82: #define CCCSW 1
83: "cc", 0,
84: #define CMESW 2
85: "me", 0,
86: #define CALSW 3
87: "all", 0,
88:
89: NULL, NULL
90: };
91:
92: /* */
93:
94: static struct swit aqrnl[] = {
95: #define NOSW 0
96: "quit", 0,
97: #define YESW 1
98: "replace", 0,
99: #define LISTDSW 2
100: "list", 0,
101: #define REFILSW 3
102: "refile +folder", 0,
103: #define NEWSW 4
104: "new", 0,
105:
106: NULL, NULL
107: };
108:
109:
110: static struct swit aqrl[] = {
111: "quit", 0,
112: "replace", 0,
113: "list", 0,
114: "refile +folder", 0,
115:
116: NULL, NULL
117: };
118:
119: /* */
120:
121: #ifndef ATHENA
122: #define CCDFLT 1
123: #else ATHENA
124: #define CCDFLT 0
125: #endif ATHENA
126:
127: short ccto = CCDFLT; /* global for replsbr */
128: short cccc = CCDFLT;
129: short ccme = CCDFLT;
130: short format = 1;
131: short outputlinelen = OUTPUTLINELEN;
132: short querysw = 0;
133:
134: char *fcc = NULL; /* global for replsbr */
135: char *filter = NULL;
136: char *form = NULL;
137:
138: /* */
139:
140: /* ARGSUSED */
141:
142: main (argc, argv)
143: int argc;
144: char *argv[];
145: {
146: int i,
147: isdf = 0,
148: anot = 0,
149: inplace = 0,
150: #ifdef MHE
151: buildsw = 0,
152: #endif MHE
153: nedit = 0,
154: nwhat = 0;
155: char *cp,
156: *cwd,
157: *dp,
158: *maildir,
159: *file = NULL,
160: *folder = NULL,
161: *msg = NULL,
162: *dfolder = NULL,
163: *dmsg = NULL,
164: *ed = NULL,
165: drft[BUFSIZ],
166: buf[100],
167: **ap,
168: **argp,
169: *arguments[MAXARGS];
170: struct msgs *mp = NULL;
171: struct stat st;
172: FILE *in;
173:
174: invo_name = r1bindex (argv[0], '/');
175: if ((cp = m_find (invo_name)) != NULL) {
176: ap = brkstring (cp = getcpy (cp), " ", "\n");
177: ap = copyip (ap, arguments);
178: }
179: else
180: ap = arguments;
181: (void) copyip (argv + 1, ap);
182: argp = arguments;
183:
184: /* */
185:
186: while (cp = *argp++) {
187: if (*cp == '-')
188: switch (smatch (++cp, switches)) {
189: case AMBIGSW:
190: ambigsw (cp, switches);
191: done (1);
192: case UNKWNSW:
193: adios (NULLCP, "-%s unknown", cp);
194: case HELPSW:
195: (void) sprintf (buf, "%s: [+folder] [msg] [switches]",
196: invo_name);
197: help (buf, switches);
198: done (0);
199:
200: case ANNOSW:
201: anot++;
202: continue;
203: case NANNOSW:
204: anot = 0;
205: continue;
206:
207: case CCSW:
208: if (!(cp = *argp++) || *cp == '-')
209: adios (NULLCP, "missing argument to %s", argp[-2]);
210: docc (cp, 1);
211: continue;
212: case NCCSW:
213: if (!(cp = *argp++) || *cp == '-')
214: adios (NULLCP, "missing argument to %s", argp[-2]);
215: docc (cp, 0);
216: continue;
217:
218: case EDITRSW:
219: if (!(ed = *argp++) || *ed == '-')
220: adios (NULLCP, "missing argument to %s", argp[-2]);
221: nedit = 0;
222: continue;
223: case NEDITSW:
224: nedit++;
225: continue;
226:
227: case WHATSW:
228: if (!(whatnowproc = *argp++) || *whatnowproc == '-')
229: adios (NULLCP, "missing argument to %s", argp[-2]);
230: nwhat = 0;
231: continue;
232: #ifdef MHE
233: case BILDSW:
234: buildsw++; /* fall... */
235: #endif MHE
236: case NWHATSW:
237: nwhat++;
238: continue;
239:
240: case FCCSW:
241: if (!(cp = *argp++) || *cp == '-')
242: adios (NULLCP, "missing argument to %s", argp[-2]);
243: dp = NULL;
244: if (*cp == '@')
245: cp = dp = path (cp + 1, TSUBCWF);
246: if (fcc)
247: fcc = add (", ", fcc);
248: fcc = add (cp, fcc);
249: if (dp)
250: free (dp);
251: continue;
252:
253: case FILESW:
254: if (file)
255: adios (NULLCP, "only one file at a time!");
256: if (!(cp = *argp++) || *cp == '-')
257: adios (NULLCP, "missing argument to %s", argp[-2]);
258: file = path (cp, TFILE);
259: continue;
260: case FILTSW:
261: if (!(cp = *argp++) || *cp == '-')
262: adios (NULLCP, "missing argument to %s", argp[-2]);
263: filter = getcpy (m_maildir (cp));
264: continue;
265: case FORMSW:
266: if (!(form = *argp++) || *form == '-')
267: adios (NULLCP, "missing argument to %s", argp[-2]);
268: continue;
269:
270: case FRMTSW:
271: format++;
272: continue;
273: case NFRMTSW:
274: format = 0;
275: continue;
276:
277: case INPLSW:
278: inplace++;
279: continue;
280: case NINPLSW:
281: inplace = 0;
282: continue;
283:
284: case QURYSW:
285: querysw++;
286: continue;
287: case NQURYSW:
288: querysw = 0;
289: continue;
290:
291: case WIDTHSW:
292: if (!(cp = *argp++) || *cp == '-')
293: adios (NULLCP, "missing argument to %s", argp[-2]);
294: if ((outputlinelen = atoi (cp)) < 10)
295: adios (NULLCP, "impossible width %d", outputlinelen);
296: continue;
297:
298: case DFOLDSW:
299: if (dfolder)
300: adios (NULLCP, "only one draft folder at a time!");
301: if (!(cp = *argp++) || *cp == '-')
302: adios (NULLCP, "missing argument to %s", argp[-2]);
303: dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
304: *cp != '@' ? TFOLDER : TSUBCWF);
305: continue;
306: case DMSGSW:
307: if (dmsg)
308: adios (NULLCP, "only one draft message at a time!");
309: if (!(dmsg = *argp++) || *dmsg == '-')
310: adios (NULLCP, "missing argument to %s", argp[-2]);
311: continue;
312: case NDFLDSW:
313: dfolder = NULL;
314: isdf = NOTOK;
315: continue;
316: }
317: if (*cp == '+' || *cp == '@') {
318: if (folder)
319: adios (NULLCP, "only one folder at a time!");
320: else
321: folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
322: }
323: else
324: if (msg)
325: adios (NULLCP, "only one message at a time!");
326: else
327: msg = cp;
328: }
329:
330: /* */
331:
332: cwd = getcpy (pwd ());
333:
334: if (!m_find ("path"))
335: free (path ("./", TFOLDER));
336: if (file && (msg || folder))
337: adios (NULLCP, "can't mix files and folders/msgs");
338:
339: try_it_again: ;
340: #ifndef MHE
341: (void) strcpy (drft, m_draft (dfolder, dmsg, NOUSE, &isdf));
342: if (stat (drft, &st) != NOTOK) {
343: #else MHE
344: (void) strcpy (drft, buildsw ? m_maildir ("reply")
345: : m_draft (dfolder, NULLCP, NOUSE, &isdf));
346: if (!buildsw && stat (drft, &st) != NOTOK) {
347: #endif MHE
348: printf ("Draft \"%s\" exists (%ld bytes).", drft, st.st_size);
349: for (i = LISTDSW; i != YESW;) {
350: if (!(argp = getans ("\nDisposition? ", isdf ? aqrnl : aqrl)))
351: done (1);
352: switch (i = smatch (*argp, isdf ? aqrnl : aqrl)) {
353: case NOSW:
354: done (0);
355: case NEWSW:
356: dmsg = NULL;
357: goto try_it_again;
358: case YESW:
359: break;
360: case LISTDSW:
361: (void) showfile (++argp, drft);
362: break;
363: case REFILSW:
364: if (refile (++argp, drft) == 0)
365: i = YESW;
366: break;
367: default:
368: advise (NULLCP, "say what?");
369: break;
370: }
371: }
372: }
373:
374: /* */
375:
376: if (file) {
377: anot = 0;
378: goto go_to_it;
379: }
380:
381: if (!msg)
382: msg = "cur";
383: if (!folder)
384: folder = m_getfolder ();
385: maildir = m_maildir (folder);
386:
387: if (chdir (maildir) == NOTOK)
388: adios (maildir, "unable to change directory to");
389: if (!(mp = m_gmsg (folder)))
390: adios (NULLCP, "unable to read folder %s", folder);
391: if (mp -> hghmsg == 0)
392: adios (NULLCP, "no messages in %s", folder);
393:
394: if (!m_convert (mp, msg))
395: done (1);
396: m_setseq (mp);
397:
398: if (mp -> numsel > 1)
399: adios (NULLCP, "only one message at a time!");
400:
401: m_replace (pfolder, folder);
402: if (mp -> lowsel != mp -> curmsg)
403: m_setcur (mp, mp -> lowsel);
404: m_sync (mp);
405: m_update ();
406:
407: go_to_it: ;
408: msg = file ? file : getcpy (m_name (mp -> lowsel));
409:
410: if ((in = fopen (msg, "r")) == NULL)
411: adios (msg, "unable to open");
412:
413: replout (in, msg, drft);
414: (void) fclose (in);
415:
416: if (nwhat)
417: done (0);
418: (void) m_whatnow (ed, nedit, NOUSE, drft, msg, 0, mp,
419: anot ? "Replied" : NULLCP, inplace, cwd);
420: done (1);
421: }
422:
423: /* */
424:
425: docc (cp, ccflag)
426: register char *cp;
427: int ccflag;
428: {
429: switch (smatch (cp, ccswitches)) {
430: case AMBIGSW:
431: ambigsw (cp, ccswitches);
432: done (1);
433: case UNKWNSW:
434: adios (NULLCP, "-%scc %s unknown", ccflag ? "" : "no", cp);
435:
436: case CTOSW:
437: ccto = ccflag;
438: break;
439:
440: case CCCSW:
441: cccc = ccflag;
442: break;
443:
444: case CMESW:
445: ccme = ccflag;
446: break;
447:
448: case CALSW:
449: ccto = cccc = ccme = ccflag;
450: break;
451: }
452: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.