Magellan Linux

Annotation of /trunk/mkinitrd-magellan/busybox/archival/unzip.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 532 - (hide annotations) (download)
Sat Sep 1 22:45:15 2007 UTC (16 years, 8 months ago) by niro
File MIME type: text/plain
File size: 10397 byte(s)
-import if magellan mkinitrd; it is a fork of redhats mkinitrd-5.0.8 with all magellan patches and features; deprecates magellan-src/mkinitrd

1 niro 532 /* vi: set sw=4 ts=4: */
2     /*
3     * Mini unzip implementation for busybox
4     *
5     * Copyright (C) 2004 by Ed Clark
6     *
7     * Loosely based on original busybox unzip applet by Laurence Anderson.
8     * All options and features should work in this version.
9     *
10     * Licensed under the GPL v2 or later, see the file LICENSE in this tarball.
11     */
12    
13     /* For reference see
14     * http://www.pkware.com/company/standards/appnote/
15     * http://www.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
16     */
17    
18     /* TODO
19     * Endian issues
20     * Zip64 + other methods
21     * Improve handling of zip format, ie.
22     * - deferred CRC, comp. & uncomp. lengths (zip header flags bit 3)
23     * - unix file permissions, etc.
24     * - central directory
25     */
26    
27     #include "busybox.h"
28     #include "unarchive.h"
29    
30     #define ZIP_FILEHEADER_MAGIC SWAP_LE32(0x04034b50)
31     #define ZIP_CDS_MAGIC SWAP_LE32(0x02014b50)
32     #define ZIP_CDS_END_MAGIC SWAP_LE32(0x06054b50)
33     #define ZIP_DD_MAGIC SWAP_LE32(0x08074b50)
34    
35     typedef union {
36     unsigned char raw[26];
37     struct {
38     unsigned short version; /* 0-1 */
39     unsigned short flags; /* 2-3 */
40     unsigned short method; /* 4-5 */
41     unsigned short modtime; /* 6-7 */
42     unsigned short moddate; /* 8-9 */
43     unsigned int crc32 ATTRIBUTE_PACKED; /* 10-13 */
44     unsigned int cmpsize ATTRIBUTE_PACKED; /* 14-17 */
45     unsigned int ucmpsize ATTRIBUTE_PACKED; /* 18-21 */
46     unsigned short filename_len; /* 22-23 */
47     unsigned short extra_len; /* 24-25 */
48     } formatted ATTRIBUTE_PACKED;
49     } zip_header_t;
50    
51     static void unzip_skip(int fd, off_t skip)
52     {
53     if (lseek(fd, skip, SEEK_CUR) == (off_t)-1) {
54     if (errno != ESPIPE)
55     bb_error_msg_and_die("seek failure");
56     bb_copyfd_exact_size(fd, -1, skip);
57     }
58     }
59    
60     static void unzip_create_leading_dirs(char *fn)
61     {
62     /* Create all leading directories */
63     char *name = xstrdup(fn);
64     if (bb_make_directory(dirname(name), 0777, FILEUTILS_RECUR)) {
65     bb_error_msg_and_die("exiting"); /* bb_make_directory is noisy */
66     }
67     free(name);
68     }
69    
70     static int unzip_extract(zip_header_t *zip_header, int src_fd, int dst_fd)
71     {
72     if (zip_header->formatted.method == 0) {
73     /* Method 0 - stored (not compressed) */
74     off_t size = zip_header->formatted.ucmpsize;
75     if (size)
76     bb_copyfd_exact_size(src_fd, dst_fd, size);
77     } else {
78     /* Method 8 - inflate */
79     inflate_unzip_result res;
80     /* err = */ inflate_unzip(&res, zip_header->formatted.cmpsize, src_fd, dst_fd);
81     // we should check for -1 error return
82     /* Validate decompression - crc */
83     if (zip_header->formatted.crc32 != (res.crc ^ 0xffffffffL)) {
84     bb_error_msg("invalid compressed data--%s error", "crc");
85     return 1;
86     }
87     /* Validate decompression - size */
88     if (zip_header->formatted.ucmpsize != res.bytes_out) {
89     bb_error_msg("invalid compressed data--%s error", "length");
90     return 1;
91     }
92     }
93     return 0;
94     }
95    
96     int unzip_main(int argc, char **argv)
97     {
98     zip_header_t zip_header;
99     enum {v_silent, v_normal, v_list} verbosity = v_normal;
100     enum {o_prompt, o_never, o_always} overwrite = o_prompt;
101     unsigned int total_size = 0;
102     unsigned int total_entries = 0;
103     int src_fd = -1, dst_fd = -1;
104     char *src_fn = NULL, *dst_fn = NULL;
105     llist_t *zaccept = NULL;
106     llist_t *zreject = NULL;
107     char *base_dir = NULL;
108     int failed, i, opt, opt_range = 0, list_header_done = 0;
109     char key_buf[512];
110     struct stat stat_buf;
111    
112     while ((opt = getopt(argc, argv, "-d:lnopqx")) != -1) {
113     switch (opt_range) {
114     case 0: /* Options */
115     switch (opt) {
116     case 'l': /* List */
117     verbosity = v_list;
118     break;
119    
120     case 'n': /* Never overwrite existing files */
121     overwrite = o_never;
122     break;
123    
124     case 'o': /* Always overwrite existing files */
125     overwrite = o_always;
126     break;
127    
128     case 'p': /* Extract files to stdout and fall through to set verbosity */
129     dst_fd = STDOUT_FILENO;
130    
131     case 'q': /* Be quiet */
132     verbosity = (verbosity == v_normal) ? v_silent : verbosity;
133     break;
134    
135     case 1 : /* The zip file */
136     src_fn = xstrndup(optarg, strlen(optarg)+4);
137     opt_range++;
138     break;
139    
140     default:
141     bb_show_usage();
142    
143     }
144     break;
145    
146     case 1: /* Include files */
147     if (opt == 1) {
148     llist_add_to(&zaccept, optarg);
149    
150     } else if (opt == 'd') {
151     base_dir = optarg;
152     opt_range += 2;
153    
154     } else if (opt == 'x') {
155     opt_range++;
156    
157     } else {
158     bb_show_usage();
159     }
160     break;
161    
162     case 2 : /* Exclude files */
163     if (opt == 1) {
164     llist_add_to(&zreject, optarg);
165    
166     } else if (opt == 'd') { /* Extract to base directory */
167     base_dir = optarg;
168     opt_range++;
169    
170     } else {
171     bb_show_usage();
172     }
173     break;
174    
175     default:
176     bb_show_usage();
177     }
178     }
179    
180     if (src_fn == NULL) {
181     bb_show_usage();
182     }
183    
184     /* Open input file */
185     if (LONE_DASH(src_fn)) {
186     src_fd = STDIN_FILENO;
187     /* Cannot use prompt mode since zip data is arriving on STDIN */
188     overwrite = (overwrite == o_prompt) ? o_never : overwrite;
189     } else {
190     static const char *const extn[] = {"", ".zip", ".ZIP"};
191     int orig_src_fn_len = strlen(src_fn);
192     for (i = 0; (i < 3) && (src_fd == -1); i++) {
193     strcpy(src_fn + orig_src_fn_len, extn[i]);
194     src_fd = open(src_fn, O_RDONLY);
195     }
196     if (src_fd == -1) {
197     src_fn[orig_src_fn_len] = 0;
198     bb_error_msg_and_die("cannot open %s, %s.zip, %s.ZIP", src_fn, src_fn, src_fn);
199     }
200     }
201    
202     /* Change dir if necessary */
203     if (base_dir)
204     xchdir(base_dir);
205    
206     if (verbosity != v_silent)
207     printf("Archive: %s\n", src_fn);
208    
209     failed = 0;
210    
211     while (1) {
212     unsigned int magic;
213    
214     /* Check magic number */
215     xread(src_fd, &magic, 4);
216     if (magic == ZIP_CDS_MAGIC) {
217     break;
218     } else if (magic != ZIP_FILEHEADER_MAGIC) {
219     bb_error_msg_and_die("invalid zip magic %08X", magic);
220     }
221    
222     /* Read the file header */
223     xread(src_fd, zip_header.raw, 26);
224     zip_header.formatted.version = SWAP_LE32(zip_header.formatted.version);
225     zip_header.formatted.flags = SWAP_LE32(zip_header.formatted.flags);
226     zip_header.formatted.method = SWAP_LE32(zip_header.formatted.method);
227     zip_header.formatted.modtime = SWAP_LE32(zip_header.formatted.modtime);
228     zip_header.formatted.moddate = SWAP_LE32(zip_header.formatted.moddate);
229     zip_header.formatted.crc32 = SWAP_LE32(zip_header.formatted.crc32);
230     zip_header.formatted.cmpsize = SWAP_LE32(zip_header.formatted.cmpsize);
231     zip_header.formatted.ucmpsize = SWAP_LE32(zip_header.formatted.ucmpsize);
232     zip_header.formatted.filename_len = SWAP_LE32(zip_header.formatted.filename_len);
233     zip_header.formatted.extra_len = SWAP_LE32(zip_header.formatted.extra_len);
234     if ((zip_header.formatted.method != 0) && (zip_header.formatted.method != 8)) {
235     bb_error_msg_and_die("unsupported compression method %d", zip_header.formatted.method);
236     }
237    
238     /* Read filename */
239     free(dst_fn);
240     dst_fn = xzalloc(zip_header.formatted.filename_len + 1);
241     xread(src_fd, dst_fn, zip_header.formatted.filename_len);
242    
243     /* Skip extra header bytes */
244     unzip_skip(src_fd, zip_header.formatted.extra_len);
245    
246     if ((verbosity == v_list) && !list_header_done){
247     puts(" Length Date Time Name\n"
248     " -------- ---- ---- ----");
249     list_header_done = 1;
250     }
251    
252     /* Filter zip entries */
253     if (find_list_entry(zreject, dst_fn) ||
254     (zaccept && !find_list_entry(zaccept, dst_fn))) { /* Skip entry */
255     i = 'n';
256    
257     } else { /* Extract entry */
258     total_size += zip_header.formatted.ucmpsize;
259    
260     if (verbosity == v_list) { /* List entry */
261     unsigned int dostime = zip_header.formatted.modtime | (zip_header.formatted.moddate << 16);
262     printf("%9u %02u-%02u-%02u %02u:%02u %s\n",
263     zip_header.formatted.ucmpsize,
264     (dostime & 0x01e00000) >> 21,
265     (dostime & 0x001f0000) >> 16,
266     (((dostime & 0xfe000000) >> 25) + 1980) % 100,
267     (dostime & 0x0000f800) >> 11,
268     (dostime & 0x000007e0) >> 5,
269     dst_fn);
270     total_entries++;
271     i = 'n';
272     } else if (dst_fd == STDOUT_FILENO) { /* Extracting to STDOUT */
273     i = -1;
274     } else if (last_char_is(dst_fn, '/')) { /* Extract directory */
275     if (stat(dst_fn, &stat_buf) == -1) {
276     if (errno != ENOENT) {
277     bb_perror_msg_and_die("cannot stat '%s'",dst_fn);
278     }
279     if (verbosity == v_normal) {
280     printf(" creating: %s\n", dst_fn);
281     }
282     unzip_create_leading_dirs(dst_fn);
283     if (bb_make_directory(dst_fn, 0777, 0)) {
284     bb_error_msg_and_die("exiting");
285     }
286     } else {
287     if (!S_ISDIR(stat_buf.st_mode)) {
288     bb_error_msg_and_die("'%s' exists but is not directory", dst_fn);
289     }
290     }
291     i = 'n';
292    
293     } else { /* Extract file */
294     _check_file:
295     if (stat(dst_fn, &stat_buf) == -1) { /* File does not exist */
296     if (errno != ENOENT) {
297     bb_perror_msg_and_die("cannot stat '%s'",dst_fn);
298     }
299     i = 'y';
300     } else { /* File already exists */
301     if (overwrite == o_never) {
302     i = 'n';
303     } else if (S_ISREG(stat_buf.st_mode)) { /* File is regular file */
304     if (overwrite == o_always) {
305     i = 'y';
306     } else {
307     printf("replace %s? [y]es, [n]o, [A]ll, [N]one, [r]ename: ", dst_fn);
308     if (!fgets(key_buf, 512, stdin)) {
309     bb_perror_msg_and_die("cannot read input");
310     }
311     i = key_buf[0];
312     }
313     } else { /* File is not regular file */
314     bb_error_msg_and_die("'%s' exists but is not regular file",dst_fn);
315     }
316     }
317     }
318     }
319    
320     switch (i) {
321     case 'A':
322     overwrite = o_always;
323     case 'y': /* Open file and fall into unzip */
324     unzip_create_leading_dirs(dst_fn);
325     dst_fd = xopen(dst_fn, O_WRONLY | O_CREAT | O_TRUNC);
326     case -1: /* Unzip */
327     if (verbosity == v_normal) {
328     printf(" inflating: %s\n", dst_fn);
329     }
330     if (unzip_extract(&zip_header, src_fd, dst_fd)) {
331     failed = 1;
332     }
333     if (dst_fd != STDOUT_FILENO) {
334     /* closing STDOUT is potentially bad for future business */
335     close(dst_fd);
336     }
337     break;
338    
339     case 'N':
340     overwrite = o_never;
341     case 'n':
342     /* Skip entry data */
343     unzip_skip(src_fd, zip_header.formatted.cmpsize);
344     break;
345    
346     case 'r':
347     /* Prompt for new name */
348     printf("new name: ");
349     if (!fgets(key_buf, 512, stdin)) {
350     bb_perror_msg_and_die("cannot read input");
351     }
352     free(dst_fn);
353     dst_fn = xstrdup(key_buf);
354     chomp(dst_fn);
355     goto _check_file;
356    
357     default:
358     printf("error: invalid response [%c]\n",(char)i);
359     goto _check_file;
360     }
361    
362     /* Data descriptor section */
363     if (zip_header.formatted.flags & 4) {
364     /* skip over duplicate crc, compressed size and uncompressed size */
365     unzip_skip(src_fd, 12);
366     }
367     }
368    
369     if (verbosity == v_list) {
370     printf(" -------- -------\n"
371     "%9d %d files\n", total_size, total_entries);
372     }
373    
374     return failed;
375     }