1 /*-
2 * %sccs.include.proprietary.c%
3 */
4
5 #ifndef lint
6 static char sccsid[] = "@(#)enroll.c 8.1 (Berkeley) 06/06/93";
7 #endif /* not lint */
8
9 #include <sys/types.h>
10 #include <pwd.h>
11 #include "xmail.h"
12 #include "pathnames.h"
13
14 MINT *a[42], *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15;
15 char buf[256];
16 char maildir[] = _PATH_SECRETMAIL;
main()17 main()
18 {
19 int uid, i;
20 FILE *fd;
21 char *myname, fname[128];
22 uid = getuid();
23 myname = (char *) getlogin();
24 if(myname == NULL)
25 myname = getpwuid(uid)->pw_name;
26 sprintf(fname, "%s/%s.key", maildir, myname);
27 comminit();
28 setup(getpass("Gimme key: "));
29 mkb();
30 mkx();
31 #ifdef debug
32 omout(b);
33 omout(x);
34 #endif
35 mka();
36 i = creat(fname, 0644);
37 if(i<0)
38 { perror(fname);
39 exit(1);
40 }
41 close(i);
42 fd = fopen(fname, "w");
43 for(i=0; i<42; i++)
44 nout(a[i], fd);
45 exit(0);
46 }
47