Return to tryperm.c CVS log

Up to [Research Unix] / researchv10no / cmd / odist / ape

Annotation of researchv10no/cmd/odist/ape/tryperm.c, revision 1.1

1.1     ! root        1: #include <ctype.h>
        !             2: #include <stddef.h>
        !             3: #include <stdlib.h>
        !             4: #include <stdio.h>
        !             5: #include <string.h>
        !             6: #include <sys/types.h>
        !             7: #include <sys/stat.h>
        !             8: #include <fcntl.h>
        !             9: #include <unistd.h>
        !            10: #include "../pkg/ar.h"
        !            11: #include "dist.h"
        !            12: 
        !            13: /* determine if we can create the given pathname.  not a generally useful
        !            14:    function since it destroys the pathname in the process... */
        !            15: static int
        !            16: cancreate(char *path, int recurse)
        !            17: {
        !            18:        char *slash;
        !            19: 
        !            20:        for (;;) {
        !            21:                slash = strrchr(path, '/');
        !            22:                if (! slash)
        !            23:                        return 0;       /* supposed to be absolute */
        !            24:                *slash = '\0';
        !            25:                if (!*path)
        !            26:                        break;
        !            27:                if (access(path, W_OK) == 0)
        !            28:                        return 1;
        !            29:                if (!recurse)           /* for remove we check only one directory */
        !            30:                        return 0;
        !            31:                if (access(path, F_OK) == 0)
        !            32:                        return 0;
        !            33:        }
        !            34:        return access("/", W_OK) == 0;
        !            35: }
        !            36:                
        !            37: /*
        !            38:  * try the instructions of the package on the given fd against the
        !            39:  * permissions currently in the file system.  return 1 if we think we
        !            40:  * ought to go ahead and try inspkg.
        !            41:  */
        !            42: int
        !            43: tryperm(int fd)
        !            44: {
        !            45:        char armag[SARMAG];
        !            46:        struct ar_hdr arhdr;
        !            47:        long size;
        !            48:        char temp[L_tmpnam];
        !            49:        int tfd;
        !            50:        FILE *tfp;
        !            51:        int cmd, c, nf, retval;
        !            52:        char *path;
        !            53: 
        !            54:        /* return 1 so inspkg will be called and barf for us */
        !            55:        if (read(fd, armag, sizeof armag) != SARMAG || strncmp(armag, ARMAG, SARMAG))
        !            56:                return 1;
        !            57:        if (read(fd, (char *) &arhdr, sizeof arhdr) != sizeof arhdr)
        !            58:                return 1;
        !            59:        size = strtol(arhdr.ar_size, 0, 10);
        !            60:        tmpnam(temp);
        !            61:        close(creat(temp, 0600));       /* ape deficiency */
        !            62:        tfd = open(temp, O_RDWR);
        !            63:        if (tfd < 0) {
        !            64:                eprintf("can't create temp file %s for tryperm", temp);
        !            65:                remove(temp);           /* just in case something's *real* weird */
        !            66:                exit(1);
        !            67:        }
        !            68:        if (fdcopy(tfd, fd, size, 0) != size) {
        !            69:                close(tfd);
        !            70:                remove(temp);
        !            71:                eprintf("can't extract Instructions in tryperm");
        !            72:                return 1;               /* inspkg will (presumably) barf for us */
        !            73:        }
        !            74:        lseek(tfd, 0L, 0);
        !            75:        tfp = fdopen(tfd, "r");
        !            76: 
        !            77:        /* now that we have the instructions file, do the real meat.  */
        !            78:        retval = 1;
        !            79:        while ((cmd = getc(tfp)) != EOF) {
        !            80:                switch (cmd) {
        !            81:                case 'b':       /* b <mode> <dmaj> <dmin> <uid> <gid> <path> */
        !            82:                case 'c':       /* c <mode> <dmaj> <dmin> <uid> <gid> <path> */
        !            83:                        nf = 6;
        !            84:                        break;
        !            85:                case 'd':       /* d <mode> <uid> <gid> <path> */
        !            86:                case 'f':       /* f <component> <uid> <gid> <path> */
        !            87:                        nf = 4;
        !            88:                        break;
        !            89:                case 'l':       /* l <path1> <path2> */
        !            90:                case 's':       /* s <path1> <path2> */
        !            91:                        nf = 2;
        !            92:                        break;
        !            93:                case 'r':       /* r <path> */
        !            94:                case 'x':       /* x <command> */
        !            95:                case 'X':       /* X <path> */
        !            96:                        nf = 1;
        !            97:                        break;
        !            98:                default:
        !            99:                        goto reterr;
        !           100:                }
        !           101: 
        !           102:                /* get the last field of the line */
        !           103:                while (nf--) {
        !           104:                        while ((c = getc(tfp)) != EOF)
        !           105:                                if (!isspace(c))
        !           106:                                        break;
        !           107:                        if (c == EOF)
        !           108:                                goto reterr;
        !           109:                        ungetc(c, tfp);
        !           110:                        path = getpath(tfp);
        !           111:                }
        !           112: 
        !           113:                /* eat the newline */
        !           114:                if (getc(tfp) != '\n')
        !           115:                        goto reterr;
        !           116: 
        !           117:                switch (cmd) {
        !           118:                case 'X':
        !           119:                case 'x':
        !           120:                        break;
        !           121: 
        !           122:                case 'r':
        !           123:                        if (access(path, F_OK) != 0)
        !           124:                                break;
        !           125:                        if (cancreate(path, 0))
        !           126:                                break;
        !           127:                        retval = 0;
        !           128:                        goto out;
        !           129: 
        !           130:                default:
        !           131:                        if (cancreate(path, 1))
        !           132:                                break;
        !           133:                        retval = 0;
        !           134:                        goto out;
        !           135:                }
        !           136:        }
        !           137: 
        !           138:  out:
        !           139:        fclose(tfp);
        !           140:        remove(temp);
        !           141:        return retval;
        !           142: 
        !           143:  reterr:
        !           144:        /* there was some kind of bug in the format of the package.  return 1
        !           145:           and later on inspkg will generate an appropriate error message to
        !           146:           be returned to the remote system */
        !           147:        fclose(tfp);    
        !           148:        remove(temp);
        !           149:        return 1;
        !           150: }

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