Added list of hand picked types initially genereted by...
[mmh] / uip / viamail.c
1
2 /*
3  * viamail.c -- send multiple files in a MIME 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 <fcntl.h>
12 #include <h/signals.h>
13 #include <h/md5.h>
14 #include <errno.h>
15 #include <signal.h>
16 #include <h/mts.h>
17 #include <h/tws.h>
18 #include <h/mime.h>
19 #include <h/mhparse.h>
20
21 static struct swit switches[] = {
22 #define TOSW                    0
23     { "to mailpath", 0 },
24 #define FROMSW                  1
25     { "from mailpath", 0 },
26 #define SUBJECTSW               2
27     { "subject subject", 0 },
28 #define PARAMSW                 3
29     { "parameters arguments", 0 },
30 #define DESCRIPTSW              4
31     { "description text", 0 },
32 #define COMMENTSW               5
33     { "comment text", 0 },
34 #define DELAYSW                 6
35     { "delay seconds", 0 },
36 #define VERBSW                  7
37     { "verbose", 0 },
38 #define NVERBSW                 8
39     { "noverbose", 0 },
40 #define VERSIONSW               9
41     { "version", 0 },
42 #define HELPSW                 10
43     { "help", 0 },
44 #define DEBUGSW                11
45     { "debug", -5 },
46     { NULL, 0 }
47 };
48
49 extern int debugsw;
50 extern int splitsw;
51 extern int verbsw;
52
53 int ebcdicsw = 0;       /* hack for linking purposes */
54
55 /*
56  * static prototypes
57  */
58 static int via_mail (char *, char *, char *, char *, char *, int, char *);
59
60
61 int
62 main (int argc, char **argv)
63 {
64     int delay = 0;
65     char *f1 = NULL, *f2 = NULL, *f3 = NULL;
66     char *f4 = NULL, *f5 = NULL, *f7 = NULL;
67     char *cp, buf[BUFSIZ];
68     char **argp, **arguments;
69
70 #ifdef LOCALE
71     setlocale(LC_ALL, "");
72 #endif
73     invo_name = r1bindex (argv[0], '/');
74
75     /* foil search of user profile/context */
76     if (context_foil (NULL) == -1)
77         done (1);
78
79     arguments = getarguments (invo_name, argc, argv, 0);
80     argp = arguments;
81
82     while ((cp = *argp++)) {
83         if (*cp == '-') {
84             switch (smatch (++cp, switches)) {
85             case AMBIGSW: 
86                 ambigsw (cp, switches);
87                 done (1);
88             case UNKWNSW: 
89                 adios (NULL, "-%s unknown", cp);
90
91             case HELPSW: 
92                 snprintf (buf, sizeof(buf), "%s [switches]", invo_name);
93                 print_help (buf, switches, 1);
94                 done (1);
95             case VERSIONSW:
96                 print_version(invo_name);
97                 done (1);
98     
99             case TOSW:
100                 if (!(f1 = *argp++))
101                     adios (NULL, "missing argument to %s", argp[-2]);
102                 continue;
103             case SUBJECTSW:
104                 if (!(f2 = *argp++))
105                     adios (NULL, "missing argument to %s", argp[-2]);
106                 continue;
107             case PARAMSW:
108                 if (!(f3 = *argp++))
109                     adios (NULL, "missing argument to %s", argp[-2]);
110                 continue;
111             case DESCRIPTSW:
112                 if (!(f4 = *argp++))
113                     adios (NULL, "missing argument to %s", argp[-2]);
114                 continue;
115             case COMMENTSW:
116                 if (!(f5 = *argp++))
117                     adios (NULL, "missing argument to %s", argp[-2]);
118                 continue;
119             case DELAYSW:
120                 if (!(cp = *argp++) || *cp == '-')
121                     adios (NULL, "missing argument to %s", argp[-2]);
122
123                 /*
124                  * If there is an error, just reset the delay parameter
125                  * to -1.  We will set a default delay later.
126                  */
127                 if (sscanf (cp, "%d", &delay) != 1)
128                     delay = -1;
129                 continue;
130             case FROMSW:
131                 if (!(f7 = *argp++))
132                     adios (NULL, "missing argument to %s", argp[-2]);
133                 continue;
134
135             case VERBSW: 
136                 verbsw = 1;
137                 continue;
138             case NVERBSW: 
139                 verbsw = 0;
140                 continue;
141
142             case DEBUGSW:
143                 debugsw = 1;
144                 continue;
145             }
146         }
147     }
148
149     set_endian ();
150
151     if (!f1)
152         adios (NULL, "missing -viamail \"mailpath\" switch");
153
154     via_mail (f1, f2, f3, f4, f5, delay, f7);
155     return 0;  /* dead code to satisfy the compiler */
156 }
157
158
159 /*
160  * VIAMAIL
161  */
162
163 static int
164 via_mail (char *mailsw, char *subjsw, char *parmsw, char *descsw,
165           char *cmntsw, int delay, char *fromsw)
166 {
167     int status, vecp = 1;
168     char tmpfil[BUFSIZ];
169     char *vec[MAXARGS];
170     struct stat st;
171     FILE *fp;
172     char *tfile = NULL;
173
174     umask (~m_gmprot ());
175
176     tfile = m_mktemp2(NULL, invo_name, NULL, &fp);
177     if (tfile == NULL) adios("viamail", "unable to create temporary file");
178     chmod(tfile, 0600);
179     strncpy (tmpfil, tfile, sizeof(tmpfil));
180
181     if (!strchr(mailsw, '@'))
182         mailsw = concat (mailsw, "@", LocalName (0), NULL);
183     fprintf (fp, "To: %s\n", mailsw);
184
185     if (subjsw)
186         fprintf (fp, "Subject: %s\n", subjsw);
187
188     if (fromsw) {
189         if (!strchr(fromsw, '@'))
190             fromsw = concat (fromsw, "@", LocalName (0), NULL);
191         fprintf (fp, "From: %s\n", fromsw);
192     }
193
194     fprintf (fp, "%s: %s\n", VRSN_FIELD, VRSN_VALUE);
195     fprintf (fp, "%s: application/octet-stream", TYPE_FIELD);
196
197     if (parmsw)
198         fprintf (fp, "; %s", parmsw);
199
200     if (cmntsw)
201         fprintf (fp, "\n\t(%s)", cmntsw);
202
203     if (descsw)
204         fprintf (fp, "\n%s: %s", DESCR_FIELD, descsw);
205
206     fprintf (fp, "\n%s: %s\n\n", ENCODING_FIELD, "base64");
207
208     if (fflush (fp))
209         adios (tmpfil, "error writing to");
210
211     writeBase64aux (stdin, fp);
212     if (fflush (fp))
213         adios (tmpfil, "error writing to");
214
215     if (fstat (fileno (fp), &st) == NOTOK)
216         adios ("failed", "fstat of %s", tmpfil);
217
218     if (delay < 0)
219         splitsw = 10;
220     else
221         splitsw = delay;
222
223     status = 0;
224     vec[0] = r1bindex (postproc, '/');
225     if (verbsw)
226         vec[vecp++] = "-verbose";
227
228     switch (sendsbr (vec, vecp, tmpfil, &st, 0, (char *)0, 0)) {
229         case DONE:
230         case NOTOK:
231             status++;
232             break;
233         case OK:
234             break;
235     }
236
237     fclose (fp);
238     if (unlink (tmpfil) == -1)
239         advise (NULL, "unable to remove temp file %s", tmpfil);
240     done (status);
241     return 1;
242 }