1*48337Sbostic /*- 2*48337Sbostic * %sccs.include.proprietary.c% 3*48337Sbostic */ 4*48337Sbostic 511785Ssam #ifndef lint 6*48337Sbostic static char sccsid[] = "@(#)enroll.c 4.4 (Berkeley) 04/18/91"; 7*48337Sbostic #endif /* not lint */ 811785Ssam 937916Sbostic #include <sys/types.h> 1037916Sbostic #include <pwd.h> 1111785Ssam #include "xmail.h" 1237916Sbostic #include "pathnames.h" 1337916Sbostic 1411785Ssam MINT *a[42], *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15; 1511785Ssam char buf[256]; 1637916Sbostic char maildir[] = _PATH_SECRETMAIL; 1711785Ssam main() 1811785Ssam { 1911785Ssam int uid, i; 2011785Ssam FILE *fd; 2111785Ssam char *myname, fname[128]; 2211785Ssam uid = getuid(); 2312564Sralph myname = (char *) getlogin(); 2411785Ssam if(myname == NULL) 2511785Ssam myname = getpwuid(uid)->pw_name; 2611785Ssam sprintf(fname, "%s/%s.key", maildir, myname); 2711785Ssam comminit(); 2811785Ssam setup(getpass("Gimme key: ")); 2911785Ssam mkb(); 3011785Ssam mkx(); 3111785Ssam #ifdef debug 3211785Ssam omout(b); 3311785Ssam omout(x); 3411785Ssam #endif 3511785Ssam mka(); 3611785Ssam i = creat(fname, 0644); 3711785Ssam if(i<0) 3812564Sralph { perror(fname); 3911785Ssam exit(1); 4011785Ssam } 4111785Ssam close(i); 4211785Ssam fd = fopen(fname, "w"); 4311785Ssam for(i=0; i<42; i++) 4411785Ssam nout(a[i], fd); 4511785Ssam exit(0); 4611785Ssam } 47