/* $NetBSD: pl.c,v 1.33 2005/11/05 13:11:02 wiz Exp $ */ #if HAVE_CONFIG_H #include "config.h" #endif #include #if HAVE_SYS_CDEFS_H #include #endif #ifndef lint #if 0 static const char *rcsid = "from FreeBSD Id: pl.c,v 1.11 1997/10/08 07:46:35 charnier Exp"; #else __RCSID("$NetBSD: pl.c,v 1.33 2005/11/05 13:11:02 wiz Exp $"); #endif #endif /* * FreeBSD install - a package for the installation and maintainance * of non-core utilities. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * Jordan K. Hubbard * 18 July 1993 * * Routines for dealing with the packing list. * */ #include "lib.h" #include "create.h" #if HAVE_ERR_H #include #endif #if HAVE_MD5_H #include #endif /* * Check that any symbolic link is relative to the prefix */ static void CheckSymlink(char *name, char *prefix, size_t prefixcc) { char newtgt[MaxPathSize]; char oldtgt[MaxPathSize]; char *slash; int slashc; int cc; int i; if ((cc = readlink(name, oldtgt, sizeof(oldtgt) - 1)) > 0) { oldtgt[cc] = 0; if (strncmp(oldtgt, prefix, prefixcc) == 0 && oldtgt[prefixcc] == '/') { for (slashc = 0, slash = &name[prefixcc + 1]; (slash = strchr(slash, '/')) != (char *) NULL; slash++, slashc++) { } for (cc = i = 0; i < slashc; i++) { strlcpy(&newtgt[cc], "../", sizeof(newtgt) - cc); cc += 3; } strlcpy(&newtgt[cc], &oldtgt[prefixcc + 1], sizeof(newtgt) - cc); (void) fprintf(stderr, "Full pathname symlink `%s' is target of `%s' - adjusting to `%s'\n", oldtgt, name, newtgt); if (unlink(name) != 0) { warn("can't unlink `%s'", name); } else if (symlink(newtgt, name) != 0) { warn("can't symlink `%s' called `%s'", newtgt, name); } } } } /* * (Reversed) comparison routine for directory name sorting */ static int dircmp(const void *vp1, const void *vp2) { return strcmp((const char *) vp2, (const char *) vp1); } /* * Re-order the PLIST_DIR_RM entries into reverse alphabetic order */ static void reorder(package_t *pkg, int dirc) { plist_t *p; char **dirv; int i; if ((dirv = (char **) calloc(dirc, sizeof(char *))) == (char **) NULL) { warn("No directory re-ordering will be done"); } else { for (p = pkg->head, i = 0; p; p = p->next) { if (p->type == PLIST_DIR_RM) { dirv[i++] = p->name; } } qsort(dirv, dirc, sizeof(char *), dircmp); for (p = pkg->head, i = 0; p; p = p->next) { if (p->type == PLIST_DIR_RM) { p->name = dirv[i++]; } } (void) free(dirv); } } /* * Check a list for files that require preconversion */ void check_list(char *home, package_t *pkg, const char *PkgName) { struct stat st; plist_t *tmp; plist_t *p; char buf[ChecksumHeaderLen + LegibleChecksumLen]; char target[MaxPathSize + SymlinkHeaderLen]; char name[MaxPathSize]; char *cwd = home; char *srcdir = NULL; int dirc; int cc; /* Open Package Database for writing */ if (update_pkgdb && !pkgdb_open(ReadWrite)) { cleanup(0); err(EXIT_FAILURE, "can't open pkgdb"); } for (dirc = 0, p = pkg->head; p; p = p->next) { switch (p->type) { case PLIST_CWD: cwd = p->name; break; case PLIST_IGNORE: p = p->next; break; case PLIST_SRC: srcdir = p->name; break; case PLIST_DIR_RM: dirc++; break; case PLIST_FILE: /* * pkgdb handling - usually, we enter files * into the pkgdb as soon as they hit the disk, * but as they are present before pkg_create * starts, it's ok to do this somewhere here */ if (update_pkgdb) { char *s, t[MaxPathSize]; (void) snprintf(t, sizeof(t), "%s%s%s", cwd, (strcmp(cwd, "/") == 0) ? "" : "/", p->name); s = pkgdb_retrieve(t); #ifdef PKGDB_DEBUG fprintf(stderr, "pkgdb_retrieve(\"%s\")=\"%s\"\n", t, s); /* pkgdb-debug - HF */ #endif if (s && PlistOnly) warnx("Overwriting %s - " "pkg %s bogus/conflicting?", t, s); else { pkgdb_store(t, PkgName); #ifdef PKGDB_DEBUG fprintf(stderr, "pkgdb_store(\"%s\", \"%s\")\n", t, PkgName); /* pkgdb-debug - HF */ #endif } } if (cwd == home) { /* no @cwd yet */ (void) snprintf(name, sizeof(name), "%s/%s", srcdir ? srcdir : cwd, p->name); } else { /* after @cwd */ /* prepend DESTDIR if set? - HF */ (void) snprintf(name, sizeof(name), "%s%s%s", cwd, (strcmp(cwd, "/") == 0) ? "" : "/", p->name); } if (lstat(name, &st) < 0) { warnx("can't stat `%s'", name); continue; } switch (st.st_mode & S_IFMT) { case S_IFDIR: p->type = PLIST_DIR_RM; dirc++; continue; case S_IFLNK: if (RelativeLinks) { CheckSymlink(name, cwd, strlen(cwd)); } (void) strlcpy(target, SYMLINK_HEADER, sizeof(target)); if ((cc = readlink(name, &target[SymlinkHeaderLen], sizeof(target) - SymlinkHeaderLen - 1)) < 0) { warnx("can't readlink `%s'", name); continue; } target[SymlinkHeaderLen + cc] = 0x0; tmp = new_plist_entry(); tmp->name = strdup(target); tmp->type = PLIST_COMMENT; tmp->next = p->next; tmp->prev = p; if (p == pkg->tail) { pkg->tail = tmp; } p->next = tmp; p = tmp; break; case S_IFCHR: warnx("Warning - char special device `%s' in PLIST", name); break; case S_IFBLK: warnx("Warning - block special device `%s' in PLIST", name); break; default: (void) strlcpy(buf, CHECKSUM_HEADER, sizeof(buf)); if (MD5File(name, &buf[ChecksumHeaderLen]) != (char *) NULL) { tmp = new_plist_entry(); tmp->name = strdup(buf); tmp->type = PLIST_COMMENT; /* PLIST_MD5 - HF */ tmp->next = p->next; tmp->prev = p; if (p == pkg->tail) { pkg->tail = tmp; } p->next = tmp; p = tmp; } break; } break; default: break; } } if (update_pkgdb) { pkgdb_close(); } if (ReorderDirs && dirc > 0) { reorder(pkg, dirc); } }