Return to doconnect.c CVS log

Up to [Research Unix] / researchv10no / ipc / mgrs / authmgr

Annotation of researchv10no/ipc/mgrs/authmgr/doconnect.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include <signal.h>
        !             3: #include <ipc.h>
        !             4: #include <string.h>
        !             5: 
        !             6: #include "auth.h"
        !             7: 
        !             8: #define RLOGIN "/usr/bin/rlogin"
        !             9: 
        !            10: int callee = -1;
        !            11: int cpid = -1;
        !            12: 
        !            13: int
        !            14: doconnect(path, user)
        !            15:        char *path;
        !            16:        char *user;
        !            17: {
        !            18:        char *cp;
        !            19:        int status;
        !            20: 
        !            21: 
        !            22:        if (strncmp(path, "tcp!", 4) != 0) {
        !            23:                char *svc;              /* this service stuff is a hack */ 
        !            24:                if ((strchr(path, '/') == NULL) ||
        !            25:                    (strncmp(path, "phone/", 6) == 0) ||
        !            26:                    (strncmp(path, "homer/", 6) == 0) ||
        !            27:                    (strncmp(path, "mercury/", 8) == 0))
        !            28:                        svc = "dcon";   /* dcon requires no passwd on V10 unix */
        !            29:                else
        !            30:                        svc = "";
        !            31:                restoretty();
        !            32:                redial(path, user, svc);
        !            33:                settty();
        !            34:                return FALSE;
        !            35:        }
        !            36: 
        !            37:        signal(SIGALRM, SIG_IGN);
        !            38:        switch (cpid=fork()) {
        !            39:        case -1:
        !            40:                perror("Fork error");
        !            41:                return FALSE;
        !            42:        case 0:
        !            43:                close(2);
        !            44:                dup(1, 2);
        !            45:                setlogname(user);
        !            46:                execl(RLOGIN, RLOGIN, path, NULL);
        !            47:                perror("exec failed");
        !            48:                exit(100);
        !            49:        default:
        !            50:                /* do we need a timeout? */
        !            51:                wait(&status);
        !            52:                if (((status >> 8) & 0xFF) != 0) {
        !            53:                        
        !            54:                        return FALSE;
        !            55:                }
        !            56:                return TRUE;
        !            57:        }
        !            58: }
        !            59: 
        !            60: redial(path, user, svc)
        !            61: char *path, *user, *svc;
        !            62: {
        !            63:        ipcinfo info;
        !            64:        char buf[100];
        !            65: 
        !            66:        /* The options are U (for gnots) and - (for us) */
        !            67: 
        !            68:        strcpy(buf, "->");
        !            69:        strcat(buf, path);
        !            70: 
        !            71:        strcpy(buf, "->");
        !            72:        if (strncmp(path, "dk!", 3) == NULL)
        !            73:                path += 3;
        !            74:        strcat(buf, path);
        !            75: 
        !            76:        info.rfd = -1;
        !            77:        info.cfd = 0;   /* pass back fd 0 */
        !            78:        info.myname = NULL;
        !            79:        info.user = user;
        !            80:        info.machine = "";
        !            81:        info.uid = info.gid = -1;
        !            82:        info.name = ipcpath(buf, "/cs/dk", svc);
        !            83:        info.param = "light";                           /* bogus */
        !            84:        info.flags = 0;
        !            85:        if(ipcredial(&info) != 0) {
        !            86:                fprintf(stderr, "Redial failed, destination was %s\n", info.name);
        !            87:        }
        !            88: }
        !            89: 
        !            90: 
        !            91: #ifdef notused
        !            92: int
        !            93: dkcall(path)
        !            94: char *path;
        !            95: {
        !            96:        char *fullpath, *service;
        !            97: 
        !            98:        fullpath = ipcpath(path, "dk", "dcon");
        !            99:        service = strrchr(fullpath, "!");
        !           100:        service++;
        !           101:        
        !           102:        if (strcmp(service, "dcon") == 0) {     /* try a dcon */
        !           103:                char answer[2];
        !           104: 
        !           105:                callee = ipcopen(fullpath, "light");
        !           106:                if (callee >= 0) {
        !           107:                        read(callee, answer, 2);
        !           108:                        if (strcmp(answer, "OK") == 0)
        !           109:                                return callee;          /* dcon likes us */
        !           110:                }
        !           111:        }
        !           112: 
        !           113:        fullpath = ipcpath(path, "dk", "");
        !           114:        callee = ipcopen(fullpath, "light");
        !           115:        return callee;
        !           116: }
        !           117: #endif

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