(rexec): Test for gethostbynam_r result correctly.
[kopensolaris-gnu/glibc.git] / inet / rexec.c
1 /*
2  * Copyright (c) 1980, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 4. Neither the name of the University nor the names of its contributors
14  *    may be used to endorse or promote products derived from this software
15  *    without specific prior written permission.
16  *
17  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27  * SUCH DAMAGE.
28  */
29
30 #if defined(LIBC_SCCS) && !defined(lint)
31 static char sccsid[] = "@(#)rexec.c     8.1 (Berkeley) 6/4/93";
32 #endif /* LIBC_SCCS and not lint */
33
34 #include <sys/types.h>
35 #include <sys/socket.h>
36
37 #include <netinet/in.h>
38
39 #include <alloca.h>
40 #include <stdio.h>
41 #include <netdb.h>
42 #include <errno.h>
43 #include <string.h>
44 #include <unistd.h>
45
46 int     rexecoptions;
47
48 int
49 rexec(ahost, rport, name, pass, cmd, fd2p)
50         char **ahost;
51         int rport;
52         const char *name, *pass, *cmd;
53         int *fd2p;
54 {
55         struct sockaddr_in sin, sin2, from;
56         struct hostent hostbuf, *hp;
57         size_t hstbuflen;
58         char *hsttmpbuf;
59         u_short port;
60         int s, timo = 1, s3;
61         char c;
62         int herr;
63
64         hstbuflen = 1024;
65         hsttmpbuf = __alloca (hstbuflen);
66         while (__gethostbyname_r (*ahost, &hostbuf, hsttmpbuf, hstbuflen,
67                                   &hp, &herr) != 0)
68           if (herr != NETDB_INTERNAL || errno != ERANGE)
69             {
70               __set_h_errno (herr);
71               herror(*ahost);
72               return -1;
73             }
74           else
75             {
76               /* Enlarge the buffer.  */
77               hstbuflen *= 2;
78               hsttmpbuf = __alloca (hstbuflen);
79             }
80
81         *ahost = hp->h_name;
82         ruserpass(hp->h_name, &name, &pass);
83 retry:
84         s = __socket(AF_INET, SOCK_STREAM, 0);
85         if (s < 0) {
86                 perror("rexec: socket");
87                 return (-1);
88         }
89         sin.sin_family = hp->h_addrtype;
90         sin.sin_port = rport;
91         bcopy(hp->h_addr, (caddr_t)&sin.sin_addr, hp->h_length);
92         if (__connect(s, (struct sockaddr *)&sin, sizeof(sin)) < 0) {
93                 if (errno == ECONNREFUSED && timo <= 16) {
94                         (void) __close(s);
95                         __sleep(timo);
96                         timo *= 2;
97                         goto retry;
98                 }
99                 perror(hp->h_name);
100                 return (-1);
101         }
102         if (fd2p == 0) {
103                 (void) __write(s, "", 1);
104                 port = 0;
105         } else {
106                 char num[32];
107                 int s2, sin2len;
108
109                 s2 = __socket(AF_INET, SOCK_STREAM, 0);
110                 if (s2 < 0) {
111                         (void) __close(s);
112                         return (-1);
113                 }
114                 listen(s2, 1);
115                 sin2len = sizeof (sin2);
116                 if (getsockname(s2, (struct sockaddr *)&sin2, &sin2len) < 0 ||
117                   sin2len != sizeof (sin2)) {
118                         perror("getsockname");
119                         (void) __close(s2);
120                         goto bad;
121                 }
122                 port = ntohs((u_short)sin2.sin_port);
123                 (void) sprintf(num, "%u", port);
124                 (void) __write(s, num, strlen(num)+1);
125                 { int len = sizeof (from);
126                   s3 = accept(s2, (struct sockaddr *)&from, &len);
127                   __close(s2);
128                   if (s3 < 0) {
129                         perror("accept");
130                         port = 0;
131                         goto bad;
132                   }
133                 }
134                 *fd2p = s3;
135         }
136         (void) __write(s, name, strlen(name) + 1);
137         /* should public key encypt the password here */
138         (void) __write(s, pass, strlen(pass) + 1);
139         (void) __write(s, cmd, strlen(cmd) + 1);
140         if (__read(s, &c, 1) != 1) {
141                 perror(*ahost);
142                 goto bad;
143         }
144         if (c != 0) {
145                 while (__read(s, &c, 1) == 1) {
146                         (void) __write(2, &c, 1);
147                         if (c == '\n')
148                                 break;
149                 }
150                 goto bad;
151         }
152         return (s);
153 bad:
154         if (port)
155                 (void) __close(*fd2p);
156         (void) __close(s);
157         return (-1);
158 }