Return to pupu.c CVS log

Up to [Research Unix] / researchv10no / dk / cmd / pupu

Annotation of researchv10no/dk/cmd/pupu/pupu.c, revision 1.1

1.1     ! root        1: 
        !             2:        static char     SCCSID[] = "@(#)pupu.c  2.1 DKHOST 85/01/15";
        !             3: 
        !             4: #include       <stdio.h>
        !             5: #include       <sysexits.h>
        !             6: #include       "string.h"
        !             7: #include       <dk.h>
        !             8: #include       "tdefs.h"
        !             9: 
        !            10:        XcharP  iam;
        !            11: int    DEBUG ;
        !            12:        
        !            13: 
        !            14:        Xchar   ebuf[BUFSIZ];
        !            15: 
        !            16:        Efn     printerr;
        !            17: 
        !            18: extern char * maphost() ;
        !            19: extern char * miscfield() ;
        !            20: extern int     dkp_ld ;
        !            21: 
        !            22: main(argc, argv)
        !            23:        PcharP  argv[];
        !            24: {
        !            25:        RcharP  p, dialstring;
        !            26:        Aint    fd;
        !            27:        AcharP  dir;
        !            28:        extern char * dkerror ;
        !            29: 
        !            30:        if (strcmp(&argv[0][strlen(argv[0])-2], "cc") == 0)
        !            31:                argv[0][strlen(argv[0])-2] = '\0' ;
        !            32:        iam = &argv[0][strlen(argv[0]) - 4];
        !            33: 
        !            34:        if (strcmp(argv[1], "-d") == 0) {
        !            35:                DEBUG = 1 ;
        !            36:                argv++ ; argc-- ;
        !            37:        } else
        !            38:                DEBUG = 0 ;
        !            39:        if(strcmp(iam, "pupu") == 0)
        !            40:                exit(ppremote(0));
        !            41: 
        !            42:        setbuf(stderr, ebuf);
        !            43: 
        !            44:        if(argc < 4){
        !            45:                fprintf(stderr, "Usage:  %s host file ... directory\n", iam);
        !            46:                exit(EX_USAGE);
        !            47:        }
        !            48: 
        !            49:        dialstring = maphost(argv[1], 'f', "pupu", "", "");
        !            50: 
        !            51:        if((p = miscfield('f', 'o')) && *p == 'y')
        !            52:                execalt(iam, argc, argv);
        !            53: 
        !            54:        fd = tdkdial(dialstring, 2);
        !            55: 
        !            56:        if(fd < 0) {
        !            57:                fprintf(stderr, "call to %s failed: %s\n", dialstring, dkerror) ;
        !            58:                exit(-fd);
        !            59:        }
        !            60: 
        !            61:        dkproto(fd, dkp_ld) ;
        !            62:        dir = argv[argc - 1];
        !            63: 
        !            64:        argv[argc - 1] = 0;
        !            65: 
        !            66:        if(strcmp(iam, "push") == 0)
        !            67:                exit(push(fd, &argv[2], dir, printerr, ""));
        !            68:        else if(strcmp(iam, "pull") == 0)
        !            69:                exit(pull(fd, &argv[2], dir, printerr, ""));
        !            70:        else{
        !            71:                fprintf(stderr, "Command name unrecognized -- must be 'push' or 'pull'\n");
        !            72:                exit(EX_USAGE);
        !            73:        }
        !            74:        /* NOTREACHED */
        !            75: }
        !            76: 
        !            77: execalt(name, argc, argv)
        !            78:        PcharP  name;
        !            79:        PcharP  argv[];
        !            80: {
        !            81:        Achar   oldname[8];
        !            82: 
        !            83:        sprintf(oldname, "o%s", name);
        !            84:        argv[argc] = 0;
        !            85: 
        !            86:        execvp(oldname, argv);
        !            87: 
        !            88:        fprintf(stderr, "%s: Can't exec %s\n", iam, oldname);
        !            89:        exit(EX_UNAVAILABLE);
        !            90: }
        !            91: 
        !            92: printerr(msg)
        !            93:        PcharP  msg;
        !            94: {
        !            95:        fprintf(stderr, "%s%s\n", iam, msg);
        !            96: 
        !            97:        fflush(stderr);
        !            98: 
        !            99:        return(0);
        !           100: }

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