1 /*
2 * Internet Messaging Transport Base Class
3 *
4 * Copyright 2006 Robert Shearman for CodeWeavers
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
10 *
11 * This library 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 GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 */
20
21 #define COBJMACROS
22
23 #include <stdarg.h>
24 #include <stdio.h>
25
26 #include "windef.h"
27 #include "winbase.h"
28 #include "winnt.h"
29 #include "winuser.h"
30 #include "winsock2.h"
31 #include "ws2tcpip.h"
32 #include "objbase.h"
33 #include "ole2.h"
34 #include "mimeole.h"
35
36 #include "wine/debug.h"
37
38 #include "inetcomm_private.h"
39
40 WINE_DEFAULT_DEBUG_CHANNEL(inetcomm);
41
42 static const WCHAR wszClassName[] = {'T','h','o','r','C','o','n','n','W','n','d','C','l','a','s','s',0};
43
44 #define IX_READ (WM_USER + 0)
45 #define IX_READLINE (WM_USER + 1)
46 #define IX_WRITE (WM_USER + 2)
47
48 HRESULT InternetTransport_Init(InternetTransport *This)
49 {
50 This->pCallback = NULL;
51 This->Status = IXP_DISCONNECTED;
52 This->Socket = -1;
53 This->fCommandLogging = FALSE;
54 This->fnCompletion = NULL;
55
56 return S_OK;
57 }
58
59 HRESULT InternetTransport_GetServerInfo(InternetTransport *This, LPINETSERVER pInetServer)
60 {
61 if (This->Status == IXP_DISCONNECTED)
62 return IXP_E_NOT_CONNECTED;
63
64 *pInetServer = This->ServerInfo;
65 return S_OK;
66 }
67
68 HRESULT InternetTransport_InetServerFromAccount(InternetTransport *This,
69 IImnAccount *pAccount, LPINETSERVER pInetServer)
70 {
71 FIXME("(%p, %p): stub\n", pAccount, pInetServer);
72 return E_NOTIMPL;
73 }
74
75 HRESULT InternetTransport_Connect(InternetTransport *This,
76 LPINETSERVER pInetServer, boolean fAuthenticate, boolean fCommandLogging)
77 {
78 struct addrinfo *ai;
79 struct addrinfo *ai_cur;
80 struct addrinfo hints;
81 int ret;
82 char szPort[10];
83
84 if (This->Status != IXP_DISCONNECTED)
85 return IXP_E_ALREADY_CONNECTED;
86
87 This->ServerInfo = *pInetServer;
88 This->fCommandLogging = fCommandLogging;
89
90 This->hwnd = CreateWindowW(wszClassName, wszClassName, 0, 0, 0, 0, 0, NULL, NULL, NULL, 0);
91 if (!This->hwnd)
92 return HRESULT_FROM_WIN32(GetLastError());
93 SetWindowLongPtrW(This->hwnd, GWLP_USERDATA, (LONG_PTR)This);
94
95 hints.ai_flags = 0;
96 hints.ai_family = PF_UNSPEC;
97 hints.ai_socktype = SOCK_STREAM;
98 hints.ai_protocol = IPPROTO_TCP;
99 hints.ai_addrlen = 0;
100 hints.ai_addr = NULL;
101 hints.ai_canonname = NULL;
102 hints.ai_next = NULL;
103
104 snprintf(szPort, sizeof(szPort), "%d", (unsigned short)pInetServer->dwPort);
105
106 InternetTransport_ChangeStatus(This, IXP_FINDINGHOST);
107
108 ret = getaddrinfo(pInetServer->szServerName, szPort, &hints, &ai);
109 if (ret)
110 {
111 ERR("getaddrinfo failed: %d\n", ret);
112 return IXP_E_CANT_FIND_HOST;
113 }
114
115 for (ai_cur = ai; ai_cur; ai_cur = ai->ai_next)
116 {
117 int so;
118
119 if (TRACE_ON(inetcomm))
120 {
121 char host[256];
122 char service[256];
123 getnameinfo(ai_cur->ai_addr, ai_cur->ai_addrlen,
124 host, sizeof(host), service, sizeof(service),
125 NI_NUMERICHOST | NI_NUMERICSERV);
126 TRACE("trying %s:%s\n", host, service);
127 }
128
129 InternetTransport_ChangeStatus(This, IXP_CONNECTING);
130
131 so = socket(ai_cur->ai_family, ai_cur->ai_socktype, ai_cur->ai_protocol);
132 if (so == -1)
133 {
134 WARN("socket() failed\n");
135 continue;
136 }
137 This->Socket = so;
138
139 /* FIXME: set to async */
140
141 if (0 > connect(This->Socket, ai_cur->ai_addr, ai_cur->ai_addrlen))
142 {
143 WARN("connect() failed\n");
144 closesocket(This->Socket);
145 continue;
146 }
147 InternetTransport_ChangeStatus(This, IXP_CONNECTED);
148
149 /* FIXME: call WSAAsyncSelect */
150
151 freeaddrinfo(ai);
152 TRACE("connected\n");
153 return S_OK;
154 }
155
156 freeaddrinfo(ai);
157
158 return IXP_E_CANT_FIND_HOST;
159 }
160
161 HRESULT InternetTransport_HandsOffCallback(InternetTransport *This)
162 {
163 if (!This->pCallback)
164 return S_FALSE;
165
166 ITransportCallback_Release(This->pCallback);
167 This->pCallback = NULL;
168
169 return S_OK;
170 }
171
172 HRESULT InternetTransport_DropConnection(InternetTransport *This)
173 {
174 int ret;
175
176 if (This->Status == IXP_DISCONNECTED)
177 return IXP_E_NOT_CONNECTED;
178
179 ret = shutdown(This->Socket, SD_BOTH);
180
181 ret = closesocket(This->Socket);
182
183 DestroyWindow(This->hwnd);
184 This->hwnd = NULL;
185
186 InternetTransport_ChangeStatus(This, IXP_DISCONNECTED);
187
188 return S_OK;
189 }
190
191 HRESULT InternetTransport_GetStatus(InternetTransport *This,
192 IXPSTATUS *pCurrentStatus)
193 {
194 *pCurrentStatus = This->Status;
195 return S_OK;
196 }
197
198 HRESULT InternetTransport_ChangeStatus(InternetTransport *This, IXPSTATUS Status)
199 {
200 This->Status = Status;
201 if (This->pCallback)
202 ITransportCallback_OnStatus(This->pCallback, Status,
203 (IInternetTransport *)&This->u.vtbl);
204 return S_OK;
205 }
206
207 HRESULT InternetTransport_Read(InternetTransport *This, int cbBuffer,
208 INETXPORT_COMPLETION_FUNCTION fnCompletion)
209 {
210 if (This->Status == IXP_DISCONNECTED)
211 return IXP_E_NOT_CONNECTED;
212
213 if (This->fnCompletion)
214 return IXP_E_BUSY;
215
216 This->fnCompletion = fnCompletion;
217
218 This->cbBuffer = cbBuffer;
219 This->pBuffer = HeapAlloc(GetProcessHeap(), 0, This->cbBuffer);
220 This->iCurrentBufferOffset = 0;
221
222 if (WSAAsyncSelect(This->Socket, This->hwnd, IX_READ, FD_READ) == SOCKET_ERROR)
223 {
224 ERR("WSAAsyncSelect failed with error %d\n", WSAGetLastError());
225 /* FIXME: handle error */
226 }
227 return S_OK;
228 }
229
230 HRESULT InternetTransport_ReadLine(InternetTransport *This,
231 INETXPORT_COMPLETION_FUNCTION fnCompletion)
232 {
233 if (This->Status == IXP_DISCONNECTED)
234 return IXP_E_NOT_CONNECTED;
235
236 if (This->fnCompletion)
237 return IXP_E_BUSY;
238
239 This->fnCompletion = fnCompletion;
240
241 This->cbBuffer = 1024;
242 This->pBuffer = HeapAlloc(GetProcessHeap(), 0, This->cbBuffer);
243 This->iCurrentBufferOffset = 0;
244
245 if (WSAAsyncSelect(This->Socket, This->hwnd, IX_READLINE, FD_READ) == SOCKET_ERROR)
246 {
247 ERR("WSAAsyncSelect failed with error %d\n", WSAGetLastError());
248 /* FIXME: handle error */
249 }
250 return S_OK;
251 }
252
253 HRESULT InternetTransport_Write(InternetTransport *This, const char *pvData,
254 int cbSize, INETXPORT_COMPLETION_FUNCTION fnCompletion)
255 {
256 int ret;
257
258 if (This->Status == IXP_DISCONNECTED)
259 return IXP_E_NOT_CONNECTED;
260
261 if (This->fnCompletion)
262 return IXP_E_BUSY;
263
264 /* FIXME: do this asynchronously */
265 ret = send(This->Socket, pvData, cbSize, 0);
266 if (ret == SOCKET_ERROR)
267 {
268 ERR("send failed with error %d\n", WSAGetLastError());
269 /* FIXME: handle error */
270 }
271
272 fnCompletion((IInternetTransport *)&This->u.vtbl, NULL, 0);
273
274 return S_OK;
275 }
276
277 HRESULT InternetTransport_DoCommand(InternetTransport *This,
278 LPCSTR pszCommand, INETXPORT_COMPLETION_FUNCTION fnCompletion)
279 {
280 if (This->Status == IXP_DISCONNECTED)
281 return IXP_E_NOT_CONNECTED;
282
283 if (This->fnCompletion)
284 return IXP_E_BUSY;
285
286 if (This->pCallback && This->fCommandLogging)
287 {
288 ITransportCallback_OnCommand(This->pCallback, CMD_SEND, (LPSTR)pszCommand, 0,
289 (IInternetTransport *)&This->u.vtbl);
290 }
291 return InternetTransport_Write(This, pszCommand, strlen(pszCommand), fnCompletion);
292 }
293
294 static LRESULT CALLBACK InternetTransport_WndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
295 {
296 if (uMsg == IX_READ)
297 {
298 InternetTransport *This = (InternetTransport *)GetWindowLongPtrW(hwnd, GWLP_USERDATA);
299
300 /* no work to do */
301 if (!This->fnCompletion)
302 return 0;
303
304 while (This->iCurrentBufferOffset < This->cbBuffer)
305 {
306 if (recv(This->Socket, &This->pBuffer[This->iCurrentBufferOffset], 1, 0) <= 0)
307 {
308 if (WSAGetLastError() == WSAEWOULDBLOCK)
309 break;
310
311 ERR("recv failed with error %d\n", WSAGetLastError());
312 /* FIXME: handle error */
313 }
314
315 This->iCurrentBufferOffset++;
316 }
317 if (This->iCurrentBufferOffset == This->cbBuffer)
318 {
319 INETXPORT_COMPLETION_FUNCTION fnCompletion = This->fnCompletion;
320 char *pBuffer;
321
322 This->fnCompletion = NULL;
323 pBuffer = This->pBuffer;
324 This->pBuffer = NULL;
325 fnCompletion((IInternetTransport *)&This->u.vtbl, pBuffer,
326 This->iCurrentBufferOffset);
327 HeapFree(GetProcessHeap(), 0, pBuffer);
328 return 0;
329 }
330
331 if (WSAAsyncSelect(This->Socket, hwnd, uMsg, FD_READ) == SOCKET_ERROR)
332 {
333 ERR("WSAAsyncSelect failed with error %d\n", WSAGetLastError());
334 /* FIXME: handle error */
335 }
336 return 0;
337 }
338 else if (uMsg == IX_READLINE)
339 {
340 InternetTransport *This = (InternetTransport *)GetWindowLongPtrW(hwnd, GWLP_USERDATA);
341
342 /* no work to do */
343 if (!This->fnCompletion)
344 return 0;
345
346 while (This->iCurrentBufferOffset < This->cbBuffer - 1)
347 {
348 fd_set infd;
349
350 if (recv(This->Socket, &This->pBuffer[This->iCurrentBufferOffset], 1, 0) <= 0)
351 {
352 if (WSAGetLastError() == WSAEWOULDBLOCK)
353 break;
354
355 ERR("recv failed with error %d\n", WSAGetLastError());
356 /* FIXME: handle error */
357 return 0;
358 }
359
360 if (This->pBuffer[This->iCurrentBufferOffset] == '\n')
361 {
362 INETXPORT_COMPLETION_FUNCTION fnCompletion = This->fnCompletion;
363 char *pBuffer;
364
365 This->fnCompletion = NULL;
366 This->pBuffer[This->iCurrentBufferOffset++] = '\0';
367 pBuffer = This->pBuffer;
368 This->pBuffer = NULL;
369
370 fnCompletion((IInternetTransport *)&This->u.vtbl, pBuffer,
371 This->iCurrentBufferOffset);
372
373 HeapFree(GetProcessHeap(), 0, pBuffer);
374 return 0;
375 }
376 if (This->pBuffer[This->iCurrentBufferOffset] != '\r')
377 This->iCurrentBufferOffset++;
378
379 FD_ZERO(&infd);
380 FD_SET(This->Socket, &infd);
381 }
382 if (This->iCurrentBufferOffset == This->cbBuffer - 1)
383 return 0;
384
385 if (WSAAsyncSelect(This->Socket, hwnd, uMsg, FD_READ) == SOCKET_ERROR)
386 {
387 ERR("WSAAsyncSelect failed with error %d\n", WSAGetLastError());
388 /* FIXME: handle error */
389 }
390 return 0;
391 }
392 else
393 return DefWindowProcW(hwnd, uMsg, wParam, lParam);
394 }
395
396 BOOL InternetTransport_RegisterClass(HINSTANCE hInstance)
397 {
398 WNDCLASSW cls;
399 WSADATA wsadata;
400
401 if (WSAStartup(MAKEWORD(2, 2), &wsadata))
402 return FALSE;
403
404 memset(&cls, 0, sizeof(cls));
405 cls.hInstance = hInstance;
406 cls.lpfnWndProc = InternetTransport_WndProc;
407 cls.lpszClassName = wszClassName;
408
409 return RegisterClassW(&cls);
410 }
411
412 void InternetTransport_UnregisterClass(HINSTANCE hInstance)
413 {
414 UnregisterClassW(wszClassName, hInstance);
415 WSACleanup();
416 }
417
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.