Make perl/ build procedure ActiveState friendly.
[git/fastimport.git] / receive-pack.c
blob1a141dc1e55aef221312b4cde590fac865546c43
1 #include "cache.h"
2 #include "pack.h"
3 #include "refs.h"
4 #include "pkt-line.h"
5 #include "run-command.h"
6 #include "exec_cmd.h"
7 #include "commit.h"
8 #include "object.h"
9 #include <sys/wait.h>
11 static const char receive_pack_usage[] = "git-receive-pack <git-dir>";
13 static int deny_non_fast_forwards = 0;
14 static int unpack_limit = 5000;
15 static int report_status;
17 static char capabilities[] = " report-status delete-refs ";
18 static int capabilities_sent;
20 static int receive_pack_config(const char *var, const char *value)
22 git_default_config(var, value);
24 if (strcmp(var, "receive.denynonfastforwards") == 0)
26 deny_non_fast_forwards = git_config_bool(var, value);
27 return 0;
30 if (strcmp(var, "receive.unpacklimit") == 0)
32 unpack_limit = git_config_int(var, value);
33 return 0;
36 return 0;
39 static int show_ref(const char *path, const unsigned char *sha1, int flag, void *cb_data)
41 if (capabilities_sent)
42 packet_write(1, "%s %s\n", sha1_to_hex(sha1), path);
43 else
44 packet_write(1, "%s %s%c%s\n",
45 sha1_to_hex(sha1), path, 0, capabilities);
46 capabilities_sent = 1;
47 return 0;
50 static void write_head_info(void)
52 for_each_ref(show_ref, NULL);
53 if (!capabilities_sent)
54 show_ref("capabilities^{}", null_sha1, 0, NULL);
58 struct command {
59 struct command *next;
60 const char *error_string;
61 unsigned char old_sha1[20];
62 unsigned char new_sha1[20];
63 char ref_name[FLEX_ARRAY]; /* more */
66 static struct command *commands;
68 static char update_hook[] = "hooks/update";
70 static int run_update_hook(const char *refname,
71 char *old_hex, char *new_hex)
73 int code;
75 if (access(update_hook, X_OK) < 0)
76 return 0;
77 code = run_command(update_hook, refname, old_hex, new_hex, NULL);
78 switch (code) {
79 case 0:
80 return 0;
81 case -ERR_RUN_COMMAND_FORK:
82 return error("hook fork failed");
83 case -ERR_RUN_COMMAND_EXEC:
84 return error("hook execute failed");
85 case -ERR_RUN_COMMAND_WAITPID:
86 return error("waitpid failed");
87 case -ERR_RUN_COMMAND_WAITPID_WRONG_PID:
88 return error("waitpid is confused");
89 case -ERR_RUN_COMMAND_WAITPID_SIGNAL:
90 return error("%s died of signal", update_hook);
91 case -ERR_RUN_COMMAND_WAITPID_NOEXIT:
92 return error("%s died strangely", update_hook);
93 default:
94 error("%s exited with error code %d", update_hook, -code);
95 return -code;
99 static int update(struct command *cmd)
101 const char *name = cmd->ref_name;
102 unsigned char *old_sha1 = cmd->old_sha1;
103 unsigned char *new_sha1 = cmd->new_sha1;
104 char new_hex[41], old_hex[41];
105 struct ref_lock *lock;
107 cmd->error_string = NULL;
108 if (!strncmp(name, "refs/", 5) && check_ref_format(name + 5)) {
109 cmd->error_string = "funny refname";
110 return error("refusing to create funny ref '%s' locally",
111 name);
114 strcpy(new_hex, sha1_to_hex(new_sha1));
115 strcpy(old_hex, sha1_to_hex(old_sha1));
117 if (!is_null_sha1(new_sha1) && !has_sha1_file(new_sha1)) {
118 cmd->error_string = "bad pack";
119 return error("unpack should have generated %s, "
120 "but I can't find it!", new_hex);
122 if (deny_non_fast_forwards && !is_null_sha1(new_sha1) &&
123 !is_null_sha1(old_sha1)) {
124 struct commit *old_commit, *new_commit;
125 struct commit_list *bases, *ent;
127 old_commit = (struct commit *)parse_object(old_sha1);
128 new_commit = (struct commit *)parse_object(new_sha1);
129 bases = get_merge_bases(old_commit, new_commit, 1);
130 for (ent = bases; ent; ent = ent->next)
131 if (!hashcmp(old_sha1, ent->item->object.sha1))
132 break;
133 free_commit_list(bases);
134 if (!ent)
135 return error("denying non-fast forward;"
136 " you should pull first");
138 if (run_update_hook(name, old_hex, new_hex)) {
139 cmd->error_string = "hook declined";
140 return error("hook declined to update %s", name);
143 if (is_null_sha1(new_sha1)) {
144 if (delete_ref(name, old_sha1)) {
145 cmd->error_string = "failed to delete";
146 return error("failed to delete %s", name);
148 fprintf(stderr, "%s: %s -> deleted\n", name, old_hex);
150 else {
151 lock = lock_any_ref_for_update(name, old_sha1);
152 if (!lock) {
153 cmd->error_string = "failed to lock";
154 return error("failed to lock %s", name);
156 write_ref_sha1(lock, new_sha1, "push");
157 fprintf(stderr, "%s: %s -> %s\n", name, old_hex, new_hex);
159 return 0;
162 static char update_post_hook[] = "hooks/post-update";
164 static void run_update_post_hook(struct command *cmd)
166 struct command *cmd_p;
167 int argc;
168 const char **argv;
170 if (access(update_post_hook, X_OK) < 0)
171 return;
172 for (argc = 1, cmd_p = cmd; cmd_p; cmd_p = cmd_p->next) {
173 if (cmd_p->error_string)
174 continue;
175 argc++;
177 argv = xmalloc(sizeof(*argv) * (1 + argc));
178 argv[0] = update_post_hook;
180 for (argc = 1, cmd_p = cmd; cmd_p; cmd_p = cmd_p->next) {
181 char *p;
182 if (cmd_p->error_string)
183 continue;
184 p = xmalloc(strlen(cmd_p->ref_name) + 1);
185 strcpy(p, cmd_p->ref_name);
186 argv[argc] = p;
187 argc++;
189 argv[argc] = NULL;
190 run_command_v_opt(argc, argv, RUN_COMMAND_NO_STDIO);
194 * This gets called after(if) we've successfully
195 * unpacked the data payload.
197 static void execute_commands(void)
199 struct command *cmd = commands;
201 while (cmd) {
202 update(cmd);
203 cmd = cmd->next;
205 run_update_post_hook(commands);
208 static void read_head_info(void)
210 struct command **p = &commands;
211 for (;;) {
212 static char line[1000];
213 unsigned char old_sha1[20], new_sha1[20];
214 struct command *cmd;
215 char *refname;
216 int len, reflen;
218 len = packet_read_line(0, line, sizeof(line));
219 if (!len)
220 break;
221 if (line[len-1] == '\n')
222 line[--len] = 0;
223 if (len < 83 ||
224 line[40] != ' ' ||
225 line[81] != ' ' ||
226 get_sha1_hex(line, old_sha1) ||
227 get_sha1_hex(line + 41, new_sha1))
228 die("protocol error: expected old/new/ref, got '%s'",
229 line);
231 refname = line + 82;
232 reflen = strlen(refname);
233 if (reflen + 82 < len) {
234 if (strstr(refname + reflen + 1, "report-status"))
235 report_status = 1;
237 cmd = xmalloc(sizeof(struct command) + len - 80);
238 hashcpy(cmd->old_sha1, old_sha1);
239 hashcpy(cmd->new_sha1, new_sha1);
240 memcpy(cmd->ref_name, line + 82, len - 81);
241 cmd->error_string = "n/a (unpacker error)";
242 cmd->next = NULL;
243 *p = cmd;
244 p = &cmd->next;
248 static const char *parse_pack_header(struct pack_header *hdr)
250 char *c = (char*)hdr;
251 ssize_t remaining = sizeof(struct pack_header);
252 do {
253 ssize_t r = xread(0, c, remaining);
254 if (r <= 0)
255 return "eof before pack header was fully read";
256 remaining -= r;
257 c += r;
258 } while (remaining > 0);
259 if (hdr->hdr_signature != htonl(PACK_SIGNATURE))
260 return "protocol error (pack signature mismatch detected)";
261 if (!pack_version_ok(hdr->hdr_version))
262 return "protocol error (pack version unsupported)";
263 return NULL;
266 static const char *pack_lockfile;
268 static const char *unpack(void)
270 struct pack_header hdr;
271 const char *hdr_err;
272 char hdr_arg[38];
274 hdr_err = parse_pack_header(&hdr);
275 if (hdr_err)
276 return hdr_err;
277 snprintf(hdr_arg, sizeof(hdr_arg), "--pack_header=%u,%u",
278 ntohl(hdr.hdr_version), ntohl(hdr.hdr_entries));
280 if (ntohl(hdr.hdr_entries) < unpack_limit) {
281 int code;
282 const char *unpacker[3];
283 unpacker[0] = "unpack-objects";
284 unpacker[1] = hdr_arg;
285 unpacker[2] = NULL;
286 code = run_command_v_opt(1, unpacker, RUN_GIT_CMD);
287 switch (code) {
288 case 0:
289 return NULL;
290 case -ERR_RUN_COMMAND_FORK:
291 return "unpack fork failed";
292 case -ERR_RUN_COMMAND_EXEC:
293 return "unpack execute failed";
294 case -ERR_RUN_COMMAND_WAITPID:
295 return "waitpid failed";
296 case -ERR_RUN_COMMAND_WAITPID_WRONG_PID:
297 return "waitpid is confused";
298 case -ERR_RUN_COMMAND_WAITPID_SIGNAL:
299 return "unpacker died of signal";
300 case -ERR_RUN_COMMAND_WAITPID_NOEXIT:
301 return "unpacker died strangely";
302 default:
303 return "unpacker exited with error code";
305 } else {
306 const char *keeper[6];
307 int fd[2], s, len, status;
308 pid_t pid;
309 char keep_arg[256];
310 char packname[46];
312 s = sprintf(keep_arg, "--keep=receive-pack %i on ", getpid());
313 if (gethostname(keep_arg + s, sizeof(keep_arg) - s))
314 strcpy(keep_arg + s, "localhost");
316 keeper[0] = "index-pack";
317 keeper[1] = "--stdin";
318 keeper[2] = "--fix-thin";
319 keeper[3] = hdr_arg;
320 keeper[4] = keep_arg;
321 keeper[5] = NULL;
323 if (pipe(fd) < 0)
324 return "index-pack pipe failed";
325 pid = fork();
326 if (pid < 0)
327 return "index-pack fork failed";
328 if (!pid) {
329 dup2(fd[1], 1);
330 close(fd[1]);
331 close(fd[0]);
332 execv_git_cmd(keeper);
333 die("execv of index-pack failed");
335 close(fd[1]);
338 * The first thing we expects from index-pack's output
339 * is "pack\t%40s\n" or "keep\t%40s\n" (46 bytes) where
340 * %40s is the newly created pack SHA1 name. In the "keep"
341 * case, we need it to remove the corresponding .keep file
342 * later on. If we don't get that then tough luck with it.
344 for (len = 0;
345 len < 46 && (s = xread(fd[0], packname+len, 46-len)) > 0;
346 len += s);
347 close(fd[0]);
348 if (len == 46 && packname[45] == '\n' &&
349 memcmp(packname, "keep\t", 5) == 0) {
350 char path[PATH_MAX];
351 packname[45] = 0;
352 snprintf(path, sizeof(path), "%s/pack/pack-%s.keep",
353 get_object_directory(), packname + 5);
354 pack_lockfile = xstrdup(path);
357 /* Then wrap our index-pack process. */
358 while (waitpid(pid, &status, 0) < 0)
359 if (errno != EINTR)
360 return "waitpid failed";
361 if (WIFEXITED(status)) {
362 int code = WEXITSTATUS(status);
363 if (code)
364 return "index-pack exited with error code";
365 reprepare_packed_git();
366 return NULL;
368 return "index-pack abnormal exit";
372 static void report(const char *unpack_status)
374 struct command *cmd;
375 packet_write(1, "unpack %s\n",
376 unpack_status ? unpack_status : "ok");
377 for (cmd = commands; cmd; cmd = cmd->next) {
378 if (!cmd->error_string)
379 packet_write(1, "ok %s\n",
380 cmd->ref_name);
381 else
382 packet_write(1, "ng %s %s\n",
383 cmd->ref_name, cmd->error_string);
385 packet_flush(1);
388 static int delete_only(struct command *cmd)
390 while (cmd) {
391 if (!is_null_sha1(cmd->new_sha1))
392 return 0;
393 cmd = cmd->next;
395 return 1;
398 int main(int argc, char **argv)
400 int i;
401 char *dir = NULL;
403 argv++;
404 for (i = 1; i < argc; i++) {
405 char *arg = *argv++;
407 if (*arg == '-') {
408 /* Do flag handling here */
409 usage(receive_pack_usage);
411 if (dir)
412 usage(receive_pack_usage);
413 dir = arg;
415 if (!dir)
416 usage(receive_pack_usage);
418 if (!enter_repo(dir, 0))
419 die("'%s': unable to chdir or not a git archive", dir);
421 setup_ident();
422 git_config(receive_pack_config);
424 write_head_info();
426 /* EOF */
427 packet_flush(1);
429 read_head_info();
430 if (commands) {
431 const char *unpack_status = NULL;
433 if (!delete_only(commands))
434 unpack_status = unpack();
435 if (!unpack_status)
436 execute_commands();
437 if (pack_lockfile)
438 unlink(pack_lockfile);
439 if (report_status)
440 report(unpack_status);
442 return 0;