Added test of -nosequence to test-pick.
[mmh] / docs / historical / mh-6.8.5 / uip / rcvpack.c
1 /* rcvpack.c - a rcvmail program to keep a copy */
2 #ifndef lint
3 static char ident[] = "@(#)$Id: rcvpack.c,v 1.5 1993/08/25 17:27:19 jromine Exp $";
4 #endif  /* lint */
5
6 #include "../h/mh.h"
7 #include "../h/dropsbr.h"
8 #include "../h/rcvmail.h"
9 #include "../zotnet/tws.h"
10 #include "../zotnet/mts.h"
11 #ifdef LOCALE
12 #include        <locale.h>
13 #endif
14
15 /* \f */
16
17 static struct swit switches[] = {
18 #define HELPSW  0
19     "help", 4,
20
21     NULL, 0
22 };
23
24 /* \f */
25
26 /* ARGSUSED */
27
28 main (argc, argv)
29 int     argc;
30 char  **argv;
31 {
32     int     md;
33     char   *cp,
34            *file = NULL,
35             buf[100],
36             ddate[BUFSIZ],
37           **ap,
38           **argp,
39            *arguments[MAXARGS];
40
41 #ifdef LOCALE
42         setlocale(LC_ALL, "");
43 #endif
44     invo_name = r1bindex (argv[0], '/');
45     mts_init (invo_name);
46     if ((cp = m_find (invo_name)) != NULL) {
47         ap = brkstring (cp = getcpy (cp), " ", "\n");
48         ap = copyip (ap, arguments);
49     }
50     else
51         ap = arguments;
52     (void) copyip (argv + 1, ap);
53     argp = arguments;
54
55 /* \f */
56
57     while (cp = *argp++) {
58         if (*cp == '-')
59             switch (smatch (++cp, switches)) {
60                 case AMBIGSW: 
61                     ambigsw (cp, switches);
62                     done (1);
63                 case UNKWNSW: 
64                     adios (NULLCP, "-%s unknown", cp);
65                 case HELPSW: 
66                     (void) sprintf (buf, "%s [switches] file", invo_name);
67                     help (buf, switches);
68                     done (1);
69             }
70         if (file)
71             adios (NULLCP, "only one file at a time!");
72         else
73             file = cp;
74     }
75
76 /* \f */
77
78     if (!file)
79         adios (NULLCP, "%s [switches] file", invo_name);
80
81     (void) sprintf (ddate, "Delivery-Date: %s\n", dtimenow ());
82     rewind (stdin);
83     if ((md = mbx_open (file, getuid (), getgid (), m_gmprot ())) == NOTOK
84             || mbx_copy (file, md, fileno (stdin), 1, ddate, 0) == NOTOK
85             || mbx_close (file, md) == NOTOK) {
86         if (md != NOTOK)
87             (void) mbx_close (file, md);
88         done (RCV_MBX);
89     }
90
91     done (RCV_MOK);
92 }