written by Bill Joy; add Berkeley copyright
[unix-history] / usr / src / usr.bin / xsend / enroll / enroll.c
CommitLineData
ba4da37f 1#ifndef lint
1affffda 2static char sccsid[] = "@(#)enroll.c 4.2 %G%";
ba4da37f
SL
3#endif
4
5#include "xmail.h"
6#include "pwd.h"
7#include "sys/types.h"
8MINT *a[42], *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15;
9char buf[256];
10char maildir[] = { "/usr/spool/secretmail"};
11main()
12{
13 int uid, i;
14 FILE *fd;
15 char *myname, fname[128];
16 uid = getuid();
91b0cefa 17 myname = (char *) getlogin();
ba4da37f
SL
18 if(myname == NULL)
19 myname = getpwuid(uid)->pw_name;
20 sprintf(fname, "%s/%s.key", maildir, myname);
21 comminit();
22 setup(getpass("Gimme key: "));
23 mkb();
24 mkx();
25#ifdef debug
26 omout(b);
27 omout(x);
28#endif
29 mka();
30 i = creat(fname, 0644);
31 if(i<0)
91b0cefa 32 { perror(fname);
ba4da37f
SL
33 exit(1);
34 }
35 close(i);
36 fd = fopen(fname, "w");
37 for(i=0; i<42; i++)
38 nout(a[i], fd);
39 exit(0);
40}