1327Sjkh/* 2228990Suqs * FreeBSD install - a package for the installation and maintenance 3327Sjkh * of non-core utilities. 4327Sjkh * 5327Sjkh * Redistribution and use in source and binary forms, with or without 6327Sjkh * modification, are permitted provided that the following conditions 7327Sjkh * are met: 8327Sjkh * 1. Redistributions of source code must retain the above copyright 9327Sjkh * notice, this list of conditions and the following disclaimer. 10327Sjkh * 2. Redistributions in binary form must reproduce the above copyright 11327Sjkh * notice, this list of conditions and the following disclaimer in the 12327Sjkh * documentation and/or other materials provided with the distribution. 13327Sjkh * 14327Sjkh * Jordan K. Hubbard 15327Sjkh * 18 July 1993 16327Sjkh * 17327Sjkh * General packing list routines. 18327Sjkh * 19327Sjkh */ 20327Sjkh 2193520Sobrien#include <sys/cdefs.h> 2293520Sobrien__FBSDID("$FreeBSD: releng/10.2/usr.sbin/pkg_install/lib/plist.c 240682 2012-09-18 22:09:23Z bapt $"); 2393520Sobrien 24327Sjkh#include "lib.h" 2530221Scharnier#include <err.h> 2617338Sjkh#include <md5.h> 27327Sjkh 28327Sjkh/* Add an item to a packing list */ 29327Sjkhvoid 3084745Ssobomaxadd_plist(Package *p, plist_t type, const char *arg) 31327Sjkh{ 32327Sjkh PackingList tmp; 33327Sjkh 34327Sjkh tmp = new_plist_entry(); 35327Sjkh tmp->name = copy_string(arg); 36327Sjkh tmp->type = type; 37327Sjkh 38327Sjkh if (!p->head) 39327Sjkh p->head = p->tail = tmp; 40327Sjkh else { 41327Sjkh tmp->prev = p->tail; 42327Sjkh p->tail->next = tmp; 43327Sjkh p->tail = tmp; 44327Sjkh } 4596030Ssobomax switch (type) { 4696030Ssobomax case PLIST_NAME: 4796030Ssobomax p->name = tmp->name; 4896030Ssobomax break; 4996030Ssobomax 5096030Ssobomax case PLIST_ORIGIN: 5196030Ssobomax p->origin = tmp->name; 5296030Ssobomax break; 5396030Ssobomax 5496030Ssobomax default: 5596030Ssobomax break; 5696030Ssobomax } 57327Sjkh} 58327Sjkh 59379Sjkhvoid 6084745Ssobomaxadd_plist_top(Package *p, plist_t type, const char *arg) 61379Sjkh{ 62379Sjkh PackingList tmp; 63379Sjkh 64379Sjkh tmp = new_plist_entry(); 65379Sjkh tmp->name = copy_string(arg); 66379Sjkh tmp->type = type; 67379Sjkh 68379Sjkh if (!p->head) 69379Sjkh p->head = p->tail = tmp; 70379Sjkh else { 71379Sjkh tmp->next = p->head; 72379Sjkh p->head->prev = tmp; 73379Sjkh p->head = tmp; 74379Sjkh } 75379Sjkh} 76379Sjkh 77327Sjkh/* Return the last (most recent) entry in a packing list */ 78327SjkhPackingList 79327Sjkhlast_plist(Package *p) 80327Sjkh{ 81327Sjkh return p->tail; 82327Sjkh} 83327Sjkh 84327Sjkh/* Mark all items in a packing list to prevent iteration over them */ 85327Sjkhvoid 86327Sjkhmark_plist(Package *pkg) 87327Sjkh{ 88327Sjkh PackingList p = pkg->head; 89327Sjkh 90327Sjkh while (p) { 91327Sjkh p->marked = TRUE; 92327Sjkh p = p->next; 93327Sjkh } 94327Sjkh} 95327Sjkh 961547Sjkh/* Find a given item in a packing list and, if so, return it (else NULL) */ 971547SjkhPackingList 981547Sjkhfind_plist(Package *pkg, plist_t type) 99379Sjkh{ 100379Sjkh PackingList p = pkg->head; 101379Sjkh 102379Sjkh while (p) { 103379Sjkh if (p->type == type) 1041547Sjkh return p; 105379Sjkh p = p->next; 106379Sjkh } 1071547Sjkh return NULL; 108379Sjkh} 1098857Srgrimes 1107996Sjkh/* Look for a specific boolean option argument in the list */ 1117996Sjkhchar * 11284745Ssobomaxfind_plist_option(Package *pkg, const char *name) 1137996Sjkh{ 1147996Sjkh PackingList p = pkg->head; 1157996Sjkh 1167996Sjkh while (p) { 1177996Sjkh if (p->type == PLIST_OPTION && !strcmp(p->name, name)) 1187996Sjkh return p->name; 1197996Sjkh p = p->next; 1207996Sjkh } 1217996Sjkh return NULL; 1227996Sjkh} 1237996Sjkh 124383Sjkh/* 125383Sjkh * Delete plist item 'type' in the list (if 'name' is non-null, match it 126229655Suqs * too.) If 'all' is set, delete all items, not just the first occurrence. 127383Sjkh */ 128383Sjkhvoid 12984745Ssobomaxdelete_plist(Package *pkg, Boolean all, plist_t type, const char *name) 130383Sjkh{ 131383Sjkh PackingList p = pkg->head; 132383Sjkh 133383Sjkh while (p) { 134383Sjkh PackingList pnext = p->next; 135383Sjkh 136383Sjkh if (p->type == type && (!name || !strcmp(name, p->name))) { 137383Sjkh free(p->name); 138383Sjkh if (p->prev) 139383Sjkh p->prev->next = pnext; 140383Sjkh else 141383Sjkh pkg->head = pnext; 142383Sjkh if (pnext) 143383Sjkh pnext->prev = p->prev; 144383Sjkh else 145383Sjkh pkg->tail = p->prev; 146383Sjkh free(p); 147383Sjkh if (!all) 148383Sjkh return; 149383Sjkh p = pnext; 150383Sjkh } 151383Sjkh else 152383Sjkh p = p->next; 153383Sjkh } 154383Sjkh} 1558857Srgrimes 156327Sjkh/* Allocate a new packing list entry */ 157327SjkhPackingList 158327Sjkhnew_plist_entry(void) 159327Sjkh{ 160327Sjkh PackingList ret; 161327Sjkh 162327Sjkh ret = (PackingList)malloc(sizeof(struct _plist)); 163327Sjkh bzero(ret, sizeof(struct _plist)); 164327Sjkh return ret; 165327Sjkh} 166327Sjkh 167327Sjkh/* Free an entire packing list */ 168327Sjkhvoid 169327Sjkhfree_plist(Package *pkg) 170327Sjkh{ 171327Sjkh PackingList p = pkg->head; 172327Sjkh 173327Sjkh while (p) { 174327Sjkh PackingList p1 = p->next; 175327Sjkh 176327Sjkh free(p->name); 177327Sjkh free(p); 178327Sjkh p = p1; 179327Sjkh } 180327Sjkh pkg->head = pkg->tail = NULL; 181327Sjkh} 182327Sjkh 183327Sjkh/* 184327Sjkh * For an ascii string denoting a plist command, return its code and 185327Sjkh * optionally its argument(s) 186327Sjkh */ 187327Sjkhint 18884745Ssobomaxplist_cmd(const char *s, char **arg) 189327Sjkh{ 190327Sjkh char cmd[FILENAME_MAX + 20]; /* 20 == fudge for max cmd len */ 19184745Ssobomax char *cp; 19284745Ssobomax const char *sp; 193327Sjkh 194327Sjkh strcpy(cmd, s); 195327Sjkh str_lowercase(cmd); 196327Sjkh cp = cmd; 197327Sjkh sp = s; 198327Sjkh while (*cp) { 199327Sjkh if (isspace(*cp)) { 200327Sjkh *cp = '\0'; 201327Sjkh while (isspace(*sp)) /* Never sure if macro, increment later */ 202327Sjkh ++sp; 203327Sjkh break; 204327Sjkh } 205327Sjkh ++cp, ++sp; 206327Sjkh } 207327Sjkh if (arg) 208132789Skan *arg = (char *)sp; 209327Sjkh if (!strcmp(cmd, "cwd")) 210327Sjkh return PLIST_CWD; 2112331Sjkh else if (!strcmp(cmd, "srcdir")) 2122331Sjkh return PLIST_SRC; 213379Sjkh else if (!strcmp(cmd, "cd")) 214379Sjkh return PLIST_CWD; 215327Sjkh else if (!strcmp(cmd, "exec")) 216327Sjkh return PLIST_CMD; 217479Sjkh else if (!strcmp(cmd, "unexec")) 218479Sjkh return PLIST_UNEXEC; 219327Sjkh else if (!strcmp(cmd, "mode")) 220327Sjkh return PLIST_CHMOD; 221327Sjkh else if (!strcmp(cmd, "owner")) 222327Sjkh return PLIST_CHOWN; 223327Sjkh else if (!strcmp(cmd, "group")) 224327Sjkh return PLIST_CHGRP; 225147381Skrion else if (!strcmp(cmd, "noinst")) 226147381Skrion return PLIST_NOINST; 22796030Ssobomax else if (!strcmp(cmd, "comment")) { 22896030Ssobomax if (!strncmp(*arg, "ORIGIN:", 7)) { 22996030Ssobomax *arg += 7; 23096030Ssobomax return PLIST_ORIGIN; 23196076Ssobomax } else if (!strncmp(*arg, "DEPORIGIN:", 10)) { 23296076Ssobomax *arg += 10; 23396076Ssobomax return PLIST_DEPORIGIN; 23496030Ssobomax } 235327Sjkh return PLIST_COMMENT; 23696030Ssobomax } else if (!strcmp(cmd, "ignore")) 237327Sjkh return PLIST_IGNORE; 2384996Sjkh else if (!strcmp(cmd, "ignore_inst")) 2394996Sjkh return PLIST_IGNORE_INST; 240327Sjkh else if (!strcmp(cmd, "name")) 241327Sjkh return PLIST_NAME; 2424996Sjkh else if (!strcmp(cmd, "display")) 2434996Sjkh return PLIST_DISPLAY; 2444996Sjkh else if (!strcmp(cmd, "pkgdep")) 2454996Sjkh return PLIST_PKGDEP; 246113594Skris else if (!strcmp(cmd, "conflicts")) 247113594Skris return PLIST_CONFLICTS; 2484996Sjkh else if (!strcmp(cmd, "mtree")) 2494996Sjkh return PLIST_MTREE; 2504996Sjkh else if (!strcmp(cmd, "dirrm")) 2514996Sjkh return PLIST_DIR_RM; 2527996Sjkh else if (!strcmp(cmd, "option")) 2537996Sjkh return PLIST_OPTION; 254327Sjkh else 255327Sjkh return FAIL; 256327Sjkh} 257327Sjkh 258327Sjkh/* Read a packing list from a file */ 259327Sjkhvoid 260327Sjkhread_plist(Package *pkg, FILE *fp) 261327Sjkh{ 262327Sjkh char *cp, pline[FILENAME_MAX]; 26384750Ssobomax int cmd, major, minor; 264327Sjkh 26584750Ssobomax pkg->fmtver_maj = 1; 26684750Ssobomax pkg->fmtver_mnr = 0; 267101740Ssobomax pkg->origin = NULL; 268327Sjkh while (fgets(pline, FILENAME_MAX, fp)) { 26917338Sjkh int len = strlen(pline); 270327Sjkh 27117338Sjkh while (len && isspace(pline[len - 1])) 27217338Sjkh pline[--len] = '\0'; 27317338Sjkh if (!len) 274327Sjkh continue; 275327Sjkh cp = pline; 27684750Ssobomax if (pline[0] != CMD_CHAR) { 27784750Ssobomax cmd = PLIST_FILE; 27884750Ssobomax goto bottom; 27984750Ssobomax } 28084750Ssobomax cmd = plist_cmd(pline + 1, &cp); 28184750Ssobomax if (cmd == FAIL) { 282102732Skris warnx("%s: unknown command '%s' (package tools out of date?)", 283102732Skris __func__, pline); 284102732Skris goto bottom; 28584750Ssobomax } 28684750Ssobomax if (*cp == '\0') { 28784750Ssobomax cp = NULL; 288192382Sflz if (cmd == PLIST_PKGDEP) { 289235276Sbeat warnx("corrupted record for package %s (pkgdep line without " 290235276Sbeat "argument), ignoring", pkg->name); 291192382Sflz cmd = FAIL; 292192382Sflz } 29384750Ssobomax goto bottom; 29484750Ssobomax } 29584750Ssobomax if (cmd == PLIST_COMMENT && sscanf(cp, "PKG_FORMAT_REVISION:%d.%d\n", 29684750Ssobomax &major, &minor) == 2) { 29784750Ssobomax pkg->fmtver_maj = major; 29884750Ssobomax pkg->fmtver_mnr = minor; 29984750Ssobomax if (verscmp(pkg, PLIST_FMT_VER_MAJOR, PLIST_FMT_VER_MINOR) <= 0) 30084750Ssobomax goto bottom; 30184750Ssobomax 30284750Ssobomax warnx("plist format revision (%d.%d) is higher than supported" 30384750Ssobomax "(%d.%d)", pkg->fmtver_maj, pkg->fmtver_mnr, 30484750Ssobomax PLIST_FMT_VER_MAJOR, PLIST_FMT_VER_MINOR); 30584750Ssobomax if (pkg->fmtver_maj > PLIST_FMT_VER_MAJOR) { 30639068Sjkh cleanup(0); 30784750Ssobomax exit(2); 30839068Sjkh } 309327Sjkh } 31084750Ssobomaxbottom: 311327Sjkh add_plist(pkg, cmd, cp); 312327Sjkh } 313327Sjkh} 314327Sjkh 315327Sjkh/* Write a packing list to a file, converting commands to ascii equivs */ 316327Sjkhvoid 317327Sjkhwrite_plist(Package *pkg, FILE *fp) 318327Sjkh{ 319327Sjkh PackingList plist = pkg->head; 320327Sjkh 321327Sjkh while (plist) { 322327Sjkh switch(plist->type) { 323327Sjkh case PLIST_FILE: 324327Sjkh fprintf(fp, "%s\n", plist->name); 325327Sjkh break; 326327Sjkh 327327Sjkh case PLIST_CWD: 328154102Skrion fprintf(fp, "%ccwd %s\n", CMD_CHAR, (plist->name == NULL) ? "" : plist->name); 329327Sjkh break; 330327Sjkh 3312331Sjkh case PLIST_SRC: 3322331Sjkh fprintf(fp, "%csrcdir %s\n", CMD_CHAR, plist->name); 3332331Sjkh break; 3342331Sjkh 335327Sjkh case PLIST_CMD: 336327Sjkh fprintf(fp, "%cexec %s\n", CMD_CHAR, plist->name); 337327Sjkh break; 338327Sjkh 339479Sjkh case PLIST_UNEXEC: 340479Sjkh fprintf(fp, "%cunexec %s\n", CMD_CHAR, plist->name); 341479Sjkh break; 342479Sjkh 343327Sjkh case PLIST_CHMOD: 34412219Sjkh fprintf(fp, "%cmode %s\n", CMD_CHAR, plist->name ? plist->name : ""); 345327Sjkh break; 346327Sjkh 347327Sjkh case PLIST_CHOWN: 34812219Sjkh fprintf(fp, "%cowner %s\n", CMD_CHAR, plist->name ? plist->name : ""); 349327Sjkh break; 350327Sjkh 351327Sjkh case PLIST_CHGRP: 35212219Sjkh fprintf(fp, "%cgroup %s\n", CMD_CHAR, plist->name ? plist->name : ""); 353327Sjkh break; 354327Sjkh 355327Sjkh case PLIST_COMMENT: 356327Sjkh fprintf(fp, "%ccomment %s\n", CMD_CHAR, plist->name); 357327Sjkh break; 358327Sjkh 359147381Skrion case PLIST_NOINST: 360147381Skrion fprintf(fp, "%cnoinst %s\n", CMD_CHAR, plist->name); 361147381Skrion break; 362147381Skrion 363327Sjkh case PLIST_IGNORE: 3644996Sjkh case PLIST_IGNORE_INST: /* a one-time non-ignored file */ 365327Sjkh fprintf(fp, "%cignore\n", CMD_CHAR); 366327Sjkh break; 367327Sjkh 368327Sjkh case PLIST_NAME: 369327Sjkh fprintf(fp, "%cname %s\n", CMD_CHAR, plist->name); 370327Sjkh break; 371327Sjkh 3724996Sjkh case PLIST_DISPLAY: 3734996Sjkh fprintf(fp, "%cdisplay %s\n", CMD_CHAR, plist->name); 3744996Sjkh break; 3754996Sjkh 3764996Sjkh case PLIST_PKGDEP: 3774996Sjkh fprintf(fp, "%cpkgdep %s\n", CMD_CHAR, plist->name); 3784996Sjkh break; 3794996Sjkh 380113594Skris case PLIST_CONFLICTS: 381113594Skris fprintf(fp, "%cconflicts %s\n", CMD_CHAR, plist->name); 382113594Skris break; 383113594Skris 3844996Sjkh case PLIST_MTREE: 3854996Sjkh fprintf(fp, "%cmtree %s\n", CMD_CHAR, plist->name); 3864996Sjkh break; 3874996Sjkh 3884996Sjkh case PLIST_DIR_RM: 3894996Sjkh fprintf(fp, "%cdirrm %s\n", CMD_CHAR, plist->name); 3904996Sjkh break; 3914996Sjkh 3927996Sjkh case PLIST_OPTION: 3937996Sjkh fprintf(fp, "%coption %s\n", CMD_CHAR, plist->name); 3947996Sjkh break; 3957996Sjkh 39696065Ssobomax case PLIST_ORIGIN: 39796065Ssobomax fprintf(fp, "%ccomment ORIGIN:%s\n", CMD_CHAR, plist->name); 39896065Ssobomax break; 39996065Ssobomax 40096076Ssobomax case PLIST_DEPORIGIN: 40196076Ssobomax fprintf(fp, "%ccomment DEPORIGIN:%s\n", CMD_CHAR, plist->name); 40296076Ssobomax break; 40396076Ssobomax 404327Sjkh default: 40530221Scharnier cleanup(0); 40696392Salfred errx(2, "%s: unknown command type %d (%s)", __func__, 40796388Salfred plist->type, plist->name); 408327Sjkh break; 409327Sjkh } 410327Sjkh plist = plist->next; 411327Sjkh } 412327Sjkh} 413327Sjkh 4147996Sjkh/* 4157996Sjkh * Delete the results of a package installation. 4167996Sjkh * 4177996Sjkh * This is here rather than in the pkg_delete code because pkg_add needs to 4187996Sjkh * run it too in cases of failure. 4197996Sjkh */ 4203198Sjkhint 4214996Sjkhdelete_package(Boolean ign_err, Boolean nukedirs, Package *pkg) 422327Sjkh{ 42317338Sjkh PackingList p; 42484745Ssobomax const char *Where = ".", *last_file = ""; 4253198Sjkh Boolean fail = SUCCESS; 42627056Sjkh Boolean preserve; 42727056Sjkh char tmp[FILENAME_MAX], *name = NULL; 428154102Skrion char *prefix = NULL; 429327Sjkh 43027056Sjkh preserve = find_plist_option(pkg, "preserve") ? TRUE : FALSE; 43117338Sjkh for (p = pkg->head; p; p = p->next) { 43217338Sjkh switch (p->type) { 43327056Sjkh case PLIST_NAME: 43427056Sjkh name = p->name; 43527056Sjkh break; 43627056Sjkh 43717338Sjkh case PLIST_IGNORE: 43817338Sjkh p = p->next; 43917338Sjkh break; 44017338Sjkh 44117338Sjkh case PLIST_CWD: 442154102Skrion if (!prefix) 443154102Skrion prefix = p->name; 444154102Skrion Where = (p->name == NULL) ? prefix : p->name; 445327Sjkh if (Verbose) 4469743Sache printf("Change working directory to %s\n", Where); 44717338Sjkh break; 448479Sjkh 44917338Sjkh case PLIST_UNEXEC: 450108778Sjkh format_cmd(tmp, FILENAME_MAX, p->name, Where, last_file); 451479Sjkh if (Verbose) 45281046Ssobomax printf("Execute '%s'\n", tmp); 45317338Sjkh if (!Fake && system(tmp)) { 45481046Ssobomax warnx("unexec command for '%s' failed", tmp); 4553198Sjkh fail = FAIL; 4563198Sjkh } 45717338Sjkh break; 458327Sjkh 45917338Sjkh case PLIST_FILE: 46027092Sjkh last_file = p->name; 461240682Sbapt if (*p->name == '/') 462240682Sbapt strlcpy(tmp, p->name, FILENAME_MAX); 463240682Sbapt else 464240682Sbapt sprintf(tmp, "%s/%s", Where, p->name); 46566021Ssobomax if (isdir(tmp) && fexists(tmp) && !issymlink(tmp)) { 46681046Ssobomax warnx("cannot delete specified file '%s' - it is a directory!\n" 46730221Scharnier "this packing list is incorrect - ignoring delete request", tmp); 46812219Sjkh } 46912219Sjkh else { 47017338Sjkh if (p->next && p->next->type == PLIST_COMMENT && !strncmp(p->next->name, "MD5:", 4)) { 47184750Ssobomax char *cp = NULL, buf[33]; 47217338Sjkh 47384750Ssobomax /* 47484750Ssobomax * For packing lists whose version is 1.1 or greater, the md5 47584750Ssobomax * hash for a symlink is calculated on the string returned 47684750Ssobomax * by readlink(). 47784750Ssobomax */ 47884750Ssobomax if (issymlink(tmp) && verscmp(pkg, 1, 0) > 0) { 47984750Ssobomax int len; 48084750Ssobomax char linkbuf[FILENAME_MAX]; 48184750Ssobomax 48284750Ssobomax if ((len = readlink(tmp, linkbuf, FILENAME_MAX)) > 0) 48384750Ssobomax cp = MD5Data((unsigned char *)linkbuf, len, buf); 48484750Ssobomax } else if (isfile(tmp) || verscmp(pkg, 1, 1) < 0) 48584750Ssobomax cp = MD5File(tmp, buf); 48684750Ssobomax 48784750Ssobomax if (cp != NULL) { 48817338Sjkh /* Mismatch? */ 48917338Sjkh if (strcmp(cp, p->next->name + 4)) { 49081046Ssobomax warnx("'%s' fails original MD5 checksum - %s", 491167972Snjl tmp, Force ? "deleted anyway." : "not deleted."); 49217338Sjkh if (!Force) { 49317338Sjkh fail = FAIL; 49417338Sjkh continue; 49517338Sjkh } 49617338Sjkh } 49717338Sjkh } 49817338Sjkh } 49912219Sjkh if (Verbose) 50017338Sjkh printf("Delete file %s\n", tmp); 50127092Sjkh if (!Fake) { 50229032Sjkh if (delete_hierarchy(tmp, ign_err, nukedirs)) 50327092Sjkh fail = FAIL; 50427137Sjkh if (preserve && name) { 50527137Sjkh char tmp2[FILENAME_MAX]; 50627092Sjkh 50727137Sjkh if (make_preserve_name(tmp2, FILENAME_MAX, name, tmp)) { 50827092Sjkh if (fexists(tmp2)) { 50927092Sjkh if (rename(tmp2, tmp)) 51030221Scharnier warn("preserve: unable to restore %s as %s", 51130221Scharnier tmp2, tmp); 51227092Sjkh } 51327056Sjkh } 51427056Sjkh } 51527056Sjkh } 5163198Sjkh } 51717338Sjkh break; 51817338Sjkh 51917338Sjkh case PLIST_DIR_RM: 52017338Sjkh sprintf(tmp, "%s/%s", Where, p->name); 52138723Sjkh if (!isdir(tmp) && fexists(tmp)) { 52281046Ssobomax warnx("cannot delete specified directory '%s' - it is a file!\n" 52330221Scharnier "this packing list is incorrect - ignoring delete request", tmp); 52417338Sjkh } 52517338Sjkh else { 52617338Sjkh if (Verbose) 52717338Sjkh printf("Delete directory %s\n", tmp); 52817338Sjkh if (!Fake && delete_hierarchy(tmp, ign_err, FALSE)) { 52930221Scharnier warnx("unable to completely remove directory '%s'", tmp); 53017338Sjkh fail = FAIL; 53117338Sjkh } 53217338Sjkh } 53317338Sjkh last_file = p->name; 53417338Sjkh break; 53571373Ssobomax 53671373Ssobomax default: 53771373Ssobomax break; 538327Sjkh } 539327Sjkh } 5403198Sjkh return fail; 541327Sjkh} 542327Sjkh 5434996Sjkh#ifdef DEBUG 5444996Sjkh#define RMDIR(dir) vsystem("%s %s", RMDIR_CMD, dir) 5454996Sjkh#define REMOVE(dir,ie) vsystem("%s %s%s", REMOVE_CMD, (ie ? "-f " : ""), dir) 5464996Sjkh#else 5474996Sjkh#define RMDIR rmdir 5487989Sjkh#define REMOVE(file,ie) (remove(file) && !(ie)) 5494996Sjkh#endif 5504996Sjkh 551327Sjkh/* Selectively delete a hierarchy */ 552327Sjkhint 55384745Ssobomaxdelete_hierarchy(const char *dir, Boolean ign_err, Boolean nukedirs) 554327Sjkh{ 555186835Sflz char *cp1, *cp2; 5568857Srgrimes 557186835Sflz cp1 = cp2 = strdup(dir); 558206132Sflz if (!fexists(dir) && !issymlink(dir)) { 5597989Sjkh if (!ign_err) 560147632Sjmg warnx("%s '%s' doesn't exist", 561186835Sflz isdir(dir) ? "directory" : "file", dir); 562186835Sflz return !ign_err; 56327092Sjkh } 56427092Sjkh else if (nukedirs) { 565186835Sflz if (vsystem("%s -r%s %s", REMOVE_CMD, (ign_err ? "f" : ""), dir)) 566186835Sflz return 1; 56727092Sjkh } 568186835Sflz else if (isdir(dir) && !issymlink(dir)) { 569186835Sflz if (RMDIR(dir) && !ign_err) 570186835Sflz return 1; 57127092Sjkh } 57227092Sjkh else { 573186835Sflz if (REMOVE(dir, ign_err)) 574186835Sflz return 1; 5754996Sjkh } 5764996Sjkh 577186835Sflz if (!nukedirs) 578186835Sflz return 0; 579327Sjkh while (cp2) { 58067429Sjkh if ((cp2 = strrchr(cp1, '/')) != NULL) 581327Sjkh *cp2 = '\0'; 582186835Sflz if (!isemptydir(dir)) 583186835Sflz return 0; 584186835Sflz if (RMDIR(dir) && !ign_err) { 585186835Sflz if (!fexists(dir)) 586186835Sflz warnx("directory '%s' doesn't exist", dir); 587186835Sflz else 588186835Sflz return 1; 58949637Sbillf } 5904996Sjkh /* back up the pathname one component */ 591327Sjkh if (cp2) { 592186835Sflz cp1 = strdup(dir); 593327Sjkh } 594327Sjkh } 595186835Sflz return 0; 596327Sjkh} 597