removing incoherent address formats
[oweals/gnunet.git] / src / transport / plugin_transport_http_client.c
1 /*
2      This file is part of GNUnet
3      (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Christian Grothoff (and other contributing authors)
4
5      GNUnet is free software; you can redistribute it and/or modify
6      it under the terms of the GNU General Public License as published
7      by the Free Software Foundation; either version 3, or (at your
8      option) any later version.
9
10      GNUnet is distributed in the hope that it will be useful, but
11      WITHOUT ANY WARRANTY; without even the implied warranty of
12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13      General Public License for more details.
14
15      You should have received a copy of the GNU General Public License
16      along with GNUnet; see the file COPYING.  If not, write to the
17      Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18      Boston, MA 02111-1307, USA.
19 */
20
21 /**
22  * @file transport/plugin_transport_http_client.c
23  * @brief http transport service plugin
24  * @author Matthias Wachs
25  */
26
27 #include "plugin_transport_http.h"
28
29 #if VERBOSE_CURL
30 /**
31  * Function to log curl debug messages with GNUNET_log
32  * @param curl handle
33  * @param type curl_infotype
34  * @param data data
35  * @param size size
36  * @param cls  closure
37  * @return 0
38  */
39 static int
40 client_log (CURL * curl, curl_infotype type, char *data, size_t size, void *cls)
41 {
42   if (type == CURLINFO_TEXT)
43   {
44     char text[size + 2];
45
46     memcpy (text, data, size);
47     if (text[size - 1] == '\n')
48       text[size] = '\0';
49     else
50     {
51       text[size] = '\n';
52       text[size + 1] = '\0';
53     }
54 #if BUILD_HTTPS
55     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-https", "Client: %X - %s", cls, text);
56 #else
57     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-http", "Client: %X - %s", cls, text);
58 #endif
59   }
60   return 0;
61 }
62 #endif
63
64 int
65 client_send (struct Session *s, struct HTTP_Message *msg)
66 {
67   GNUNET_CONTAINER_DLL_insert (s->msg_head, s->msg_tail, msg);
68   if (s != NULL)
69     curl_easy_pause(s->client_put, CURLPAUSE_CONT);
70   return GNUNET_OK;
71 }
72
73 /**
74  * Task performing curl operations
75  * @param cls plugin as closure
76  * @param tc gnunet scheduler task context
77  */
78 static void
79 client_run (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc);
80
81 /**
82  * Function setting up file descriptors and scheduling task to run
83  *
84  * @param  plugin plugin as closure
85  * @return GNUNET_SYSERR for hard failure, GNUNET_OK for ok
86  */
87 static int
88 client_schedule (struct Plugin *plugin)
89 {
90   fd_set rs;
91   fd_set ws;
92   fd_set es;
93   int max;
94   struct GNUNET_NETWORK_FDSet *grs;
95   struct GNUNET_NETWORK_FDSet *gws;
96   long to;
97   CURLMcode mret;
98   struct GNUNET_TIME_Relative timeout;
99
100   /* Cancel previous scheduled task */
101   if (plugin->client_perform_task!= GNUNET_SCHEDULER_NO_TASK)
102   {
103     GNUNET_SCHEDULER_cancel (plugin->client_perform_task);
104     plugin->client_perform_task = GNUNET_SCHEDULER_NO_TASK;
105   }
106
107   max = -1;
108   FD_ZERO (&rs);
109   FD_ZERO (&ws);
110   FD_ZERO (&es);
111   mret = curl_multi_fdset (plugin->client_mh, &rs, &ws, &es, &max);
112   if (mret != CURLM_OK)
113   {
114     GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("%s failed at %s:%d: `%s'\n"),
115                 "curl_multi_fdset", __FILE__, __LINE__,
116                 curl_multi_strerror (mret));
117     return GNUNET_SYSERR;
118   }
119   mret = curl_multi_timeout (plugin->client_mh, &to);
120   if (to == -1)
121     timeout = GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 5);
122   else
123     timeout = GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_MILLISECONDS, to);
124   if (mret != CURLM_OK)
125   {
126     GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("%s failed at %s:%d: `%s'\n"),
127                 "curl_multi_timeout", __FILE__, __LINE__,
128                 curl_multi_strerror (mret));
129     return GNUNET_SYSERR;
130   }
131
132   grs = GNUNET_NETWORK_fdset_create ();
133   gws = GNUNET_NETWORK_fdset_create ();
134   GNUNET_NETWORK_fdset_copy_native (grs, &rs, max + 1);
135   GNUNET_NETWORK_fdset_copy_native (gws, &ws, max + 1);
136
137   plugin->client_perform_task =
138       GNUNET_SCHEDULER_add_select (GNUNET_SCHEDULER_PRIORITY_DEFAULT,
139                                    GNUNET_SCHEDULER_NO_TASK,
140                                    timeout,
141                                    grs,
142                                    gws,
143                                    &client_run,
144                                    plugin);
145   GNUNET_NETWORK_fdset_destroy (gws);
146   GNUNET_NETWORK_fdset_destroy (grs);
147   return GNUNET_OK;
148 }
149
150
151 /**
152  * Task performing curl operations
153  * @param cls plugin as closure
154  * @param tc gnunet scheduler task context
155  */
156 static void
157 client_run (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
158 {
159   struct Plugin *plugin = cls;
160   static unsigned int handles_last_run;
161   int running;
162   CURLMcode mret;
163
164   GNUNET_assert (cls != NULL);
165
166   plugin->client_perform_task = GNUNET_SCHEDULER_NO_TASK;
167   if (0 != (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN))
168     return;
169
170   do
171   {
172     running = 0;
173     mret = curl_multi_perform (plugin->client_mh, &running);
174
175     CURLMsg * msg;
176     int msgs_left;
177     while ((msg = curl_multi_info_read(plugin->client_mh, &msgs_left)))
178     {
179        CURL *easy_h  = msg->easy_handle;
180        struct Session *s =  NULL;
181        char * d = (char *) s;
182        GNUNET_assert (easy_h != NULL);
183
184        GNUNET_assert (CURLE_OK == curl_easy_getinfo(easy_h, CURLINFO_PRIVATE, &d));
185        s = (struct Session *) d;
186        GNUNET_assert (s != NULL);
187
188        if (msg->msg == CURLMSG_DONE)
189        {
190 #if DEBUG_HTTP
191          GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
192                    "Client: %X connection to '%s'  %s ended\n", s, GNUNET_i2s(&s->target), GNUNET_a2s (s->addr, s->addrlen));
193 #endif
194          client_disconnect(s);
195          //GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,"Notifying about ended session to peer `%s' `%s'\n", GNUNET_i2s (&s->target), http_plugin_address_to_string (plugin, s->addr, s->addrlen));
196          if (s->msg_tk != NULL)
197            GNUNET_SERVER_mst_destroy (s->msg_tk);
198          notify_session_end (plugin, &s->target, s);
199        }
200     }
201
202     handles_last_run = running;
203   }
204   while (mret == CURLM_CALL_MULTI_PERFORM);
205   client_schedule (plugin);
206 }
207
208 int
209 client_disconnect (struct Session *s)
210 {
211   int res = GNUNET_OK;
212   CURLMcode mret;
213   struct Plugin *plugin = s->plugin;
214   struct HTTP_Message * msg;
215   struct HTTP_Message * t;
216
217 #if DEBUG_HTTP
218   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
219                    "Client: %X Deleting outbound PUT session to peer `%s'\n",
220                    s,
221                    GNUNET_i2s (&s->target));
222 #endif
223
224   if (s->client_put != NULL)
225   {
226     mret = curl_multi_remove_handle (plugin->client_mh, s->client_put);
227     if (mret != CURLM_OK)
228     {
229       curl_easy_cleanup (s->client_put);
230       res = GNUNET_SYSERR;
231       GNUNET_break (0);
232     }
233     curl_easy_cleanup (s->client_put);
234     s->client_put = NULL;
235   }
236
237 #if DEBUG_HTTP
238   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
239                    "Client: %X Deleting outbound GET session to peer `%s'\n",
240                    s,
241                    GNUNET_i2s (&s->target));
242 #endif
243   if (s->recv_wakeup_task != GNUNET_SCHEDULER_NO_TASK)
244   {
245    GNUNET_SCHEDULER_cancel (s->recv_wakeup_task);
246    s->recv_wakeup_task = GNUNET_SCHEDULER_NO_TASK;
247   }
248
249   if (s->client_get != NULL)
250   {
251     mret = curl_multi_remove_handle (plugin->client_mh, s->client_get);
252     if (mret != CURLM_OK)
253     {
254       curl_easy_cleanup (s->client_get);
255       res = GNUNET_SYSERR;
256       GNUNET_break (0);
257     }
258     curl_easy_cleanup (s->client_get);
259     s->client_get = NULL;
260   }
261
262   msg = s->msg_head;
263   while (msg != NULL)
264   {
265     t = msg->next;
266     if (NULL != msg->transmit_cont)
267       msg->transmit_cont (msg->transmit_cont_cls, &s->target, GNUNET_SYSERR);
268     GNUNET_CONTAINER_DLL_remove(s->msg_head, s->msg_tail, msg);
269     GNUNET_free (msg);
270     msg = t;
271   }
272
273   plugin->cur_connections -= 2;
274   /* Re-schedule since handles have changed */
275   if (plugin->client_perform_task != GNUNET_SCHEDULER_NO_TASK)
276   {
277     GNUNET_SCHEDULER_cancel (plugin->client_perform_task);
278     plugin->client_perform_task = GNUNET_SCHEDULER_NO_TASK;
279   }
280
281   plugin->client_perform_task = GNUNET_SCHEDULER_add_now(client_run, plugin);
282
283   return res;
284 }
285
286 static void
287 client_receive_mst_cb (void *cls, void *client,
288                      const struct GNUNET_MessageHeader *message)
289 {
290   struct Session *s = cls;
291   struct Plugin *plugin = s->plugin;
292   struct GNUNET_TIME_Relative delay;
293
294   delay = http_plugin_receive (s, &s->target, message, s, s->addr, s->addrlen);
295
296   s->delay = GNUNET_TIME_absolute_add(GNUNET_TIME_absolute_get(), delay);
297
298   if (GNUNET_TIME_absolute_get().abs_value < s->delay.abs_value)
299   {
300 #if VERBOSE_CLIENT
301     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name, "Client: peer `%s' address `%s' next read delayed for %llu ms\n",
302                 GNUNET_i2s (&s->target), GNUNET_a2s (s->addr, s->addrlen), delay);
303 #endif
304   }
305 }
306 static void
307 client_wake_up (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
308 {
309   struct Session *s = cls;
310
311   s->recv_wakeup_task = GNUNET_SCHEDULER_NO_TASK;
312   if (0 != (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN))
313     return;
314
315   if (s->client_get != NULL)
316     curl_easy_pause(s->client_get, CURLPAUSE_CONT);
317 }
318
319 /**
320 * Callback method used with libcurl
321 * Method is called when libcurl needs to write data during sending
322 * @param stream pointer where to write data
323 * @param size size of an individual element
324 * @param nmemb count of elements that can be written to the buffer
325 * @param ptr destination pointer, passed to the libcurl handle
326 * @return bytes read from stream
327 */
328 static size_t
329 client_receive (void *stream, size_t size, size_t nmemb, void *cls)
330 {
331   struct Session *s = cls;
332   struct Plugin *plugin = s->plugin;
333   struct GNUNET_TIME_Absolute now;
334
335 #if VERBOSE_CLIENT
336   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name, "Client: Received %Zu bytes from peer `%s'\n",
337                    size * nmemb,
338                    GNUNET_i2s (&s->target));
339 #endif
340
341   now = GNUNET_TIME_absolute_get();
342   if (now.abs_value < s->delay.abs_value)
343   {
344 #if DEBUG_CLIENT
345     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
346                 "No inbound bandwidth available! Next read was delayed for  %llu ms\n",
347                 s, GNUNET_TIME_absolute_get_difference(s->delay, GNUNET_TIME_absolute_get()).rel_value);
348 #endif
349     if (s->recv_wakeup_task != GNUNET_SCHEDULER_NO_TASK)
350     {
351       GNUNET_SCHEDULER_cancel (s->recv_wakeup_task);
352       s->recv_wakeup_task = GNUNET_SCHEDULER_NO_TASK;
353     }
354     s->recv_wakeup_task = GNUNET_SCHEDULER_add_delayed( GNUNET_TIME_absolute_get_difference(s->delay, now), &client_wake_up, s);
355     return CURLPAUSE_ALL;
356   }
357
358
359   if (s->msg_tk == NULL)
360       s->msg_tk = GNUNET_SERVER_mst_create (&client_receive_mst_cb, s);
361
362   GNUNET_SERVER_mst_receive (s->msg_tk, s, stream, size * nmemb, GNUNET_NO,
363                              GNUNET_NO);
364
365   return (size * nmemb);
366 }
367
368 /**
369  * Callback method used with libcurl
370  * Method is called when libcurl needs to read data during sending
371  * @param stream pointer where to write data
372  * @param size size of an individual element
373  * @param nmemb count of elements that can be written to the buffer
374  * @param ptr source pointer, passed to the libcurl handle
375  * @return bytes written to stream
376  */
377 static size_t
378 client_send_cb (void *stream, size_t size, size_t nmemb, void *cls)
379 {
380   struct Session *s = cls;
381   struct Plugin *plugin = s->plugin;
382   size_t bytes_sent = 0;
383   size_t len;
384
385   struct HTTP_Message *msg = s->msg_head;
386 /*
387   if (s->put_paused == GNUNET_NO)
388     return CURL_READFUNC_PAUSE;
389   if ((s->msg_head == NULL) && (s->put_paused == GNUNET_YES))
390   {
391 #if VERBOSE_CLIENT
392     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name, "Suspending handle `%s' `%s'\n",
393                      GNUNET_i2s (&s->target),GNUNET_a2s (s->addr, s->addrlen));
394 #endif
395     s->put_paused = GNUNET_NO;
396     return CURL_READFUNC_PAUSE;
397   }
398 */
399   if (msg == NULL)
400     return bytes_sent;
401   GNUNET_assert (msg != NULL);
402   /* data to send */
403   if (msg->pos < msg->size)
404   {
405     /* data fit in buffer */
406     if ((msg->size - msg->pos) <= (size * nmemb))
407     {
408       len = (msg->size - msg->pos);
409       memcpy (stream, &msg->buf[msg->pos], len);
410       msg->pos += len;
411       bytes_sent = len;
412     }
413     else
414     {
415       len = size * nmemb;
416       memcpy (stream, &msg->buf[msg->pos], len);
417       msg->pos += len;
418       bytes_sent = len;
419     }
420   }
421   /* no data to send */
422   else
423   {
424     bytes_sent = 0;
425   }
426
427   if (msg->pos == msg->size)
428   {
429 #if VERBOSE_CLIENT
430     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
431                 "Client: %X Message with %u bytes sent, removing message from queue\n",
432                 s, msg->size, msg->pos);
433 #endif
434     /* Calling transmit continuation  */
435     if (NULL != msg->transmit_cont)
436       msg->transmit_cont (msg->transmit_cont_cls, &s->target, GNUNET_OK);
437     GNUNET_CONTAINER_DLL_remove(s->msg_head, s->msg_tail, msg);
438     GNUNET_free (msg);
439   }
440   return bytes_sent;
441 }
442
443 int
444 client_connect (struct Session *s)
445 {
446   struct Plugin *plugin = s->plugin;
447   int res = GNUNET_OK;
448   char *url;
449   CURLMcode mret;
450
451 #if VERBOSE_CLIENT
452   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
453                    "Initiating outbound session peer `%s'\n",
454                    GNUNET_i2s (&s->target));
455 #endif
456
457   s->inbound = GNUNET_NO;
458
459   plugin->last_tag++;
460   /* create url */
461   GNUNET_asprintf (&url, "%s%s;%u", http_plugin_address_to_string (plugin, s->addr, s->addrlen), GNUNET_h2s_full (&plugin->env->my_identity->hashPubKey),plugin->last_tag);
462 #if 0
463   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
464                    "URL `%s'\n",
465                    url);
466 #endif
467   /* create get connection */
468   s->client_get = curl_easy_init ();
469 #if VERBOSE_CURL
470   curl_easy_setopt (s->client_get, CURLOPT_VERBOSE, 1L);
471   curl_easy_setopt (s->client_get, CURLOPT_DEBUGFUNCTION, &client_log);
472   curl_easy_setopt (s->client_get, CURLOPT_DEBUGDATA, s->client_get);
473 #endif
474 #if BUILD_HTTPS
475   curl_easy_setopt (s->client_get, CURLOPT_SSLVERSION, CURL_SSLVERSION_TLSv1);
476   curl_easy_setopt (s->client_get, CURLOPT_SSL_VERIFYPEER, 0);
477   curl_easy_setopt (s->client_get, CURLOPT_SSL_VERIFYHOST, 0);
478 #endif
479   curl_easy_setopt (s->client_get, CURLOPT_URL, url);
480   //curl_easy_setopt (s->client_get, CURLOPT_HEADERFUNCTION, &curl_get_header_cb);
481   //curl_easy_setopt (s->client_get, CURLOPT_WRITEHEADER, ps);
482   curl_easy_setopt (s->client_get, CURLOPT_READFUNCTION, client_send_cb);
483   curl_easy_setopt (s->client_get, CURLOPT_READDATA, s);
484   curl_easy_setopt (s->client_get, CURLOPT_WRITEFUNCTION, client_receive);
485   curl_easy_setopt (s->client_get, CURLOPT_WRITEDATA, s);
486   curl_easy_setopt (s->client_get, CURLOPT_TIMEOUT_MS,
487                     (long) GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT.rel_value);
488   curl_easy_setopt (s->client_get, CURLOPT_PRIVATE, s);
489   curl_easy_setopt (s->client_get, CURLOPT_CONNECTTIMEOUT_MS,
490                     (long) HTTP_NOT_VALIDATED_TIMEOUT.rel_value);
491   curl_easy_setopt (s->client_get, CURLOPT_BUFFERSIZE,
492                     2 * GNUNET_SERVER_MAX_MESSAGE_SIZE);
493 #if CURL_TCP_NODELAY
494   curl_easy_setopt (ps->recv_endpoint, CURLOPT_TCP_NODELAY, 1);
495 #endif
496
497   /* create put connection */
498   s->client_put = curl_easy_init ();
499 #if VERBOSE_CURL
500   curl_easy_setopt (s->client_put, CURLOPT_VERBOSE, 1L);
501   curl_easy_setopt (s->client_put, CURLOPT_DEBUGFUNCTION, &client_log);
502   curl_easy_setopt (s->client_put, CURLOPT_DEBUGDATA, s->client_put);
503 #endif
504 #if BUILD_HTTPS
505   curl_easy_setopt (s->client_put, CURLOPT_SSLVERSION, CURL_SSLVERSION_TLSv1);
506   curl_easy_setopt (s->client_put, CURLOPT_SSL_VERIFYPEER, 0);
507   curl_easy_setopt (s->client_put, CURLOPT_SSL_VERIFYHOST, 0);
508 #endif
509   curl_easy_setopt (s->client_put, CURLOPT_URL, url);
510   curl_easy_setopt (s->client_put, CURLOPT_PUT, 1L);
511   //curl_easy_setopt (s->client_put, CURLOPT_HEADERFUNCTION, &curl_put_header_cb);
512   //curl_easy_setopt (s->client_put, CURLOPT_WRITEHEADER, ps);
513   curl_easy_setopt (s->client_put, CURLOPT_READFUNCTION, client_send_cb);
514   curl_easy_setopt (s->client_put, CURLOPT_READDATA, s);
515   curl_easy_setopt (s->client_put, CURLOPT_WRITEFUNCTION, client_receive);
516   curl_easy_setopt (s->client_put, CURLOPT_WRITEDATA, s);
517   curl_easy_setopt (s->client_put, CURLOPT_TIMEOUT_MS,
518                     (long) GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT.rel_value);
519   curl_easy_setopt (s->client_put, CURLOPT_PRIVATE, s);
520   curl_easy_setopt (s->client_put, CURLOPT_CONNECTTIMEOUT_MS,
521                     (long) HTTP_NOT_VALIDATED_TIMEOUT.rel_value);
522   curl_easy_setopt (s->client_put, CURLOPT_BUFFERSIZE,
523                     2 * GNUNET_SERVER_MAX_MESSAGE_SIZE);
524 #if CURL_TCP_NODELAY
525   curl_easy_setopt (s->client_put, CURLOPT_TCP_NODELAY, 1);
526 #endif
527
528   GNUNET_free (url);
529
530   mret = curl_multi_add_handle (plugin->client_mh, s->client_get);
531   if (mret != CURLM_OK)
532   {
533     curl_easy_cleanup (s->client_get);
534     res = GNUNET_SYSERR;
535     GNUNET_break (0);
536   }
537
538   mret = curl_multi_add_handle (plugin->client_mh, s->client_put);
539   if (mret != CURLM_OK)
540   {
541     curl_multi_remove_handle (plugin->client_mh, s->client_get);
542     curl_easy_cleanup (s->client_get);
543     curl_easy_cleanup (s->client_put);
544     res = GNUNET_SYSERR;
545     GNUNET_break (0);
546   }
547
548   /* Perform connect */
549   plugin->cur_connections += 2;
550
551   /* Re-schedule since handles have changed */
552   if (plugin->client_perform_task!= GNUNET_SCHEDULER_NO_TASK)
553   {
554     GNUNET_SCHEDULER_cancel (plugin->client_perform_task);
555     plugin->client_perform_task = GNUNET_SCHEDULER_NO_TASK;
556   }
557   plugin->client_perform_task = GNUNET_SCHEDULER_add_now (client_run, plugin);
558
559   return res;
560 }
561
562 int
563 client_start (struct Plugin *plugin)
564 {
565   int res = GNUNET_OK;
566
567   curl_global_init (CURL_GLOBAL_ALL);
568   plugin->client_mh = curl_multi_init ();
569
570   if (NULL == plugin->client_mh)
571   {
572     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
573                      _
574                      ("Could not initialize curl multi handle, failed to start %s plugin!\n"),
575                      plugin->name);
576     res = GNUNET_SYSERR;
577   }
578   return res;
579 }
580
581 void
582 client_stop (struct Plugin *plugin)
583 {
584   if (plugin->client_perform_task != GNUNET_SCHEDULER_NO_TASK)
585   {
586     GNUNET_SCHEDULER_cancel (plugin->client_perform_task);
587     plugin->client_perform_task = GNUNET_SCHEDULER_NO_TASK;
588   }
589
590   curl_multi_cleanup (plugin->client_mh);
591   curl_global_cleanup ();
592 }
593
594
595
596 /* end of plugin_transport_http_client.c */