1 /*
2  * Copyright (c) 2019 Stefan Sperling <stsp@openbsd.org>
3  *
4  * Permission to use, copy, modify, and distribute this software for any
5  * purpose with or without fee is hereby granted, provided that the above
6  * copyright notice and this permission notice appear in all copies.
7  *
8  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
9  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
10  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
11  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
12  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
13  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
14  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
15  */
16 
17 #include <sys/types.h>
18 #include <sys/stat.h>
19 #include <sys/queue.h>
20 
21 #include <fcntl.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <stdint.h>
26 #include <sha1.h>
27 #include <unistd.h>
28 #include <zlib.h>
29 
30 #include "got_error.h"
31 #include "got_object.h"
32 #include "got_repository.h"
33 #include "got_opentemp.h"
34 
35 #include "got_lib_sha1.h"
36 #include "got_lib_deflate.h"
37 #include "got_lib_delta.h"
38 #include "got_lib_object.h"
39 #include "got_lib_lockfile.h"
40 #include "got_lib_path.h"
41 
42 #ifndef nitems
43 #define nitems(_a) (sizeof(_a) / sizeof((_a)[0]))
44 #endif
45 
46 const struct got_error *
47 got_object_blob_create(struct got_object_id **id, struct got_repository *repo,
48     const char *ondisk_path)
49 {
50 	const struct got_error *err = NULL, *unlock_err = NULL;
51 	char *header = NULL, *objpath = NULL, *outpath = NULL;
52 	FILE *blobfile = NULL, *outfile = NULL;
53 	int fd = -1;
54 	struct stat sb;
55 	SHA1_CTX sha1_ctx;
56 	uint8_t digest[SHA1_DIGEST_LENGTH];
57 	struct got_lockfile *lf = NULL;
58 	size_t outlen = 0, headerlen = 0;
59 
60 	*id = NULL;
61 
62 	SHA1Init(&sha1_ctx);
63 
64 	fd = open(ondisk_path, O_RDONLY | O_NOFOLLOW);
65 	if (fd == -1)
66 		return got_error_from_errno();
67 
68 	if (fstat(fd, &sb) == -1) {
69 		err = got_error_from_errno();
70 		goto done;
71 	}
72 
73 	if (asprintf(&header, "%s %lld", GOT_OBJ_LABEL_BLOB,
74 		sb.st_size) == -1) {
75 		err = got_error_from_errno();
76 		goto done;
77 	}
78 	headerlen = strlen(header) + 1;
79 	SHA1Update(&sha1_ctx, header, headerlen);
80 
81 	blobfile = got_opentemp();
82 	if (blobfile == NULL) {
83 		err = got_error_from_errno();
84 		goto done;
85 	}
86 
87 	outlen = fwrite(header, 1, headerlen, blobfile);
88 	if (outlen != headerlen) {
89 		err = got_ferror(blobfile, GOT_ERR_IO);
90 		goto done;
91 	}
92 	while (1) {
93 		char buf[8192];
94 		ssize_t inlen;
95 		size_t outlen;
96 
97 		inlen = read(fd, buf, sizeof(buf));
98 		if (inlen == -1) {
99 			err = got_error_from_errno();
100 			goto done;
101 		}
102 		if (inlen == 0)
103 			break; /* EOF */
104 		SHA1Update(&sha1_ctx, buf, inlen);
105 		outlen = fwrite(buf, 1, inlen, blobfile);
106 		if (outlen != inlen) {
107 			err = got_ferror(blobfile, GOT_ERR_IO);
108 			goto done;
109 		}
110 	}
111 
112 	SHA1Final(digest, &sha1_ctx);
113 	*id = malloc(sizeof(**id));
114 	if (*id == NULL) {
115 		err = got_error_from_errno();
116 		goto done;
117 	}
118 	memcpy((*id)->sha1, digest, SHA1_DIGEST_LENGTH);
119 
120 	if (fflush(blobfile) != 0) {
121 		err = got_error_from_errno();
122 		goto done;
123 	}
124 	rewind(blobfile);
125 
126 	err = got_object_get_path(&objpath, *id, repo);
127 	if (err)
128 		goto done;
129 
130 	err = got_opentemp_named(&outpath, &outfile, objpath);
131 	if (err)
132 		goto done;
133 
134 	err = got_deflate_to_file(&outlen, blobfile, outfile);
135 	if (err)
136 		goto done;
137 
138 	err = got_lockfile_lock(&lf, objpath);
139 	if (err)
140 		goto done;
141 
142 	if (rename(outpath, objpath) != 0) {
143 		err = got_error_from_errno();
144 		goto done;
145 	}
146 	free(outpath);
147 	outpath = NULL;
148 
149 	if (chmod(objpath, GOT_DEFAULT_FILE_MODE) != 0) {
150 		err = got_error_from_errno();
151 		goto done;
152 	}
153 done:
154 	free(header);
155 	free(objpath);
156 	if (outpath) {
157 		if (unlink(outpath) != 0 && err == NULL)
158 			err = got_error_from_errno();
159 		free(outpath);
160 	}
161 	if (fd != -1 && close(fd) != 0 && err == NULL)
162 		err = got_error_from_errno();
163 	if (blobfile && fclose(blobfile) != 0 && err == NULL)
164 		err = got_error_from_errno();
165 	if (outfile && fclose(outfile) != 0 && err == NULL)
166 		err = got_error_from_errno();
167 	if (err) {
168 		free(*id);
169 		*id = NULL;
170 	}
171 	if (lf)
172 		unlock_err = got_lockfile_unlock(lf);
173 	return err ? err : unlock_err;
174 }