trunk/rdesktop/tcp.c

/* -*- c-basic-offset: 8 -*-
   rdesktop: A Remote Desktop Protocol client.
   Protocol services - TCP layer
   Copyright (C) Matthew Chapman 1999-2005
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#include <unistd.h>             /* select read write close */
#include <sys/socket.h>         /* socket connect setsockopt */
#include <sys/time.h>           /* timeval */
#include <netdb.h>              /* gethostbyname */
#include <netinet/in.h>         /* sockaddr_in */
#include <netinet/tcp.h>        /* TCP_NODELAY */
#include <arpa/inet.h>          /* inet_addr */
#include <errno.h>              /* errno */
#include "rdesktop.h"

#ifndef INADDR_NONE
#define INADDR_NONE ((unsigned long) -1)
#endif

static int sock;
static struct stream in;
#ifndef WITH_SCARD
static struct stream out;
#endif
int g_tcp_port_rdp = TCP_PORT_RDP;

/* Initialise TCP transport data packet */
STREAM
tcp_init(uint32 maxlen)
{
        STREAM result = NULL;

#ifdef WITH_SCARD
        scard_tcp_lock();
        result = scard_tcp_init();
#else
        result = &out;
#endif

        if (maxlen > result->size)
        {
                result->data = (uint8 *) xrealloc(result->data, maxlen);
                result->size = maxlen;
        }

        result->p = result->data;
        result->end = result->data + result->size;
#ifdef WITH_SCARD
        scard_tcp_unlock();
#endif
        return result;
}

/* Send TCP transport data packet */
void
tcp_send(STREAM s)
{
        int length = s->end - s->data;
        int sent, total = 0;

#ifdef WITH_SCARD
        scard_tcp_lock();
#endif
        while (total < length)
        {
                sent = send(sock, s->data + total, length - total, 0);
                if (sent <= 0)
                {
                        error("send: %s\n", strerror(errno));
                        return;
                }

                total += sent;
        }
#ifdef WITH_SCARD
        scard_tcp_unlock();
#endif
}

/* Receive a message on the TCP layer */
STREAM
tcp_recv(STREAM s, uint32 length)
{
        unsigned int new_length, end_offset, p_offset;
        int rcvd = 0;

        if (s == NULL)
        {
                /* read into "new" stream */
                if (length > in.size)
                {
                        in.data = (uint8 *) xrealloc(in.data, length);
                        in.size = length;
                }
                in.end = in.p = in.data;
                s = &in;
        }
        else
        {
                /* append to existing stream */
                new_length = (s->end - s->data) + length;
                if (new_length > s->size)
                {
                        p_offset = s->p - s->data;
                        end_offset = s->end - s->data;
                        s->data = (uint8 *) xrealloc(s->data, new_length);
                        s->size = new_length;
                        s->p = s->data + p_offset;
                        s->end = s->data + end_offset;
                }
        }

        while (length > 0)
        {
                if (!ui_select(sock))
                        /* User quit */
                        return NULL;

                rcvd = recv(sock, s->end, length, 0);
                if (rcvd < 0)
                {
                        error("recv: %s\n", strerror(errno));
                        return NULL;
                }
                else if (rcvd == 0)
                {
                        error("Connection closed\n");
                        return NULL;
                }

                s->end += rcvd;
                length -= rcvd;
        }

        return s;
}

