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