13d1d3d04Sbostic /*-
23d1d3d04Sbostic * %sccs.include.proprietary.c%
33d1d3d04Sbostic */
43d1d3d04Sbostic
547ac669bSsam #ifndef lint
6*3b0c3ecaSbostic static char sccsid[] = "@(#)enroll.c 8.1 (Berkeley) 06/06/93";
73d1d3d04Sbostic #endif /* not lint */
847ac669bSsam
90ab655abSbostic #include <sys/types.h>
100ab655abSbostic #include <pwd.h>
1147ac669bSsam #include "xmail.h"
120ab655abSbostic #include "pathnames.h"
130ab655abSbostic
1447ac669bSsam MINT *a[42], *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15;
1547ac669bSsam char buf[256];
160ab655abSbostic char maildir[] = _PATH_SECRETMAIL;
main()1747ac669bSsam main()
1847ac669bSsam {
1947ac669bSsam int uid, i;
2047ac669bSsam FILE *fd;
2147ac669bSsam char *myname, fname[128];
2247ac669bSsam uid = getuid();
2343f2507eSralph myname = (char *) getlogin();
2447ac669bSsam if(myname == NULL)
2547ac669bSsam myname = getpwuid(uid)->pw_name;
2647ac669bSsam sprintf(fname, "%s/%s.key", maildir, myname);
2747ac669bSsam comminit();
2847ac669bSsam setup(getpass("Gimme key: "));
2947ac669bSsam mkb();
3047ac669bSsam mkx();
3147ac669bSsam #ifdef debug
3247ac669bSsam omout(b);
3347ac669bSsam omout(x);
3447ac669bSsam #endif
3547ac669bSsam mka();
3647ac669bSsam i = creat(fname, 0644);
3747ac669bSsam if(i<0)
3843f2507eSralph { perror(fname);
3947ac669bSsam exit(1);
4047ac669bSsam }
4147ac669bSsam close(i);
4247ac669bSsam fd = fopen(fname, "w");
4347ac669bSsam for(i=0; i<42; i++)
4447ac669bSsam nout(a[i], fd);
4547ac669bSsam exit(0);
4647ac669bSsam }
47