/* Establish a connection on the TCP layer */
BOOL
tcp_connect(char *server)
{
        int true_value = 1;

#ifdef IPv6

        int n;
        struct addrinfo hints, *res, *ressave;
        char tcp_port_rdp_s[10];

        snprintf(tcp_port_rdp_s, 10, "%d", g_tcp_port_rdp);

        memset(&hints, 0, sizeof(struct addrinfo));
        hints.ai_family = AF_UNSPEC;
        hints.ai_socktype = SOCK_STREAM;

        if ((n = getaddrinfo(server, tcp_port_rdp_s, &hints, &res)))
        {
                error("getaddrinfo: %s\n", gai_strerror(n));
                return False;
        }

        ressave = res;
        sock = -1;
        while (res)
        {
                sock = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
                if (!(sock < 0))
                {
                        if (connect(sock, res->ai_addr, res->ai_addrlen) == 0)
                                break;
                        close(sock);
                        sock = -1;
                }
                res = res->ai_next;
        }
        freeaddrinfo(ressave);

        if (sock == -1)
        {
                error("%s: unable to connect\n", server);
                return False;
        }

#else /* no IPv6 support */

        struct hostent *nslookup;
        struct sockaddr_in servaddr;

        if ((nslookup = gethostbyname(server)) != NULL)
        {
                memcpy(&servaddr.sin_addr, nslookup->h_addr, sizeof(servaddr.sin_addr));
        }
        else if ((servaddr.sin_addr.s_addr = inet_addr(server)) == INADDR_NONE)
        {
                error("%s: unable to resolve host\n", server);
                return False;
        }

        if ((sock = socket(AF_INET, SOCK_STREAM, 0)) < 0)
        {
                error("socket: %s\n", strerror(errno));
                return False;
        }

        servaddr.sin_family = AF_INET;
        servaddr.sin_port = htons(g_tcp_port_rdp);

        if (connect(sock, (struct sockaddr *) &servaddr, sizeof(struct sockaddr)) < 0)
        {
                error("connect: %s\n", strerror(errno));
                close(sock);
                return False;
        }

#endif /* IPv6 */

        setsockopt(sock, IPPROTO_TCP, TCP_NODELAY, (void *) &true_value, sizeof(true_value));

        in.size = 4096;
        in.data = (uint8 *) xmalloc(in.size);

#ifdef WITH_SCARD
        scard_tcp_connect();
#else
        out.size = 4096;
        out.data = (uint8 *) xmalloc(out.size);
#endif

        return True;
}

/* Disconnect on the TCP layer */
void
tcp_disconnect(void)
{
        close(sock);
}

char *
tcp_get_address()
{
        static char ipaddr[32];
        struct sockaddr_in sockaddr;
        socklen_t len = sizeof(sockaddr);
        if (getsockname(sock, (struct sockaddr *) &sockaddr, &len) == 0)
        {
                unsigned char *ip = (unsigned char *) &sockaddr.sin_addr;
                sprintf(ipaddr, "%d.%d.%d.%d", ip[0], ip[1], ip[2], ip[3]);
        }
        else
                strcpy(ipaddr, "127.0.0.1");
        return ipaddr;
}

