1 /***************************************************************************
2 * _ _ ____ _
3 * Project ___| | | | _ \| |
4 * / __| | | | |_) | |
5 * | (__| |_| | _ <| |___
6 * \___|\___/|_| \_\_____|
7 *
8 * Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
9 *
10 * This software is licensed as described in the file COPYING, which
11 * you should have received as part of this distribution. The terms
12 * are also available at https://curl.se/docs/copyright.html.
13 *
14 * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15 * copies of the Software, and permit persons to whom the Software is
16 * furnished to do so, under the terms of the COPYING file.
17 *
18 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19 * KIND, either express or implied.
20 *
21 * SPDX-License-Identifier: curl
22 *
23 ***************************************************************************/
24 /* <DESC>
25 * WebSockets data echos
26 * </DESC>
27 */
28 /* curl stuff */
29 #include <curl/curl.h>
30
31 #include <stdio.h>
32 #include <stdlib.h>
33 #include <string.h>
34
35 #if !defined(CURL_DISABLE_WEBSOCKETS) && !defined(_MSC_VER)
36
37 #ifndef _MSC_VER
38 /* somewhat Unix-specific */
39 #include <unistd.h> /* getopt() */
40 #endif
41
42 #ifdef _WIN32
43 #ifndef WIN32_LEAN_AND_MEAN
44 #define WIN32_LEAN_AND_MEAN
45 #endif
46 #include <windows.h>
47 #else
48 #include <sys/time.h>
49 #endif
50
51
52 static
dump(const char * text,unsigned char * ptr,size_t size,char nohex)53 void dump(const char *text, unsigned char *ptr, size_t size,
54 char nohex)
55 {
56 size_t i;
57 size_t c;
58
59 unsigned int width = 0x10;
60
61 if(nohex)
62 /* without the hex output, we can fit more on screen */
63 width = 0x40;
64
65 fprintf(stderr, "%s, %lu bytes (0x%lx)\n",
66 text, (unsigned long)size, (unsigned long)size);
67
68 for(i = 0; i < size; i += width) {
69
70 fprintf(stderr, "%4.4lx: ", (unsigned long)i);
71
72 if(!nohex) {
73 /* hex not disabled, show it */
74 for(c = 0; c < width; c++)
75 if(i + c < size)
76 fprintf(stderr, "%02x ", ptr[i + c]);
77 else
78 fputs(" ", stderr);
79 }
80
81 for(c = 0; (c < width) && (i + c < size); c++) {
82 /* check for 0D0A; if found, skip past and start a new line of output */
83 if(nohex && (i + c + 1 < size) && ptr[i + c] == 0x0D &&
84 ptr[i + c + 1] == 0x0A) {
85 i += (c + 2 - width);
86 break;
87 }
88 fprintf(stderr, "%c",
89 (ptr[i + c] >= 0x20) && (ptr[i + c] < 0x80) ? ptr[i + c] : '.');
90 /* check again for 0D0A, to avoid an extra \n if it's at width */
91 if(nohex && (i + c + 2 < size) && ptr[i + c + 1] == 0x0D &&
92 ptr[i + c + 2] == 0x0A) {
93 i += (c + 3 - width);
94 break;
95 }
96 }
97 fputc('\n', stderr); /* newline */
98 }
99 }
100
check_recv(const struct curl_ws_frame * frame,size_t r_offset,size_t nread,size_t exp_len)101 static CURLcode check_recv(const struct curl_ws_frame *frame,
102 size_t r_offset, size_t nread, size_t exp_len)
103 {
104 if(!frame)
105 return CURLE_OK;
106
107 if(frame->flags & CURLWS_CLOSE) {
108 fprintf(stderr, "recv_data: unexpected CLOSE frame from server, "
109 "got %ld bytes, offset=%ld, rflags %x\n",
110 (long)nread, (long)r_offset, frame->flags);
111 return CURLE_RECV_ERROR;
112 }
113 if(!r_offset && !(frame->flags & CURLWS_BINARY)) {
114 fprintf(stderr, "recv_data: wrong frame, got %ld bytes, offset=%ld, "
115 "rflags %x\n",
116 (long)nread, (long)r_offset, frame->flags);
117 return CURLE_RECV_ERROR;
118 }
119 if(frame->offset != (curl_off_t)r_offset) {
120 fprintf(stderr, "recv_data: frame offset, expected %ld, got %ld\n",
121 (long)r_offset, (long)frame->offset);
122 return CURLE_RECV_ERROR;
123 }
124 if(frame->bytesleft != (curl_off_t)(exp_len - r_offset - nread)) {
125 fprintf(stderr, "recv_data: frame bytesleft, expected %ld, got %ld\n",
126 (long)(exp_len - r_offset - nread), (long)frame->bytesleft);
127 return CURLE_RECV_ERROR;
128 }
129 if(r_offset + nread > exp_len) {
130 fprintf(stderr, "recv_data: data length, expected %ld, now at %ld\n",
131 (long)exp_len, (long)(r_offset + nread));
132 return CURLE_RECV_ERROR;
133 }
134 return CURLE_OK;
135 }
136
137 #if defined(__TANDEM)
138 # include <cextdecs.h(PROCESS_DELAY_)>
139 #endif
140
141 /* just close the connection */
websocket_close(CURL * curl)142 static void websocket_close(CURL *curl)
143 {
144 size_t sent;
145 CURLcode result =
146 curl_ws_send(curl, "", 0, &sent, 0, CURLWS_CLOSE);
147 fprintf(stderr,
148 "ws: curl_ws_send returned %u, sent %u\n", (int)result, (int)sent);
149 }
150
data_echo(CURL * curl,size_t count,size_t plen_min,size_t plen_max)151 static CURLcode data_echo(CURL *curl, size_t count,
152 size_t plen_min, size_t plen_max)
153 {
154 CURLcode r = CURLE_OK;
155 const struct curl_ws_frame *frame;
156 size_t len;
157 char *send_buf = NULL, *recv_buf = NULL;
158 size_t i, scount = count, rcount = count;
159 int rblock, sblock;
160
161 send_buf = calloc(1, plen_max + 1);
162 recv_buf = calloc(1, plen_max + 1);
163 if(!send_buf || !recv_buf) {
164 r = CURLE_OUT_OF_MEMORY;
165 goto out;
166 }
167
168 for(i = 0; i < plen_max; ++i) {
169 send_buf[i] = (char)('0' + ((int)i % 10));
170 }
171
172 for(len = plen_min; len <= plen_max; ++len) {
173 size_t nwritten, nread, slen = len, rlen = len;
174 char *sbuf = send_buf, *rbuf = recv_buf;
175
176 memset(recv_buf, 0, plen_max);
177 while(slen || rlen || scount || rcount) {
178 sblock = rblock = 1;
179 if(slen) {
180 r = curl_ws_send(curl, sbuf, slen, &nwritten, 0, CURLWS_BINARY);
181 sblock = (r == CURLE_AGAIN);
182 if(!r || (r == CURLE_AGAIN)) {
183 fprintf(stderr, "curl_ws_send(len=%ld) -> %d, %ld (%ld/%ld)\n",
184 (long)slen, r, (long)nwritten,
185 (long)(len - slen), (long)len);
186 sbuf += nwritten;
187 slen -= nwritten;
188 }
189 else
190 goto out;
191 }
192 if(!slen && scount) { /* go again? */
193 scount--;
194 sbuf = send_buf;
195 slen = len;
196 }
197
198 if(rlen) {
199 size_t max_recv = (64 * 1024);
200 r = curl_ws_recv(curl, rbuf, (rlen > max_recv) ? max_recv : rlen,
201 &nread, &frame);
202 if(!r || (r == CURLE_AGAIN)) {
203 rblock = (r == CURLE_AGAIN);
204 fprintf(stderr, "curl_ws_recv(len=%ld) -> %d, %ld (%ld/%ld) \n",
205 (long)rlen, r, (long)nread, (long)(len - rlen), (long)len);
206 if(!r) {
207 r = check_recv(frame, len - rlen, nread, len);
208 if(r)
209 goto out;
210 }
211 rbuf += nread;
212 rlen -= nread;
213 }
214 else
215 goto out;
216 }
217 if(!rlen && rcount) { /* go again? */
218 rcount--;
219 rbuf = recv_buf;
220 rlen = len;
221 }
222
223 if(rblock && sblock) {
224 fprintf(stderr, "EAGAIN, sleep, try again\n");
225 #ifdef _WIN32
226 Sleep(100);
227 #elif defined(__TANDEM)
228 /* NonStop only defines usleep when building for a threading model */
229 # if defined(_PUT_MODEL_) || defined(_KLT_MODEL_)
230 usleep(100*1000);
231 # else
232 PROCESS_DELAY_(100*1000);
233 # endif
234 #else
235 usleep(100*1000);
236 #endif
237 }
238 }
239
240 if(memcmp(send_buf, recv_buf, len)) {
241 fprintf(stderr, "recv_data: data differs\n");
242 dump("expected:", (unsigned char *)send_buf, len, 0);
243 dump("received:", (unsigned char *)recv_buf, len, 0);
244 r = CURLE_RECV_ERROR;
245 goto out;
246 }
247 }
248
249 out:
250 if(!r)
251 websocket_close(curl);
252 free(send_buf);
253 free(recv_buf);
254 return r;
255 }
256
usage(const char * msg)257 static void usage(const char *msg)
258 {
259 if(msg)
260 fprintf(stderr, "%s\n", msg);
261 fprintf(stderr,
262 "usage: [options] url\n"
263 " -m number minimum frame size\n"
264 " -M number maximum frame size\n"
265 );
266 }
267
268 #endif
269
main(int argc,char * argv[])270 int main(int argc, char *argv[])
271 {
272 #if !defined(CURL_DISABLE_WEBSOCKETS) && !defined(_MSC_VER)
273 CURL *curl;
274 CURLcode res = CURLE_OK;
275 const char *url;
276 size_t plen_min = 0, plen_max = 0, count = 1;
277 int ch;
278
279 while((ch = getopt(argc, argv, "c:hm:M:")) != -1) {
280 switch(ch) {
281 case 'h':
282 usage(NULL);
283 res = CURLE_BAD_FUNCTION_ARGUMENT;
284 goto cleanup;
285 case 'c':
286 count = (size_t)strtol(optarg, NULL, 10);
287 break;
288 case 'm':
289 plen_min = (size_t)strtol(optarg, NULL, 10);
290 break;
291 case 'M':
292 plen_max = (size_t)strtol(optarg, NULL, 10);
293 break;
294 default:
295 usage("invalid option");
296 res = CURLE_BAD_FUNCTION_ARGUMENT;
297 goto cleanup;
298 }
299 }
300 argc -= optind;
301 argv += optind;
302
303 if(!plen_max)
304 plen_max = plen_min;
305
306 if(plen_max < plen_min) {
307 fprintf(stderr, "maxlen must be >= minlen, got %ld-%ld\n",
308 (long)plen_min, (long)plen_max);
309 res = CURLE_BAD_FUNCTION_ARGUMENT;
310 goto cleanup;
311 }
312
313 if(argc != 1) {
314 usage(NULL);
315 res = CURLE_BAD_FUNCTION_ARGUMENT;
316 goto cleanup;
317 }
318 url = argv[0];
319
320 curl_global_init(CURL_GLOBAL_ALL);
321
322 curl = curl_easy_init();
323 if(curl) {
324 curl_easy_setopt(curl, CURLOPT_URL, url);
325
326 /* use the callback style */
327 curl_easy_setopt(curl, CURLOPT_USERAGENT, "ws-data");
328 curl_easy_setopt(curl, CURLOPT_VERBOSE, 1L);
329 curl_easy_setopt(curl, CURLOPT_CONNECT_ONLY, 2L); /* websocket style */
330 res = curl_easy_perform(curl);
331 fprintf(stderr, "curl_easy_perform() returned %u\n", (int)res);
332 if(res == CURLE_OK)
333 res = data_echo(curl, count, plen_min, plen_max);
334
335 /* always cleanup */
336 curl_easy_cleanup(curl);
337 }
338
339 cleanup:
340 curl_global_cleanup();
341 return (int)res;
342
343 #else /* !CURL_DISABLE_WEBSOCKETS */
344 (void)argc;
345 (void)argv;
346 fprintf(stderr, "WebSockets not enabled in libcurl\n");
347 return 1;
348 #endif /* CURL_DISABLE_WEBSOCKETS */
349 }
350