t9700: fix test for perl older than 5.14
[git] / remote-curl.c
1 #include "cache.h"
2 #include "remote.h"
3 #include "strbuf.h"
4 #include "walker.h"
5 #include "http.h"
6 #include "exec_cmd.h"
7 #include "run-command.h"
8 #include "pkt-line.h"
9 #include "string-list.h"
10 #include "sideband.h"
11 #include "argv-array.h"
12 #include "credential.h"
13 #include "sha1-array.h"
14 #include "send-pack.h"
15
16 static struct remote *remote;
17 /* always ends with a trailing slash */
18 static struct strbuf url = STRBUF_INIT;
19
20 struct options {
21         int verbosity;
22         unsigned long depth;
23         unsigned progress : 1,
24                 check_self_contained_and_connected : 1,
25                 cloning : 1,
26                 update_shallow : 1,
27                 followtags : 1,
28                 dry_run : 1,
29                 thin : 1,
30                 /* One of the SEND_PACK_PUSH_CERT_* constants. */
31                 push_cert : 2;
32 };
33 static struct options options;
34 static struct string_list cas_options = STRING_LIST_INIT_DUP;
35
36 static int set_option(const char *name, const char *value)
37 {
38         if (!strcmp(name, "verbosity")) {
39                 char *end;
40                 int v = strtol(value, &end, 10);
41                 if (value == end || *end)
42                         return -1;
43                 options.verbosity = v;
44                 return 0;
45         }
46         else if (!strcmp(name, "progress")) {
47                 if (!strcmp(value, "true"))
48                         options.progress = 1;
49                 else if (!strcmp(value, "false"))
50                         options.progress = 0;
51                 else
52                         return -1;
53                 return 0;
54         }
55         else if (!strcmp(name, "depth")) {
56                 char *end;
57                 unsigned long v = strtoul(value, &end, 10);
58                 if (value == end || *end)
59                         return -1;
60                 options.depth = v;
61                 return 0;
62         }
63         else if (!strcmp(name, "followtags")) {
64                 if (!strcmp(value, "true"))
65                         options.followtags = 1;
66                 else if (!strcmp(value, "false"))
67                         options.followtags = 0;
68                 else
69                         return -1;
70                 return 0;
71         }
72         else if (!strcmp(name, "dry-run")) {
73                 if (!strcmp(value, "true"))
74                         options.dry_run = 1;
75                 else if (!strcmp(value, "false"))
76                         options.dry_run = 0;
77                 else
78                         return -1;
79                 return 0;
80         }
81         else if (!strcmp(name, "check-connectivity")) {
82                 if (!strcmp(value, "true"))
83                         options.check_self_contained_and_connected = 1;
84                 else if (!strcmp(value, "false"))
85                         options.check_self_contained_and_connected = 0;
86                 else
87                         return -1;
88                 return 0;
89         }
90         else if (!strcmp(name, "cas")) {
91                 struct strbuf val = STRBUF_INIT;
92                 strbuf_addf(&val, "--" CAS_OPT_NAME "=%s", value);
93                 string_list_append(&cas_options, val.buf);
94                 strbuf_release(&val);
95                 return 0;
96         } else if (!strcmp(name, "cloning")) {
97                 if (!strcmp(value, "true"))
98                         options.cloning = 1;
99                 else if (!strcmp(value, "false"))
100                         options.cloning = 0;
101                 else
102                         return -1;
103                 return 0;
104         } else if (!strcmp(name, "update-shallow")) {
105                 if (!strcmp(value, "true"))
106                         options.update_shallow = 1;
107                 else if (!strcmp(value, "false"))
108                         options.update_shallow = 0;
109                 else
110                         return -1;
111                 return 0;
112         } else if (!strcmp(name, "pushcert")) {
113                 if (!strcmp(value, "true"))
114                         options.push_cert = SEND_PACK_PUSH_CERT_ALWAYS;
115                 else if (!strcmp(value, "false"))
116                         options.push_cert = SEND_PACK_PUSH_CERT_NEVER;
117                 else if (!strcmp(value, "if-asked"))
118                         options.push_cert = SEND_PACK_PUSH_CERT_IF_ASKED;
119                 else
120                         return -1;
121                 return 0;
122         } else {
123                 return 1 /* unsupported */;
124         }
125 }
126
127 struct discovery {
128         const char *service;
129         char *buf_alloc;
130         char *buf;
131         size_t len;
132         struct ref *refs;
133         struct sha1_array shallow;
134         unsigned proto_git : 1;
135 };
136 static struct discovery *last_discovery;
137
138 static struct ref *parse_git_refs(struct discovery *heads, int for_push)
139 {
140         struct ref *list = NULL;
141         get_remote_heads(-1, heads->buf, heads->len, &list,
142                          for_push ? REF_NORMAL : 0, NULL, &heads->shallow);
143         return list;
144 }
145
146 static struct ref *parse_info_refs(struct discovery *heads)
147 {
148         char *data, *start, *mid;
149         char *ref_name;
150         int i = 0;
151
152         struct ref *refs = NULL;
153         struct ref *ref = NULL;
154         struct ref *last_ref = NULL;
155
156         data = heads->buf;
157         start = NULL;
158         mid = data;
159         while (i < heads->len) {
160                 if (!start) {
161                         start = &data[i];
162                 }
163                 if (data[i] == '\t')
164                         mid = &data[i];
165                 if (data[i] == '\n') {
166                         if (mid - start != 40)
167                                 die("%sinfo/refs not valid: is this a git repository?",
168                                     url.buf);
169                         data[i] = 0;
170                         ref_name = mid + 1;
171                         ref = alloc_ref(ref_name);
172                         get_oid_hex(start, &ref->old_oid);
173                         if (!refs)
174                                 refs = ref;
175                         if (last_ref)
176                                 last_ref->next = ref;
177                         last_ref = ref;
178                         start = NULL;
179                 }
180                 i++;
181         }
182
183         ref = alloc_ref("HEAD");
184         if (!http_fetch_ref(url.buf, ref) &&
185             !resolve_remote_symref(ref, refs)) {
186                 ref->next = refs;
187                 refs = ref;
188         } else {
189                 free(ref);
190         }
191
192         return refs;
193 }
194
195 static void free_discovery(struct discovery *d)
196 {
197         if (d) {
198                 if (d == last_discovery)
199                         last_discovery = NULL;
200                 free(d->shallow.sha1);
201                 free(d->buf_alloc);
202                 free_refs(d->refs);
203                 free(d);
204         }
205 }
206
207 static int show_http_message(struct strbuf *type, struct strbuf *charset,
208                              struct strbuf *msg)
209 {
210         const char *p, *eol;
211
212         /*
213          * We only show text/plain parts, as other types are likely
214          * to be ugly to look at on the user's terminal.
215          */
216         if (strcmp(type->buf, "text/plain"))
217                 return -1;
218         if (charset->len)
219                 strbuf_reencode(msg, charset->buf, get_log_output_encoding());
220
221         strbuf_trim(msg);
222         if (!msg->len)
223                 return -1;
224
225         p = msg->buf;
226         do {
227                 eol = strchrnul(p, '\n');
228                 fprintf(stderr, "remote: %.*s\n", (int)(eol - p), p);
229                 p = eol + 1;
230         } while(*eol);
231         return 0;
232 }
233
234 static struct discovery *discover_refs(const char *service, int for_push)
235 {
236         struct strbuf exp = STRBUF_INIT;
237         struct strbuf type = STRBUF_INIT;
238         struct strbuf charset = STRBUF_INIT;
239         struct strbuf buffer = STRBUF_INIT;
240         struct strbuf refs_url = STRBUF_INIT;
241         struct strbuf effective_url = STRBUF_INIT;
242         struct discovery *last = last_discovery;
243         int http_ret, maybe_smart = 0;
244         struct http_get_options options;
245
246         if (last && !strcmp(service, last->service))
247                 return last;
248         free_discovery(last);
249
250         strbuf_addf(&refs_url, "%sinfo/refs", url.buf);
251         if ((starts_with(url.buf, "http://") || starts_with(url.buf, "https://")) &&
252              git_env_bool("GIT_SMART_HTTP", 1)) {
253                 maybe_smart = 1;
254                 if (!strchr(url.buf, '?'))
255                         strbuf_addch(&refs_url, '?');
256                 else
257                         strbuf_addch(&refs_url, '&');
258                 strbuf_addf(&refs_url, "service=%s", service);
259         }
260
261         memset(&options, 0, sizeof(options));
262         options.content_type = &type;
263         options.charset = &charset;
264         options.effective_url = &effective_url;
265         options.base_url = &url;
266         options.no_cache = 1;
267         options.keep_error = 1;
268
269         http_ret = http_get_strbuf(refs_url.buf, &buffer, &options);
270         switch (http_ret) {
271         case HTTP_OK:
272                 break;
273         case HTTP_MISSING_TARGET:
274                 show_http_message(&type, &charset, &buffer);
275                 die("repository '%s' not found", url.buf);
276         case HTTP_NOAUTH:
277                 show_http_message(&type, &charset, &buffer);
278                 die("Authentication failed for '%s'", url.buf);
279         default:
280                 show_http_message(&type, &charset, &buffer);
281                 die("unable to access '%s': %s", url.buf, curl_errorstr);
282         }
283
284         last= xcalloc(1, sizeof(*last_discovery));
285         last->service = service;
286         last->buf_alloc = strbuf_detach(&buffer, &last->len);
287         last->buf = last->buf_alloc;
288
289         strbuf_addf(&exp, "application/x-%s-advertisement", service);
290         if (maybe_smart &&
291             (5 <= last->len && last->buf[4] == '#') &&
292             !strbuf_cmp(&exp, &type)) {
293                 char *line;
294
295                 /*
296                  * smart HTTP response; validate that the service
297                  * pkt-line matches our request.
298                  */
299                 line = packet_read_line_buf(&last->buf, &last->len, NULL);
300
301                 strbuf_reset(&exp);
302                 strbuf_addf(&exp, "# service=%s", service);
303                 if (strcmp(line, exp.buf))
304                         die("invalid server response; got '%s'", line);
305                 strbuf_release(&exp);
306
307                 /* The header can include additional metadata lines, up
308                  * until a packet flush marker.  Ignore these now, but
309                  * in the future we might start to scan them.
310                  */
311                 while (packet_read_line_buf(&last->buf, &last->len, NULL))
312                         ;
313
314                 last->proto_git = 1;
315         }
316
317         if (last->proto_git)
318                 last->refs = parse_git_refs(last, for_push);
319         else
320                 last->refs = parse_info_refs(last);
321
322         strbuf_release(&refs_url);
323         strbuf_release(&exp);
324         strbuf_release(&type);
325         strbuf_release(&charset);
326         strbuf_release(&effective_url);
327         strbuf_release(&buffer);
328         last_discovery = last;
329         return last;
330 }
331
332 static struct ref *get_refs(int for_push)
333 {
334         struct discovery *heads;
335
336         if (for_push)
337                 heads = discover_refs("git-receive-pack", for_push);
338         else
339                 heads = discover_refs("git-upload-pack", for_push);
340
341         return heads->refs;
342 }
343
344 static void output_refs(struct ref *refs)
345 {
346         struct ref *posn;
347         for (posn = refs; posn; posn = posn->next) {
348                 if (posn->symref)
349                         printf("@%s %s\n", posn->symref, posn->name);
350                 else
351                         printf("%s %s\n", oid_to_hex(&posn->old_oid), posn->name);
352         }
353         printf("\n");
354         fflush(stdout);
355 }
356
357 struct rpc_state {
358         const char *service_name;
359         const char **argv;
360         struct strbuf *stdin_preamble;
361         char *service_url;
362         char *hdr_content_type;
363         char *hdr_accept;
364         char *buf;
365         size_t alloc;
366         size_t len;
367         size_t pos;
368         int in;
369         int out;
370         struct strbuf result;
371         unsigned gzip_request : 1;
372         unsigned initial_buffer : 1;
373 };
374
375 static size_t rpc_out(void *ptr, size_t eltsize,
376                 size_t nmemb, void *buffer_)
377 {
378         size_t max = eltsize * nmemb;
379         struct rpc_state *rpc = buffer_;
380         size_t avail = rpc->len - rpc->pos;
381
382         if (!avail) {
383                 rpc->initial_buffer = 0;
384                 avail = packet_read(rpc->out, NULL, NULL, rpc->buf, rpc->alloc, 0);
385                 if (!avail)
386                         return 0;
387                 rpc->pos = 0;
388                 rpc->len = avail;
389         }
390
391         if (max < avail)
392                 avail = max;
393         memcpy(ptr, rpc->buf + rpc->pos, avail);
394         rpc->pos += avail;
395         return avail;
396 }
397
398 #ifndef NO_CURL_IOCTL
399 static curlioerr rpc_ioctl(CURL *handle, int cmd, void *clientp)
400 {
401         struct rpc_state *rpc = clientp;
402
403         switch (cmd) {
404         case CURLIOCMD_NOP:
405                 return CURLIOE_OK;
406
407         case CURLIOCMD_RESTARTREAD:
408                 if (rpc->initial_buffer) {
409                         rpc->pos = 0;
410                         return CURLIOE_OK;
411                 }
412                 error("unable to rewind rpc post data - try increasing http.postBuffer");
413                 return CURLIOE_FAILRESTART;
414
415         default:
416                 return CURLIOE_UNKNOWNCMD;
417         }
418 }
419 #endif
420
421 static size_t rpc_in(char *ptr, size_t eltsize,
422                 size_t nmemb, void *buffer_)
423 {
424         size_t size = eltsize * nmemb;
425         struct rpc_state *rpc = buffer_;
426         write_or_die(rpc->in, ptr, size);
427         return size;
428 }
429
430 static int run_slot(struct active_request_slot *slot,
431                     struct slot_results *results)
432 {
433         int err;
434         struct slot_results results_buf;
435
436         if (!results)
437                 results = &results_buf;
438
439         err = run_one_slot(slot, results);
440
441         if (err != HTTP_OK && err != HTTP_REAUTH) {
442                 error("RPC failed; result=%d, HTTP code = %ld",
443                       results->curl_result, results->http_code);
444         }
445
446         return err;
447 }
448
449 static int probe_rpc(struct rpc_state *rpc, struct slot_results *results)
450 {
451         struct active_request_slot *slot;
452         struct curl_slist *headers = NULL;
453         struct strbuf buf = STRBUF_INIT;
454         int err;
455
456         slot = get_active_slot();
457
458         headers = curl_slist_append(headers, rpc->hdr_content_type);
459         headers = curl_slist_append(headers, rpc->hdr_accept);
460
461         curl_easy_setopt(slot->curl, CURLOPT_NOBODY, 0);
462         curl_easy_setopt(slot->curl, CURLOPT_POST, 1);
463         curl_easy_setopt(slot->curl, CURLOPT_URL, rpc->service_url);
464         curl_easy_setopt(slot->curl, CURLOPT_ENCODING, NULL);
465         curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDS, "0000");
466         curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDSIZE, 4);
467         curl_easy_setopt(slot->curl, CURLOPT_HTTPHEADER, headers);
468         curl_easy_setopt(slot->curl, CURLOPT_WRITEFUNCTION, fwrite_buffer);
469         curl_easy_setopt(slot->curl, CURLOPT_FILE, &buf);
470
471         err = run_slot(slot, results);
472
473         curl_slist_free_all(headers);
474         strbuf_release(&buf);
475         return err;
476 }
477
478 static int post_rpc(struct rpc_state *rpc)
479 {
480         struct active_request_slot *slot;
481         struct curl_slist *headers = NULL;
482         int use_gzip = rpc->gzip_request;
483         char *gzip_body = NULL;
484         size_t gzip_size = 0;
485         int err, large_request = 0;
486         int needs_100_continue = 0;
487
488         /* Try to load the entire request, if we can fit it into the
489          * allocated buffer space we can use HTTP/1.0 and avoid the
490          * chunked encoding mess.
491          */
492         while (1) {
493                 size_t left = rpc->alloc - rpc->len;
494                 char *buf = rpc->buf + rpc->len;
495                 int n;
496
497                 if (left < LARGE_PACKET_MAX) {
498                         large_request = 1;
499                         use_gzip = 0;
500                         break;
501                 }
502
503                 n = packet_read(rpc->out, NULL, NULL, buf, left, 0);
504                 if (!n)
505                         break;
506                 rpc->len += n;
507         }
508
509         if (large_request) {
510                 struct slot_results results;
511
512                 do {
513                         err = probe_rpc(rpc, &results);
514                         if (err == HTTP_REAUTH)
515                                 credential_fill(&http_auth);
516                 } while (err == HTTP_REAUTH);
517                 if (err != HTTP_OK)
518                         return -1;
519
520                 if (results.auth_avail & CURLAUTH_GSSNEGOTIATE)
521                         needs_100_continue = 1;
522         }
523
524         headers = curl_slist_append(headers, rpc->hdr_content_type);
525         headers = curl_slist_append(headers, rpc->hdr_accept);
526         headers = curl_slist_append(headers, needs_100_continue ?
527                 "Expect: 100-continue" : "Expect:");
528
529 retry:
530         slot = get_active_slot();
531
532         curl_easy_setopt(slot->curl, CURLOPT_NOBODY, 0);
533         curl_easy_setopt(slot->curl, CURLOPT_POST, 1);
534         curl_easy_setopt(slot->curl, CURLOPT_URL, rpc->service_url);
535         curl_easy_setopt(slot->curl, CURLOPT_ENCODING, "gzip");
536
537         if (large_request) {
538                 /* The request body is large and the size cannot be predicted.
539                  * We must use chunked encoding to send it.
540                  */
541                 headers = curl_slist_append(headers, "Transfer-Encoding: chunked");
542                 rpc->initial_buffer = 1;
543                 curl_easy_setopt(slot->curl, CURLOPT_READFUNCTION, rpc_out);
544                 curl_easy_setopt(slot->curl, CURLOPT_INFILE, rpc);
545 #ifndef NO_CURL_IOCTL
546                 curl_easy_setopt(slot->curl, CURLOPT_IOCTLFUNCTION, rpc_ioctl);
547                 curl_easy_setopt(slot->curl, CURLOPT_IOCTLDATA, rpc);
548 #endif
549                 if (options.verbosity > 1) {
550                         fprintf(stderr, "POST %s (chunked)\n", rpc->service_name);
551                         fflush(stderr);
552                 }
553
554         } else if (gzip_body) {
555                 /*
556                  * If we are looping to retry authentication, then the previous
557                  * run will have set up the headers and gzip buffer already,
558                  * and we just need to send it.
559                  */
560                 curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDS, gzip_body);
561                 curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDSIZE, gzip_size);
562
563         } else if (use_gzip && 1024 < rpc->len) {
564                 /* The client backend isn't giving us compressed data so
565                  * we can try to deflate it ourselves, this may save on.
566                  * the transfer time.
567                  */
568                 git_zstream stream;
569                 int ret;
570
571                 git_deflate_init_gzip(&stream, Z_BEST_COMPRESSION);
572                 gzip_size = git_deflate_bound(&stream, rpc->len);
573                 gzip_body = xmalloc(gzip_size);
574
575                 stream.next_in = (unsigned char *)rpc->buf;
576                 stream.avail_in = rpc->len;
577                 stream.next_out = (unsigned char *)gzip_body;
578                 stream.avail_out = gzip_size;
579
580                 ret = git_deflate(&stream, Z_FINISH);
581                 if (ret != Z_STREAM_END)
582                         die("cannot deflate request; zlib deflate error %d", ret);
583
584                 ret = git_deflate_end_gently(&stream);
585                 if (ret != Z_OK)
586                         die("cannot deflate request; zlib end error %d", ret);
587
588                 gzip_size = stream.total_out;
589
590                 headers = curl_slist_append(headers, "Content-Encoding: gzip");
591                 curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDS, gzip_body);
592                 curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDSIZE, gzip_size);
593
594                 if (options.verbosity > 1) {
595                         fprintf(stderr, "POST %s (gzip %lu to %lu bytes)\n",
596                                 rpc->service_name,
597                                 (unsigned long)rpc->len, (unsigned long)gzip_size);
598                         fflush(stderr);
599                 }
600         } else {
601                 /* We know the complete request size in advance, use the
602                  * more normal Content-Length approach.
603                  */
604                 curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDS, rpc->buf);
605                 curl_easy_setopt(slot->curl, CURLOPT_POSTFIELDSIZE, rpc->len);
606                 if (options.verbosity > 1) {
607                         fprintf(stderr, "POST %s (%lu bytes)\n",
608                                 rpc->service_name, (unsigned long)rpc->len);
609                         fflush(stderr);
610                 }
611         }
612
613         curl_easy_setopt(slot->curl, CURLOPT_HTTPHEADER, headers);
614         curl_easy_setopt(slot->curl, CURLOPT_WRITEFUNCTION, rpc_in);
615         curl_easy_setopt(slot->curl, CURLOPT_FILE, rpc);
616
617         err = run_slot(slot, NULL);
618         if (err == HTTP_REAUTH && !large_request) {
619                 credential_fill(&http_auth);
620                 goto retry;
621         }
622         if (err != HTTP_OK)
623                 err = -1;
624
625         curl_slist_free_all(headers);
626         free(gzip_body);
627         return err;
628 }
629
630 static int rpc_service(struct rpc_state *rpc, struct discovery *heads)
631 {
632         const char *svc = rpc->service_name;
633         struct strbuf buf = STRBUF_INIT;
634         struct strbuf *preamble = rpc->stdin_preamble;
635         struct child_process client = CHILD_PROCESS_INIT;
636         int err = 0;
637
638         client.in = -1;
639         client.out = -1;
640         client.git_cmd = 1;
641         client.argv = rpc->argv;
642         if (start_command(&client))
643                 exit(1);
644         if (preamble)
645                 write_or_die(client.in, preamble->buf, preamble->len);
646         if (heads)
647                 write_or_die(client.in, heads->buf, heads->len);
648
649         rpc->alloc = http_post_buffer;
650         rpc->buf = xmalloc(rpc->alloc);
651         rpc->in = client.in;
652         rpc->out = client.out;
653         strbuf_init(&rpc->result, 0);
654
655         strbuf_addf(&buf, "%s%s", url.buf, svc);
656         rpc->service_url = strbuf_detach(&buf, NULL);
657
658         strbuf_addf(&buf, "Content-Type: application/x-%s-request", svc);
659         rpc->hdr_content_type = strbuf_detach(&buf, NULL);
660
661         strbuf_addf(&buf, "Accept: application/x-%s-result", svc);
662         rpc->hdr_accept = strbuf_detach(&buf, NULL);
663
664         while (!err) {
665                 int n = packet_read(rpc->out, NULL, NULL, rpc->buf, rpc->alloc, 0);
666                 if (!n)
667                         break;
668                 rpc->pos = 0;
669                 rpc->len = n;
670                 err |= post_rpc(rpc);
671         }
672
673         close(client.in);
674         client.in = -1;
675         if (!err) {
676                 strbuf_read(&rpc->result, client.out, 0);
677         } else {
678                 char buf[4096];
679                 for (;;)
680                         if (xread(client.out, buf, sizeof(buf)) <= 0)
681                                 break;
682         }
683
684         close(client.out);
685         client.out = -1;
686
687         err |= finish_command(&client);
688         free(rpc->service_url);
689         free(rpc->hdr_content_type);
690         free(rpc->hdr_accept);
691         free(rpc->buf);
692         strbuf_release(&buf);
693         return err;
694 }
695
696 static int fetch_dumb(int nr_heads, struct ref **to_fetch)
697 {
698         struct walker *walker;
699         char **targets = xmalloc(nr_heads * sizeof(char*));
700         int ret, i;
701
702         if (options.depth)
703                 die("dumb http transport does not support --depth");
704         for (i = 0; i < nr_heads; i++)
705                 targets[i] = xstrdup(oid_to_hex(&to_fetch[i]->old_oid));
706
707         walker = get_http_walker(url.buf);
708         walker->get_all = 1;
709         walker->get_tree = 1;
710         walker->get_history = 1;
711         walker->get_verbosely = options.verbosity >= 3;
712         walker->get_recover = 0;
713         ret = walker_fetch(walker, nr_heads, targets, NULL, NULL);
714         walker_free(walker);
715
716         for (i = 0; i < nr_heads; i++)
717                 free(targets[i]);
718         free(targets);
719
720         return ret ? error("fetch failed.") : 0;
721 }
722
723 static int fetch_git(struct discovery *heads,
724         int nr_heads, struct ref **to_fetch)
725 {
726         struct rpc_state rpc;
727         struct strbuf preamble = STRBUF_INIT;
728         char *depth_arg = NULL;
729         int argc = 0, i, err;
730         const char *argv[17];
731
732         argv[argc++] = "fetch-pack";
733         argv[argc++] = "--stateless-rpc";
734         argv[argc++] = "--stdin";
735         argv[argc++] = "--lock-pack";
736         if (options.followtags)
737                 argv[argc++] = "--include-tag";
738         if (options.thin)
739                 argv[argc++] = "--thin";
740         if (options.verbosity >= 3) {
741                 argv[argc++] = "-v";
742                 argv[argc++] = "-v";
743         }
744         if (options.check_self_contained_and_connected)
745                 argv[argc++] = "--check-self-contained-and-connected";
746         if (options.cloning)
747                 argv[argc++] = "--cloning";
748         if (options.update_shallow)
749                 argv[argc++] = "--update-shallow";
750         if (!options.progress)
751                 argv[argc++] = "--no-progress";
752         if (options.depth) {
753                 struct strbuf buf = STRBUF_INIT;
754                 strbuf_addf(&buf, "--depth=%lu", options.depth);
755                 depth_arg = strbuf_detach(&buf, NULL);
756                 argv[argc++] = depth_arg;
757         }
758         argv[argc++] = url.buf;
759         argv[argc++] = NULL;
760
761         for (i = 0; i < nr_heads; i++) {
762                 struct ref *ref = to_fetch[i];
763                 if (!*ref->name)
764                         die("cannot fetch by sha1 over smart http");
765                 packet_buf_write(&preamble, "%s %s\n",
766                                  oid_to_hex(&ref->old_oid), ref->name);
767         }
768         packet_buf_flush(&preamble);
769
770         memset(&rpc, 0, sizeof(rpc));
771         rpc.service_name = "git-upload-pack",
772         rpc.argv = argv;
773         rpc.stdin_preamble = &preamble;
774         rpc.gzip_request = 1;
775
776         err = rpc_service(&rpc, heads);
777         if (rpc.result.len)
778                 write_or_die(1, rpc.result.buf, rpc.result.len);
779         strbuf_release(&rpc.result);
780         strbuf_release(&preamble);
781         free(depth_arg);
782         return err;
783 }
784
785 static int fetch(int nr_heads, struct ref **to_fetch)
786 {
787         struct discovery *d = discover_refs("git-upload-pack", 0);
788         if (d->proto_git)
789                 return fetch_git(d, nr_heads, to_fetch);
790         else
791                 return fetch_dumb(nr_heads, to_fetch);
792 }
793
794 static void parse_fetch(struct strbuf *buf)
795 {
796         struct ref **to_fetch = NULL;
797         struct ref *list_head = NULL;
798         struct ref **list = &list_head;
799         int alloc_heads = 0, nr_heads = 0;
800
801         do {
802                 const char *p;
803                 if (skip_prefix(buf->buf, "fetch ", &p)) {
804                         const char *name;
805                         struct ref *ref;
806                         struct object_id old_oid;
807
808                         if (get_oid_hex(p, &old_oid))
809                                 die("protocol error: expected sha/ref, got %s'", p);
810                         if (p[GIT_SHA1_HEXSZ] == ' ')
811                                 name = p + GIT_SHA1_HEXSZ + 1;
812                         else if (!p[GIT_SHA1_HEXSZ])
813                                 name = "";
814                         else
815                                 die("protocol error: expected sha/ref, got %s'", p);
816
817                         ref = alloc_ref(name);
818                         oidcpy(&ref->old_oid, &old_oid);
819
820                         *list = ref;
821                         list = &ref->next;
822
823                         ALLOC_GROW(to_fetch, nr_heads + 1, alloc_heads);
824                         to_fetch[nr_heads++] = ref;
825                 }
826                 else
827                         die("http transport does not support %s", buf->buf);
828
829                 strbuf_reset(buf);
830                 if (strbuf_getline(buf, stdin, '\n') == EOF)
831                         return;
832                 if (!*buf->buf)
833                         break;
834         } while (1);
835
836         if (fetch(nr_heads, to_fetch))
837                 exit(128); /* error already reported */
838         free_refs(list_head);
839         free(to_fetch);
840
841         printf("\n");
842         fflush(stdout);
843         strbuf_reset(buf);
844 }
845
846 static int push_dav(int nr_spec, char **specs)
847 {
848         const char **argv = xmalloc((10 + nr_spec) * sizeof(char*));
849         int argc = 0, i;
850
851         argv[argc++] = "http-push";
852         argv[argc++] = "--helper-status";
853         if (options.dry_run)
854                 argv[argc++] = "--dry-run";
855         if (options.verbosity > 1)
856                 argv[argc++] = "--verbose";
857         argv[argc++] = url.buf;
858         for (i = 0; i < nr_spec; i++)
859                 argv[argc++] = specs[i];
860         argv[argc++] = NULL;
861
862         if (run_command_v_opt(argv, RUN_GIT_CMD))
863                 die("git-%s failed", argv[0]);
864         free(argv);
865         return 0;
866 }
867
868 static int push_git(struct discovery *heads, int nr_spec, char **specs)
869 {
870         struct rpc_state rpc;
871         int i, err;
872         struct argv_array args;
873         struct string_list_item *cas_option;
874         struct strbuf preamble = STRBUF_INIT;
875
876         argv_array_init(&args);
877         argv_array_pushl(&args, "send-pack", "--stateless-rpc", "--helper-status",
878                          NULL);
879
880         if (options.thin)
881                 argv_array_push(&args, "--thin");
882         if (options.dry_run)
883                 argv_array_push(&args, "--dry-run");
884         if (options.push_cert == SEND_PACK_PUSH_CERT_ALWAYS)
885                 argv_array_push(&args, "--signed=yes");
886         else if (options.push_cert == SEND_PACK_PUSH_CERT_IF_ASKED)
887                 argv_array_push(&args, "--signed=if-asked");
888         if (options.verbosity == 0)
889                 argv_array_push(&args, "--quiet");
890         else if (options.verbosity > 1)
891                 argv_array_push(&args, "--verbose");
892         argv_array_push(&args, options.progress ? "--progress" : "--no-progress");
893         for_each_string_list_item(cas_option, &cas_options)
894                 argv_array_push(&args, cas_option->string);
895         argv_array_push(&args, url.buf);
896
897         argv_array_push(&args, "--stdin");
898         for (i = 0; i < nr_spec; i++)
899                 packet_buf_write(&preamble, "%s\n", specs[i]);
900         packet_buf_flush(&preamble);
901
902         memset(&rpc, 0, sizeof(rpc));
903         rpc.service_name = "git-receive-pack",
904         rpc.argv = args.argv;
905         rpc.stdin_preamble = &preamble;
906
907         err = rpc_service(&rpc, heads);
908         if (rpc.result.len)
909                 write_or_die(1, rpc.result.buf, rpc.result.len);
910         strbuf_release(&rpc.result);
911         strbuf_release(&preamble);
912         argv_array_clear(&args);
913         return err;
914 }
915
916 static int push(int nr_spec, char **specs)
917 {
918         struct discovery *heads = discover_refs("git-receive-pack", 1);
919         int ret;
920
921         if (heads->proto_git)
922                 ret = push_git(heads, nr_spec, specs);
923         else
924                 ret = push_dav(nr_spec, specs);
925         free_discovery(heads);
926         return ret;
927 }
928
929 static void parse_push(struct strbuf *buf)
930 {
931         char **specs = NULL;
932         int alloc_spec = 0, nr_spec = 0, i, ret;
933
934         do {
935                 if (starts_with(buf->buf, "push ")) {
936                         ALLOC_GROW(specs, nr_spec + 1, alloc_spec);
937                         specs[nr_spec++] = xstrdup(buf->buf + 5);
938                 }
939                 else
940                         die("http transport does not support %s", buf->buf);
941
942                 strbuf_reset(buf);
943                 if (strbuf_getline(buf, stdin, '\n') == EOF)
944                         goto free_specs;
945                 if (!*buf->buf)
946                         break;
947         } while (1);
948
949         ret = push(nr_spec, specs);
950         printf("\n");
951         fflush(stdout);
952
953         if (ret)
954                 exit(128); /* error already reported */
955
956  free_specs:
957         for (i = 0; i < nr_spec; i++)
958                 free(specs[i]);
959         free(specs);
960 }
961
962 int main(int argc, const char **argv)
963 {
964         struct strbuf buf = STRBUF_INIT;
965         int nongit;
966
967         git_setup_gettext();
968
969         git_extract_argv0_path(argv[0]);
970         setup_git_directory_gently(&nongit);
971         if (argc < 2) {
972                 error("remote-curl: usage: git remote-curl <remote> [<url>]");
973                 return 1;
974         }
975
976         options.verbosity = 1;
977         options.progress = !!isatty(2);
978         options.thin = 1;
979
980         remote = remote_get(argv[1]);
981
982         if (argc > 2) {
983                 end_url_with_slash(&url, argv[2]);
984         } else {
985                 end_url_with_slash(&url, remote->url[0]);
986         }
987
988         http_init(remote, url.buf, 0);
989
990         do {
991                 const char *arg;
992
993                 if (strbuf_getline(&buf, stdin, '\n') == EOF) {
994                         if (ferror(stdin))
995                                 error("remote-curl: error reading command stream from git");
996                         return 1;
997                 }
998                 if (buf.len == 0)
999                         break;
1000                 if (starts_with(buf.buf, "fetch ")) {
1001                         if (nongit)
1002                                 die("remote-curl: fetch attempted without a local repo");
1003                         parse_fetch(&buf);
1004
1005                 } else if (!strcmp(buf.buf, "list") || starts_with(buf.buf, "list ")) {
1006                         int for_push = !!strstr(buf.buf + 4, "for-push");
1007                         output_refs(get_refs(for_push));
1008
1009                 } else if (starts_with(buf.buf, "push ")) {
1010                         parse_push(&buf);
1011
1012                 } else if (skip_prefix(buf.buf, "option ", &arg)) {
1013                         char *value = strchr(arg, ' ');
1014                         int result;
1015
1016                         if (value)
1017                                 *value++ = '\0';
1018                         else
1019                                 value = "true";
1020
1021                         result = set_option(arg, value);
1022                         if (!result)
1023                                 printf("ok\n");
1024                         else if (result < 0)
1025                                 printf("error invalid value\n");
1026                         else
1027                                 printf("unsupported\n");
1028                         fflush(stdout);
1029
1030                 } else if (!strcmp(buf.buf, "capabilities")) {
1031                         printf("fetch\n");
1032                         printf("option\n");
1033                         printf("push\n");
1034                         printf("check-connectivity\n");
1035                         printf("\n");
1036                         fflush(stdout);
1037                 } else {
1038                         error("remote-curl: unknown command '%s' from git", buf.buf);
1039                         return 1;
1040                 }
1041                 strbuf_reset(&buf);
1042         } while (1);
1043
1044         http_cleanup();
1045
1046         return 0;
1047 }