/* reset the state of the tcp layer */
/* Support for Session Directory */
void
tcp_reset_state(void)
{
        sock = -1;              /* reset socket */

        /* Clear the incoming stream */
        if (in.data != NULL)
                xfree(in.data);
        in.p = NULL;
        in.end = NULL;
        in.data = NULL;
        in.size = 0;
        in.iso_hdr = NULL;
        in.mcs_hdr = NULL;
        in.sec_hdr = NULL;
        in.rdp_hdr = NULL;
        in.channel_hdr = NULL;

        /* Clear the outgoing stream(s) */
#ifdef WITH_SCARD
        scard_tcp_reset_state();
#else
        if (out.data != NULL)
                xfree(out.data);
        out.p = NULL;
        out.end = NULL;
        out.data = NULL;
        out.size = 0;
        out.iso_hdr = NULL;
        out.mcs_hdr = NULL;
        out.sec_hdr = NULL;
        out.rdp_hdr = NULL;
        out.channel_hdr = NULL;
#endif
}
1	astrand	963	/* -- c-basic-offset: 8 --
2	matty	3	rdesktop: A Remote Desktop Protocol client.
3			Protocol services - TCP layer
4	stargo	828	Copyright (C) Matthew Chapman 1999-2005
5	matty	3
6			This program is free software; you can redistribute it and/or modify
7			it under the terms of the GNU General Public License as published by
8			the Free Software Foundation; either version 2 of the License, or
9			(at your option) any later version.
10
11			This program is distributed in the hope that it will be useful,
12			but WITHOUT ANY WARRANTY; without even the implied warranty of
13			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14			GNU General Public License for more details.
15	jsorg71	376
16	matty	3	You should have received a copy of the GNU General Public License
17			along with this program; if not, write to the Free Software
18			Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19			*/
20
21	matty	24	#include <unistd.h> /* select read write close */
22			#include <sys/socket.h> /* socket connect setsockopt */
23			#include <sys/time.h> /* timeval */
24			#include <netdb.h> /* gethostbyname */
25			#include <netinet/in.h> /* sockaddr_in */
26			#include <netinet/tcp.h> /* TCP_NODELAY */
27			#include <arpa/inet.h> /* inet_addr */
28			#include <errno.h> /* errno */
29	matty	10	#include "rdesktop.h"
30	matty	3
31	matthewc	306	#ifndef INADDR_NONE
32			#define INADDR_NONE ((unsigned long) -1)
33			#endif
34
35	matty	10	static int sock;
36			static struct stream in;
37	stargo	1309	#ifndef WITH_SCARD
38	matty	10	static struct stream out;
39	stargo	1309	#endif
40	jsorg71	710	int g_tcp_port_rdp = TCP_PORT_RDP;
41	matty	10
42			/* Initialise TCP transport data packet */
43	matty	25	STREAM
44	jsorg71	376	tcp_init(uint32 maxlen)
45	matty	3	{
46	stargo	1309	STREAM result = NULL;
47
48			#ifdef WITH_SCARD
49			scard_tcp_lock();
50			result = scard_tcp_init();
51			#else
52			result = &out;
53			#endif
54
55			if (maxlen > result->size)
56	matty	3	{
57	stargo	1309	result->data = (uint8 *) xrealloc(result->data, maxlen);
58			result->size = maxlen;
59	matty	3	}
60
61	stargo	1309	result->p = result->data;
62			result->end = result->data + result->size;
63			#ifdef WITH_SCARD
64			scard_tcp_unlock();
65			#endif
66			return result;
67	matty	3	}
68
69			/* Send TCP transport data packet */
70	matty	25	void
71			tcp_send(STREAM s)
72	matty	3	{
73	matty	24	int length = s->end - s->data;
74	matty	3	int sent, total = 0;
75
76	stargo	1309	#ifdef WITH_SCARD
77			scard_tcp_lock();
78			#endif
79	matty	3	while (total < length)
80			{
81	matty	33	sent = send(sock, s->data + total, length - total, 0);
82	matty	3	if (sent <= 0)
83			{
84	matty	33	error("send: %s\n", strerror(errno));
85	matty	10	return;
86	matty	3	}
87
88			total += sent;
89			}
90	stargo	1309	#ifdef WITH_SCARD
91			scard_tcp_unlock();
92			#endif
93	matty	3	}
94
95			/* Receive a message on the TCP layer */
96	matty	25	STREAM
97	matthewc	423	tcp_recv(STREAM s, uint32 length)
98	matty	3	{
99	matthewc	423	unsigned int new_length, end_offset, p_offset;
100	matty	33	int rcvd = 0;
101	matty	3
102	matthewc	423	if (s == NULL)
103	matty	10	{
104	matthewc	423	/* read into "new" stream */
105			if (length > in.size)
106			{
107			in.data = (uint8 *) xrealloc(in.data, length);
108			in.size = length;
109			}
110			in.end = in.p = in.data;
111			s = &in;
112	matty	10	}
113	matthewc	423	else
114			{
115			/* append to existing stream */
116			new_length = (s->end - s->data) + length;
117			if (new_length > s->size)
118			{
119			p_offset = s->p - s->data;
120			end_offset = s->end - s->data;
121			s->data = (uint8 *) xrealloc(s->data, new_length);
122			s->size = new_length;
123			s->p = s->data + p_offset;
124			s->end = s->data + end_offset;
125			}
126			}
127	matty	3
128			while (length > 0)
129			{
130	astrand	275	if (!ui_select(sock))
131			/* User quit */
132			return NULL;
133	matty	3
134	matthewc	423	rcvd = recv(sock, s->end, length, 0);
135	astrand	546	if (rcvd < 0)
136	matty	3	{
137	matty	33	error("recv: %s\n", strerror(errno));
138			return NULL;
139			}
140	astrand	546	else if (rcvd == 0)
141			{
142			error("Connection closed\n");
143			return NULL;
144			}
145	matty	9
146	matthewc	423	s->end += rcvd;
147	matty	33	length -= rcvd;
148	matty	3	}
149
150	matthewc	423	return s;
151	matty	10	}
152
153			/* Establish a connection on the TCP layer */
154	matty	25	BOOL
155			tcp_connect(char *server)
156	matty	10	{
157	astrand	440	int true_value = 1;
158
159			#ifdef IPv6
160
161			int n;
162			struct addrinfo hints, res, ressave;
163			char tcp_port_rdp_s[10];
164
165	jsorg71	710	snprintf(tcp_port_rdp_s, 10, "%d", g_tcp_port_rdp);
166	astrand	440
167			memset(&hints, 0, sizeof(struct addrinfo));
168			hints.ai_family = AF_UNSPEC;
169			hints.ai_socktype = SOCK_STREAM;
170
171	stargo	728	if ((n = getaddrinfo(server, tcp_port_rdp_s, &hints, &res)))
172	astrand	440	{
173	astrand	443	error("getaddrinfo: %s\n", gai_strerror(n));
174	astrand	440	return False;
175			}
176
177			ressave = res;
178			sock = -1;
179			while (res)
180			{
181			sock = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
182			if (!(sock < 0))
183			{
184			if (connect(sock, res->ai_addr, res->ai_addrlen) == 0)
185			break;
186			close(sock);
187			sock = -1;
188			}
189			res = res->ai_next;
190			}
191			freeaddrinfo(ressave);
192
193	astrand	443	if (sock == -1)
194			{
195			error("%s: unable to connect\n", server);
196			return False;
197			}
198
199	astrand	440	#else /* no IPv6 support */
200
201	matty	10	struct hostent *nslookup;
202			struct sockaddr_in servaddr;
203
204			if ((nslookup = gethostbyname(server)) != NULL)
205			{
206	astrand	82	memcpy(&servaddr.sin_addr, nslookup->h_addr, sizeof(servaddr.sin_addr));
207	matty	10	}
208	matthewc	303	else if ((servaddr.sin_addr.s_addr = inet_addr(server)) == INADDR_NONE)
209	matty	10	{
210	matty	30	error("%s: unable to resolve host\n", server);
211	matty	10	return False;
212			}
213
214			if ((sock = socket(AF_INET, SOCK_STREAM, 0)) < 0)
215			{
216	matty	30	error("socket: %s\n", strerror(errno));
217	matty	10	return False;
218			}
219
220			servaddr.sin_family = AF_INET;
221	jsorg71	710	servaddr.sin_port = htons(g_tcp_port_rdp);
222	matty	10
223	astrand	82	if (connect(sock, (struct sockaddr *) &servaddr, sizeof(struct sockaddr)) < 0)
224	matty	10	{
225	matty	30	error("connect: %s\n", strerror(errno));
226	matty	10	close(sock);
227			return False;
228			}
229
230	astrand	440	#endif /* IPv6 */
231
232	jsorg71	376	setsockopt(sock, IPPROTO_TCP, TCP_NODELAY, (void *) &true_value, sizeof(true_value));
233	matty	10
234			in.size = 4096;
235	forsberg	408	in.data = (uint8 *) xmalloc(in.size);
236	matty	10
237	stargo	1309	#ifdef WITH_SCARD
238			scard_tcp_connect();
239			#else
240	matty	10	out.size = 4096;
241	forsberg	408	out.data = (uint8 *) xmalloc(out.size);
242	stargo	1309	#endif
243	matty	10
244	matty	3	return True;
245			}
246	matty	10
247			/* Disconnect on the TCP layer */
248	matty	25	void
249	matthewc	192	tcp_disconnect(void)
250	matty	10	{
251			close(sock);
252			}
253	n-ki	625
254			char *
255			tcp_get_address()
256			{
257			static char ipaddr[32];
258			struct sockaddr_in sockaddr;
259	stargo	872	socklen_t len = sizeof(sockaddr);
260	n-ki	625	if (getsockname(sock, (struct sockaddr *) &sockaddr, &len) == 0)
261			{
262			unsigned char ip = (unsigned char ) &sockaddr.sin_addr;
263			sprintf(ipaddr, "%d.%d.%d.%d", ip[0], ip[1], ip[2], ip[3]);
264			}
265			else
266			strcpy(ipaddr, "127.0.0.1");
267			return ipaddr;
268			}
269	astrand	977
270			/* reset the state of the tcp layer */
271			/* Support for Session Directory */
272			void
273			tcp_reset_state(void)
274			{
275			sock = -1; /* reset socket */
276
277			/* Clear the incoming stream */
278			if (in.data != NULL)
279			xfree(in.data);
280			in.p = NULL;
281			in.end = NULL;
282			in.data = NULL;
283			in.size = 0;
284			in.iso_hdr = NULL;
285			in.mcs_hdr = NULL;
286			in.sec_hdr = NULL;
287			in.rdp_hdr = NULL;
288			in.channel_hdr = NULL;
289
290	stargo	1309	/* Clear the outgoing stream(s) */
291			#ifdef WITH_SCARD
292			scard_tcp_reset_state();
293			#else
294	astrand	977	if (out.data != NULL)
295			xfree(out.data);
296			out.p = NULL;
297			out.end = NULL;
298			out.data = NULL;
299			out.size = 0;
300			out.iso_hdr = NULL;
301			out.mcs_hdr = NULL;
302			out.sec_hdr = NULL;
303			out.rdp_hdr = NULL;
304			out.channel_hdr = NULL;
305	stargo	1309	#endif
306	astrand	977	}