Return to utcpconnect.c CVS log

Up to [Research Unix] / researchv10no / cmd / nupas / ipc

Annotation of researchv10no/cmd/nupas/ipc/utcpconnect.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include <sys/types.h>
                      3: #include <sys/ioctl.h>
                      4: #include <time.h>
                      5: #include <sys/net/in.h>
                      6: #include <sys/net/inet.h>
                      7: #include <sys/net/netdb.h>
                      8: #include <sysexits.h>
                      9: #include <string.h>
                     10: 
                     11: extern int ipcdebug;
                     12: 
                     13: #define htons(x)       (x)
                     14: 
                     15: int
                     16: tcp_connect(dest, param)
                     17: char *dest, *param;
                     18: {
                     19:        struct hostent *hp;
                     20:        char    *inet_ntoa();
                     21:        int s, port, i;
                     22:        long l=0;
                     23:        unsigned long addr;
                     24:        char buf[100];
                     25:        char *host, *service;
                     26: 
                     27:        if (ipcdebug)
                     28:                fprintf(stderr, "connecting via tcp `%s'\n", dest);
                     29: 
                     30:        strcpy(buf, dest);
                     31:        host = buf;
                     32: 
                     33:        if ((port = tcp_service(host)) < 0) {
                     34:                ipcabort(EX_UNAVAILABLE, "unknown service");
                     35:                return(-1);
                     36:        }
                     37: 
                     38:        if (ipcdebug)
                     39:                fprintf(stderr, "TCP port number is %d\n", port);
                     40: 
                     41:        if ((addr = inet_addr(host)) != (unsigned long) -1) {
                     42:                if (ipcdebug)
                     43:                        fprintf(stderr, "Numeric address: %s %lx\n",
                     44:                                host, addr);
                     45: 
                     46:                if((s = s5sockbcon(inet_ntoa(l),port,"/dev/tcp"))>=0)
                     47:                        return(s);
                     48:                ipcabort(EX_OSERR, "can't open connection");
                     49:                t_close(s);
                     50:                return -1;
                     51:        }
                     52: 
                     53:        if((hp = gethostbyname(host)) == (struct hostent *)0){
                     54:                ipcabort(EX_NOHOST, "unknown host");
                     55:                return(-1);
                     56:        }
                     57: 
                     58:        memcpy(&l,hp->h_addr,hp->h_length);
                     59:        if (ipcdebug)
                     60:                fprintf(stderr, "Trying address %s\n",inet_ntoa(l));
                     61: 
                     62:        s = s5sockbcon(inet_ntoa(l),port,"/dev/tcp");
                     63:        if(s < 0){
                     64:                ipcabort(EX_OSERR, "can't open connection");
                     65:        } else return(s);
                     66: 
                     67:        t_close(s);
                     68: 
                     69:        ipcabort(EX_NOHOST, "can't connect to host");
                     70:        return -1;
                     71: }
                     72: 
                     73: int
                     74: tcp_service(path)
                     75: char *path;
                     76: {
                     77:        struct servent *sp;
                     78:        char *service;
                     79: 
                     80:        if ((service = strchr(path, '!')) == NULL)
                     81:                service = "";
                     82:        else
                     83:                *service++ = '\0';
                     84: 
                     85:        /*
                     86:         *  translate service/port name
                     87:         */
                     88:        if(strncmp(service, "tcp.", 4)==0)
                     89:                service += 4;
                     90:        if(strncmp(service, "/cs/", 4)==0)
                     91:                service += 4;
                     92:        if(strcmp(service, "")==0)
                     93:                return 0;
                     94:        else if(atoi(service)!=0)
                     95:                return htons(atoi(service));
                     96:        else if ((sp = getservbyname (service, "tcp")) != NULL)
                     97:                return sp->s_port;
                     98:        return -1;
                     99: }
                    100: 
                    101: /*
                    102:  * The following is a fixed version of the inet_addr() routine, since
                    103:  * the one delivered with UTS 5.2.6b has a bug that truncates the
                    104:  * passed string.  Sigh !!
                    105:  */
                    106: 
                    107: int
                    108: inet_addr(str)
                    109: {
                    110:        int val;
                    111:        char *b;
                    112:        char *ptr;
                    113:        int byte[4];
                    114:        int nb, bb;
                    115:        char buf[16];
                    116: 
                    117:        strcpy(buf,str);
                    118:        nb = 0;
                    119:        for (b = strtok(buf,"."); b; b = strtok(NULL,".")) {
                    120:                if (nb == 4) return -1;
                    121:                byte[nb++] = strtol(b,&ptr,0);
                    122:                if (ptr == b || *ptr) return -1;
                    123:        }
                    124:        if (nb == 0) return -1;
                    125:        if (nb == 1) return byte[0];
                    126:        val = 0;
                    127:        for (bb = 0; bb < nb-1; bb++) val = (val << 8) | byte[bb];
                    128:        return (val << 8*(4-bb)) | byte[bb];
                    129: }

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