/* * dpkg - main program for package management * configure.c - configure packages * * Copyright 1995 Ian Jackson * Copyright 1999,2002 Wichert Akkerman * * This is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as * published by the Free Software Foundation; either version 2, * or (at your option) any later version. * * This is distributed in the hope that it will be useful, but * WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public * License along with dpkg; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "filesdb.h" #include "main.h" int conffoptcells[2][2]= { CONFFOPTCELLS }; static void md5hash(struct pkginfo *pkg, char **hashbuf, const char *fn); static void copyfileperm(const char* source, const char* target); static void showdiff(const char* old, const char* new); static void suspend(void); static enum conffopt promptconfaction(const char* cfgfile, const char* realold, const char* realnew, int useredited, int distedited, enum conffopt what); extern struct pipef *status_pipes; void deferred_configure(struct pkginfo *pkg) { /* The algorithm for deciding what to configure first is as follows: * Loop through all packages doing a `try 1' until we've been round * and nothing has been done, then do `try 2' and `try 3' likewise. * The incrementing of `dependtry' is done by process_queue(). * Try 1: * Are all dependencies of this package done ? If so, do it. * Are any of the dependencies missing or the wrong version ? * If so, abort (unless --force-depends, in which case defer) * Will we need to configure a package we weren't given as an * argument ? If so, abort - except if --force-configure-any, * in which case we add the package to the argument list. * If none of the above, defer the package. * Try 2: * Find a cycle and break it (see above). * Do as for try 1. * Try 3 (only if --force-depends-version). * Same as for try 2, but don't mind version number in dependencies. * Try 4 (only if --force-depends). * Do anyway. */ struct varbuf aemsgs, cdr, cdr2; char *cdr2rest; int ok, r, useredited, distedited; struct conffile *conff; char *currenthash= 0, *newdisthash= 0; struct stat stab; enum conffopt what; static const char *EMPTY_HASH = "-"; if (pkg->status == stat_notinstalled) ohshit(_("no package named `%s' is installed, cannot configure"),pkg->name); if (pkg->status == stat_installed) ohshit(_("package %.250s is already installed and configured"), pkg->name); if (pkg->status != stat_unpacked && pkg->status != stat_halfconfigured) ohshit(_("package %.250s is not ready for configuration\n" " cannot configure (current status `%.250s')"), pkg->name, statusinfos[pkg->status].name); if (dependtry > 1) if (findbreakcycle(pkg)) sincenothing= 0; varbufinit(&aemsgs); ok= dependencies_ok(pkg,0,&aemsgs); if (ok == 1) { varbuffree(&aemsgs); pkg->clientdata->istobe= itb_installnew; add_to_queue(pkg); return; } else if (ok == 0) { sincenothing= 0; varbufaddc(&aemsgs,0); fprintf(stderr, _("dpkg: dependency problems prevent configuration of %s:\n%s"), pkg->name, aemsgs.buf); varbuffree(&aemsgs); ohshit(_("dependency problems - leaving unconfigured")); } else if (aemsgs.used) { varbufaddc(&aemsgs,0); fprintf(stderr, _("dpkg: %s: dependency problems, but configuring anyway as you request:\n%s"), pkg->name, aemsgs.buf); } varbuffree(&aemsgs); sincenothing= 0; if (pkg->eflag & eflagf_reinstreq) forcibleerr(fc_removereinstreq, _("Package is in a very bad inconsistent state - you should\n" " reinstall it before attempting configuration.")); printf(_("Setting up %s (%s) ...\n"),pkg->name, versiondescribe(&pkg->installed.version,vdew_never)); if (f_noact) { pkg->status= stat_installed; pkg->clientdata->istobe= itb_normal; return; } if (pkg->status == stat_unpacked) { debug(dbg_general,"deferred_configure updating conffiles"); /* This will not do at all the right thing with overridden conffiles * or conffiles that are the `target' of an override; all the references * here would be to the `contested' filename, and in any case there'd * only be one hash for both `versions' of the conffile. * * Overriding conffiles is a silly thing to do anyway :-). */ modstatdb_note(pkg); /* On entry, the `new' version of each conffile has been * unpacked as *.dpkg-new, and the `installed' version is * as-yet untouched in `*'. The hash of the `old distributed' * version is in the conffiles data for the package. * If `*.dpkg-new' no longer exists we assume that we've already * processed this one. */ varbufinit(&cdr); varbufinit(&cdr2); for (conff= pkg->installed.conffiles; conff; conff= conff->next) { r= conffderef(pkg, &cdr, conff->name); if (r == -1) { conff->hash= EMPTY_HASH; continue; } md5hash(pkg,¤thash,cdr.buf); varbufreset(&cdr2); varbufaddstr(&cdr2,cdr.buf); cdr2.used+=50; varbufaddc(&cdr2,0); cdr2rest= cdr2.buf+strlen(cdr.buf); /* From now on we can just strcpy(cdr2rest,extension); */ strcpy(cdr2rest,DPKGNEWEXT); /* If the .dpkg-new file is no longer there, ignore this one. */ if (lstat(cdr2.buf,&stab)) { if (errno == ENOENT) continue; ohshite(_("unable to stat new dist conffile `%.250s'"),cdr2.buf); } md5hash(pkg,&newdisthash,cdr2.buf); /* Copy the permissions from the installed version to the new * distributed version. */ if (!stat(cdr.buf,&stab)) copyfileperm(cdr.buf, cdr2.buf); else if (errno != ENOENT) ohshite(_("unable to stat current installed conffile `%.250s'"),cdr.buf); /* Select what the do */ if (!strcmp(currenthash,newdisthash)) { /* They're both the same so there's no point asking silly questions. */ useredited= -1; distedited= -1; what= cfo_identical; } else if (!strcmp(currenthash,NONEXISTENTFLAG) && fc_conff_miss) { fprintf(stderr, _("\nConfiguration file `%s', does not exist on system.\n" "Installing new config file as you request.\n"), conff->name); what= cfo_newconff; useredited= -1; distedited= -1; } else if (!strcmp(conff->hash,NEWCONFFILEFLAG)) { if (!strcmp(currenthash,NONEXISTENTFLAG)) { what= cfo_newconff; useredited= -1; distedited= -1; } else { useredited= 1; distedited= 1; what= conffoptcells[useredited][distedited] | cfof_isnew; } } else { useredited= strcmp(conff->hash,currenthash) != 0; distedited= strcmp(conff->hash,newdisthash) != 0; what= conffoptcells[useredited][distedited]; } debug(dbg_conff, "deferred_configure `%s' (= `%s') useredited=%d distedited=%d what=%o", conff->name, cdr.buf, useredited, distedited, what); what=promptconfaction(conff->name, cdr.buf, cdr2.buf, useredited, distedited, what); switch (what & ~cfof_isnew) { case cfo_keep | cfof_backup: strcpy(cdr2rest,DPKGOLDEXT); if (unlink(cdr2.buf) && errno != ENOENT) fprintf(stderr, _("dpkg: %s: warning - failed to remove old backup `%.250s': %s\n"), pkg->name, cdr2.buf, strerror(errno)); cdr.used--; varbufaddstr(&cdr,DPKGDISTEXT); varbufaddc(&cdr,0); strcpy(cdr2rest,DPKGNEWEXT); if (rename(cdr2.buf,cdr.buf)) fprintf(stderr, _("dpkg: %s: warning - failed to rename `%.250s' to `%.250s': %s\n"), pkg->name, cdr2.buf, cdr.buf, strerror(errno)); break; case cfo_keep: strcpy(cdr2rest,DPKGNEWEXT); if (unlink(cdr2.buf)) fprintf(stderr, _("dpkg: %s: warning - failed to remove `%.250s': %s\n"), pkg->name, cdr2.buf, strerror(errno)); break; case cfo_install | cfof_backup: strcpy(cdr2rest,DPKGDISTEXT); if (unlink(cdr2.buf) && errno != ENOENT) fprintf(stderr, _("dpkg: %s: warning - failed to remove old distrib version `%.250s': %s\n"), pkg->name, cdr2.buf, strerror(errno)); strcpy(cdr2rest,DPKGOLDEXT); if (unlink(cdr2.buf) && errno != ENOENT) fprintf(stderr, _("dpkg: %s: warning - failed to remove `%.250s' (before overwrite): %s\n"), pkg->name, cdr2.buf, strerror(errno)); if (link(cdr.buf,cdr2.buf)) fprintf(stderr, _("dpkg: %s: warning - failed to link `%.250s' to `%.250s': %s\n"), pkg->name, cdr.buf, cdr2.buf, strerror(errno)); /* fall through */ case cfo_install: printf(_("Installing new version of config file %s ...\n"),conff->name); case cfo_newconff: strcpy(cdr2rest,DPKGNEWEXT); if (rename(cdr2.buf,cdr.buf)) ohshite(_("unable to install `%.250s' as `%.250s'"),cdr2.buf,cdr.buf); break; default: internerr("unknown what"); } conff->hash= nfstrsave(newdisthash); modstatdb_note(pkg); free(newdisthash); free(currenthash); } /* for (conff= ... */ varbuffree(&cdr); varbuffree(&cdr2); pkg->status= stat_halfconfigured; } assert(pkg->status == stat_halfconfigured); modstatdb_note(pkg); if (maintainer_script_installed(pkg, POSTINSTFILE, "post-installation", "configure", informativeversion(&pkg->configversion) ? versiondescribe(&pkg->configversion, vdew_nonambig) : "", (char*)0)) putchar('\n'); pkg->status= stat_installed; pkg->eflag= eflagv_ok; modstatdb_note(pkg); } /* Dereference a file by following all possibly used symlinks. * Returns 0 if everything went ok, -1 otherwise. */ int conffderef(struct pkginfo *pkg, struct varbuf *result, const char *in) { static char* linkreadbuf = 0; static int linkreadbufsize = 0; struct stat stab; int r, need; int loopprotect; varbufreset(result); varbufaddstr(result,instdir); if (*in != '/') varbufaddc(result,'/'); varbufaddstr(result,in); varbufaddc(result,0); loopprotect= 0; for (;;) { debug(dbg_conffdetail,"conffderef in=`%s' current working=`%s'", in, result->buf); if (lstat(result->buf,&stab)) { if (errno != ENOENT) fprintf(stderr, _("dpkg: %s: warning - unable to stat config file `%s'\n" " (= `%s'): %s\n"), pkg->name, in, result->buf, strerror(errno)); debug(dbg_conffdetail,"conffderef nonexistent"); return 0; } else if (S_ISREG(stab.st_mode)) { debug(dbg_conff,"conffderef in=`%s' result=`%s'", in, result->buf); return 0; } else if (S_ISLNK(stab.st_mode)) { debug(dbg_conffdetail,"conffderef symlink loopprotect=%d",loopprotect); if (loopprotect++ >= 25) { fprintf(stderr, _("dpkg: %s: warning - config file `%s' is a circular link\n" " (= `%s')\n"), pkg->name, in, result->buf); return -1; } need= 255; for (;;) { if (need > linkreadbufsize) { linkreadbuf= m_realloc(linkreadbuf,need); linkreadbufsize= need; debug(dbg_conffdetail,"conffderef readlink realloc(%d)=%p",need,linkreadbuf); } r= readlink(result->buf,linkreadbuf,linkreadbufsize-1); if (r < 0) { fprintf(stderr, _("dpkg: %s: warning - unable to readlink conffile `%s'\n" " (= `%s'): %s\n"), pkg->name, in, result->buf, strerror(errno)); return -1; } debug(dbg_conffdetail,"conffderef readlink gave %d, `%.*s'", r, r>0 ? r : 0, linkreadbuf); if (r < linkreadbufsize-1) break; need= r<<2; } linkreadbuf[r]= 0; if (linkreadbuf[0] == '/') { varbufreset(result); varbufaddstr(result,instdir); debug(dbg_conffdetail,"conffderef readlink absolute"); } else { for (r=result->used-2; r>0 && result->buf[r] != '/'; r--) ; if (r < 0) { fprintf(stderr, _("dpkg: %s: warning - conffile `%.250s' resolves to degenerate filename\n" " (`%s' is a symlink to `%s')\n"), pkg->name, in, result->buf, linkreadbuf); return -1; } if (result->buf[r] == '/') r++; result->used= r; debug(dbg_conffdetail,"conffderef readlink relative to `%.*s'", (int)result->used, result->buf); } varbufaddstr(result,linkreadbuf); varbufaddc(result,0); } else { fprintf(stderr, _("dpkg: %s: warning - conffile `%.250s' is not a plain" " file or symlink (= `%s')\n"), pkg->name, in, result->buf); return -1; } } } /* Generate a MD5 hash for fn and store it in *hashbuf. Memory is allocated * by this function and should be freed manually. */ static void md5hash(struct pkginfo *pkg, char **hashbuf, const char *fn) { static int fd; fd=open(fn,O_RDONLY); if (fd>=0) { push_cleanup(cu_closefd,ehflag_bombout, 0,0, 1,&fd); fd_md5(fd, hashbuf, -1, _("md5hash")); pop_cleanup(ehflag_normaltidy); /* fd= open(cdr.buf) */ close(fd); } else if (errno==ENOENT) { *hashbuf= strdup(NONEXISTENTFLAG); } else { fprintf(stderr, _("dpkg: %s: warning - unable to open conffile %s for hash: %s\n"), pkg->name, fn, strerror(errno)); *hashbuf= strdup("-"); } } /* Copy file ownership and permissions from one file to another */ static void copyfileperm(const char* source, const char* target) { struct stat stab; if (stat(source, &stab)==-1) { if (errno==ENOENT) return; ohshite(_("unable to stat current installed conffile `%.250s'"), source); } if (chown(target, stab.st_uid, stab.st_gid)==-1) ohshite(_("unable to change ownership of new dist conffile `%.250s'"), target); if (chmod(target, (stab.st_mode & 07777))==-1) ohshite(_("unable to set mode of new dist conffile `%.250s'"), target); } /* Show a diff between two files */ static void showdiff(const char* old, const char* new) { int pid; int r; int status; if (!(pid=m_fork())) { /* Child process */ const char* p; /* pager */ const char* s; /* shell */ char cmdbuf[1024]; /* command to run */ p=getenv(PAGERENV); if (!p || !*p) p=DEFAULTPAGER; sprintf(cmdbuf, DIFF " -Nu %.250s %.250s | %.250s", old, new, p); s=getenv(SHELLENV); if (!s || !*s) s=DEFAULTSHELL; execlp(s,s,"-c", cmdbuf, NULL); ohshite(_("failed to run %s (%.250s)"), DIFF, cmdbuf); } /* Parent process */ while (((r=waitpid(pid,&status,0))==-1) && (errno==EINTR)) ; if (r!=pid) { onerr_abort++; ohshite(_("wait for shell failed")); } } /* Suspend dpkg temporarily */ static void suspend(void) { const char* s; int pid; s= getenv(NOJOBCTRLSTOPENV); if (s && *s) { /* Do not job control to suspend but fork and start a new shell * instead. */ int status; /* waitpid status */ int r; /* waitpid result */ fputs(_("Type `exit' when you're done.\n"), stderr); if (!(pid= m_fork())) { /* Child process */ s= getenv(SHELLENV); if (!s || !*s) s=DEFAULTSHELL; execlp(s,s,"-i",(char*)0); ohshite(_("failed to exec shell (%.250s)"),s); } /* Parent process */ while (((r=waitpid(pid,&status,0))==-1) && (errno==EINTR)) ; if (r!=pid) { onerr_abort++; ohshite(_("wait for shell failed")); } } else { fputs(_("Don't forget to foreground (`fg') this " "process when you're done !\n"), stderr); kill(-getpgid(0),SIGTSTP); } } /* Select what to do with a configuration file. */ static enum conffopt promptconfaction(const char* cfgfile, const char* realold, const char* realnew, int useredited, int distedited, enum conffopt what) { const char *s; int c, cc; if (!(what&cfof_prompt)) return what; /* if there is a status pipe, send conffile-prompt there */ if (status_pipes) { static struct varbuf *status= NULL; struct pipef *pipef= status_pipes; int r; if (status == NULL) { status = nfmalloc(sizeof(struct varbuf)); varbufinit(status); } else varbufreset(status); r= varbufprintf(status, "status: %s : %s : '%s' '%s' %i %i \n", cfgfile, "conffile-prompt", realold, realnew, useredited, distedited); while (pipef) { write(pipef->fd, status->buf, r); pipef= pipef->next; } } do { fprintf(stderr, _("\nConfiguration file `%s'"), cfgfile); if (strcmp(cfgfile, realold)) fprintf(stderr,_(" (actually `%s')"), realold); if (what & cfof_isnew) { fprintf(stderr, _("\n" " ==> File on system created by you or by a script.\n" " ==> File also in package provided by package maintainer.\n")); } else { fprintf(stderr, useredited ? _("\n ==> Modified (by you or by a script) since installation.\n") : _("\n Not modified since installation.\n")); fprintf(stderr, distedited ? _(" ==> Package distributor has shipped an updated version.\n") : _(" Version in package is the same as at last installation.\n")); } /* No --force-confdef but a forcible situtation */ /* TODO: check if this condition can not be simplified to just !fc_conff_def */ if (!(fc_conff_def && (what&(cfof_install|cfof_keep)))) { if (fc_conff_new) { fprintf(stderr, _(" ==> Using new file as you requested.\n")); cc = 'y'; break; } else if (fc_conff_old) { fprintf(stderr, _(" ==> Using current old file as you requested.\n")); cc = 'n'; break; } } /* Force the default action (if there is one */ if (fc_conff_def) { if (what&cfof_keep) { fprintf(stderr, _(" ==> Keeping old config file as default.\n")); cc = 'n'; break; } else if (what&cfof_install) { fprintf(stderr, _(" ==> Using new config file as default.\n")); cc = 'y'; break; } } fprintf(stderr, _(" What would you like to do about it ? Your options are:\n" " Y or I : install the package maintainer's version\n" " N or O : keep your currently-installed version\n" " D : show the differences between the versions\n" " Z : background this process to examine the situation\n")); if (what & cfof_keep) fprintf(stderr, _(" The default action is to keep your current version.\n")); else if (what & cfof_install) fprintf(stderr, _(" The default action is to install the new version.\n")); s= strrchr(cfgfile,'/'); if (!s || !*++s) s= cfgfile; fprintf(stderr, "*** %s (Y/I/N/O/D/Z) %s ? ", s, (what & cfof_keep) ? _("[default=N]") : (what & cfof_install) ? _("[default=Y]") : _("[no default]")); if (ferror(stderr)) ohshite(_("error writing to stderr, discovered before conffile prompt")); cc= 0; while ((c= getchar()) != EOF && c != '\n') if (!isspace(c) && !cc) cc= tolower(c); if (c == EOF) { if (ferror(stdin)) ohshite(_("read error on stdin at conffile prompt")); ohshit(_("EOF on stdin at conffile prompt")); } if (!cc) { if (what & cfof_keep) { cc= 'n'; break; } else if (what & cfof_install) { cc= 'y'; break; } } /* fixme: say something if silently not install */ if (cc == 'd') showdiff(realold, realnew); if (cc == 'z') suspend(); } while (!strchr("yino",cc)); switch (cc) { case 'i': case 'y': what=cfof_install|cfof_backup; break; case 'n': case 'o': what=cfof_keep|cfof_backup; break; default: internerr("unknown response"); } return what; }