http.c: Avoid username prompt for certifcate credentials
[git] / http.c
1 #include "http.h"
2 #include "pack.h"
3 #include "sideband.h"
4 #include "run-command.h"
5 #include "url.h"
6 #include "credential.h"
7 #include "version.h"
8
9 int active_requests;
10 int http_is_verbose;
11 size_t http_post_buffer = 16 * LARGE_PACKET_MAX;
12
13 #if LIBCURL_VERSION_NUM >= 0x070a06
14 #define LIBCURL_CAN_HANDLE_AUTH_ANY
15 #endif
16
17 static int min_curl_sessions = 1;
18 static int curl_session_count;
19 #ifdef USE_CURL_MULTI
20 static int max_requests = -1;
21 static CURLM *curlm;
22 #endif
23 #ifndef NO_CURL_EASY_DUPHANDLE
24 static CURL *curl_default;
25 #endif
26
27 #define PREV_BUF_SIZE 4096
28 #define RANGE_HEADER_SIZE 30
29
30 char curl_errorstr[CURL_ERROR_SIZE];
31
32 static int curl_ssl_verify = -1;
33 static const char *ssl_cert;
34 #if LIBCURL_VERSION_NUM >= 0x070903
35 static const char *ssl_key;
36 #endif
37 #if LIBCURL_VERSION_NUM >= 0x070908
38 static const char *ssl_capath;
39 #endif
40 static const char *ssl_cainfo;
41 static long curl_low_speed_limit = -1;
42 static long curl_low_speed_time = -1;
43 static int curl_ftp_no_epsv;
44 static const char *curl_http_proxy;
45 static const char *curl_cookie_file;
46 static struct credential http_auth = CREDENTIAL_INIT;
47 static int http_proactive_auth;
48 static const char *user_agent;
49
50 #if LIBCURL_VERSION_NUM >= 0x071700
51 /* Use CURLOPT_KEYPASSWD as is */
52 #elif LIBCURL_VERSION_NUM >= 0x070903
53 #define CURLOPT_KEYPASSWD CURLOPT_SSLKEYPASSWD
54 #else
55 #define CURLOPT_KEYPASSWD CURLOPT_SSLCERTPASSWD
56 #endif
57
58 static struct credential cert_auth = CREDENTIAL_INIT;
59 static int ssl_cert_password_required;
60
61 static struct curl_slist *pragma_header;
62 static struct curl_slist *no_pragma_header;
63
64 static struct active_request_slot *active_queue_head;
65
66 size_t fread_buffer(char *ptr, size_t eltsize, size_t nmemb, void *buffer_)
67 {
68         size_t size = eltsize * nmemb;
69         struct buffer *buffer = buffer_;
70
71         if (size > buffer->buf.len - buffer->posn)
72                 size = buffer->buf.len - buffer->posn;
73         memcpy(ptr, buffer->buf.buf + buffer->posn, size);
74         buffer->posn += size;
75
76         return size;
77 }
78
79 #ifndef NO_CURL_IOCTL
80 curlioerr ioctl_buffer(CURL *handle, int cmd, void *clientp)
81 {
82         struct buffer *buffer = clientp;
83
84         switch (cmd) {
85         case CURLIOCMD_NOP:
86                 return CURLIOE_OK;
87
88         case CURLIOCMD_RESTARTREAD:
89                 buffer->posn = 0;
90                 return CURLIOE_OK;
91
92         default:
93                 return CURLIOE_UNKNOWNCMD;
94         }
95 }
96 #endif
97
98 size_t fwrite_buffer(char *ptr, size_t eltsize, size_t nmemb, void *buffer_)
99 {
100         size_t size = eltsize * nmemb;
101         struct strbuf *buffer = buffer_;
102
103         strbuf_add(buffer, ptr, size);
104         return size;
105 }
106
107 size_t fwrite_null(char *ptr, size_t eltsize, size_t nmemb, void *strbuf)
108 {
109         return eltsize * nmemb;
110 }
111
112 #ifdef USE_CURL_MULTI
113 static void process_curl_messages(void)
114 {
115         int num_messages;
116         struct active_request_slot *slot;
117         CURLMsg *curl_message = curl_multi_info_read(curlm, &num_messages);
118
119         while (curl_message != NULL) {
120                 if (curl_message->msg == CURLMSG_DONE) {
121                         int curl_result = curl_message->data.result;
122                         slot = active_queue_head;
123                         while (slot != NULL &&
124                                slot->curl != curl_message->easy_handle)
125                                 slot = slot->next;
126                         if (slot != NULL) {
127                                 curl_multi_remove_handle(curlm, slot->curl);
128                                 slot->curl_result = curl_result;
129                                 finish_active_slot(slot);
130                         } else {
131                                 fprintf(stderr, "Received DONE message for unknown request!\n");
132                         }
133                 } else {
134                         fprintf(stderr, "Unknown CURL message received: %d\n",
135                                 (int)curl_message->msg);
136                 }
137                 curl_message = curl_multi_info_read(curlm, &num_messages);
138         }
139 }
140 #endif
141
142 static int http_options(const char *var, const char *value, void *cb)
143 {
144         if (!strcmp("http.sslverify", var)) {
145                 curl_ssl_verify = git_config_bool(var, value);
146                 return 0;
147         }
148         if (!strcmp("http.sslcert", var))
149                 return git_config_string(&ssl_cert, var, value);
150 #if LIBCURL_VERSION_NUM >= 0x070903
151         if (!strcmp("http.sslkey", var))
152                 return git_config_string(&ssl_key, var, value);
153 #endif
154 #if LIBCURL_VERSION_NUM >= 0x070908
155         if (!strcmp("http.sslcapath", var))
156                 return git_config_string(&ssl_capath, var, value);
157 #endif
158         if (!strcmp("http.sslcainfo", var))
159                 return git_config_string(&ssl_cainfo, var, value);
160         if (!strcmp("http.sslcertpasswordprotected", var)) {
161                 if (git_config_bool(var, value))
162                         ssl_cert_password_required = 1;
163                 return 0;
164         }
165         if (!strcmp("http.minsessions", var)) {
166                 min_curl_sessions = git_config_int(var, value);
167 #ifndef USE_CURL_MULTI
168                 if (min_curl_sessions > 1)
169                         min_curl_sessions = 1;
170 #endif
171                 return 0;
172         }
173 #ifdef USE_CURL_MULTI
174         if (!strcmp("http.maxrequests", var)) {
175                 max_requests = git_config_int(var, value);
176                 return 0;
177         }
178 #endif
179         if (!strcmp("http.lowspeedlimit", var)) {
180                 curl_low_speed_limit = (long)git_config_int(var, value);
181                 return 0;
182         }
183         if (!strcmp("http.lowspeedtime", var)) {
184                 curl_low_speed_time = (long)git_config_int(var, value);
185                 return 0;
186         }
187
188         if (!strcmp("http.noepsv", var)) {
189                 curl_ftp_no_epsv = git_config_bool(var, value);
190                 return 0;
191         }
192         if (!strcmp("http.proxy", var))
193                 return git_config_string(&curl_http_proxy, var, value);
194
195         if (!strcmp("http.cookiefile", var))
196                 return git_config_string(&curl_cookie_file, var, value);
197
198         if (!strcmp("http.postbuffer", var)) {
199                 http_post_buffer = git_config_int(var, value);
200                 if (http_post_buffer < LARGE_PACKET_MAX)
201                         http_post_buffer = LARGE_PACKET_MAX;
202                 return 0;
203         }
204
205         if (!strcmp("http.useragent", var))
206                 return git_config_string(&user_agent, var, value);
207
208         /* Fall back on the default ones */
209         return git_default_config(var, value, cb);
210 }
211
212 static void init_curl_http_auth(CURL *result)
213 {
214         if (!http_auth.username)
215                 return;
216
217         credential_fill(&http_auth);
218
219 #if LIBCURL_VERSION_NUM >= 0x071301
220         curl_easy_setopt(result, CURLOPT_USERNAME, http_auth.username);
221         curl_easy_setopt(result, CURLOPT_PASSWORD, http_auth.password);
222 #else
223         {
224                 static struct strbuf up = STRBUF_INIT;
225                 strbuf_reset(&up);
226                 strbuf_addf(&up, "%s:%s",
227                             http_auth.username, http_auth.password);
228                 curl_easy_setopt(result, CURLOPT_USERPWD, up.buf);
229         }
230 #endif
231 }
232
233 static int has_cert_password(void)
234 {
235         if (ssl_cert == NULL || ssl_cert_password_required != 1)
236                 return 0;
237         if (!cert_auth.password) {
238                 cert_auth.protocol = xstrdup("cert");
239                 cert_auth.username = xstrdup("");
240                 cert_auth.path = xstrdup(ssl_cert);
241                 credential_fill(&cert_auth);
242         }
243         return 1;
244 }
245
246 static CURL *get_curl_handle(void)
247 {
248         CURL *result = curl_easy_init();
249
250         if (!curl_ssl_verify) {
251                 curl_easy_setopt(result, CURLOPT_SSL_VERIFYPEER, 0);
252                 curl_easy_setopt(result, CURLOPT_SSL_VERIFYHOST, 0);
253         } else {
254                 /* Verify authenticity of the peer's certificate */
255                 curl_easy_setopt(result, CURLOPT_SSL_VERIFYPEER, 1);
256                 /* The name in the cert must match whom we tried to connect */
257                 curl_easy_setopt(result, CURLOPT_SSL_VERIFYHOST, 2);
258         }
259
260 #if LIBCURL_VERSION_NUM >= 0x070907
261         curl_easy_setopt(result, CURLOPT_NETRC, CURL_NETRC_OPTIONAL);
262 #endif
263 #ifdef LIBCURL_CAN_HANDLE_AUTH_ANY
264         curl_easy_setopt(result, CURLOPT_HTTPAUTH, CURLAUTH_ANY);
265 #endif
266
267         if (http_proactive_auth)
268                 init_curl_http_auth(result);
269
270         if (ssl_cert != NULL)
271                 curl_easy_setopt(result, CURLOPT_SSLCERT, ssl_cert);
272         if (has_cert_password())
273                 curl_easy_setopt(result, CURLOPT_KEYPASSWD, cert_auth.password);
274 #if LIBCURL_VERSION_NUM >= 0x070903
275         if (ssl_key != NULL)
276                 curl_easy_setopt(result, CURLOPT_SSLKEY, ssl_key);
277 #endif
278 #if LIBCURL_VERSION_NUM >= 0x070908
279         if (ssl_capath != NULL)
280                 curl_easy_setopt(result, CURLOPT_CAPATH, ssl_capath);
281 #endif
282         if (ssl_cainfo != NULL)
283                 curl_easy_setopt(result, CURLOPT_CAINFO, ssl_cainfo);
284         curl_easy_setopt(result, CURLOPT_FAILONERROR, 1);
285
286         if (curl_low_speed_limit > 0 && curl_low_speed_time > 0) {
287                 curl_easy_setopt(result, CURLOPT_LOW_SPEED_LIMIT,
288                                  curl_low_speed_limit);
289                 curl_easy_setopt(result, CURLOPT_LOW_SPEED_TIME,
290                                  curl_low_speed_time);
291         }
292
293         curl_easy_setopt(result, CURLOPT_FOLLOWLOCATION, 1);
294 #if LIBCURL_VERSION_NUM >= 0x071301
295         curl_easy_setopt(result, CURLOPT_POSTREDIR, CURL_REDIR_POST_ALL);
296 #elif LIBCURL_VERSION_NUM >= 0x071101
297         curl_easy_setopt(result, CURLOPT_POST301, 1);
298 #endif
299
300         if (getenv("GIT_CURL_VERBOSE"))
301                 curl_easy_setopt(result, CURLOPT_VERBOSE, 1);
302
303         curl_easy_setopt(result, CURLOPT_USERAGENT,
304                 user_agent ? user_agent : git_user_agent());
305
306         if (curl_ftp_no_epsv)
307                 curl_easy_setopt(result, CURLOPT_FTP_USE_EPSV, 0);
308
309         if (curl_http_proxy) {
310                 curl_easy_setopt(result, CURLOPT_PROXY, curl_http_proxy);
311                 curl_easy_setopt(result, CURLOPT_PROXYAUTH, CURLAUTH_ANY);
312         }
313
314         return result;
315 }
316
317 static void set_from_env(const char **var, const char *envname)
318 {
319         const char *val = getenv(envname);
320         if (val)
321                 *var = val;
322 }
323
324 void http_init(struct remote *remote, const char *url, int proactive_auth)
325 {
326         char *low_speed_limit;
327         char *low_speed_time;
328
329         http_is_verbose = 0;
330
331         git_config(http_options, NULL);
332
333         curl_global_init(CURL_GLOBAL_ALL);
334
335         http_proactive_auth = proactive_auth;
336
337         if (remote && remote->http_proxy)
338                 curl_http_proxy = xstrdup(remote->http_proxy);
339
340         pragma_header = curl_slist_append(pragma_header, "Pragma: no-cache");
341         no_pragma_header = curl_slist_append(no_pragma_header, "Pragma:");
342
343 #ifdef USE_CURL_MULTI
344         {
345                 char *http_max_requests = getenv("GIT_HTTP_MAX_REQUESTS");
346                 if (http_max_requests != NULL)
347                         max_requests = atoi(http_max_requests);
348         }
349
350         curlm = curl_multi_init();
351         if (curlm == NULL) {
352                 fprintf(stderr, "Error creating curl multi handle.\n");
353                 exit(1);
354         }
355 #endif
356
357         if (getenv("GIT_SSL_NO_VERIFY"))
358                 curl_ssl_verify = 0;
359
360         set_from_env(&ssl_cert, "GIT_SSL_CERT");
361 #if LIBCURL_VERSION_NUM >= 0x070903
362         set_from_env(&ssl_key, "GIT_SSL_KEY");
363 #endif
364 #if LIBCURL_VERSION_NUM >= 0x070908
365         set_from_env(&ssl_capath, "GIT_SSL_CAPATH");
366 #endif
367         set_from_env(&ssl_cainfo, "GIT_SSL_CAINFO");
368
369         set_from_env(&user_agent, "GIT_HTTP_USER_AGENT");
370
371         low_speed_limit = getenv("GIT_HTTP_LOW_SPEED_LIMIT");
372         if (low_speed_limit != NULL)
373                 curl_low_speed_limit = strtol(low_speed_limit, NULL, 10);
374         low_speed_time = getenv("GIT_HTTP_LOW_SPEED_TIME");
375         if (low_speed_time != NULL)
376                 curl_low_speed_time = strtol(low_speed_time, NULL, 10);
377
378         if (curl_ssl_verify == -1)
379                 curl_ssl_verify = 1;
380
381         curl_session_count = 0;
382 #ifdef USE_CURL_MULTI
383         if (max_requests < 1)
384                 max_requests = DEFAULT_MAX_REQUESTS;
385 #endif
386
387         if (getenv("GIT_CURL_FTP_NO_EPSV"))
388                 curl_ftp_no_epsv = 1;
389
390         if (url) {
391                 credential_from_url(&http_auth, url);
392                 if (!ssl_cert_password_required &&
393                     getenv("GIT_SSL_CERT_PASSWORD_PROTECTED") &&
394                     !prefixcmp(url, "https://"))
395                         ssl_cert_password_required = 1;
396         }
397
398 #ifndef NO_CURL_EASY_DUPHANDLE
399         curl_default = get_curl_handle();
400 #endif
401 }
402
403 void http_cleanup(void)
404 {
405         struct active_request_slot *slot = active_queue_head;
406
407         while (slot != NULL) {
408                 struct active_request_slot *next = slot->next;
409                 if (slot->curl != NULL) {
410 #ifdef USE_CURL_MULTI
411                         curl_multi_remove_handle(curlm, slot->curl);
412 #endif
413                         curl_easy_cleanup(slot->curl);
414                 }
415                 free(slot);
416                 slot = next;
417         }
418         active_queue_head = NULL;
419
420 #ifndef NO_CURL_EASY_DUPHANDLE
421         curl_easy_cleanup(curl_default);
422 #endif
423
424 #ifdef USE_CURL_MULTI
425         curl_multi_cleanup(curlm);
426 #endif
427         curl_global_cleanup();
428
429         curl_slist_free_all(pragma_header);
430         pragma_header = NULL;
431
432         curl_slist_free_all(no_pragma_header);
433         no_pragma_header = NULL;
434
435         if (curl_http_proxy) {
436                 free((void *)curl_http_proxy);
437                 curl_http_proxy = NULL;
438         }
439
440         if (cert_auth.password != NULL) {
441                 memset(cert_auth.password, 0, strlen(cert_auth.password));
442                 free(cert_auth.password);
443                 cert_auth.password = NULL;
444         }
445         ssl_cert_password_required = 0;
446 }
447
448 struct active_request_slot *get_active_slot(void)
449 {
450         struct active_request_slot *slot = active_queue_head;
451         struct active_request_slot *newslot;
452
453 #ifdef USE_CURL_MULTI
454         int num_transfers;
455
456         /* Wait for a slot to open up if the queue is full */
457         while (active_requests >= max_requests) {
458                 curl_multi_perform(curlm, &num_transfers);
459                 if (num_transfers < active_requests)
460                         process_curl_messages();
461         }
462 #endif
463
464         while (slot != NULL && slot->in_use)
465                 slot = slot->next;
466
467         if (slot == NULL) {
468                 newslot = xmalloc(sizeof(*newslot));
469                 newslot->curl = NULL;
470                 newslot->in_use = 0;
471                 newslot->next = NULL;
472
473                 slot = active_queue_head;
474                 if (slot == NULL) {
475                         active_queue_head = newslot;
476                 } else {
477                         while (slot->next != NULL)
478                                 slot = slot->next;
479                         slot->next = newslot;
480                 }
481                 slot = newslot;
482         }
483
484         if (slot->curl == NULL) {
485 #ifdef NO_CURL_EASY_DUPHANDLE
486                 slot->curl = get_curl_handle();
487 #else
488                 slot->curl = curl_easy_duphandle(curl_default);
489 #endif
490                 curl_session_count++;
491         }
492
493         active_requests++;
494         slot->in_use = 1;
495         slot->results = NULL;
496         slot->finished = NULL;
497         slot->callback_data = NULL;
498         slot->callback_func = NULL;
499         curl_easy_setopt(slot->curl, CURLOPT_COOKIEFILE, curl_cookie_file);
500         curl_easy_setopt(slot->curl, CURLOPT_HTTPHEADER, pragma_header);
501         curl_easy_setopt(slot->curl, CURLOPT_ERRORBUFFER, curl_errorstr);
502         curl_easy_setopt(slot->curl, CURLOPT_CUSTOMREQUEST, NULL);
503         curl_easy_setopt(slot->curl, CURLOPT_READFUNCTION, NULL);
504         curl_easy_setopt(slot->curl, CURLOPT_WRITEFUNCTION, NULL);
505         curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDS, NULL);
506         curl_easy_setopt(slot->curl, CURLOPT_UPLOAD, 0);
507         curl_easy_setopt(slot->curl, CURLOPT_HTTPGET, 1);
508         if (http_auth.password)
509                 init_curl_http_auth(slot->curl);
510
511         return slot;
512 }
513
514 int start_active_slot(struct active_request_slot *slot)
515 {
516 #ifdef USE_CURL_MULTI
517         CURLMcode curlm_result = curl_multi_add_handle(curlm, slot->curl);
518         int num_transfers;
519
520         if (curlm_result != CURLM_OK &&
521             curlm_result != CURLM_CALL_MULTI_PERFORM) {
522                 active_requests--;
523                 slot->in_use = 0;
524                 return 0;
525         }
526
527         /*
528          * We know there must be something to do, since we just added
529          * something.
530          */
531         curl_multi_perform(curlm, &num_transfers);
532 #endif
533         return 1;
534 }
535
536 #ifdef USE_CURL_MULTI
537 struct fill_chain {
538         void *data;
539         int (*fill)(void *);
540         struct fill_chain *next;
541 };
542
543 static struct fill_chain *fill_cfg;
544
545 void add_fill_function(void *data, int (*fill)(void *))
546 {
547         struct fill_chain *new = xmalloc(sizeof(*new));
548         struct fill_chain **linkp = &fill_cfg;
549         new->data = data;
550         new->fill = fill;
551         new->next = NULL;
552         while (*linkp)
553                 linkp = &(*linkp)->next;
554         *linkp = new;
555 }
556
557 void fill_active_slots(void)
558 {
559         struct active_request_slot *slot = active_queue_head;
560
561         while (active_requests < max_requests) {
562                 struct fill_chain *fill;
563                 for (fill = fill_cfg; fill; fill = fill->next)
564                         if (fill->fill(fill->data))
565                                 break;
566
567                 if (!fill)
568                         break;
569         }
570
571         while (slot != NULL) {
572                 if (!slot->in_use && slot->curl != NULL
573                         && curl_session_count > min_curl_sessions) {
574                         curl_easy_cleanup(slot->curl);
575                         slot->curl = NULL;
576                         curl_session_count--;
577                 }
578                 slot = slot->next;
579         }
580 }
581
582 void step_active_slots(void)
583 {
584         int num_transfers;
585         CURLMcode curlm_result;
586
587         do {
588                 curlm_result = curl_multi_perform(curlm, &num_transfers);
589         } while (curlm_result == CURLM_CALL_MULTI_PERFORM);
590         if (num_transfers < active_requests) {
591                 process_curl_messages();
592                 fill_active_slots();
593         }
594 }
595 #endif
596
597 void run_active_slot(struct active_request_slot *slot)
598 {
599 #ifdef USE_CURL_MULTI
600         fd_set readfds;
601         fd_set writefds;
602         fd_set excfds;
603         int max_fd;
604         struct timeval select_timeout;
605         int finished = 0;
606
607         slot->finished = &finished;
608         while (!finished) {
609                 step_active_slots();
610
611                 if (slot->in_use) {
612 #if LIBCURL_VERSION_NUM >= 0x070f04
613                         long curl_timeout;
614                         curl_multi_timeout(curlm, &curl_timeout);
615                         if (curl_timeout == 0) {
616                                 continue;
617                         } else if (curl_timeout == -1) {
618                                 select_timeout.tv_sec  = 0;
619                                 select_timeout.tv_usec = 50000;
620                         } else {
621                                 select_timeout.tv_sec  =  curl_timeout / 1000;
622                                 select_timeout.tv_usec = (curl_timeout % 1000) * 1000;
623                         }
624 #else
625                         select_timeout.tv_sec  = 0;
626                         select_timeout.tv_usec = 50000;
627 #endif
628
629                         max_fd = -1;
630                         FD_ZERO(&readfds);
631                         FD_ZERO(&writefds);
632                         FD_ZERO(&excfds);
633                         curl_multi_fdset(curlm, &readfds, &writefds, &excfds, &max_fd);
634
635                         /*
636                          * It can happen that curl_multi_timeout returns a pathologically
637                          * long timeout when curl_multi_fdset returns no file descriptors
638                          * to read.  See commit message for more details.
639                          */
640                         if (max_fd < 0 &&
641                             (select_timeout.tv_sec > 0 ||
642                              select_timeout.tv_usec > 50000)) {
643                                 select_timeout.tv_sec  = 0;
644                                 select_timeout.tv_usec = 50000;
645                         }
646
647                         select(max_fd+1, &readfds, &writefds, &excfds, &select_timeout);
648                 }
649         }
650 #else
651         while (slot->in_use) {
652                 slot->curl_result = curl_easy_perform(slot->curl);
653                 finish_active_slot(slot);
654         }
655 #endif
656 }
657
658 static void closedown_active_slot(struct active_request_slot *slot)
659 {
660         active_requests--;
661         slot->in_use = 0;
662 }
663
664 static void release_active_slot(struct active_request_slot *slot)
665 {
666         closedown_active_slot(slot);
667         if (slot->curl && curl_session_count > min_curl_sessions) {
668 #ifdef USE_CURL_MULTI
669                 curl_multi_remove_handle(curlm, slot->curl);
670 #endif
671                 curl_easy_cleanup(slot->curl);
672                 slot->curl = NULL;
673                 curl_session_count--;
674         }
675 #ifdef USE_CURL_MULTI
676         fill_active_slots();
677 #endif
678 }
679
680 void finish_active_slot(struct active_request_slot *slot)
681 {
682         closedown_active_slot(slot);
683         curl_easy_getinfo(slot->curl, CURLINFO_HTTP_CODE, &slot->http_code);
684
685         if (slot->finished != NULL)
686                 (*slot->finished) = 1;
687
688         /* Store slot results so they can be read after the slot is reused */
689         if (slot->results != NULL) {
690                 slot->results->curl_result = slot->curl_result;
691                 slot->results->http_code = slot->http_code;
692         }
693
694         /* Run callback if appropriate */
695         if (slot->callback_func != NULL)
696                 slot->callback_func(slot->callback_data);
697 }
698
699 void finish_all_active_slots(void)
700 {
701         struct active_request_slot *slot = active_queue_head;
702
703         while (slot != NULL)
704                 if (slot->in_use) {
705                         run_active_slot(slot);
706                         slot = active_queue_head;
707                 } else {
708                         slot = slot->next;
709                 }
710 }
711
712 /* Helpers for modifying and creating URLs */
713 static inline int needs_quote(int ch)
714 {
715         if (((ch >= 'A') && (ch <= 'Z'))
716                         || ((ch >= 'a') && (ch <= 'z'))
717                         || ((ch >= '0') && (ch <= '9'))
718                         || (ch == '/')
719                         || (ch == '-')
720                         || (ch == '.'))
721                 return 0;
722         return 1;
723 }
724
725 static char *quote_ref_url(const char *base, const char *ref)
726 {
727         struct strbuf buf = STRBUF_INIT;
728         const char *cp;
729         int ch;
730
731         end_url_with_slash(&buf, base);
732
733         for (cp = ref; (ch = *cp) != 0; cp++)
734                 if (needs_quote(ch))
735                         strbuf_addf(&buf, "%%%02x", ch);
736                 else
737                         strbuf_addch(&buf, *cp);
738
739         return strbuf_detach(&buf, NULL);
740 }
741
742 void append_remote_object_url(struct strbuf *buf, const char *url,
743                               const char *hex,
744                               int only_two_digit_prefix)
745 {
746         end_url_with_slash(buf, url);
747
748         strbuf_addf(buf, "objects/%.*s/", 2, hex);
749         if (!only_two_digit_prefix)
750                 strbuf_addf(buf, "%s", hex+2);
751 }
752
753 char *get_remote_object_url(const char *url, const char *hex,
754                             int only_two_digit_prefix)
755 {
756         struct strbuf buf = STRBUF_INIT;
757         append_remote_object_url(&buf, url, hex, only_two_digit_prefix);
758         return strbuf_detach(&buf, NULL);
759 }
760
761 int handle_curl_result(struct active_request_slot *slot,
762                        struct slot_results *results)
763 {
764         if (results->curl_result == CURLE_OK) {
765                 credential_approve(&http_auth);
766                 return HTTP_OK;
767         } else if (missing_target(results))
768                 return HTTP_MISSING_TARGET;
769         else if (results->http_code == 401) {
770                 if (http_auth.username && http_auth.password) {
771                         credential_reject(&http_auth);
772                         return HTTP_NOAUTH;
773                 } else {
774                         credential_fill(&http_auth);
775                         init_curl_http_auth(slot->curl);
776                         return HTTP_REAUTH;
777                 }
778         } else {
779 #if LIBCURL_VERSION_NUM >= 0x070c00
780                 if (!curl_errorstr[0])
781                         strlcpy(curl_errorstr,
782                                 curl_easy_strerror(results->curl_result),
783                                 sizeof(curl_errorstr));
784 #endif
785                 return HTTP_ERROR;
786         }
787 }
788
789 /* http_request() targets */
790 #define HTTP_REQUEST_STRBUF     0
791 #define HTTP_REQUEST_FILE       1
792
793 static int http_request(const char *url, void *result, int target, int options)
794 {
795         struct active_request_slot *slot;
796         struct slot_results results;
797         struct curl_slist *headers = NULL;
798         struct strbuf buf = STRBUF_INIT;
799         int ret;
800
801         slot = get_active_slot();
802         slot->results = &results;
803         curl_easy_setopt(slot->curl, CURLOPT_HTTPGET, 1);
804
805         if (result == NULL) {
806                 curl_easy_setopt(slot->curl, CURLOPT_NOBODY, 1);
807         } else {
808                 curl_easy_setopt(slot->curl, CURLOPT_NOBODY, 0);
809                 curl_easy_setopt(slot->curl, CURLOPT_FILE, result);
810
811                 if (target == HTTP_REQUEST_FILE) {
812                         long posn = ftell(result);
813                         curl_easy_setopt(slot->curl, CURLOPT_WRITEFUNCTION,
814                                          fwrite);
815                         if (posn > 0) {
816                                 strbuf_addf(&buf, "Range: bytes=%ld-", posn);
817                                 headers = curl_slist_append(headers, buf.buf);
818                                 strbuf_reset(&buf);
819                         }
820                 } else
821                         curl_easy_setopt(slot->curl, CURLOPT_WRITEFUNCTION,
822                                          fwrite_buffer);
823         }
824
825         strbuf_addstr(&buf, "Pragma:");
826         if (options & HTTP_NO_CACHE)
827                 strbuf_addstr(&buf, " no-cache");
828
829         headers = curl_slist_append(headers, buf.buf);
830
831         curl_easy_setopt(slot->curl, CURLOPT_URL, url);
832         curl_easy_setopt(slot->curl, CURLOPT_HTTPHEADER, headers);
833         curl_easy_setopt(slot->curl, CURLOPT_ENCODING, "gzip");
834
835         if (start_active_slot(slot)) {
836                 run_active_slot(slot);
837                 ret = handle_curl_result(slot, &results);
838         } else {
839                 error("Unable to start HTTP request for %s", url);
840                 ret = HTTP_START_FAILED;
841         }
842
843         curl_slist_free_all(headers);
844         strbuf_release(&buf);
845
846         return ret;
847 }
848
849 static int http_request_reauth(const char *url, void *result, int target,
850                                int options)
851 {
852         int ret = http_request(url, result, target, options);
853         if (ret != HTTP_REAUTH)
854                 return ret;
855         return http_request(url, result, target, options);
856 }
857
858 int http_get_strbuf(const char *url, struct strbuf *result, int options)
859 {
860         return http_request_reauth(url, result, HTTP_REQUEST_STRBUF, options);
861 }
862
863 /*
864  * Downloads a URL and stores the result in the given file.
865  *
866  * If a previous interrupted download is detected (i.e. a previous temporary
867  * file is still around) the download is resumed.
868  */
869 static int http_get_file(const char *url, const char *filename, int options)
870 {
871         int ret;
872         struct strbuf tmpfile = STRBUF_INIT;
873         FILE *result;
874
875         strbuf_addf(&tmpfile, "%s.temp", filename);
876         result = fopen(tmpfile.buf, "a");
877         if (! result) {
878                 error("Unable to open local file %s", tmpfile.buf);
879                 ret = HTTP_ERROR;
880                 goto cleanup;
881         }
882
883         ret = http_request_reauth(url, result, HTTP_REQUEST_FILE, options);
884         fclose(result);
885
886         if ((ret == HTTP_OK) && move_temp_to_file(tmpfile.buf, filename))
887                 ret = HTTP_ERROR;
888 cleanup:
889         strbuf_release(&tmpfile);
890         return ret;
891 }
892
893 int http_error(const char *url, int ret)
894 {
895         /* http_request has already handled HTTP_START_FAILED. */
896         if (ret != HTTP_START_FAILED)
897                 error("%s while accessing %s", curl_errorstr, url);
898
899         return ret;
900 }
901
902 int http_fetch_ref(const char *base, struct ref *ref)
903 {
904         char *url;
905         struct strbuf buffer = STRBUF_INIT;
906         int ret = -1;
907
908         url = quote_ref_url(base, ref->name);
909         if (http_get_strbuf(url, &buffer, HTTP_NO_CACHE) == HTTP_OK) {
910                 strbuf_rtrim(&buffer);
911                 if (buffer.len == 40)
912                         ret = get_sha1_hex(buffer.buf, ref->old_sha1);
913                 else if (!prefixcmp(buffer.buf, "ref: ")) {
914                         ref->symref = xstrdup(buffer.buf + 5);
915                         ret = 0;
916                 }
917         }
918
919         strbuf_release(&buffer);
920         free(url);
921         return ret;
922 }
923
924 /* Helpers for fetching packs */
925 static char *fetch_pack_index(unsigned char *sha1, const char *base_url)
926 {
927         char *url, *tmp;
928         struct strbuf buf = STRBUF_INIT;
929
930         if (http_is_verbose)
931                 fprintf(stderr, "Getting index for pack %s\n", sha1_to_hex(sha1));
932
933         end_url_with_slash(&buf, base_url);
934         strbuf_addf(&buf, "objects/pack/pack-%s.idx", sha1_to_hex(sha1));
935         url = strbuf_detach(&buf, NULL);
936
937         strbuf_addf(&buf, "%s.temp", sha1_pack_index_name(sha1));
938         tmp = strbuf_detach(&buf, NULL);
939
940         if (http_get_file(url, tmp, 0) != HTTP_OK) {
941                 error("Unable to get pack index %s", url);
942                 free(tmp);
943                 tmp = NULL;
944         }
945
946         free(url);
947         return tmp;
948 }
949
950 static int fetch_and_setup_pack_index(struct packed_git **packs_head,
951         unsigned char *sha1, const char *base_url)
952 {
953         struct packed_git *new_pack;
954         char *tmp_idx = NULL;
955         int ret;
956
957         if (has_pack_index(sha1)) {
958                 new_pack = parse_pack_index(sha1, NULL);
959                 if (!new_pack)
960                         return -1; /* parse_pack_index() already issued error message */
961                 goto add_pack;
962         }
963
964         tmp_idx = fetch_pack_index(sha1, base_url);
965         if (!tmp_idx)
966                 return -1;
967
968         new_pack = parse_pack_index(sha1, tmp_idx);
969         if (!new_pack) {
970                 unlink(tmp_idx);
971                 free(tmp_idx);
972
973                 return -1; /* parse_pack_index() already issued error message */
974         }
975
976         ret = verify_pack_index(new_pack);
977         if (!ret) {
978                 close_pack_index(new_pack);
979                 ret = move_temp_to_file(tmp_idx, sha1_pack_index_name(sha1));
980         }
981         free(tmp_idx);
982         if (ret)
983                 return -1;
984
985 add_pack:
986         new_pack->next = *packs_head;
987         *packs_head = new_pack;
988         return 0;
989 }
990
991 int http_get_info_packs(const char *base_url, struct packed_git **packs_head)
992 {
993         int ret = 0, i = 0;
994         char *url, *data;
995         struct strbuf buf = STRBUF_INIT;
996         unsigned char sha1[20];
997
998         end_url_with_slash(&buf, base_url);
999         strbuf_addstr(&buf, "objects/info/packs");
1000         url = strbuf_detach(&buf, NULL);
1001
1002         ret = http_get_strbuf(url, &buf, HTTP_NO_CACHE);
1003         if (ret != HTTP_OK)
1004                 goto cleanup;
1005
1006         data = buf.buf;
1007         while (i < buf.len) {
1008                 switch (data[i]) {
1009                 case 'P':
1010                         i++;
1011                         if (i + 52 <= buf.len &&
1012                             !prefixcmp(data + i, " pack-") &&
1013                             !prefixcmp(data + i + 46, ".pack\n")) {
1014                                 get_sha1_hex(data + i + 6, sha1);
1015                                 fetch_and_setup_pack_index(packs_head, sha1,
1016                                                       base_url);
1017                                 i += 51;
1018                                 break;
1019                         }
1020                 default:
1021                         while (i < buf.len && data[i] != '\n')
1022                                 i++;
1023                 }
1024                 i++;
1025         }
1026
1027 cleanup:
1028         free(url);
1029         return ret;
1030 }
1031
1032 void release_http_pack_request(struct http_pack_request *preq)
1033 {
1034         if (preq->packfile != NULL) {
1035                 fclose(preq->packfile);
1036                 preq->packfile = NULL;
1037         }
1038         if (preq->range_header != NULL) {
1039                 curl_slist_free_all(preq->range_header);
1040                 preq->range_header = NULL;
1041         }
1042         preq->slot = NULL;
1043         free(preq->url);
1044 }
1045
1046 int finish_http_pack_request(struct http_pack_request *preq)
1047 {
1048         struct packed_git **lst;
1049         struct packed_git *p = preq->target;
1050         char *tmp_idx;
1051         struct child_process ip;
1052         const char *ip_argv[8];
1053
1054         close_pack_index(p);
1055
1056         fclose(preq->packfile);
1057         preq->packfile = NULL;
1058
1059         lst = preq->lst;
1060         while (*lst != p)
1061                 lst = &((*lst)->next);
1062         *lst = (*lst)->next;
1063
1064         tmp_idx = xstrdup(preq->tmpfile);
1065         strcpy(tmp_idx + strlen(tmp_idx) - strlen(".pack.temp"),
1066                ".idx.temp");
1067
1068         ip_argv[0] = "index-pack";
1069         ip_argv[1] = "-o";
1070         ip_argv[2] = tmp_idx;
1071         ip_argv[3] = preq->tmpfile;
1072         ip_argv[4] = NULL;
1073
1074         memset(&ip, 0, sizeof(ip));
1075         ip.argv = ip_argv;
1076         ip.git_cmd = 1;
1077         ip.no_stdin = 1;
1078         ip.no_stdout = 1;
1079
1080         if (run_command(&ip)) {
1081                 unlink(preq->tmpfile);
1082                 unlink(tmp_idx);
1083                 free(tmp_idx);
1084                 return -1;
1085         }
1086
1087         unlink(sha1_pack_index_name(p->sha1));
1088
1089         if (move_temp_to_file(preq->tmpfile, sha1_pack_name(p->sha1))
1090          || move_temp_to_file(tmp_idx, sha1_pack_index_name(p->sha1))) {
1091                 free(tmp_idx);
1092                 return -1;
1093         }
1094
1095         install_packed_git(p);
1096         free(tmp_idx);
1097         return 0;
1098 }
1099
1100 struct http_pack_request *new_http_pack_request(
1101         struct packed_git *target, const char *base_url)
1102 {
1103         long prev_posn = 0;
1104         char range[RANGE_HEADER_SIZE];
1105         struct strbuf buf = STRBUF_INIT;
1106         struct http_pack_request *preq;
1107
1108         preq = xcalloc(1, sizeof(*preq));
1109         preq->target = target;
1110
1111         end_url_with_slash(&buf, base_url);
1112         strbuf_addf(&buf, "objects/pack/pack-%s.pack",
1113                 sha1_to_hex(target->sha1));
1114         preq->url = strbuf_detach(&buf, NULL);
1115
1116         snprintf(preq->tmpfile, sizeof(preq->tmpfile), "%s.temp",
1117                 sha1_pack_name(target->sha1));
1118         preq->packfile = fopen(preq->tmpfile, "a");
1119         if (!preq->packfile) {
1120                 error("Unable to open local file %s for pack",
1121                       preq->tmpfile);
1122                 goto abort;
1123         }
1124
1125         preq->slot = get_active_slot();
1126         curl_easy_setopt(preq->slot->curl, CURLOPT_FILE, preq->packfile);
1127         curl_easy_setopt(preq->slot->curl, CURLOPT_WRITEFUNCTION, fwrite);
1128         curl_easy_setopt(preq->slot->curl, CURLOPT_URL, preq->url);
1129         curl_easy_setopt(preq->slot->curl, CURLOPT_HTTPHEADER,
1130                 no_pragma_header);
1131
1132         /*
1133          * If there is data present from a previous transfer attempt,
1134          * resume where it left off
1135          */
1136         prev_posn = ftell(preq->packfile);
1137         if (prev_posn>0) {
1138                 if (http_is_verbose)
1139                         fprintf(stderr,
1140                                 "Resuming fetch of pack %s at byte %ld\n",
1141                                 sha1_to_hex(target->sha1), prev_posn);
1142                 sprintf(range, "Range: bytes=%ld-", prev_posn);
1143                 preq->range_header = curl_slist_append(NULL, range);
1144                 curl_easy_setopt(preq->slot->curl, CURLOPT_HTTPHEADER,
1145                         preq->range_header);
1146         }
1147
1148         return preq;
1149
1150 abort:
1151         free(preq->url);
1152         free(preq);
1153         return NULL;
1154 }
1155
1156 /* Helpers for fetching objects (loose) */
1157 static size_t fwrite_sha1_file(char *ptr, size_t eltsize, size_t nmemb,
1158                                void *data)
1159 {
1160         unsigned char expn[4096];
1161         size_t size = eltsize * nmemb;
1162         int posn = 0;
1163         struct http_object_request *freq =
1164                 (struct http_object_request *)data;
1165         do {
1166                 ssize_t retval = xwrite(freq->localfile,
1167                                         (char *) ptr + posn, size - posn);
1168                 if (retval < 0)
1169                         return posn;
1170                 posn += retval;
1171         } while (posn < size);
1172
1173         freq->stream.avail_in = size;
1174         freq->stream.next_in = (void *)ptr;
1175         do {
1176                 freq->stream.next_out = expn;
1177                 freq->stream.avail_out = sizeof(expn);
1178                 freq->zret = git_inflate(&freq->stream, Z_SYNC_FLUSH);
1179                 git_SHA1_Update(&freq->c, expn,
1180                                 sizeof(expn) - freq->stream.avail_out);
1181         } while (freq->stream.avail_in && freq->zret == Z_OK);
1182         return size;
1183 }
1184
1185 struct http_object_request *new_http_object_request(const char *base_url,
1186         unsigned char *sha1)
1187 {
1188         char *hex = sha1_to_hex(sha1);
1189         char *filename;
1190         char prevfile[PATH_MAX];
1191         int prevlocal;
1192         char prev_buf[PREV_BUF_SIZE];
1193         ssize_t prev_read = 0;
1194         long prev_posn = 0;
1195         char range[RANGE_HEADER_SIZE];
1196         struct curl_slist *range_header = NULL;
1197         struct http_object_request *freq;
1198
1199         freq = xcalloc(1, sizeof(*freq));
1200         hashcpy(freq->sha1, sha1);
1201         freq->localfile = -1;
1202
1203         filename = sha1_file_name(sha1);
1204         snprintf(freq->tmpfile, sizeof(freq->tmpfile),
1205                  "%s.temp", filename);
1206
1207         snprintf(prevfile, sizeof(prevfile), "%s.prev", filename);
1208         unlink_or_warn(prevfile);
1209         rename(freq->tmpfile, prevfile);
1210         unlink_or_warn(freq->tmpfile);
1211
1212         if (freq->localfile != -1)
1213                 error("fd leakage in start: %d", freq->localfile);
1214         freq->localfile = open(freq->tmpfile,
1215                                O_WRONLY | O_CREAT | O_EXCL, 0666);
1216         /*
1217          * This could have failed due to the "lazy directory creation";
1218          * try to mkdir the last path component.
1219          */
1220         if (freq->localfile < 0 && errno == ENOENT) {
1221                 char *dir = strrchr(freq->tmpfile, '/');
1222                 if (dir) {
1223                         *dir = 0;
1224                         mkdir(freq->tmpfile, 0777);
1225                         *dir = '/';
1226                 }
1227                 freq->localfile = open(freq->tmpfile,
1228                                        O_WRONLY | O_CREAT | O_EXCL, 0666);
1229         }
1230
1231         if (freq->localfile < 0) {
1232                 error("Couldn't create temporary file %s: %s",
1233                       freq->tmpfile, strerror(errno));
1234                 goto abort;
1235         }
1236
1237         git_inflate_init(&freq->stream);
1238
1239         git_SHA1_Init(&freq->c);
1240
1241         freq->url = get_remote_object_url(base_url, hex, 0);
1242
1243         /*
1244          * If a previous temp file is present, process what was already
1245          * fetched.
1246          */
1247         prevlocal = open(prevfile, O_RDONLY);
1248         if (prevlocal != -1) {
1249                 do {
1250                         prev_read = xread(prevlocal, prev_buf, PREV_BUF_SIZE);
1251                         if (prev_read>0) {
1252                                 if (fwrite_sha1_file(prev_buf,
1253                                                      1,
1254                                                      prev_read,
1255                                                      freq) == prev_read) {
1256                                         prev_posn += prev_read;
1257                                 } else {
1258                                         prev_read = -1;
1259                                 }
1260                         }
1261                 } while (prev_read > 0);
1262                 close(prevlocal);
1263         }
1264         unlink_or_warn(prevfile);
1265
1266         /*
1267          * Reset inflate/SHA1 if there was an error reading the previous temp
1268          * file; also rewind to the beginning of the local file.
1269          */
1270         if (prev_read == -1) {
1271                 memset(&freq->stream, 0, sizeof(freq->stream));
1272                 git_inflate_init(&freq->stream);
1273                 git_SHA1_Init(&freq->c);
1274                 if (prev_posn>0) {
1275                         prev_posn = 0;
1276                         lseek(freq->localfile, 0, SEEK_SET);
1277                         if (ftruncate(freq->localfile, 0) < 0) {
1278                                 error("Couldn't truncate temporary file %s: %s",
1279                                           freq->tmpfile, strerror(errno));
1280                                 goto abort;
1281                         }
1282                 }
1283         }
1284
1285         freq->slot = get_active_slot();
1286
1287         curl_easy_setopt(freq->slot->curl, CURLOPT_FILE, freq);
1288         curl_easy_setopt(freq->slot->curl, CURLOPT_WRITEFUNCTION, fwrite_sha1_file);
1289         curl_easy_setopt(freq->slot->curl, CURLOPT_ERRORBUFFER, freq->errorstr);
1290         curl_easy_setopt(freq->slot->curl, CURLOPT_URL, freq->url);
1291         curl_easy_setopt(freq->slot->curl, CURLOPT_HTTPHEADER, no_pragma_header);
1292
1293         /*
1294          * If we have successfully processed data from a previous fetch
1295          * attempt, only fetch the data we don't already have.
1296          */
1297         if (prev_posn>0) {
1298                 if (http_is_verbose)
1299                         fprintf(stderr,
1300                                 "Resuming fetch of object %s at byte %ld\n",
1301                                 hex, prev_posn);
1302                 sprintf(range, "Range: bytes=%ld-", prev_posn);
1303                 range_header = curl_slist_append(range_header, range);
1304                 curl_easy_setopt(freq->slot->curl,
1305                                  CURLOPT_HTTPHEADER, range_header);
1306         }
1307
1308         return freq;
1309
1310 abort:
1311         free(freq->url);
1312         free(freq);
1313         return NULL;
1314 }
1315
1316 void process_http_object_request(struct http_object_request *freq)
1317 {
1318         if (freq->slot == NULL)
1319                 return;
1320         freq->curl_result = freq->slot->curl_result;
1321         freq->http_code = freq->slot->http_code;
1322         freq->slot = NULL;
1323 }
1324
1325 int finish_http_object_request(struct http_object_request *freq)
1326 {
1327         struct stat st;
1328
1329         close(freq->localfile);
1330         freq->localfile = -1;
1331
1332         process_http_object_request(freq);
1333
1334         if (freq->http_code == 416) {
1335                 warning("requested range invalid; we may already have all the data.");
1336         } else if (freq->curl_result != CURLE_OK) {
1337                 if (stat(freq->tmpfile, &st) == 0)
1338                         if (st.st_size == 0)
1339                                 unlink_or_warn(freq->tmpfile);
1340                 return -1;
1341         }
1342
1343         git_inflate_end(&freq->stream);
1344         git_SHA1_Final(freq->real_sha1, &freq->c);
1345         if (freq->zret != Z_STREAM_END) {
1346                 unlink_or_warn(freq->tmpfile);
1347                 return -1;
1348         }
1349         if (hashcmp(freq->sha1, freq->real_sha1)) {
1350                 unlink_or_warn(freq->tmpfile);
1351                 return -1;
1352         }
1353         freq->rename =
1354                 move_temp_to_file(freq->tmpfile, sha1_file_name(freq->sha1));
1355
1356         return freq->rename;
1357 }
1358
1359 void abort_http_object_request(struct http_object_request *freq)
1360 {
1361         unlink_or_warn(freq->tmpfile);
1362
1363         release_http_object_request(freq);
1364 }
1365
1366 void release_http_object_request(struct http_object_request *freq)
1367 {
1368         if (freq->localfile != -1) {
1369                 close(freq->localfile);
1370                 freq->localfile = -1;
1371         }
1372         if (freq->url != NULL) {
1373                 free(freq->url);
1374                 freq->url = NULL;
1375         }
1376         if (freq->slot != NULL) {
1377                 freq->slot->callback_func = NULL;
1378                 freq->slot->callback_data = NULL;
1379                 release_active_slot(freq->slot);
1380                 freq->slot = NULL;
1381         }
1382 }