Added list of hand picked types initially genereted by...
[mmh] / uip / dist.c
1
2 /*
3  * dist.c -- re-distribute a message
4  *
5  * This code is Copyright (c) 2002, by the authors of nmh.  See the
6  * COPYRIGHT file in the root directory of the nmh distribution for
7  * complete copyright information.
8  */
9
10 #include <h/mh.h>
11 #include <h/utils.h>
12 #include <fcntl.h>
13
14 static struct swit switches[] = {
15 #define ANNOSW  0
16     { "annotate", 0 },
17 #define NANNOSW 1
18     { "noannotate", 0 },
19 #define DFOLDSW 2
20     { "draftfolder +folder", 0 },
21 #define DMSGSW  3
22     { "draftmessage msg", 0 },
23 #define NDFLDSW 4
24     { "nodraftfolder", 0 },
25 #define EDITRSW 5
26     { "editor editor", 0 },
27 #define NEDITSW 6
28     { "noedit", 0 },
29 #define FORMSW  7
30     { "form formfile", 0 },
31 #define INPLSW  8
32     { "inplace", 0 },
33 #define NINPLSW 9
34     { "noinplace", 0 },
35 #define WHATSW  10
36     { "whatnowproc program", 0 },
37 #define NWHATSW 11
38     { "nowhatnowproc", 0 },
39 #define VERSIONSW 12
40     { "version", 0 },
41 #define HELPSW  13
42     { "help", 0 },
43 #define FILESW  14
44     { "file file", -4 },        /* interface from msh */
45 #define FROMSW  15
46     { "from address", 0 },
47 #define TOSW    16
48     { "to address", 0 },
49 #define CCSW    17
50     { "cc address", 0 },
51 #define FCCSW   18
52     { "fcc mailbox", 0 },
53 #define WIDTHSW 19
54     { "width columns", 0 },
55 #define ATFILESW 20
56     { "atfile", 0 },
57 #define NOATFILESW 21
58     { "noatfile", 0 },
59     { NULL, 0 }
60 };
61
62 static struct swit aqrnl[] = {
63 #define NOSW    0
64     { "quit", 0 },
65 #define YESW    1
66     { "replace", 0 },
67 #define LISTDSW 2
68     { "list", 0 },
69 #define REFILSW 3
70     { "refile +folder", 0 },
71 #define NEWSW   4
72     { "new", 0 },
73     { NULL, 0 }
74 };
75
76
77 static struct swit aqrl[] = {
78     { "quit", 0 },
79     { "replace", 0 },
80     { "list", 0 },
81     { "refile +folder", 0 },
82     { NULL, 0 }
83 };
84
85
86 int
87 main (int argc, char **argv)
88 {
89     int anot = 0, inplace = 1, nedit = 0;
90     int nwhat = 0, i, in, isdf = 0, out;
91     int outputlinelen = OUTPUTLINELEN;
92     int dat[5], atfile = 1;
93     char *cp, *cwd, *maildir, *msgnam, *dfolder = NULL;
94     char *dmsg = NULL, *ed = NULL, *file = NULL, *folder = NULL;
95     char *form = NULL, *msg = NULL, buf[BUFSIZ], drft[BUFSIZ];
96     char *from = NULL, *to = NULL, *cc = NULL, *fcc = NULL;
97     char **argp, **arguments;
98     struct msgs *mp = NULL;
99     struct stat st;
100
101 #ifdef LOCALE
102     setlocale(LC_ALL, "");
103 #endif
104     invo_name = r1bindex (argv[0], '/');
105
106     /* read user profile/context */
107     context_read();
108
109     arguments = getarguments (invo_name, argc, argv, 1);
110     argp = arguments;
111
112     while ((cp = *argp++)) {
113         if (*cp == '-') {
114             switch (smatch (++cp, switches)) {
115                 case AMBIGSW: 
116                     ambigsw (cp, switches);
117                     done (1);
118                 case UNKWNSW: 
119                     adios (NULL, "-%s unknown", cp);
120
121                 case HELPSW: 
122                     snprintf (buf, sizeof(buf), "%s [+folder] [msg] [switches]",
123                         invo_name);
124                     print_help (buf, switches, 1);
125                     done (1);
126                 case VERSIONSW:
127                     print_version(invo_name);
128                     done (1);
129
130                 case ANNOSW: 
131                     anot++;
132                     continue;
133                 case NANNOSW: 
134                     anot = 0;
135                     continue;
136
137                 case EDITRSW: 
138                     if (!(ed = *argp++) || *ed == '-')
139                         adios (NULL, "missing argument to %s", argp[-2]);
140                     nedit = 0;
141                     continue;
142                 case NEDITSW:
143                     nedit++;
144                     continue;
145                     
146                 case WHATSW: 
147                     if (!(whatnowproc = *argp++) || *whatnowproc == '-')
148                         adios (NULL, "missing argument to %s", argp[-2]);
149                     nwhat = 0;
150                     continue;
151                 case NWHATSW: 
152                     nwhat++;
153                     continue;
154
155                 case FILESW: 
156                     if (file)
157                         adios (NULL, "only one file at a time!");
158                     if (!(cp = *argp++) || *cp == '-')
159                         adios (NULL, "missing argument to %s", argp[-2]);
160                     file = path (cp, TFILE);
161                     continue;
162                 case FORMSW: 
163                     if (!(form = *argp++) || *form == '-')
164                         adios (NULL, "missing argument to %s", argp[-2]);
165                     continue;
166
167                 case INPLSW: 
168                     inplace++;
169                     continue;
170                 case NINPLSW: 
171                     inplace = 0;
172                     continue;
173
174                 case DFOLDSW: 
175                     if (dfolder)
176                         adios (NULL, "only one draft folder at a time!");
177                     if (!(cp = *argp++) || *cp == '-')
178                         adios (NULL, "missing argument to %s", argp[-2]);
179                     dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
180                             *cp != '@' ? TFOLDER : TSUBCWF);
181                     continue;
182                 case DMSGSW: 
183                     if (dmsg)
184                         adios (NULL, "only one draft message at a time!");
185                     if (!(dmsg = *argp++) || *dmsg == '-')
186                         adios (NULL, "missing argument to %s", argp[-2]);
187                     continue;
188                 case NDFLDSW: 
189                     dfolder = NULL;
190                     isdf = NOTOK;
191                     continue;
192
193                 case FROMSW:
194                     if (!(cp = *argp++) || *cp == '-')
195                         adios (NULL, "missing argument to %s", argp[-2]);
196                     from = addlist(from, cp);
197                     continue;
198                 case TOSW:
199                     if (!(cp = *argp++) || *cp == '-')
200                         adios (NULL, "missing argument to %s", argp[-2]);
201                     to = addlist(to, cp);
202                     continue;
203                 case CCSW:
204                     if (!(cp = *argp++) || *cp == '-')
205                         adios (NULL, "missing argument to %s", argp[-2]);
206                     cc = addlist(cc, cp);
207                     continue;
208                 case FCCSW:
209                     if (!(cp = *argp++) || *cp == '-')
210                         adios (NULL, "missing argument to %s", argp[-2]);
211                     fcc = addlist(fcc, cp);
212                     continue;
213
214                 case WIDTHSW:
215                     if (!(cp = *argp++) || *cp == '-')
216                         adios (NULL, "missing argument to %s", argp[-2]);
217                     if ((outputlinelen = atoi(cp)) < 10)
218                         adios (NULL, "impossible width %d", outputlinelen);
219                     continue;
220
221                 case ATFILESW:
222                     atfile++;
223                     continue;
224                 case NOATFILESW:
225                     atfile = 0;
226                     continue;
227             }
228         }
229         if (*cp == '+' || *cp == '@') {
230             if (folder)
231                 adios (NULL, "only one folder at a time!");
232             else
233                 folder = pluspath (cp);
234         } else {
235             if (msg)
236                 adios (NULL, "only one message at a time!");
237             else
238                 msg = cp;
239         }
240     }
241
242     cwd = getcpy (pwd ());
243
244     if (!context_find ("path"))
245         free (path ("./", TFOLDER));
246     if (file && (msg || folder))
247         adios (NULL, "can't mix files and folders/msgs");
248
249 try_it_again:
250     strncpy (drft, m_draft (dfolder, dmsg, NOUSE, &isdf), sizeof(drft));
251
252     /* Check if draft already exists */
253     if (stat (drft, &st) != NOTOK) {
254         printf ("Draft \"%s\" exists (%ld bytes).", drft, (long) st.st_size);
255         for (i = LISTDSW; i != YESW;) {
256             if (!(argp = getans ("\nDisposition? ", isdf ? aqrnl : aqrl)))
257                 done (1);
258             switch (i = smatch (*argp, isdf ? aqrnl : aqrl)) {
259                 case NOSW: 
260                     done (0);
261                 case NEWSW: 
262                     dmsg = NULL;
263                     goto try_it_again;
264                 case YESW: 
265                     break;
266                 case LISTDSW: 
267                     showfile (++argp, drft);
268                     break;
269                 case REFILSW: 
270                     if (refile (++argp, drft) == 0)
271                         i = YESW;
272                     break;
273                 default: 
274                     advise (NULL, "say what?");
275                     break;
276             }
277         }
278     }
279
280     if (file) {
281         /*
282          * Dist a file
283          */
284         anot = 0;       /* don't want to annotate a file */
285     } else {
286         /*
287          * Dist a message
288          */
289         if (!msg)
290             msg = "cur";
291         if (!folder)
292             folder = getfolder (1);
293         maildir = m_maildir (folder);
294
295         if (chdir (maildir) == NOTOK)
296             adios (maildir, "unable to change directory to");
297
298         /* read folder and create message structure */
299         if (!(mp = folder_read (folder)))
300             adios (NULL, "unable to read folder %s", folder);
301
302         /* check for empty folder */
303         if (mp->nummsg == 0)
304             adios (NULL, "no messages in %s", folder);
305
306         /* parse the message range/sequence/name and set SELECTED */
307         if (!m_convert (mp, msg))
308             done (1);
309         seq_setprev (mp);       /* set the previous-sequence */
310
311         if (mp->numsel > 1)
312             adios (NULL, "only one message at a time!");
313     }
314
315     msgnam = file ? file : getcpy (m_name (mp->lowsel));
316
317     dat[0] = mp ? mp->lowsel : 0;
318     dat[1] = 0;
319     dat[2] = 0;
320     dat[3] = outputlinelen;
321     dat[4] = 0;
322
323     if (!form)
324         form = distcomps;
325
326     in = build_form(form, NULL, dat, from, to, cc, fcc, NULL, msgnam);
327
328     if ((out = creat (drft, m_gmprot ())) == NOTOK)
329         adios (drft, "unable to create");
330
331     cpydata (in, out, form, drft);
332     close (in);
333     close (out);
334
335     if ((in = open (msgnam, O_RDONLY)) == NOTOK)
336         adios (msgnam, "unable to open message");
337
338     if (!file) {
339         context_replace (pfolder, folder);/* update current folder  */
340         seq_setcur (mp, mp->lowsel);      /* update current message */
341         seq_save (mp);                    /* synchronize sequences  */
342         context_save ();                  /* save the context file  */
343     }
344
345     if (nwhat)
346         done (0);
347     what_now (ed, nedit, NOUSE, drft, atfile ? msgnam : NULL, 1, mp,
348         anot ? "Resent" : NULL, inplace, cwd);
349     done (1);
350     return 1;
351 }