1 /* file_util.c - convenience routines for common stat operations
2
3 Copyright (C) 2009 Ubiq Technologies <graham.gower@gmail.com>
4
5 Carl D. Worth
6 Copyright (C) 2001 University of Southern California
7
8 This program is free software; you can redistribute it and/or
9 modify it under the terms of the GNU General Public License as
10 published by the Free Software Foundation; either version 2, or (at
11 your option) any later version.
12
13 This program is distributed in the hope that it will be useful, but
14 WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 General Public License for more details.
17 */
18
19 #include <stdio.h>
20 #include <sys/types.h>
21 #include <sys/stat.h>
22 #include <dirent.h>
23 #include <unistd.h>
24 #include <ctype.h>
25
26 #include "sprintf_alloc.h"
27 #include "file_util.h"
28 #include <libubox/md5.h>
29 #include "libbb/libbb.h"
30
31 #include "sha256.h"
32
file_exists(const char * file_name)33 int file_exists(const char *file_name)
34 {
35 struct stat st;
36
37 if (stat(file_name, &st) == -1)
38 return 0;
39
40 return 1;
41 }
42
file_is_dir(const char * file_name)43 int file_is_dir(const char *file_name)
44 {
45 struct stat st;
46
47 if (stat(file_name, &st) == -1)
48 return 0;
49
50 return S_ISDIR(st.st_mode);
51 }
52
53 /* read a single line from a file, stopping at a newline or EOF.
54 If a newline is read, it will appear in the resulting string.
55 Return value is a malloc'ed char * which should be freed at
56 some point by the caller.
57
58 Return value is NULL if the file is at EOF when called.
59 */
file_read_line_alloc(FILE * fp)60 char *file_read_line_alloc(FILE * fp)
61 {
62 char buf[BUFSIZ];
63 unsigned int buf_len;
64 char *line = NULL;
65 unsigned int line_size = 0;
66 int got_nl = 0;
67
68 buf[0] = '\0';
69
70 while (fgets(buf, BUFSIZ, fp)) {
71 buf_len = strlen(buf);
72 if (buf[buf_len - 1] == '\n') {
73 buf_len--;
74 buf[buf_len] = '\0';
75 got_nl = 1;
76 }
77 if (line) {
78 line_size += buf_len;
79 line = xrealloc(line, line_size + 1);
80 strncat(line, buf, line_size);
81 } else {
82 line_size = buf_len + 1;
83 line = xstrdup(buf);
84 }
85 if (got_nl)
86 break;
87 }
88
89 return line;
90 }
91
file_move(const char * src,const char * dest)92 int file_move(const char *src, const char *dest)
93 {
94 int err;
95
96 err = rename(src, dest);
97 if (err == -1) {
98 if (errno == EXDEV) {
99 /* src & dest live on different file systems */
100 err = file_copy(src, dest);
101 if (err == 0)
102 unlink(src);
103 } else {
104 opkg_perror(ERROR, "Failed to rename %s to %s",
105 src, dest);
106 }
107 }
108
109 return err;
110 }
111
file_copy(const char * src,const char * dest)112 int file_copy(const char *src, const char *dest)
113 {
114 int err;
115
116 err = copy_file(src, dest, FILEUTILS_FORCE | FILEUTILS_PRESERVE_STATUS);
117 if (err)
118 opkg_msg(ERROR, "Failed to copy file %s to %s.\n", src, dest);
119
120 return err;
121 }
122
file_mkdir_hier(const char * path,long mode)123 int file_mkdir_hier(const char *path, long mode)
124 {
125 return make_directory(path, mode, FILEUTILS_RECUR);
126 }
127
128
hex2bin(unsigned char x)129 static int hex2bin(unsigned char x)
130 {
131 if (x >= 'a' && x <= 'f')
132 return x - 'a' + 10;
133 else if (x >= 'A' && x <= 'F')
134 return x - 'A' + 10;
135 else if (x >= '0' && x <= '9')
136 return x - '0';
137 else
138 return 0;
139 }
140
141 static const unsigned char bin2hex[16] = {
142 '0', '1', '2', '3',
143 '4', '5', '6', '7',
144 '8', '9', 'a', 'b',
145 'c', 'd', 'e', 'f'
146 };
147
file_md5sum_alloc(const char * file_name)148 char *file_md5sum_alloc(const char *file_name)
149 {
150 static const int md5sum_bin_len = 16;
151 static const int md5sum_hex_len = 32;
152
153 int i, len;
154 char *md5sum_hex;
155 unsigned char md5sum_bin[md5sum_bin_len];
156
157 len = md5sum(file_name, md5sum_bin);
158
159 if (len) {
160 opkg_msg(ERROR, "Could't compute md5sum for %s.\n", file_name);
161 return NULL;
162 }
163
164 md5sum_hex = xcalloc(1, md5sum_hex_len + 1);
165
166 for (i = 0; i < md5sum_bin_len; i++) {
167 md5sum_hex[i * 2] = bin2hex[md5sum_bin[i] >> 4];
168 md5sum_hex[i * 2 + 1] = bin2hex[md5sum_bin[i] & 0xf];
169 }
170
171 md5sum_hex[md5sum_hex_len] = '\0';
172
173 return md5sum_hex;
174 }
175
file_sha256sum_alloc(const char * file_name)176 char *file_sha256sum_alloc(const char *file_name)
177 {
178 static const int sha256sum_bin_len = 32;
179 static const int sha256sum_hex_len = 64;
180
181 int i, err;
182 FILE *file;
183 char *sha256sum_hex;
184 unsigned char sha256sum_bin[sha256sum_bin_len];
185
186 sha256sum_hex = xcalloc(1, sha256sum_hex_len + 1);
187
188 file = fopen(file_name, "r");
189 if (file == NULL) {
190 opkg_perror(ERROR, "Failed to open file %s", file_name);
191 free(sha256sum_hex);
192 return NULL;
193 }
194
195 err = sha256_stream(file, sha256sum_bin);
196 if (err) {
197 opkg_msg(ERROR, "Could't compute sha256sum for %s.\n",
198 file_name);
199 fclose(file);
200 free(sha256sum_hex);
201 return NULL;
202 }
203
204 fclose(file);
205
206 for (i = 0; i < sha256sum_bin_len; i++) {
207 sha256sum_hex[i * 2] = bin2hex[sha256sum_bin[i] >> 4];
208 sha256sum_hex[i * 2 + 1] = bin2hex[sha256sum_bin[i] & 0xf];
209 }
210
211 sha256sum_hex[sha256sum_hex_len] = '\0';
212
213 return sha256sum_hex;
214 }
215
checksum_bin2hex(const char * src,size_t len)216 char *checksum_bin2hex(const char *src, size_t len)
217 {
218 unsigned char *p;
219 static unsigned char buf[65];
220 const unsigned char *s = (unsigned char *)src;
221 if (!s || len > 32)
222 return NULL;
223
224 for (p = buf; len > 0; s++, len--) {
225 *p++ = bin2hex[*s / 16];
226 *p++ = bin2hex[*s % 16];
227 }
228
229 *p = 0;
230
231 return (char *)buf;
232 }
233
checksum_hex2bin(const char * src,size_t * len)234 char *checksum_hex2bin(const char *src, size_t *len)
235 {
236 size_t slen;
237 unsigned char *p;
238 const unsigned char *s = (unsigned char *)src;
239 static unsigned char buf[32];
240
241 if (!src) {
242 *len = 0;
243 return NULL;
244 }
245
246 while (isspace(*src))
247 src++;
248
249 slen = strlen(src);
250
251 if (slen > 64) {
252 *len = 0;
253 return NULL;
254 }
255
256 for (p = buf, *len = 0;
257 slen > 0 && isxdigit(s[0]) && isxdigit(s[1]);
258 slen--, s += 2, (*len)++)
259 *p++ = hex2bin(s[0]) * 16 + hex2bin(s[1]);
260
261 return (char *)buf;
262 }
263
rm_r(const char * path)264 int rm_r(const char *path)
265 {
266 int ret = 0;
267 DIR *dir;
268 struct dirent *dent;
269
270 if (path == NULL) {
271 opkg_perror(ERROR, "Missing directory parameter");
272 return -1;
273 }
274
275 dir = opendir(path);
276 if (dir == NULL) {
277 opkg_perror(ERROR, "Failed to open dir %s", path);
278 return -1;
279 }
280
281 if (fchdir(dirfd(dir)) == -1) {
282 opkg_perror(ERROR, "Failed to change to dir %s", path);
283 closedir(dir);
284 return -1;
285 }
286
287 while (1) {
288 errno = 0;
289 if ((dent = readdir(dir)) == NULL) {
290 if (errno) {
291 opkg_perror(ERROR, "Failed to read dir %s",
292 path);
293 ret = -1;
294 }
295 break;
296 }
297
298 if (!strcmp(dent->d_name, ".") || !strcmp(dent->d_name, ".."))
299 continue;
300
301 #ifdef _BSD_SOURCE
302 if (dent->d_type == DT_DIR) {
303 if ((ret = rm_r(dent->d_name)) == -1)
304 break;
305 continue;
306 } else if (dent->d_type == DT_UNKNOWN)
307 #endif
308 {
309 struct stat st;
310 if ((ret = lstat(dent->d_name, &st)) == -1) {
311 opkg_perror(ERROR, "Failed to lstat %s",
312 dent->d_name);
313 break;
314 }
315 if (S_ISDIR(st.st_mode)) {
316 if ((ret = rm_r(dent->d_name)) == -1)
317 break;
318 continue;
319 }
320 }
321
322 if ((ret = unlink(dent->d_name)) == -1) {
323 opkg_perror(ERROR, "Failed to unlink %s", dent->d_name);
324 break;
325 }
326 }
327
328 if (chdir("..") == -1) {
329 ret = -1;
330 opkg_perror(ERROR, "Failed to change to dir %s/..", path);
331 }
332
333 if (rmdir(path) == -1) {
334 ret = -1;
335 opkg_perror(ERROR, "Failed to remove dir %s", path);
336 }
337
338 if (closedir(dir) == -1) {
339 ret = -1;
340 opkg_perror(ERROR, "Failed to close dir %s", path);
341 }
342
343 return ret;
344 }
345
urlencode_is_specialchar(char c)346 static int urlencode_is_specialchar(char c)
347 {
348 switch (c) {
349 case ':':
350 case '?':
351 case '#':
352 case '[':
353 case ']':
354 case '@':
355 case '!':
356 case '$':
357 case '&':
358 case '\'':
359 case '(':
360 case ')':
361 case '*':
362 case '+':
363 case ',':
364 case ';':
365 case '=':
366 case '%':
367 return 1;
368
369 default:
370 return 0;
371 }
372 }
373
urlencode_path(const char * filename)374 char *urlencode_path(const char *filename)
375 {
376 size_t len = 0;
377 const unsigned char *in;
378 unsigned char *copy, *out;
379
380 for (in = (unsigned char *)filename; *in != 0; in++)
381 len += urlencode_is_specialchar(*in) ? 3 : 1;
382
383 copy = xcalloc(1, len + 1);
384
385 for (in = (unsigned char *)filename, out = copy; *in != 0; in++) {
386 if (urlencode_is_specialchar(*in)) {
387 *out++ = '%';
388 *out++ = bin2hex[*in / 16];
389 *out++ = bin2hex[*in % 16];
390 }
391 else {
392 *out++ = *in;
393 }
394 }
395
396 return (char *)copy;
397 }
398
urldecode_path(const char * filename)399 char *urldecode_path(const char *filename)
400 {
401 unsigned char *copy = (unsigned char *)xstrdup(filename);
402 unsigned char *in, *out;
403
404 for (in = copy, out = copy; *in != 0; in++) {
405 if (*in == '%' && isxdigit(in[1]) && isxdigit(in[2])) {
406 *out++ = hex2bin(in[1]) * 16 + hex2bin(in[2]);
407 in += 2;
408 }
409 else {
410 *out++ = *in;
411 }
412 }
413
414 *out = 0;
415
416 return (char *)copy;
417 }
418