http.con commit contrib/emacs/Makefile: Provide tool for byte-compiling files. (8911db7)
   1#include "http.h"
   2
   3int data_received;
   4int active_requests = 0;
   5
   6#ifdef USE_CURL_MULTI
   7int max_requests = -1;
   8CURLM *curlm;
   9#endif
  10#ifndef NO_CURL_EASY_DUPHANDLE
  11CURL *curl_default;
  12#endif
  13char curl_errorstr[CURL_ERROR_SIZE];
  14
  15int curl_ssl_verify = -1;
  16char *ssl_cert = NULL;
  17#if LIBCURL_VERSION_NUM >= 0x070902
  18char *ssl_key = NULL;
  19#endif
  20#if LIBCURL_VERSION_NUM >= 0x070908
  21char *ssl_capath = NULL;
  22#endif
  23char *ssl_cainfo = NULL;
  24long curl_low_speed_limit = -1;
  25long curl_low_speed_time = -1;
  26
  27struct curl_slist *pragma_header;
  28struct curl_slist *no_range_header;
  29
  30struct active_request_slot *active_queue_head = NULL;
  31
  32size_t fread_buffer(void *ptr, size_t eltsize, size_t nmemb,
  33                           struct buffer *buffer)
  34{
  35        size_t size = eltsize * nmemb;
  36        if (size > buffer->size - buffer->posn)
  37                size = buffer->size - buffer->posn;
  38        memcpy(ptr, buffer->buffer + buffer->posn, size);
  39        buffer->posn += size;
  40        return size;
  41}
  42
  43size_t fwrite_buffer(const void *ptr, size_t eltsize,
  44                            size_t nmemb, struct buffer *buffer)
  45{
  46        size_t size = eltsize * nmemb;
  47        if (size > buffer->size - buffer->posn) {
  48                buffer->size = buffer->size * 3 / 2;
  49                if (buffer->size < buffer->posn + size)
  50                        buffer->size = buffer->posn + size;
  51                buffer->buffer = xrealloc(buffer->buffer, buffer->size);
  52        }
  53        memcpy(buffer->buffer + buffer->posn, ptr, size);
  54        buffer->posn += size;
  55        data_received++;
  56        return size;
  57}
  58
  59size_t fwrite_null(const void *ptr, size_t eltsize,
  60                          size_t nmemb, struct buffer *buffer)
  61{
  62        data_received++;
  63        return eltsize * nmemb;
  64}
  65
  66static void finish_active_slot(struct active_request_slot *slot);
  67
  68#ifdef USE_CURL_MULTI
  69static void process_curl_messages(void)
  70{
  71        int num_messages;
  72        struct active_request_slot *slot;
  73        CURLMsg *curl_message = curl_multi_info_read(curlm, &num_messages);
  74
  75        while (curl_message != NULL) {
  76                if (curl_message->msg == CURLMSG_DONE) {
  77                        int curl_result = curl_message->data.result;
  78                        slot = active_queue_head;
  79                        while (slot != NULL &&
  80                               slot->curl != curl_message->easy_handle)
  81                                slot = slot->next;
  82                        if (slot != NULL) {
  83                                curl_multi_remove_handle(curlm, slot->curl);
  84                                slot->curl_result = curl_result;
  85                                finish_active_slot(slot);
  86                        } else {
  87                                fprintf(stderr, "Received DONE message for unknown request!\n");
  88                        }
  89                } else {
  90                        fprintf(stderr, "Unknown CURL message received: %d\n",
  91                                (int)curl_message->msg);
  92                }
  93                curl_message = curl_multi_info_read(curlm, &num_messages);
  94        }
  95}
  96#endif
  97
  98static int http_options(const char *var, const char *value)
  99{
 100        if (!strcmp("http.sslverify", var)) {
 101                if (curl_ssl_verify == -1) {
 102                        curl_ssl_verify = git_config_bool(var, value);
 103                }
 104                return 0;
 105        }
 106
 107        if (!strcmp("http.sslcert", var)) {
 108                if (ssl_cert == NULL) {
 109                        ssl_cert = xmalloc(strlen(value)+1);
 110                        strcpy(ssl_cert, value);
 111                }
 112                return 0;
 113        }
 114#if LIBCURL_VERSION_NUM >= 0x070902
 115        if (!strcmp("http.sslkey", var)) {
 116                if (ssl_key == NULL) {
 117                        ssl_key = xmalloc(strlen(value)+1);
 118                        strcpy(ssl_key, value);
 119                }
 120                return 0;
 121        }
 122#endif
 123#if LIBCURL_VERSION_NUM >= 0x070908
 124        if (!strcmp("http.sslcapath", var)) {
 125                if (ssl_capath == NULL) {
 126                        ssl_capath = xmalloc(strlen(value)+1);
 127                        strcpy(ssl_capath, value);
 128                }
 129                return 0;
 130        }
 131#endif
 132        if (!strcmp("http.sslcainfo", var)) {
 133                if (ssl_cainfo == NULL) {
 134                        ssl_cainfo = xmalloc(strlen(value)+1);
 135                        strcpy(ssl_cainfo, value);
 136                }
 137                return 0;
 138        }
 139
 140#ifdef USE_CURL_MULTI   
 141        if (!strcmp("http.maxrequests", var)) {
 142                if (max_requests == -1)
 143                        max_requests = git_config_int(var, value);
 144                return 0;
 145        }
 146#endif
 147
 148        if (!strcmp("http.lowspeedlimit", var)) {
 149                if (curl_low_speed_limit == -1)
 150                        curl_low_speed_limit = (long)git_config_int(var, value);
 151                return 0;
 152        }
 153        if (!strcmp("http.lowspeedtime", var)) {
 154                if (curl_low_speed_time == -1)
 155                        curl_low_speed_time = (long)git_config_int(var, value);
 156                return 0;
 157        }
 158
 159        /* Fall back on the default ones */
 160        return git_default_config(var, value);
 161}
 162
 163static CURL* get_curl_handle(void)
 164{
 165        CURL* result = curl_easy_init();
 166
 167        curl_easy_setopt(result, CURLOPT_SSL_VERIFYPEER, curl_ssl_verify);
 168#if LIBCURL_VERSION_NUM >= 0x070907
 169        curl_easy_setopt(result, CURLOPT_NETRC, CURL_NETRC_OPTIONAL);
 170#endif
 171
 172        if (ssl_cert != NULL)
 173                curl_easy_setopt(result, CURLOPT_SSLCERT, ssl_cert);
 174#if LIBCURL_VERSION_NUM >= 0x070902
 175        if (ssl_key != NULL)
 176                curl_easy_setopt(result, CURLOPT_SSLKEY, ssl_key);
 177#endif
 178#if LIBCURL_VERSION_NUM >= 0x070908
 179        if (ssl_capath != NULL)
 180                curl_easy_setopt(result, CURLOPT_CAPATH, ssl_capath);
 181#endif
 182        if (ssl_cainfo != NULL)
 183                curl_easy_setopt(result, CURLOPT_CAINFO, ssl_cainfo);
 184        curl_easy_setopt(result, CURLOPT_FAILONERROR, 1);
 185
 186        if (curl_low_speed_limit > 0 && curl_low_speed_time > 0) {
 187                curl_easy_setopt(result, CURLOPT_LOW_SPEED_LIMIT,
 188                                 curl_low_speed_limit);
 189                curl_easy_setopt(result, CURLOPT_LOW_SPEED_TIME,
 190                                 curl_low_speed_time);
 191        }
 192
 193        curl_easy_setopt(result, CURLOPT_FOLLOWLOCATION, 1);
 194
 195        if (getenv("GIT_CURL_VERBOSE"))
 196                curl_easy_setopt(result, CURLOPT_VERBOSE, 1);
 197
 198        return result;
 199}
 200
 201void http_init(void)
 202{
 203        char *low_speed_limit;
 204        char *low_speed_time;
 205
 206        curl_global_init(CURL_GLOBAL_ALL);
 207
 208        pragma_header = curl_slist_append(pragma_header, "Pragma: no-cache");
 209        no_range_header = curl_slist_append(no_range_header, "Range:");
 210
 211#ifdef USE_CURL_MULTI
 212        {
 213                char *http_max_requests = getenv("GIT_HTTP_MAX_REQUESTS");
 214                if (http_max_requests != NULL)
 215                        max_requests = atoi(http_max_requests);
 216        }
 217
 218        curlm = curl_multi_init();
 219        if (curlm == NULL) {
 220                fprintf(stderr, "Error creating curl multi handle.\n");
 221                exit(1);
 222        }
 223#endif
 224
 225        if (getenv("GIT_SSL_NO_VERIFY"))
 226                curl_ssl_verify = 0;
 227
 228        ssl_cert = getenv("GIT_SSL_CERT");
 229#if LIBCURL_VERSION_NUM >= 0x070902
 230        ssl_key = getenv("GIT_SSL_KEY");
 231#endif
 232#if LIBCURL_VERSION_NUM >= 0x070908
 233        ssl_capath = getenv("GIT_SSL_CAPATH");
 234#endif
 235        ssl_cainfo = getenv("GIT_SSL_CAINFO");
 236
 237        low_speed_limit = getenv("GIT_HTTP_LOW_SPEED_LIMIT");
 238        if (low_speed_limit != NULL)
 239                curl_low_speed_limit = strtol(low_speed_limit, NULL, 10);
 240        low_speed_time = getenv("GIT_HTTP_LOW_SPEED_TIME");
 241        if (low_speed_time != NULL)
 242                curl_low_speed_time = strtol(low_speed_time, NULL, 10);
 243
 244        git_config(http_options);
 245
 246        if (curl_ssl_verify == -1)
 247                curl_ssl_verify = 1;
 248
 249#ifdef USE_CURL_MULTI
 250        if (max_requests < 1)
 251                max_requests = DEFAULT_MAX_REQUESTS;
 252#endif
 253
 254#ifndef NO_CURL_EASY_DUPHANDLE
 255        curl_default = get_curl_handle();
 256#endif
 257}
 258
 259void http_cleanup(void)
 260{
 261        struct active_request_slot *slot = active_queue_head;
 262#ifdef USE_CURL_MULTI
 263        char *wait_url;
 264#endif
 265
 266        while (slot != NULL) {
 267#ifdef USE_CURL_MULTI
 268                if (slot->in_use) {
 269                        curl_easy_getinfo(slot->curl,
 270                                          CURLINFO_EFFECTIVE_URL,
 271                                          &wait_url);
 272                        fprintf(stderr, "Waiting for %s\n", wait_url);
 273                        run_active_slot(slot);
 274                }
 275#endif
 276                if (slot->curl != NULL)
 277                        curl_easy_cleanup(slot->curl);
 278                slot = slot->next;
 279        }
 280
 281#ifndef NO_CURL_EASY_DUPHANDLE
 282        curl_easy_cleanup(curl_default);
 283#endif
 284
 285#ifdef USE_CURL_MULTI
 286        curl_multi_cleanup(curlm);
 287#endif
 288        curl_global_cleanup();
 289        
 290}
 291
 292struct active_request_slot *get_active_slot(void)
 293{
 294        struct active_request_slot *slot = active_queue_head;
 295        struct active_request_slot *newslot;
 296
 297#ifdef USE_CURL_MULTI
 298        int num_transfers;
 299
 300        /* Wait for a slot to open up if the queue is full */
 301        while (active_requests >= max_requests) {
 302                curl_multi_perform(curlm, &num_transfers);
 303                if (num_transfers < active_requests) {
 304                        process_curl_messages();
 305                }
 306        }
 307#endif
 308
 309        while (slot != NULL && slot->in_use) {
 310                slot = slot->next;
 311        }
 312        if (slot == NULL) {
 313                newslot = xmalloc(sizeof(*newslot));
 314                newslot->curl = NULL;
 315                newslot->in_use = 0;
 316                newslot->next = NULL;
 317
 318                slot = active_queue_head;
 319                if (slot == NULL) {
 320                        active_queue_head = newslot;
 321                } else {
 322                        while (slot->next != NULL) {
 323                                slot = slot->next;
 324                        }
 325                        slot->next = newslot;
 326                }
 327                slot = newslot;
 328        }
 329
 330        if (slot->curl == NULL) {
 331#ifdef NO_CURL_EASY_DUPHANDLE
 332                slot->curl = get_curl_handle();
 333#else
 334                slot->curl = curl_easy_duphandle(curl_default);
 335#endif
 336        }
 337
 338        active_requests++;
 339        slot->in_use = 1;
 340        slot->local = NULL;
 341        slot->results = NULL;
 342        slot->callback_data = NULL;
 343        slot->callback_func = NULL;
 344        curl_easy_setopt(slot->curl, CURLOPT_HTTPHEADER, pragma_header);
 345        curl_easy_setopt(slot->curl, CURLOPT_HTTPHEADER, no_range_header);
 346        curl_easy_setopt(slot->curl, CURLOPT_ERRORBUFFER, curl_errorstr);
 347
 348        return slot;
 349}
 350
 351int start_active_slot(struct active_request_slot *slot)
 352{
 353#ifdef USE_CURL_MULTI
 354        CURLMcode curlm_result = curl_multi_add_handle(curlm, slot->curl);
 355
 356        if (curlm_result != CURLM_OK &&
 357            curlm_result != CURLM_CALL_MULTI_PERFORM) {
 358                active_requests--;
 359                slot->in_use = 0;
 360                return 0;
 361        }
 362#endif
 363        return 1;
 364}
 365
 366#ifdef USE_CURL_MULTI
 367void step_active_slots(void)
 368{
 369        int num_transfers;
 370        CURLMcode curlm_result;
 371
 372        do {
 373                curlm_result = curl_multi_perform(curlm, &num_transfers);
 374        } while (curlm_result == CURLM_CALL_MULTI_PERFORM);
 375        if (num_transfers < active_requests) {
 376                process_curl_messages();
 377                fill_active_slots();
 378        }
 379}
 380#endif
 381
 382void run_active_slot(struct active_request_slot *slot)
 383{
 384#ifdef USE_CURL_MULTI
 385        long last_pos = 0;
 386        long current_pos;
 387        fd_set readfds;
 388        fd_set writefds;
 389        fd_set excfds;
 390        int max_fd;
 391        struct timeval select_timeout;
 392
 393        while (slot->in_use) {
 394                data_received = 0;
 395                step_active_slots();
 396
 397                if (!data_received && slot->local != NULL) {
 398                        current_pos = ftell(slot->local);
 399                        if (current_pos > last_pos)
 400                                data_received++;
 401                        last_pos = current_pos;
 402                }
 403
 404                if (slot->in_use && !data_received) {
 405                        max_fd = 0;
 406                        FD_ZERO(&readfds);
 407                        FD_ZERO(&writefds);
 408                        FD_ZERO(&excfds);
 409                        select_timeout.tv_sec = 0;
 410                        select_timeout.tv_usec = 50000;
 411                        select(max_fd, &readfds, &writefds,
 412                               &excfds, &select_timeout);
 413                }
 414        }
 415#else
 416        while (slot->in_use) {
 417                slot->curl_result = curl_easy_perform(slot->curl);
 418                finish_active_slot(slot);
 419        }
 420#endif
 421}
 422
 423static void closedown_active_slot(struct active_request_slot *slot)
 424{
 425        active_requests--;
 426        slot->in_use = 0;
 427}
 428
 429void release_active_slot(struct active_request_slot *slot)
 430{
 431        closedown_active_slot(slot);
 432        if (slot->curl) {
 433                curl_multi_remove_handle(curlm, slot->curl);
 434                curl_easy_cleanup(slot->curl);
 435                slot->curl = NULL;
 436        }
 437        fill_active_slots();
 438}
 439
 440static void finish_active_slot(struct active_request_slot *slot)
 441{
 442        closedown_active_slot(slot);
 443        curl_easy_getinfo(slot->curl, CURLINFO_HTTP_CODE, &slot->http_code);
 444
 445        /* Store slot results so they can be read after the slot is reused */
 446        if (slot->results != NULL) {
 447                slot->results->curl_result = slot->curl_result;
 448                slot->results->http_code = slot->http_code;
 449        }
 450
 451        /* Run callback if appropriate */
 452        if (slot->callback_func != NULL) {
 453                slot->callback_func(slot->callback_data);
 454        }
 455}
 456
 457void finish_all_active_slots(void)
 458{
 459        struct active_request_slot *slot = active_queue_head;
 460
 461        while (slot != NULL)
 462                if (slot->in_use) {
 463                        run_active_slot(slot);
 464                        slot = active_queue_head;
 465                } else {
 466                        slot = slot->next;
 467                }
 468}