Return to expfile.c CVS log

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

Annotation of 43BSD/usr.bin/uucp/expfile.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)expfile.c  5.5 (Berkeley) 6/19/85";
        !             3: #endif
        !             4: 
        !             5: #include "uucp.h"
        !             6: #include <sys/stat.h>
        !             7: 
        !             8: /*LINTLIBRARY*/
        !             9: 
        !            10: /*
        !            11:  *     expand file name
        !            12:  *
        !            13:  *     return codes: 0 - Ordinary spool area file
        !            14:  *                   1 - Other normal file
        !            15:  *                   FAIL - no Wrkdir name available
        !            16:  */
        !            17: 
        !            18: expfile(file)
        !            19: char *file;
        !            20: {
        !            21:        register char *fpart, *p;
        !            22:        char user[WKDSIZE], *up;
        !            23:        char full[MAXFULLNAME];
        !            24:        int uid;
        !            25: 
        !            26:        switch(file[0]) {
        !            27:        case '/':
        !            28:                return 1;
        !            29:        case '~':
        !            30:                for (fpart = file + 1, up = user; *fpart != '\0'
        !            31:                        && *fpart != '/'; fpart++)
        !            32:                                *up++ = *fpart;
        !            33:                *up = '\0';
        !            34:                if (!*user || gninfo(user, &uid, full) != 0) {
        !            35:                        strcpy(full, PUBDIR);
        !            36:                }
        !            37:        
        !            38:                strcat(full, fpart);
        !            39:                strcpy(file, full);
        !            40:                return 1;
        !            41:        default:
        !            42:                p = index(file, '/');
        !            43:                strcpy(full, Wrkdir);
        !            44:                strcat(full, "/");
        !            45:                strcat(full, file);
        !            46:                strcpy(file, full);
        !            47:                if (Wrkdir[0] == '\0')
        !            48:                        return FAIL;
        !            49:                else if (p != NULL)
        !            50:                        return 1;
        !            51:                return 0;
        !            52:        }
        !            53: }
        !            54: 
        !            55: 
        !            56: /*
        !            57:  *     check if directory name
        !            58:  *
        !            59:  *     return codes:  0 - not directory  |  1 - is directory
        !            60:  */
        !            61: 
        !            62: isdir(name)
        !            63: char *name;
        !            64: {
        !            65:        register int ret;
        !            66:        struct stat s;
        !            67: 
        !            68:        ret = stat(subfile(name), &s);
        !            69:        if (ret < 0)
        !            70:                return 0;
        !            71:        if ((s.st_mode & S_IFMT) == S_IFDIR)
        !            72:                return 1;
        !            73:        return 0;
        !            74: }
        !            75: 
        !            76: 
        !            77: /*
        !            78:  *     make all necessary directories
        !            79:  *
        !            80:  *     return SUCCESS  |  FAIL
        !            81:  */
        !            82: 
        !            83: mkdirs(name)
        !            84: char *name;
        !            85: {
        !            86:        int ret, mask;
        !            87:        char dir[MAXFULLNAME];
        !            88:        register char *p;
        !            89: 
        !            90:        for (p = dir + 1;; p++) {
        !            91:                strcpy(dir, name);
        !            92:                if ((p = index(p, '/')) == NULL)
        !            93:                        return SUCCESS;
        !            94:                *p = '\0';
        !            95:                if (isdir(dir))
        !            96:                        continue;
        !            97: 
        !            98:                DEBUG(4, "mkdir - %s\n", dir);
        !            99:                mask = umask(0);
        !           100:                ret = mkdir(dir, 0777);
        !           101:                umask(mask);
        !           102:                if (ret != 0)
        !           103:                        return FAIL;
        !           104:        }
        !           105:        /* NOTREACHED */
        !           106: }
        !           107: 
        !           108: /*
        !           109:  *     expfile and check return
        !           110:  *             print error if it failed.
        !           111:  *
        !           112:  *     return code - SUCCESS - ok; FAIL if expfile failed
        !           113:  */
        !           114: 
        !           115: ckexpf(file)
        !           116: register char *file;
        !           117: {
        !           118: 
        !           119:        if (expfile(file) != FAIL)
        !           120:                return SUCCESS;
        !           121: 
        !           122:        /*  could not expand file name */
        !           123:        /* the gwd routine failed */
        !           124: 
        !           125:        logent("CAN'T EXPAND FILENAME - PWD FAILED", file+1);
        !           126:        return FAIL;
        !           127: }

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