Return to getlog.c CVS log

Up to [Research Unix] / researchv10no / cmd / nupas / libc

Annotation of researchv10no/cmd/nupas/libc/getlog.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     getlog() -- paranoid version of getlogin.
                      3:  *     Unnecessary but harmless in V9; may be essential in Sys V
                      4:  *             with botched layers implementations
                      5:  *
                      6:  *     Try getlogin().
                      7:  *     If that fails, look in the password file.
                      8:  *     if that fails, give up.
                      9:  */
                     10: 
                     11: #include <pwd.h>
                     12: 
                     13: extern int getuid();
                     14: extern char *getlogin(), *getenv();
                     15: 
                     16: #define NULL 0
                     17: 
                     18: char *
                     19: getlog()
                     20: {
                     21:        char *p;
                     22:        struct passwd *pw;
                     23: 
                     24:        if ((p = getlogin()) != NULL)
                     25:                return p;
                     26:        
                     27:        /* If LOGNAME is set, and it matches getuid(), use it */
                     28:        p = getenv ("LOGNAME");
                     29:        if (p != NULL && *p != '\0') {
                     30:                pw = getpwnam(p);
                     31:                if (pw != NULL && pw->pw_uid == getuid())
                     32:                        return p;
                     33:        }
                     34: 
                     35:        /* Try to get the password file entry for getuid() */
                     36:        if ((pw = getpwuid(getuid())) != NULL)
                     37:                return pw->pw_name;
                     38:        
                     39:        /* Give up */
                     40:        return NULL;
                     41: }

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