whyever the aclocal call was commented out…
[alioth/cvs.git] / vms / rcmd.c
1 #include <stdio.h>
2 #include <string.h>
3 #include <stdlib.h>
4 #include <unixio.h>
5
6 #include <errno.h>
7 #include <sys/socket.h>
8 #include <netinet/in.h>
9 #include <netdb.h>
10
11 int rcmd(char **remote_hostname, int remote_port,
12          char *local_user, char *remote_user,
13          char *command, int zero)
14 {
15   struct hostent *remote_hp;
16   struct hostent *local_hp;
17   struct sockaddr_in remote_isa;
18   struct sockaddr_in local_isa;
19   char local_hostname[80];
20   char ch;
21   int s;
22   int local_port;
23   int rs;
24
25   remote_hp = gethostbyname(*remote_hostname);
26   if(!remote_hp)
27     {
28     perror("couldn't get remote host address");
29     exit(-1);
30     }
31
32   /* Copy remote IP address into socket address structure */
33   remote_isa.sin_family = AF_INET;
34   remote_isa.sin_port = htons(remote_port);
35   memcpy(&remote_isa.sin_addr, remote_hp->h_addr, sizeof(remote_isa.sin_addr));
36
37   gethostname(local_hostname, 80);
38   local_hp = gethostbyname(local_hostname);
39   if(!local_hp)
40     {
41     perror("couldn't get local host address");
42     exit(-1);
43     }
44
45   /* Copy local IP address into socket address structure */
46   local_isa.sin_family = AF_INET;
47   memcpy(&local_isa.sin_addr, local_hp->h_addr, sizeof(local_isa.sin_addr));
48
49   /* Create the local socket */
50   s = socket(AF_INET, SOCK_STREAM, 0);
51   if(s < 0)
52     {
53     perror("socket failed\n");
54     exit(-1);
55     }
56
57   /* Bind local socket with a port from IPPORT_RESERVED/2 to IPPORT_RESERVED - 1
58      this requires the OPER privilege under VMS -- to allow communication with
59      a stock rshd under UNIX */
60
61   for(local_port = IPPORT_RESERVED - 1; local_port >= IPPORT_RESERVED/2; local_port--)
62     {
63     local_isa.sin_port = htons(local_port);
64     rs = bind(s, (struct sockaddr *)&local_isa, sizeof(local_isa));
65     if(rs == 0)
66       break;
67     }                  
68
69   /* Bind local socket to an unprivileged port.  A normal rshd will drop the
70      connection; you must be running a patched rshd invoked through inetd for
71      this connection method to work */
72
73   if (rs != 0)
74     for(local_port = IPPORT_USERRESERVED - 1;
75         local_port > IPPORT_RESERVED;
76         local_port--)
77       {
78       local_isa.sin_port = htons(local_port);
79       rs = bind(s, (struct sockaddr *)&local_isa, sizeof(local_isa));
80       if(rs == 0)
81         break;
82       }
83   
84   rs = connect(s, (struct sockaddr *) &remote_isa, sizeof(remote_isa));
85   if(rs == -1)
86     {
87     fprintf(stderr, "connect: errno = %d\n", errno);
88     close(s);
89     exit(-2);
90     }
91
92   /* Now supply authentication information */
93
94   /* Auxiliary port number for error messages, we don't use it */
95   write(s, "0\0", 2);
96
97   /* Who are we */
98   write(s, local_user, strlen(local_user) + 1);
99
100   /* Who do we want to be */
101   write(s, remote_user, strlen(remote_user) + 1);
102
103   /* What do we want to run */
104   write(s, command, strlen(command) + 1);
105
106   /* NUL is sent back to us if information is acceptable */
107   read(s, &ch, 1);
108   if(ch != '\0')
109     {
110     errno = EPERM;
111     return -1;
112     }
113
114   return s;
115 }