1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21
22 /*
23 * Copyright 2006 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27 #include <stdio.h>
28 #include <sys/param.h>
29 #include <fcntl.h>
30 #include <stdlib.h>
31 #include <strings.h>
32 #include <errno.h>
33 #include <dirent.h>
34 #include <sys/stat.h>
35
36 #include "list.h"
37 #include "protodir.h"
38 #include "arch.h"
39 #include "exception_list.h"
40
41 #define FS " \t\n"
42
43 static char *
resolve_relative(const char * source,const char * link)44 resolve_relative(const char *source, const char *link)
45 {
46 char *p;
47 char *l_next;
48 char *l_pos;
49 static char curpath[MAXPATHLEN];
50
51 /* if absolute path - no relocation required */
52 if (link[0] == '/')
53 return (strcpy(curpath, link));
54
55 (void) strcpy(curpath, source);
56 p = rindex(curpath, '/');
57 *p = '\0';
58 l_pos = (char *)link;
59 do {
60 l_next = index(l_pos, '/');
61 if (strncmp(l_pos, "../", 3) == 0) {
62 if ((p = rindex(curpath, '/')) != NULL)
63 *p = '\0';
64 else
65 curpath[0] = '\0';
66 } else if (strncmp(l_pos, "./", 2)) {
67 /* if not . then we process */
68 if (curpath[0])
69 (void) strcat(curpath, "/");
70 if (l_next) {
71 (void) strncat(curpath, l_pos,
72 (l_next - l_pos));
73 } else
74 (void) strcat(curpath, l_pos);
75 }
76 l_pos = l_next + 1;
77 } while (l_next);
78
79 return (curpath);
80 }
81
82
83 static int
parse_proto_line(const char * basedir,char * line,elem_list * list,short arch,const char * pkgname)84 parse_proto_line(const char *basedir, char *line, elem_list *list, short arch,
85 const char *pkgname)
86 {
87 char *type, *class, *file, *src, *maj, *min, *perm, *owner, *group;
88 char p_line[BUFSIZ];
89 elem *dup;
90 static elem *e = NULL;
91
92 (void) strcpy(p_line, line);
93 if (!e)
94 e = (elem *)calloc(1, sizeof (elem));
95
96 e->flag = 0;
97
98 if (!(type = strtok(p_line, FS))) {
99 (void) fprintf(stderr, "error: bad line(type) : %s\n", line);
100 return (-1);
101 }
102
103 e->file_type = type[0];
104
105 if ((class = strtok(NULL, FS)) == NULL) {
106 (void) fprintf(stderr, "error: bad line(class) : %s\n", line);
107 return (-1);
108 }
109
110 /*
111 * Just ignore 'legacy' entries. These are not present in the proto
112 * area at all. They're phantoms.
113 */
114 if (strcmp(class, "legacy") == 0)
115 return (0);
116
117 if (!(file = strtok(NULL, FS))) {
118 (void) fprintf(stderr, "error: bad line(file_name) : %s\n",
119 line);
120 return (-1);
121 }
122
123 e->symsrc = NULL;
124 if ((src = index(file, '=')) != NULL) {
125 /*
126 * The '=' operator is subtly different for link and non-link
127 * entries. For the hard or soft link case, the left hand side
128 * exists in the proto area and is created by the package.
129 *
130 * When the file is an editable file, it's very likely that the
131 * right hand side is only a fragment of that file, which is
132 * delivered by multiple packages in the consolidation. Thus it
133 * can't exist in the proto area, and because we can't really
134 * know where the file's root directory is, we should skip the
135 * file.
136 *
137 * For all other filetypes, assume the right hand side is in the
138 * proto area.
139 */
140 if (e->file_type == SYM_LINK_T || e->file_type == LINK_T) {
141 *src++ = '\0';
142 e->symsrc = strdup(src);
143 } else if (e->file_type == EDIT_T) {
144 return (0);
145 } else {
146 file = src + 1;
147 }
148 }
149
150 /*
151 * if a basedir has a value, prepend it to the filename
152 */
153 if (basedir[0])
154 (void) strcat(strcat(strcpy(e->name, basedir), "/"), file);
155 else
156 (void) strcpy(e->name, file);
157
158 if (e->file_type != SYM_LINK_T) {
159 if ((e->file_type == CHAR_DEV_T) ||
160 (e->file_type == BLOCK_DEV_T)) {
161 if (!(maj = strtok(NULL, FS))) {
162 (void) fprintf(stderr,
163 "error: bad line(major number) : %s\n",
164 line);
165 return (-1);
166 }
167 e->major = atoi(maj);
168
169 if (!(min = strtok(NULL, FS))) {
170 (void) fprintf(stderr,
171 "error: bad line(minor number) : %s\n",
172 line);
173 return (-1);
174 }
175 e->minor = atoi(min);
176 } else {
177 e->major = -1;
178 e->minor = -1;
179 }
180
181 if (!(perm = strtok(NULL, FS))) {
182 (void) fprintf(stderr,
183 "error: bad line(permission) : %s\n", line);
184 return (-1);
185 }
186 e->perm = strtol(perm, NULL, 8);
187
188 if (!(owner = strtok(NULL, FS))) {
189 (void) fprintf(stderr,
190 "error: bad line(owner) : %s\n", line);
191 return (-1);
192 }
193 (void) strcpy(e->owner, owner);
194
195 if (!(group = strtok(NULL, FS))) {
196 (void) fprintf(stderr,
197 "error: bad line(group) : %s\n", line);
198 return (-1);
199 }
200 (void) strcpy(e->group, group);
201 }
202
203 e->inode = 0;
204 e->ref_cnt = 1;
205 e->arch = arch;
206 e->link_parent = NULL;
207
208 if (!(dup = find_elem(list, e, FOLLOW_LINK))) {
209 e->pkgs = add_pkg(NULL, pkgname); /* init pkgs list */
210 add_elem(list, e);
211 e = NULL;
212 return (1);
213 } else if (dup->file_type == DIR_T) {
214 if (!(dup->pkgs = add_pkg(dup->pkgs, pkgname))) {
215 /* add entry to pkgs */
216 (void) fprintf(stderr,
217 "warning: %s: Duplicate entry for %s\n",
218 pkgname, dup->name);
219 return (-1);
220 }
221 if (e->perm != dup->perm) {
222 (void) fprintf(stderr,
223 "warning: %s: permissions %#o of %s do not match "
224 "previous permissions %#o\n",
225 pkgname, e->perm, dup->name, dup->perm);
226 }
227 if (strcmp(e->owner, dup->owner) != 0) {
228 (void) fprintf(stderr,
229 "warning: %s: owner \"%s\" of %s does not match "
230 "previous owner \"%s\"\n",
231 pkgname, e->owner, dup->name, dup->owner);
232 }
233 if (strcmp(e->group, dup->group) != 0) {
234 (void) fprintf(stderr,
235 "warning: %s: group \"%s\" of %s does not match "
236 "previous group \"%s\"\n",
237 pkgname, e->group, dup->name, dup->group);
238 }
239 } else {
240 /*
241 * Signal an error only if this is something that's not on the
242 * exception list.
243 */
244 (void) strcpy(e->name, file);
245 if (find_elem(&exception_list, e, FOLLOW_LINK) == NULL) {
246 (void) fprintf(stderr,
247 "warning: %s: duplicate entry for %s - ignored\n",
248 pkgname, e->name);
249 return (-1);
250 }
251 }
252
253 return (0);
254 }
255
256 static int
parse_proto_link(const char * basedir,char * line,elem_list * list,short arch,const char * pkgname)257 parse_proto_link(const char *basedir, char *line, elem_list *list, short arch,
258 const char *pkgname)
259 {
260 char *type, *file, *src;
261 char p_line[BUFSIZ];
262 elem *p, *dup;
263 elem key;
264 static elem *e = NULL;
265
266
267 (void) strcpy(p_line, line);
268 if (!e)
269 e = (elem *)calloc(1, sizeof (elem));
270
271 e->flag = 0;
272 type = strtok(p_line, FS);
273 e->arch = arch;
274
275 e->file_type = type[0];
276 (void) strtok(NULL, FS); /* burn class */
277
278 file = strtok(NULL, FS);
279 if ((src = index(file, '=')) != NULL) {
280 *src++ = '\0';
281 e->symsrc = strdup(src);
282 } else {
283 (void) fprintf(stderr,
284 "error: %s: hard link does not have destination (%s)\n",
285 pkgname, file);
286 return (0);
287 }
288
289 /*
290 * if a basedir has a value, prepend it to the filename
291 */
292 if (basedir[0])
293 (void) strcat(strcat(strcpy(e->name, basedir), "/"), file);
294 else
295 (void) strcpy(e->name, file);
296
297 /*
298 * now we need to find the file that we link to - to do this
299 * we build a key.
300 */
301
302 src = resolve_relative(e->name, e->symsrc);
303 (void) strcpy(key.name, src);
304 key.arch = e->arch;
305 if ((p = find_elem(list, &key, NO_FOLLOW_LINK)) == NULL) {
306 (void) fprintf(stderr,
307 "error: %s: hardlink to non-existent file: %s=%s\n",
308 pkgname, e->name, e->symsrc);
309 return (0);
310 }
311 if ((p->file_type == SYM_LINK_T) || (p->file_type == LINK_T)) {
312 (void) fprintf(stderr,
313 "error: %s: hardlink must link to a file or directory "
314 "(not other links): %s=%s\n", pkgname, e->name, p->name);
315 return (0);
316 }
317 e->link_parent = p;
318 e->link_sib = p->link_sib;
319 p->link_sib = e;
320 p->ref_cnt++;
321 e->inode = p->inode;
322 e->perm = p->perm;
323 e->ref_cnt = p->ref_cnt;
324 e->major = p->major;
325 e->minor = p->minor;
326 (void) strcpy(e->owner, p->owner);
327 (void) strcpy(e->group, p->owner);
328
329 if (!(dup = find_elem(list, e, NO_FOLLOW_LINK))) {
330 e->pkgs = add_pkg(NULL, pkgname); /* init pkgs list */
331 e->link_sib = NULL;
332 add_elem(list, e);
333 e = NULL;
334 return (1);
335 } else {
336 /*
337 * Signal an error only if this is something that's not on the
338 * exception list.
339 */
340 (void) strcpy(e->name, file);
341 if (find_elem(&exception_list, e, FOLLOW_LINK) == NULL) {
342 (void) fprintf(stderr,
343 "warning: %s: duplicate entry for %s - ignored\n",
344 pkgname, e->name);
345 return (-1);
346 }
347 }
348
349 return (0);
350 }
351
352
353 /*
354 * open up the pkginfo file and find the ARCH= and the BASEDIR= macros.
355 * I will set the arch and basedir variables based on these fields.
356 */
357 static void
read_pkginfo(const char * protodir,short * arch,char * basedir)358 read_pkginfo(const char *protodir, short *arch, char *basedir)
359 {
360 char pkginfofile[MAXPATHLEN];
361 char architecture[MAXPATHLEN];
362 char buf[BUFSIZ];
363 FILE *pkginfo_fp;
364 int hits = 0;
365 int i;
366 int index;
367
368
369 architecture[0] = '\0';
370 basedir[0] = '\0';
371 *arch = P_ISA;
372
373 /*
374 * determine whether the pkginfo file is a pkginfo.tmpl or
375 * a pkginfo file
376 */
377 (void) strcat(strcat(strcpy(pkginfofile, protodir), "/"),
378 "pkginfo.tmpl");
379
380 if ((pkginfo_fp = fopen(pkginfofile, "r")) == NULL) {
381 (void) strcat(strcat(strcpy(pkginfofile, protodir), "/"),
382 "pkginfo");
383 if ((pkginfo_fp = fopen(pkginfofile, "r")) == NULL) {
384 perror(pkginfofile);
385 return;
386 }
387 }
388
389
390 while (fgets(buf, BUFSIZ, pkginfo_fp) && (hits != 3)) {
391 if (strncmp(buf, "ARCH=", 5) == 0) {
392 index = 0;
393 /*
394 * remove any '"' in the ARCH field.
395 */
396 for (i = 5; buf[i]; i++) {
397 if (buf[i] != '"')
398 architecture[index++] = buf[i];
399 }
400 /* -1 because above copy included '\n' */
401 architecture[index-1] = '\0';
402 hits += 1;
403 } else if (strncmp(buf, "BASEDIR=", 8) == 0) {
404 index = 0;
405 /*
406 * remove any '"' in the BASEDIR field, and
407 * strip off a leading '/' if present.
408 */
409 for (i = 8; buf[i]; i++) {
410 if (buf[i] != '"' &&
411 (buf[i] != '/' || index != 0)) {
412 buf[index++] = buf[i];
413 }
414 }
415 /* -1 because above copy included '\n' */
416 buf[index-1] = '\0';
417 (void) strcpy(basedir, &buf[0]);
418 hits += 2;
419 }
420 }
421 (void) fclose(pkginfo_fp);
422
423 if (architecture[0])
424 if ((*arch = assign_arch(architecture)) == 0) {
425 (void) fprintf(stderr,
426 "warning: Unknown architecture %s found in %s\n",
427 architecture, pkginfofile);
428 }
429 }
430
431 /*
432 * The first pass through the prototype file goes through and reads
433 * in all the entries except 'hard links'. Those must be processed
434 * in a second pass.
435 *
436 * If any !includes are found in the prototype file this routine
437 * will be called recursively.
438 *
439 * Args:
440 * protofile - full pathname to prototype file to be processed.
441 * protodir - directory in which prototype file resides.
442 * list - list to which elements will be added
443 * arch - architecture of current prototype
444 * basedir - basedir for package
445 * pkgname - name of package
446 *
447 * Returns:
448 * returns number of items added to list.
449 *
450 */
451 static int
first_pass_prototype(const char * protofile,const char * protodir,elem_list * list,short arch,const char * basedir,const char * pkgname)452 first_pass_prototype(const char *protofile, const char *protodir,
453 elem_list *list, short arch, const char *basedir, const char *pkgname)
454 {
455 int elem_count = 0;
456 FILE *proto_fp;
457 char include_file[MAXPATHLEN];
458 char buf[BUFSIZ];
459
460 if ((proto_fp = fopen(protofile, "r")) == NULL) {
461 perror(protofile);
462 return (0);
463 }
464
465 /*
466 * first pass through file - process everything but
467 * hard links.
468 */
469 while (fgets(buf, BUFSIZ, proto_fp)) {
470 int rc;
471
472 switch (buf[0]) {
473 case FILE_T:
474 case EDIT_T:
475 case VOLATILE_T:
476 case DIR_T:
477 case SYM_LINK_T:
478 case CHAR_DEV_T:
479 case BLOCK_DEV_T:
480 if ((rc = parse_proto_line(basedir, buf, list, arch,
481 pkgname)) >= 0) {
482 elem_count += rc;
483 } else {
484 (void) fprintf(stderr,
485 "error: Errors found in %s\n", protofile);
486 }
487 break;
488 case LINK_T:
489 case 'i':
490 case '#':
491 case '\n':
492 break;
493 case '!':
494 /* Is this an include statement - if so process */
495 if (strncmp(buf, "!include", 8) == 0) {
496 char *inc_file = (char *)(buf + 9);
497
498 /* burn white space */
499 while ((*inc_file == ' ') ||
500 (*inc_file == '\t'))
501 inc_file++;
502 if (*inc_file) {
503 /* remove trailing \n */
504 inc_file[strlen(inc_file) - 1] = '\0';
505 (void) strcat(strcat(strcpy(
506 include_file, protodir), "/"),
507 inc_file);
508 elem_count +=
509 first_pass_prototype(include_file,
510 protodir, list, arch, basedir,
511 pkgname);
512 } else {
513 (void) fprintf(stderr,
514 "warning: bad !include statement "
515 "in prototype %s : %s\n",
516 protofile, buf);
517 }
518 } else {
519 (void) fprintf(stderr,
520 "warning: unexpected ! notation in "
521 "prototype %s : %s\n", protofile, buf);
522
523 }
524 break;
525 default:
526 (void) fprintf(stderr,
527 "warning: unexpected line in prototype %s : %s\n",
528 protofile, buf);
529 break;
530 }
531 }
532
533 (void) fclose(proto_fp);
534
535 return (elem_count);
536 }
537
538 /*
539 * The second pass through the prototype file goes through and reads
540 * and processes only the 'hard links' in the prototype file. These
541 * are resolved and added accordingly to the elements list(list).
542 *
543 * If any !includes are found in the prototype file this routine
544 * will be called recursively.
545 *
546 * Args:
547 * protofile - full pathname to prototype file to be processed.
548 * protodir - directory in which prototype file resides.
549 * list - list to which elements will be added
550 * arch - architecture of current prototype
551 * basedir - basedir for package
552 * pkgname - package name
553 *
554 * Returns:
555 * returns number of items added to list.
556 *
557 */
558 static int
second_pass_prototype(const char * protofile,const char * protodir,elem_list * list,short arch,const char * basedir,const char * pkgname)559 second_pass_prototype(const char *protofile, const char *protodir,
560 elem_list *list, short arch, const char *basedir, const char *pkgname)
561 {
562 FILE *proto_fp;
563 int elem_count = 0;
564 char include_file[MAXPATHLEN];
565 char buf[BUFSIZ];
566
567 if ((proto_fp = fopen(protofile, "r")) == NULL) {
568 perror(protofile);
569 return (0);
570 }
571
572 /*
573 * second pass through prototype file - process the hard links
574 * now.
575 */
576 while (fgets(buf, BUFSIZ, proto_fp))
577 if (buf[0] == LINK_T) {
578 int rc;
579
580 if ((rc = parse_proto_link(basedir, buf, list, arch,
581 pkgname)) >= 0) {
582 elem_count += rc;
583 } else {
584 (void) fprintf(stderr,
585 "error: Errors found in %s\n", protofile);
586 }
587 } else if (strncmp(buf, "!include", 8) == 0) {
588 /*
589 * This is a file to include
590 */
591 char *inc_file = (char *)(buf + 9);
592
593 /* burn white space */
594 while ((*inc_file == ' ') || (*inc_file == '\t'))
595 inc_file++;
596
597 if (*inc_file) {
598 /* remove trailing \n */
599 inc_file[strlen(inc_file) - 1] = '\0';
600 /* build up include file name to be opened. */
601 (void) strcat(strcat(strcpy(include_file,
602 protodir), "/"), inc_file);
603 /*
604 * recursively call this routine to process the
605 * !include file.
606 */
607 elem_count +=
608 second_pass_prototype(include_file,
609 protodir, list, arch, basedir, pkgname);
610 } else {
611 (void) fprintf(stderr,
612 "warning: Bad !include statement in "
613 "prototype %s : %s\n", protofile, buf);
614 }
615 }
616
617 (void) fclose(proto_fp);
618
619 return (elem_count);
620 }
621
622 /*
623 * Args:
624 * pkgname - name of package being processed
625 * protodir - pathname to package defs directory
626 * list - List of elements read in, elements are added to this
627 * as they are read in.
628 * verbose - verbose output
629 *
630 * Returns:
631 * number of elements added to list
632 */
633 int
process_package_dir(const char * pkgname,const char * protodir,elem_list * list,int verbose)634 process_package_dir(const char *pkgname, const char *protodir,
635 elem_list *list, int verbose)
636 {
637 struct stat st_buf;
638 char protofile[MAXPATHLEN];
639 char basedir[MAXPATHLEN];
640 short arch;
641 int count = 0;
642
643
644 /*
645 * skip any packages we've already handled (because of
646 * dependencies)
647 */
648 if (processed_package(pkgname)) {
649 return (0);
650 }
651
652 /*
653 * find the prototype file. Legal forms of the name are:
654 * prototype
655 * prototype_<mach> (where mach == (sparc || i386 || ppc)
656 */
657 (void) strcat(strcat(strcpy(protofile, protodir), "/"), "prototype");
658 if (stat(protofile, &st_buf) < 0) {
659 if (errno == ENOENT) {
660 (void) strcat(strcat(strcat(strcpy(protofile,
661 protodir), "/"), "prototype"), PROTO_EXT);
662 if (stat(protofile, &st_buf) < 0) {
663 if (errno == ENOENT) {
664 if (verbose) {
665 (void) fprintf(stderr,
666 "warning: no prototype "
667 "file found in %s, "
668 "skipping...\n",
669 protodir);
670 }
671 } else
672 perror(protofile);
673 return (0);
674 }
675 } else {
676 perror(protofile);
677 return (0);
678 }
679 }
680
681 mark_processed(pkgname);
682
683 read_pkginfo(protodir, &arch, basedir);
684
685 count += first_pass_prototype(protofile, protodir, list, arch,
686 basedir, pkgname);
687 count += second_pass_prototype(protofile, protodir, list, arch,
688 basedir, pkgname);
689
690 /* print_list(list); */
691 return (count);
692 }
693
694 int
read_in_protodir(const char * dir_name,elem_list * list,int verbose)695 read_in_protodir(const char *dir_name, elem_list *list, int verbose)
696 {
697 DIR *p_dir;
698 struct dirent *dp;
699 char protodir[MAXPATHLEN];
700 struct stat st_buf;
701 int count = 0;
702
703 if ((p_dir = opendir(dir_name)) == NULL) {
704 perror(dir_name);
705 exit(1);
706 }
707
708 list->type = PROTODIR_LIST;
709
710 while ((dp = readdir(p_dir)) != NULL) {
711 /*
712 * let's not check "." and ".." - I don't really like this
713 * but I wasn't really sure you could be sure that they
714 * are always the first two entries in the directory
715 * structure - so I put it in the loop.
716 *
717 * Also - we skip all directories that are names .del-*.
718 * and any SCCS directories too.
719 */
720 if ((strcmp(dp->d_name, ".") == 0) ||
721 (strcmp(dp->d_name, "..") == 0) ||
722 (strncmp(dp->d_name, ".del-", 5) == 0) ||
723 (strcmp(dp->d_name, "SCCS") == 0))
724 continue;
725
726 (void) strcat(strcat(strcpy(protodir, dir_name), "/"),
727 dp->d_name);
728 if (stat(protodir, &st_buf) < 0) {
729 perror(protodir);
730 continue;
731 }
732 if (!S_ISDIR(st_buf.st_mode)) {
733 if (verbose) {
734 (void) fprintf(stderr,
735 "warning: %s not a directory\n", protodir);
736 }
737 continue;
738 }
739
740 count += process_dependencies(dp->d_name, dir_name, list,
741 verbose);
742
743 count += process_package_dir(dp->d_name, protodir, list,
744 verbose);
745 }
746
747 if (verbose)
748 (void) printf("read in %d lines\n", count);
749
750 (void) closedir(p_dir);
751
752 return (count);
753 }
754