![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dist.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 dist.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / uip |
1.1 root 1: /* dist.c - re-distribute 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 DFOLDSW 2
17: "draftfolder +folder", 0,
18: #define DMSGSW 3
19: "draftmessage msg", 0,
20: #define NDFLDSW 4
21: "nodraftfolder", 0,
22:
23: #define EDITRSW 5
24: "editor editor", 0,
25: #define NEDITSW 6
26: "noedit", 0,
27:
28: #define FORMSW 7
29: "form formfile", 0,
30:
31: #define INPLSW 8
32: "inplace", 0,
33: #define NINPLSW 9
34: "noinplace", 0,
35:
36: #define WHATSW 10
37: "whatnowproc program", 0,
38: #define NWHATSW 11
39: "nowhatnowproc", 0,
40:
41: #define HELPSW 12
42: "help", 4,
43:
44: #define FILESW 13
45: "file file", -4, /* interface from msh */
46:
47: NULL, NULL
48: };
49:
50: /* */
51:
52: static struct swit aqrnl[] = {
53: #define NOSW 0
54: "quit", 0,
55: #define YESW 1
56: "replace", 0,
57: #define LISTDSW 2
58: "list", 0,
59: #define REFILSW 3
60: "refile +folder", 0,
61: #define NEWSW 4
62: "new", 0,
63:
64: NULL, NULL
65: };
66:
67:
68: static struct swit aqrl[] = {
69: "quit", 0,
70: "replace", 0,
71: "list", 0,
72: "refile +folder", 0,
73:
74: NULL, NULL
75: };
76:
77: /* */
78:
79: /* ARGSUSED */
80:
81: main (argc, argv)
82: int argc;
83: char *argv[];
84: {
85: int anot = 0,
86: inplace = 0,
87: nedit = 0,
88: nwhat = 0,
89: i,
90: in,
91: isdf = 0,
92: out;
93: char *cp,
94: *cwd,
95: *maildir,
96: *msgnam,
97: *dfolder = NULL,
98: *dmsg = NULL,
99: *ed = NULL,
100: *file = NULL,
101: *folder = NULL,
102: *form = NULL,
103: *msg = NULL,
104: buf[100],
105: drft[BUFSIZ],
106: **ap,
107: **argp,
108: *arguments[MAXARGS];
109: struct msgs *mp = NULL;
110: struct stat st;
111:
112: invo_name = r1bindex (argv[0], '/');
113: if ((cp = m_find (invo_name)) != NULL) {
114: ap = brkstring (cp = getcpy (cp), " ", "\n");
115: ap = copyip (ap, arguments);
116: }
117: else
118: ap = arguments;
119: (void) copyip (argv + 1, ap);
120: argp = arguments;
121:
122: /* */
123:
124: while (cp = *argp++) {
125: if (*cp == '-')
126: switch (smatch (++cp, switches)) {
127: case AMBIGSW:
128: ambigsw (cp, switches);
129: done (1);
130: case UNKWNSW:
131: adios (NULLCP, "-%s unknown", cp);
132: case HELPSW:
133: (void) sprintf (buf, "%s [+folder] [msg] [switches]",
134: invo_name);
135: help (buf, switches);
136: done (1);
137:
138: case ANNOSW:
139: anot++;
140: continue;
141: case NANNOSW:
142: anot = 0;
143: continue;
144:
145: case EDITRSW:
146: if (!(ed = *argp++) || *ed == '-')
147: adios (NULLCP, "missing argument to %s", argp[-2]);
148: nedit = 0;
149: continue;
150: case NEDITSW:
151: nedit++;
152: continue;
153:
154: case WHATSW:
155: if (!(whatnowproc = *argp++) || *whatnowproc == '-')
156: adios (NULLCP, "missing argument to %s", argp[-2]);
157: nwhat = 0;
158: continue;
159: case NWHATSW:
160: nwhat++;
161: continue;
162:
163: case FILESW:
164: if (file)
165: adios (NULLCP, "only one file at a time!");
166: if (!(cp = *argp++) || *cp == '-')
167: adios (NULLCP, "missing argument to %s", argp[-2]);
168: file = path (cp, TFILE);
169: continue;
170: case FORMSW:
171: if (!(form = *argp++) || *form == '-')
172: adios (NULLCP, "missing argument to %s", argp[-2]);
173: continue;
174:
175: case INPLSW:
176: inplace++;
177: continue;
178: case NINPLSW:
179: inplace = 0;
180: continue;
181:
182: case DFOLDSW:
183: if (dfolder)
184: adios (NULLCP, "only one draft folder at a time!");
185: if (!(cp = *argp++) || *cp == '-')
186: adios (NULLCP, "missing argument to %s", argp[-2]);
187: dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
188: *cp != '@' ? TFOLDER : TSUBCWF);
189: continue;
190: case DMSGSW:
191: if (dmsg)
192: adios (NULLCP, "only one draft message at a time!");
193: if (!(dmsg = *argp++) || *dmsg == '-')
194: adios (NULLCP, "missing argument to %s", argp[-2]);
195: continue;
196: case NDFLDSW:
197: dfolder = NULL;
198: isdf = NOTOK;
199: continue;
200: }
201: if (*cp == '+' || *cp == '@') {
202: if (folder)
203: adios (NULLCP, "only one folder at a time!");
204: else
205: folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
206: }
207: else
208: if (msg)
209: adios (NULLCP, "only one message at a time!");
210: else
211: msg = cp;
212: }
213:
214: /* */
215:
216: cwd = getcpy (pwd ());
217:
218: if (!m_find ("path"))
219: free (path ("./", TFOLDER));
220: if (file && (msg || folder))
221: adios (NULLCP, "can't mix files and folders/msgs");
222:
223: if (form) {
224: if ((in = open (libpath (form), 0)) == NOTOK)
225: adios (form, "unable to open form file");
226: }
227: else {
228: if ((in = open (libpath (distcomps), 0)) == NOTOK)
229: adios (distcomps, "unable to open default components file");
230: form = distcomps;
231: }
232:
233: try_it_again: ;
234: (void) strcpy (drft, m_draft (dfolder, dmsg, NOUSE, &isdf));
235: if (stat (drft, &st) != NOTOK) {
236: printf ("Draft \"%s\" exists (%ld bytes).", drft, st.st_size);
237: for (i = LISTDSW; i != YESW;) {
238: if (!(argp = getans ("\nDisposition? ", isdf ? aqrnl : aqrl)))
239: done (1);
240: switch (i = smatch (*argp, isdf ? aqrnl : aqrl)) {
241: case NOSW:
242: done (0);
243: case NEWSW:
244: dmsg = NULL;
245: goto try_it_again;
246: case YESW:
247: break;
248: case LISTDSW:
249: (void) showfile (++argp, drft);
250: break;
251: case REFILSW:
252: if (refile (++argp, drft) == 0)
253: i = YESW;
254: break;
255: default:
256: advise (NULLCP, "say what?");
257: break;
258: }
259: }
260: }
261: if ((out = creat (drft, m_gmprot ())) == NOTOK)
262: adios (drft, "unable to create");
263:
264: cpydata (in, out, form, drft);
265: (void) close (in);
266: (void) close (out);
267:
268: /* */
269:
270: if (file) {
271: anot = 0;
272: goto go_to_it;
273: }
274:
275: if (!msg)
276: msg = "cur";
277: if (!folder)
278: folder = m_getfolder ();
279: maildir = m_maildir (folder);
280:
281: if (chdir (maildir) == NOTOK)
282: adios (maildir, "unable to change directory to");
283: if (!(mp = m_gmsg (folder)))
284: adios (NULLCP, "unable to read folder %s", folder);
285: if (mp -> hghmsg == 0)
286: adios (NULLCP, "no messages in %s", folder);
287:
288: if (!m_convert (mp, msg))
289: done (1);
290: m_setseq (mp);
291:
292: if (mp -> numsel > 1)
293: adios (NULLCP, "only one message at a time!");
294:
295: go_to_it: ;
296: if ((in = open (msgnam = file ? file : getcpy (m_name (mp -> lowsel)), 0))
297: == NOTOK)
298: adios (msgnam, "unable to open message");
299:
300: if (!file) {
301: m_replace (pfolder, folder);
302: if (mp -> lowsel != mp -> curmsg)
303: m_setcur (mp, mp -> lowsel);
304: m_sync (mp);
305: m_update ();
306: }
307:
308: if (nwhat)
309: done (0);
310: (void) m_whatnow (ed, nedit, NOUSE, drft, msgnam, 1, mp,
311: anot ? "Resent" : NULLCP, inplace, cwd);
312: done (1);
313: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.