Return to enroll.c CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.bin / xsend

Annotation of 43BSD/usr.bin/xsend/enroll.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char sccsid[] = "@(#)enroll.c   4.2 5/19/83";
                      3: #endif
                      4: 
                      5: #include "xmail.h"
                      6: #include "pwd.h"
                      7: #include "sys/types.h"
                      8: MINT *a[42], *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15;
                      9: char buf[256];
                     10: char maildir[] = { "/usr/spool/secretmail"};
                     11: main()
                     12: {
                     13:        int uid, i;
                     14:        FILE *fd;
                     15:        char *myname, fname[128];
                     16:        uid = getuid();
                     17:        myname = (char *) getlogin();
                     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)
                     32:        {       perror(fname);
                     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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.