home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / xsend / enroll.c next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  649 b   |  37 lines
  1. #include "xmail.h"
  2. #include "pwd.h"
  3. #include "sys/types.h"
  4. MINT *a[42], *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15;
  5. char buf[256];
  6. char maildir[] = { "/usr/spool/secretmail"};
  7. main()
  8. {
  9.     int uid, i;
  10.     FILE *fd;
  11.     char *myname, fname[128];
  12.     uid = getuid();
  13.     myname = getlogin();
  14.     if(myname == NULL)
  15.         myname = getpwuid(uid)->pw_name;
  16.     sprintf(fname, "%s/%s.key", maildir, myname);
  17.     comminit();
  18.     setup(getpass("Gimme key: "));
  19.     mkb();
  20.     mkx();
  21. #ifdef debug
  22.     omout(b);
  23.     omout(x);
  24. #endif
  25.     mka();
  26.     i = creat(fname, 0644);
  27.     if(i<0)
  28.     {    perror("fname");
  29.         exit(1);
  30.     }
  31.     close(i);
  32.     fd = fopen(fname, "w");
  33.     for(i=0; i<42; i++)
  34.         nout(a[i], fd);
  35.     exit(0);
  36. }
  37.