![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to whatnowsbr.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 whatnowsbr.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / uip |
1.1 root 1: /* whatnowsbr.c - the WhatNow shell */
2:
3: #include "../h/mh.h"
4: #include <stdio.h>
5: #include <sys/types.h>
6: #include <sys/stat.h>
7:
8: static int editfile(), copyf(), editfile(), copyf(), whomfile();
9: static void sendfile(), sendfile(), sendit();
10:
11: /* */
12:
13: static struct swit whatnowswitches[] = {
14: #define DFOLDSW 0
15: "draftfolder +folder", 0,
16: #define DMSGSW 1
17: "draftmessage msg", 0,
18: #define NDFLDSW 2
19: "nodraftfolder", 0,
20:
21: #define EDITRSW 3
22: "editor editor", 0,
23: #define NEDITSW 4
24: "noedit", 0,
25:
26: #define PRMPTSW 5
27: "prompt string", 4,
28:
29: #define HELPSW 6
30: "help", 4,
31:
32: NULL, NULL
33: };
34:
35: /* */
36:
37: static struct swit aleqs[] = {
38: #define DISPSW 0
39: "display [<switches>]", 0,
40: #define EDITSW 1
41: "edit [<editor> <switches>]", 0,
42: #define LISTSW 2
43: "list [<switches>]", 0,
44: #define PUSHSW 3
45: "push [<switches>]", 0,
46: #define QUITSW 4
47: "quit [-delete]", 0,
48: #define REFILEOPT 5
49: "refile [<switches>] +folder", 0,
50: #define SENDSW 6
51: "send [<switches>]", 0,
52: #define WHOMSW 7
53: "whom [<switches>]", 0,
54:
55: NULL, NULL
56: };
57:
58: /* */
59:
60: static char *myprompt = "\nWhat now? ";
61:
62: /* */
63:
64: /* ARGSUSED */
65:
66: WhatNow(argc, argv)
67: int argc;
68: char **argv;
69: {
70: int isdf = 0,
71: nedit = 0,
72: use = 0;
73: char *cp,
74: *dfolder = NULL,
75: *dmsg = NULL,
76: *ed = NULL,
77: *drft = NULL,
78: *msgnam = NULL,
79: buf[100],
80: prompt[BUFSIZ],
81: **ap,
82: **argp,
83: *arguments[MAXARGS];
84: struct stat st;
85:
86: invo_name = r1bindex (argv[0], '/');
87: if ((cp = m_find (invo_name)) != NULL) {
88: ap = brkstring (cp = getcpy (cp), " ", "\n");
89: ap = copyip (ap, arguments);
90: }
91: else
92: ap = arguments;
93: (void) copyip (argv + 1, ap);
94: argp = arguments;
95:
96: /* */
97:
98: while (cp = *argp++) {
99: if (*cp == '-')
100: switch (smatch (++cp, whatnowswitches)) {
101: case AMBIGSW:
102: ambigsw (cp, whatnowswitches);
103: done (1);
104: case UNKWNSW:
105: adios (NULLCP, "-%s unknown", cp);
106: case HELPSW:
107: (void) sprintf (buf, "%s [switches] [file]", invo_name);
108: help (buf, whatnowswitches);
109: done (1);
110:
111: case DFOLDSW:
112: if (dfolder)
113: adios (NULLCP, "only one draft folder at a time!");
114: if (!(cp = *argp++) || *cp == '-')
115: adios (NULLCP, "missing argument to %s", argp[-2]);
116: dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
117: *cp != '@' ? TFOLDER : TSUBCWF);
118: continue;
119: case DMSGSW:
120: if (dmsg)
121: adios (NULLCP, "only one draft message at a time!");
122: if (!(dmsg = *argp++) || *dmsg == '-')
123: adios (NULLCP, "missing argument to %s", argp[-2]);
124: continue;
125: case NDFLDSW:
126: dfolder = NULL;
127: isdf = NOTOK;
128: continue;
129:
130: case EDITRSW:
131: if (!(ed = *argp++) || *ed == '-')
132: adios (NULLCP, "missing argument to %s", argp[-2]);
133: nedit = 0;
134: continue;
135: case NEDITSW:
136: nedit++;
137: continue;
138:
139: case PRMPTSW:
140: if (!(myprompt = *argp++) || *myprompt == '-')
141: adios (NULLCP, "missing argument to %s", argp[-2]);
142: continue;
143: }
144: if (drft)
145: adios (NULLCP, "only one draft at a time!");
146: else
147: drft = cp;
148: }
149:
150: /* */
151:
152: if (drft == NULL && (drft = getenv ("mhdraft")) == NULL || *drft == NULL)
153: drft = getcpy (m_draft (dfolder, dmsg, 1, &isdf));
154: msgnam = (cp = getenv ("mhaltmsg")) && *cp ? getcpy (cp) : NULLCP;
155: if (ed == NULL && ((ed = getenv ("mheditor")) == NULL || *ed == NULL))
156: ed = NULL, nedit++;
157: if ((cp = getenv ("mhuse")) && *cp)
158: use = atoi (cp);
159: if (!nedit
160: && editfile (&ed, NULLVP, drft, use, NULLMP, msgnam, NULLCP) < 0)
161: done (1);
162:
163: /* */
164:
165: (void) sprintf (prompt, myprompt, invo_name);
166: for (;;) {
167: if (!(argp = getans (prompt, aleqs))) {
168: (void) unlink (LINK);
169: done (1);
170: }
171: switch (smatch (*argp, aleqs)) {
172: case DISPSW:
173: if (msgnam)
174: (void) showfile (++argp, msgnam);
175: else
176: advise (NULLCP, "no alternate message to display");
177: break;
178:
179: case EDITSW:
180: if (*++argp)
181: ed = *argp++;
182: if (editfile (&ed, argp, drft, NOUSE, NULLMP, msgnam, NULLCP)
183: == NOTOK)
184: done (1);
185: break;
186:
187: case LISTSW:
188: (void) showfile (++argp, drft);
189: break;
190:
191: case WHOMSW:
192: (void) whomfile (++argp, drft);
193: break;
194:
195: case QUITSW:
196: if (*++argp && (*argp[0] == 'd' ||
197: ((*argp)[0] == '-' && (*argp)[1] == 'd'))) {
198: if (unlink (drft) == NOTOK)
199: adios (drft, "unable to unlink");
200: }
201: else
202: if (stat (drft, &st) != NOTOK)
203: advise (NULLCP, "draft left on %s", drft);
204: done (1);
205:
206: case PUSHSW:
207: sendfile (++argp, drft, 1);
208: done (1);
209:
210: case SENDSW:
211: sendfile (++argp, drft, 0);
212: break;
213:
214: case REFILEOPT:
215: if (refile (++argp, drft) == 0)
216: done (0);
217: break;
218:
219: default:
220: advise (NULLCP, "say what?");
221: break;
222: }
223: }
224: }
225:
226: /* EDIT */
227:
228: static int reedit = 0;
229: static char *edsave = NULL;
230:
231:
232: /* ARGSUSED */
233:
234: static int
235: editfile(ed, arg, file, use, mp, altmsg, cwd)
236: register struct msgs *mp;
237: register char **ed, **arg, *file, *altmsg, *cwd;
238: register int use;
239: {
240: int pid,
241: status;
242: register int vecp;
243: register char *cp;
244: char altpath[BUFSIZ],
245: linkpath[BUFSIZ],
246: *vec[MAXARGS];
247: struct stat st;
248: #ifdef BSD42
249: int slinked;
250: #endif BSD42
251:
252: if (!reedit) { /* set initial editor */
253: if (*ed == NULL && (*ed = m_find ("editor")) == NULL)
254: *ed = sysed;
255: }
256: else
257: if (!*ed) { /* no explicit editor */
258: *ed = edsave;
259: if ((cp = r1bindex (*ed, '/')) == NULL)
260: cp = *ed;
261: cp = concat (cp, "-next", NULLCP);
262: if ((cp = m_find (cp)) != NULL)
263: *ed = cp;
264: }
265:
266: if (altmsg) {
267: if (mp == NULL || *altmsg == '/' || cwd == NULL)
268: (void) strcpy (altpath, altmsg);
269: else
270: (void) sprintf (altpath, "%s/%s", mp -> foldpath, altmsg);
271: if (cwd == NULL)
272: (void) strcpy (linkpath, LINK);
273: else
274: (void) sprintf (linkpath, "%s/%s", cwd, LINK);
275: }
276:
277: if (altmsg) {
278: (void) unlink (linkpath);
279: #ifdef BSD42
280: #ifndef VAXVMS
281: if (link (altpath, linkpath) == NOTOK) {
282: #endif
283: (void) symlink (altpath, linkpath);
284: slinked = 1;
285: #ifndef VAXVMS
286: }
287: else
288: slinked = 0;
289: #endif
290: #else not BSD42
291: (void) link (altpath, linkpath);
292: #endif not BSD42
293: }
294:
295: m_update ();
296: (void) fflush (stdout);
297:
298: switch (pid = vfork ()) {
299: case NOTOK:
300: advise ("fork", "unable to");
301: status = NOTOK;
302: break;
303:
304: case OK:
305: if (cwd)
306: (void) chdir (cwd);
307: if (altmsg) {
308: if (mp)
309: (void) putenv ("mhfolder", mp -> foldpath);
310: (void) putenv ("editalt", altpath);
311: }
312:
313: vecp = 0;
314: vec[vecp++] = r1bindex (*ed, '/');
315: if (arg)
316: while (*arg)
317: vec[vecp++] = *arg++;
318: vec[vecp++] = file;
319: vec[vecp] = NULL;
320:
321: execvp (*ed, vec);
322: fprintf (stderr, "unable to exec ");
323: perror (*ed);
324: _exit (-1);
325:
326: default:
327: if (status = pidwait (pid, NOTOK)) {
328: if (((status & 0xff00) != 0xff00)
329: && (!reedit || (status & 0x00ff)))
330: if (!use && (status & 0xff00)) {
331: (void) unlink (file);
332: advise (NULLCP, "problems with edit--%s deleted", file);
333: }
334: else
335: advise (NULLCP, "problems with edit--%s preserved",
336: file);
337: status = -2;
338: break;
339: }
340:
341: reedit++;
342: #ifdef BSD42
343: if (altmsg
344: && mp
345: && (!mp -> msgflags & READONLY)
346: && (slinked
347: ? lstat (linkpath, &st) != NOTOK
348: && (st.st_mode & S_IFMT) == S_IFREG
349: && copyf (linkpath, altpath) == NOTOK
350: : stat (linkpath, &st) != NOTOK
351: && st.st_nlink == 1
352: && (unlink (altpath) == NOTOK
353: || link (linkpath, altpath) == NOTOK)))
354: advise (linkpath, "unable to update %s from", altmsg);
355: #else not BSD42
356: if (altmsg
357: && mp
358: && (!mp -> msgflags & READONLY)
359: && stat (linkpath, &st) != NOTOK
360: && st.st_nlink == 1
361: && (unlink (altpath) == NOTOK
362: || link (linkpath, altpath) == NOTOK))
363: advise (linkpath, "unable to update %s from", altmsg);
364: #endif not BSD42
365: }
366:
367: edsave = getcpy (*ed);
368: *ed = NULL;
369: if (altmsg)
370: (void) unlink (linkpath);
371:
372: return status;
373: }
374:
375: /* */
376:
377: #ifdef BSD42
378: static int
379: copyf(ifile, ofile)
380: register char *ifile, *ofile;
381: {
382: register int i;
383: int in,
384: out;
385: char buffer[BUFSIZ];
386:
387: if ((in = open (ifile, 0)) == NOTOK)
388: return NOTOK;
389: if ((out = open (ofile, 1)) == NOTOK || ftruncate (out, 0) == NOTOK) {
390: if (out != NOTOK) {
391: admonish (ofile, "unable to truncate");
392: (void) close (out);
393: }
394: (void) close (in);
395: return NOTOK;
396: }
397:
398: while ((i = read (in, buffer, sizeof buffer)) > OK)
399: if (write (out, buffer, i) != i) {
400: advise (ofile, "may have damaged");
401: i = NOTOK;
402: break;
403: }
404:
405: (void) close (in);
406: (void) close (out);
407:
408: return i;
409: }
410: #endif BSD42
411:
412: /* SEND */
413:
414: static void
415: sendfile(arg, file, pushsw)
416: register char **arg, *file;
417: int pushsw;
418: {
419: register int child_id,
420: i,
421: vecp;
422: char *cp,
423: *sp,
424: *vec[MAXARGS];
425:
426: if (strcmp (sp = r1bindex (sendproc, '/'), "send") == 0) {
427: cp = invo_name;
428: sendit (invo_name = sp, arg, file, pushsw);
429: invo_name = cp;
430: return;
431: }
432:
433: m_update ();
434: (void) fflush (stdout);
435:
436: for (i = 0; (child_id = vfork ()) == NOTOK && i < 5; i++)
437: sleep (5);
438: switch (child_id) {
439: case NOTOK:
440: advise (NULLCP, "unable to fork, so sending directly...");
441: case OK:
442: vecp = 0;
443: vec[vecp++] = invo_name;
444: if (pushsw)
445: vec[vecp++] = "-push";
446: if (arg)
447: while (*arg)
448: vec[vecp++] = *arg++;
449: vec[vecp++] = file;
450: vec[vecp] = NULL;
451:
452: execvp (sendproc, vec);
453: fprintf (stderr, "unable to exec ");
454: perror (sendproc);
455: _exit (-1);
456:
457: default:
458: if (pidwait (child_id, OK) == 0)
459: done (0);
460: return;
461: }
462: }
463:
464: /* */
465:
466: static struct swit sendswitches[] = {
467: #define ALIASW 0
468: "alias aliasfile", 0,
469:
470: #define DEBUGSW 1
471: "debug", -5,
472:
473: #define ENCRSW 2
474: "encrypt",
475: #ifndef TMA
476: -7,
477: #else TMA
478: 0,
479: #endif TMA
480: #define NENCRSW 3
481: "noencrypt",
482: #ifndef TMA
483: -9,
484: #else TMA
485: 0,
486: #endif TMA
487:
488: #define FILTSW 4
489: "filter filterfile", 0,
490: #define NFILTSW 5
491: "nofilter", 0,
492:
493: #define FRMTSW 6
494: "format", 0,
495: #define NFRMTSW 7
496: "noformat", 0,
497:
498: #define FORWSW 8
499: "forward", 0,
500: #define NFORWSW 9
501: "noforward", 0,
502:
503: #define MSGDSW 10
504: "msgid", 0,
505: #define NMSGDSW 11
506: "nomsgid", 0,
507:
508: #define SPSHSW 12
509: "push", 0,
510: #define NSPSHSW 13
511: "nopush", 0,
512:
513: #define UNIQSW 14
514: "unique", -6,
515: #define NUNIQSW 15
516: "nounique", -8,
517:
518: #define VERBSW 16
519: "verbose", 0,
520: #define NVERBSW 17
521: "noverbose", 0,
522:
523: #define WATCSW 18
524: "watch", 0,
525: #define NWATCSW 19
526: "nowatch", 0,
527:
528: #define WIDTHSW 20
529: "width columns", 0,
530:
531: #define SHELPSW 21
532: "help", 4,
533:
534: #define MAILSW 22
535: "mail", -4,
536: #define SAMLSW 23
537: "saml", -4,
538: #define SSNDSW 24
539: "send", -4,
540: #define SOMLSW 25
541: "soml", -4,
542:
543: #define CLIESW 26
544: "client host", -6,
545: #define SERVSW 27
546: "server host", -6,
547: #define SNOOPSW 28
548: "snoop", -5,
549:
550: #define SDRFSW 29
551: "draftfolder +folder", -6,
552: #define SDRMSW 30
553: "draftmessage msg", -6,
554: #define SNDRFSW 31
555: "nodraftfolder", -3,
556:
557: NULL, NULL
558: };
559:
560: /* */
561:
562: extern int debugsw; /* from sendsbr.c */
563: extern int forwsw;
564: extern int inplace;
565: extern int pushsw;
566: extern int unique;
567:
568: extern char *altmsg; /* .. */
569: extern char *annotext;
570: extern char *distfile;
571:
572: /* */
573:
574: static void
575: sendit(sp, arg, file, pushed)
576: register char *sp, **arg, *file;
577: int pushed;
578: {
579: int distsw = 0,
580: vecp = 1;
581: char *cp,
582: buf[100],
583: **ap,
584: **argp,
585: *arguments[MAXARGS],
586: *vec[MAXARGS];
587: struct stat st;
588: #ifdef UCI
589: FILE *fp;
590: #endif UCI
591:
592: if (arg)
593: (void) copyip (arg, vec);
594: if ((cp = m_find (sp)) != NULL) {
595: ap = brkstring (cp = getcpy (cp), " ", "\n");
596: ap = copyip (ap, arguments);
597: }
598: else
599: ap = arguments;
600: if (arg)
601: (void) copyip (vec, ap);
602: argp = arguments;
603:
604: debugsw = 0, forwsw = 1, inplace = 0, unique = 0;
605: altmsg = annotext = distfile = NULL;
606: vec[vecp++] = "-library";
607: vec[vecp++] = getcpy (m_maildir (""));
608:
609: /* */
610:
611: while (cp = *argp++) {
612: if (*cp == '-')
613: switch (smatch (++cp, sendswitches)) {
614: case AMBIGSW:
615: ambigsw (cp, sendswitches);
616: return;
617: case UNKWNSW:
618: advise (NULLCP, "-%s unknown\n", cp);
619: return;
620: case SHELPSW:
621: (void) sprintf (buf, "%s [switches]", sp);
622: help (buf, sendswitches);
623: return;
624:
625: case SPSHSW:
626: pushed++;
627: continue;
628: case NSPSHSW:
629: pushed = 0;
630: continue;
631:
632: case UNIQSW:
633: unique++;
634: continue;
635: case NUNIQSW:
636: unique = 0;
637: continue;
638: case FORWSW:
639: forwsw++;
640: continue;
641: case NFORWSW:
642: forwsw = 0;
643: continue;
644:
645: case DEBUGSW:
646: debugsw++; /* fall */
647: case NFILTSW:
648: case FRMTSW:
649: case NFRMTSW:
650: case MSGDSW:
651: case NMSGDSW:
652: case VERBSW:
653: case NVERBSW:
654: case WATCSW:
655: case NWATCSW:
656: case MAILSW:
657: case SAMLSW:
658: case SSNDSW:
659: case SOMLSW:
660: case ENCRSW:
661: case NENCRSW:
662: case SNOOPSW:
663: vec[vecp++] = --cp;
664: continue;
665:
666: case ALIASW:
667: case FILTSW:
668: case WIDTHSW:
669: case CLIESW:
670: case SERVSW:
671: vec[vecp++] = --cp;
672: if (!(cp = *argp++) || *cp == '-') {
673: advise (NULLCP, "missing argument to %s", argp[-2]);
674: return;
675: }
676: vec[vecp++] = cp;
677: continue;
678:
679: case SDRFSW:
680: case SDRMSW:
681: if (!(cp = *argp++) || *cp == '-') {
682: advise (NULLCP, "missing argument to %s", argp[-2]);
683: return;
684: }
685: case SNDRFSW:
686: continue;
687: }
688: advise (NULLCP, "usage: %s [switches]", sp);
689: return;
690: }
691:
692: /* */
693:
694: #ifdef TMA
695: if ((cp = getenv ("KDS")) == NULL || *cp == NULL)
696: if ((cp = m_find ("kdsproc")) && *cp)
697: (void) putenv ("KDS", cp);
698: if ((cp = getenv ("TMADB")) == NULL || *cp == NULL)
699: if ((cp = m_find ("tmadb")) && *cp)
700: (void) putenv ("TMADB", m_maildir (cp));
701: #endif TMA
702:
703: if ((cp = getenv ("SIGNATURE")) == NULL || *cp == NULL)
704: if ((cp = m_find ("signature")) && *cp)
705: (void) putenv ("SIGNATURE", cp);
706: #ifdef UCI
707: else {
708: (void) sprintf (buf, "%s/.signature", mypath);
709: if ((fp = fopen (buf, "r")) != NULL
710: && fgets (buf, sizeof buf, fp) != NULL) {
711: (void) fclose (fp);
712: if (cp = index (buf, '\n'))
713: *cp = NULL;
714: (void) putenv ("SIGNATURE", buf);
715: }
716: }
717: #endif UCI
718:
719: if ((annotext = getenv ("mhannotate")) == NULL || *annotext == NULL)
720: annotext = NULL;
721: if ((altmsg = getenv ("mhaltmsg")) == NULL || *altmsg == NULL)
722: altmsg = NULL;
723: if (annotext && ((cp = getenv ("mhinplace")) != NULL && *cp != NULL))
724: inplace = atoi (cp);
725:
726: if ((cp = getenv ("mhdist"))
727: && *cp
728: && (distsw = atoi (cp))
729: && altmsg) {
730: vec[vecp++] = "-dist";
731: distfile = getcpy (m_scratch (altmsg, invo_name));
732: if (link (altmsg, distfile) == NOTOK)
733: adios (distfile, "unable to link %s to", altmsg);
734: }
735: else
736: distfile = NULL;
737:
738: if (altmsg == NULL || stat (altmsg, &st) == NOTOK)
739: st.st_mtime = 0, st.st_dev = 0, st.st_ino = 0;
740: if (pushsw = pushed)
741: push ();
742:
743: vec[0] = r1bindex (postproc, '/');
744: closefds (3);
745:
746: if (sendsbr (vec, vecp, file, &st) == OK)
747: done (0);
748: }
749:
750: /* WHOM */
751:
752: static int
753: whomfile(arg, file)
754: register char **arg, *file;
755: {
756: int pid;
757: register int vecp;
758: char *vec[MAXARGS];
759:
760: m_update ();
761: (void) fflush (stdout);
762:
763: switch (pid = vfork ()) {
764: case NOTOK:
765: advise ("fork", "unable to");
766: return 1;
767:
768: case OK:
769: vecp = 0;
770: vec[vecp++] = r1bindex (whomproc, '/');
771: vec[vecp++] = file;
772: if (arg)
773: while (*arg)
774: vec[vecp++] = *arg++;
775: vec[vecp] = NULL;
776:
777: execvp (whomproc, vec);
778: fprintf (stderr, "unable to exec ");
779: perror (whomproc);
780: _exit (-1); /* NOTREACHED */
781:
782: default:
783: return (pidwait (pid, NOTOK) & 0377 ? 1 : 0);
784: }
785: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.