Return to tdkexec.c CVS log

Up to [Research Unix] / researchv10dc / ipc / internet

Annotation of researchv10dc/ipc/internet/tdkexec.c, revision 1.1.1.1

1.1       root        1: #include <dk.h>
                      2: #include <stdio.h>
                      3: #include <sys/ioctl.h>
                      4: 
                      5: tdkexec(hname, cmd)
                      6: char *hname, *cmd;
                      7: {
                      8:        return(_tdkexec(hname, cmd, "exec"));
                      9: }
                     10: 
                     11: ttyexec(hname, cmd)
                     12: char *hname, *cmd ;
                     13: {
                     14:        return (_tdkexec(hname, cmd, "ttyexec")) ;
                     15: }
                     16: 
                     17: mesgexec(hname, cmd)
                     18: char *hname, *cmd;
                     19: {
                     20:        return(_tdkexec(hname, cmd, "mesgexec"));
                     21: }
                     22: 
                     23: _tdkexec(hname, cmd, service)
                     24: char *hname, *cmd;
                     25: char * service ;
                     26: {
                     27:        int rem, v;
                     28:        extern int pk_ld, dkp_ld, tty_ld, dt_ld ;
                     29:        char dialstr[64] ;
                     30:        char cmdname[32] ;
                     31:        extern char *dkerror;
                     32:        register char *cp1, *cp2 ;
                     33: 
                     34:        strcpy(dialstr, hname) ;
                     35:        strcat(dialstr, ".") ;
                     36:        strcat(dialstr, service) ;
                     37:        cp1 = cmdname ; cp2 = cmd ;
                     38:        while (*cp2 && (*cp2 != ' ')) {
                     39:                if (*cp2 == '/')
                     40:                        cp1 = cmdname ;
                     41:                else
                     42:                        *cp1++ = *cp2 ;
                     43:                cp2++ ;
                     44:        }
                     45:        *cp1 = '\0' ;
                     46:        strcat(dialstr, ".") ;
                     47:        strcat(dialstr, cmdname) ;
                     48:        rem = tdkdial(dialstr, 0) ;
                     49:        if (rem < 0) {
                     50:                return(-1);
                     51:        }
                     52:        v = dkproto(rem, dkp_ld);
                     53:        if (v < 0) {
                     54:                dkerror = "tdkexec can't turn on protocol";
                     55:                close(rem);
                     56:                return(-1);
                     57:        }
                     58:        if (tdklogin(rem) < 0)
                     59:                return -1 ;
                     60:        write(rem, cmd, strlen(cmd));
                     61:        write(rem, "\n", 1) ;
                     62:        return(rem);
                     63: }

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