/*
* conflictor may be NULL.
*/
void cu_prermdeconfigure(int argc, void **argv) {
struct pkginfo *deconf= (struct pkginfo*)argv[0];
struct pkginfo *conflictor = (struct pkginfo *)argv[1];
struct pkginfo *infavour= (struct pkginfo*)argv[2];
if (conflictor) {
maintainer_script_postinst(deconf, "abort-deconfigure",
"in-favour",
pkgbin_name(infavour, &infavour->available,
pnaw_nonambig),
versiondescribe(&infavour->available.version,
vdew_nonambig),
"removing",
pkg_name(conflictor, pnaw_nonambig),
versiondescribe(&conflictor->installed.version,
vdew_nonambig),
NULL);
} else {
maintainer_script_postinst(deconf, "abort-deconfigure",
"in-favour",
pkgbin_name(infavour, &infavour->available,
pnaw_nonambig),
versiondescribe(&infavour->available.version,
vdew_nonambig),
NULL);
}
post_postinst_tasks(deconf, stat_installed);
}
int maintainer_script_alternative(struct pkginfo *pkg,
const char *scriptname, const char *desc,
const char *cidir, char *cidirrest,
const char *ifok, const char *iffallback) {
struct command cmd;
const char *oldscriptpath;
struct stat stab;
char buf[100];
oldscriptpath = pkgadminfile(pkg, &pkg->installed, scriptname);
sprintf(buf, _("old %s script"), desc);
command_init(&cmd, oldscriptpath, buf);
command_add_args(&cmd, scriptname, ifok,
versiondescribe(&pkg->available.version, vdew_nonambig),
NULL);
if (stat(oldscriptpath,&stab)) {
if (errno == ENOENT) {
debug(dbg_scripts,"maintainer_script_alternative nonexistent %s `%s'",
scriptname,oldscriptpath);
command_destroy(&cmd);
return 0;
}
warning(_("unable to stat %s '%.250s': %s"),
cmd.name, oldscriptpath, strerror(errno));
} else {
if (!do_script(pkg, &pkg->installed, &cmd, &stab, PROCWARN)) {
command_destroy(&cmd);
post_script_tasks();
return 1;
}
}
fprintf(stderr, _("dpkg - trying script from the new package instead ...\n"));
strcpy(cidirrest,scriptname);
sprintf(buf, _("new %s script"), desc);
command_destroy(&cmd);
command_init(&cmd, cidir, buf);
command_add_args(&cmd, scriptname, iffallback,
versiondescribe(&pkg->installed.version, vdew_nonambig),
NULL);
if (stat(cidir,&stab)) {
command_destroy(&cmd);
if (errno == ENOENT)
ohshit(_("there is no script in the new version of the package - giving up"));
else
ohshite(_("unable to stat %s `%.250s'"),buf,cidir);
}
do_script(pkg, &pkg->available, &cmd, &stab, 0);
fprintf(stderr, _("dpkg: ... it looks like that went OK.\n"));
command_destroy(&cmd);
post_script_tasks();
return 1;
}
void log_action(const char *action, struct pkginfo *pkg) {
const char *pkgname = pkg_describe(pkg, pdo_foreign);
log_message("%s %s %s %s", action, pkgname,
versiondescribe(&pkg->installed.version, vdew_nonambig),
versiondescribe(&pkg->available.version, vdew_nonambig));
statusfd_send("processing: %s: %s", action, pkgname);
}
void
log_action(const char *action, struct pkginfo *pkg, struct pkgbin *pkgbin)
{
log_message("%s %s %s %s", action, pkgbin_name(pkg, pkgbin, pnaw_always),
versiondescribe(&pkg->installed.version, vdew_nonambig),
versiondescribe(&pkg->available.version, vdew_nonambig));
statusfd_send("processing: %s: %s", action,
pkgbin_name(pkg, pkgbin, pnaw_nonambig));
}
/**
* Decide whether we want to install a new version of the package.
*
* ver is the version we might want to install. If saywhy is 1 then
* if we skip the package we say what we are doing (and, if we are
* selecting a previously deselected package, say so and actually do
* the select). want_install returns 0 if the package should be
* skipped and 1 if it should be installed.
*
* ver may be 0, in which case saywhy must be 0 and want_install may
* also return -1 to mean it doesn't know because it would depend on
* the version number.
*/
int
wanttoinstall(struct pkginfo *pkg, const struct versionrevision *ver,
bool saywhy)
{
int r;
if (pkg->want != want_install && pkg->want != want_hold) {
if (f_alsoselect) {
if (saywhy) {
printf(_("Selecting previously deselected package %s.\n"),pkg->name);
pkg->want= want_install;
}
return 1;
} else {
if (saywhy) printf(_("Skipping deselected package %s.\n"),pkg->name);
return 0;
}
}
if (!(pkg->status == stat_installed ||
pkg->status == stat_triggersawaited ||
pkg->status == stat_triggerspending))
return 1;
if (!ver) return -1;
r= versioncompare(ver,&pkg->installed.version);
if (r > 0) {
return 1;
} else if (r == 0) {
/* Same version fully installed. */
if (f_skipsame) {
if (saywhy) fprintf(stderr, _("Version %.250s of %.250s already installed, "
"skipping.\n"),
versiondescribe(&pkg->installed.version, vdew_nonambig),
pkg->name);
return 0;
} else {
return 1;
}
} else {
if (fc_downgrade) {
if (saywhy)
warning(_("downgrading %.250s from %.250s to %.250s."), pkg->name,
versiondescribe(&pkg->installed.version, vdew_nonambig),
versiondescribe(&pkg->available.version, vdew_nonambig));
return 1;
} else {
if (saywhy) fprintf(stderr, _("Will not downgrade %.250s from version %.250s "
"to %.250s, skipping.\n"), pkg->name,
versiondescribe(&pkg->installed.version, vdew_nonambig),
versiondescribe(&pkg->available.version, vdew_nonambig));
return 0;
}
}
}
static void
breaks_check_one(struct varbuf *aemsgs, enum dep_check *ok,
struct deppossi *breaks, struct pkginfo *broken,
struct pkginfo *breaker, struct deppossi *virtbroken)
{
struct varbuf depmsg = VARBUF_INIT;
debug(dbg_depcondetail, " checking breaker %s virtbroken %s",
pkg_name(breaker, pnaw_always),
virtbroken ? virtbroken->ed->name : "<none>");
if (breaker->status == PKG_STAT_NOTINSTALLED ||
breaker->status == PKG_STAT_CONFIGFILES)
return;
if (broken == breaker) return;
if (!versionsatisfied(&broken->installed, breaks)) return;
/* The test below can only trigger if dep_breaks start having
* arch qualifiers different from “any”. */
if (!archsatisfied(&broken->installed, breaks))
return;
if (ignore_depends(breaker)) return;
if (virtbroken && ignore_depends(&virtbroken->ed->pkg))
return;
if (virtbroken && !pkg_virtual_deppossi_satisfied(breaks, virtbroken))
return;
varbufdependency(&depmsg, breaks->up);
varbuf_end_str(&depmsg);
varbuf_printf(aemsgs, _(" %s (%s) breaks %s and is %s.\n"),
pkg_name(breaker, pnaw_nonambig),
versiondescribe(&breaker->installed.version, vdew_nonambig),
depmsg.buf, gettext(statusstrings[breaker->status]));
varbuf_destroy(&depmsg);
if (virtbroken) {
varbuf_printf(aemsgs, _(" %s (%s) provides %s.\n"),
pkg_name(broken, pnaw_nonambig),
versiondescribe(&broken->installed.version, vdew_nonambig),
virtbroken->ed->name);
} else if (breaks->verrel != DPKG_RELATION_NONE) {
varbuf_printf(aemsgs, _(" Version of %s to be configured is %s.\n"),
pkg_name(broken, pnaw_nonambig),
versiondescribe(&broken->installed.version, vdew_nonambig));
if (in_force(FORCE_DEPENDS_VERSION))
return;
}
if (force_breaks(breaks)) return;
*ok = DEP_CHECK_HALT;
}
static void
pkg_disappear(struct pkginfo *pkg, struct pkginfo *infavour)
{
printf(_("(Noting disappearance of %s, which has been completely replaced.)\n"),
pkg_name(pkg, pnaw_nonambig));
log_action("disappear", pkg, &pkg->installed);
debug(dbg_general, "pkg_disappear disappearing %s",
pkg_name(pkg, pnaw_nonambig));
trig_activate_packageprocessing(pkg);
maintainer_script_installed(pkg, POSTRMFILE,
"post-removal script (for disappearance)",
"disappear",
infavour->set->name,
versiondescribe(&infavour->available.version,
vdew_nonambig),
NULL);
/* OK, now we delete all the stuff in the ‘info’ directory .. */
debug(dbg_general, "pkg_disappear cleaning info directory");
pkg_infodb_foreach(pkg, &pkg->installed, pkg_infodb_remove_file);
dir_sync_path(pkgadmindir());
pkg_set_status(pkg, stat_notinstalled);
pkg_set_want(pkg, want_unknown);
pkg_reset_eflags(pkg);
blankversion(&pkg->configversion);
pkgbin_blank(&pkg->installed);
pkg->clientdata->fileslistvalid = false;
modstatdb_note(pkg);
}
void cu_prermdeconfigure(int argc, void **argv) {
struct pkginfo *deconf= (struct pkginfo*)argv[0];
struct pkginfo *conflictor= (struct pkginfo*)argv[1];
struct pkginfo *infavour= (struct pkginfo*)argv[2];
maintainer_script_installed(deconf,POSTINSTFILE,"post-installation",
"abort-deconfigure", "in-favour", infavour->name,
versiondescribe(&infavour->available.version,
vdew_nonambig),
"removing", conflictor->name,
versiondescribe(&conflictor->installed.version,
vdew_nonambig),
(char*)0);
deconf->status= stat_installed;
modstatdb_note(deconf);
}
/**
* Generate the pathname for the destination binary package from control file.
*
* @return The pathname for the package being built.
*/
static char *
gen_dest_pathname_from_pkg(const char *dir, struct pkginfo *pkg)
{
return str_fmt("%s/%s_%s_%s%s", dir, pkg->set->name,
versiondescribe(&pkg->available.version, vdew_never),
pkg->available.arch->name, DEBEXT);
}
void cu_preinstnew(int argc, void **argv) {
struct pkginfo *pkg= (struct pkginfo*)argv[0];
char *cidir= (char*)argv[1];
char *cidirrest= (char*)argv[2];
if (cleanup_pkg_failed++) return;
maintscript_new(pkg, POSTRMFILE, "post-removal", cidir, cidirrest,
"abort-install",
versiondescribe(&pkg->installed.version, vdew_nonambig),
versiondescribe(&pkg->available.version, vdew_nonambig),
NULL);
pkg_set_status(pkg, PKG_STAT_CONFIGFILES);
pkg_clear_eflags(pkg, PKG_EFLAG_REINSTREQ);
modstatdb_note(pkg);
cleanup_pkg_failed--;
}
static void
breaks_check_one(struct varbuf *aemsgs, enum dep_check *ok,
struct deppossi *breaks, struct pkginfo *broken,
struct pkginfo *breaker, struct pkgset *virtbroken)
{
struct varbuf depmsg = VARBUF_INIT;
debug(dbg_depcondetail, " checking breaker %s virtbroken %s",
pkg_name(breaker, pnaw_always),
virtbroken ? virtbroken->name : "<none>");
if (breaker->status == stat_notinstalled ||
breaker->status == stat_configfiles) return;
if (broken == breaker) return;
if (!versionsatisfied(&broken->installed, breaks)) return;
/* The test below can only trigger if dep_breaks start having
* arch qualifiers different from “any”. */
if (!archsatisfied(&broken->installed, breaks))
return;
if (ignore_depends(breaker)) return;
if (virtbroken && ignore_depends(&virtbroken->pkg))
return;
varbufdependency(&depmsg, breaks->up);
varbuf_end_str(&depmsg);
varbuf_printf(aemsgs, _(" %s (%s) breaks %s and is %s.\n"),
pkg_name(breaker, pnaw_nonambig),
versiondescribe(&breaker->installed.version, vdew_nonambig),
depmsg.buf, gettext(statusstrings[breaker->status]));
varbuf_destroy(&depmsg);
if (virtbroken) {
varbuf_printf(aemsgs, _(" %s (%s) provides %s.\n"),
pkg_name(broken, pnaw_nonambig),
versiondescribe(&broken->installed.version, vdew_nonambig),
virtbroken->name);
} else if (breaks->verrel != dpkg_relation_none) {
varbuf_printf(aemsgs, _(" Version of %s to be configured is %s.\n"),
pkg_name(broken, pnaw_nonambig),
versiondescribe(&broken->installed.version, vdew_nonambig));
if (fc_dependsversion) return;
}
if (force_breaks(breaks)) return;
*ok = dep_check_halt;
}
void cu_postrmupgrade(int argc, void **argv) {
struct pkginfo *pkg= (struct pkginfo*)argv[0];
if (cleanup_pkg_failed++) return;
maintainer_script_installed(pkg,PREINSTFILE,"pre-installation",
"abort-upgrade", versiondescribe(&pkg->available.version,
vdew_nonambig),
NULL);
cleanup_pkg_failed--;
}
void cu_prermupgrade(int argc, void **argv) {
struct pkginfo *pkg= (struct pkginfo*)argv[0];
if (cleanup_pkg_failed++) return;
maintscript_postinst(pkg, "abort-upgrade",
versiondescribe(&pkg->available.version, vdew_nonambig),
NULL);
pkg_clear_eflags(pkg, PKG_EFLAG_REINSTREQ);
post_postinst_tasks(pkg, PKG_STAT_INSTALLED);
cleanup_pkg_failed--;
}
static int
does_replace(struct pkginfo *newpigp, struct pkginfoperfile *newpifp,
struct pkginfo *oldpigp, struct pkginfoperfile *oldpifp)
{
struct dependency *dep;
debug(dbg_depcon,"does_replace new=%s old=%s (%s)",newpigp->name,
oldpigp->name, versiondescribe(&oldpifp->version, vdew_always));
for (dep= newpifp->depends; dep; dep= dep->next) {
if (dep->type != dep_replaces || dep->list->ed != oldpigp) continue;
debug(dbg_depcondetail,"does_replace ... found old, version %s",
versiondescribe(&dep->list->version,vdew_always));
if (!versionsatisfied(oldpifp, dep->list))
continue;
debug(dbg_depcon,"does_replace ... yes");
return true;
}
debug(dbg_depcon,"does_replace ... no");
return false;
}
void cu_prermupgrade(int argc, void **argv) {
struct pkginfo *pkg= (struct pkginfo*)argv[0];
if (cleanup_pkg_failed++) return;
maintainer_script_postinst(pkg, "abort-upgrade",
versiondescribe(&pkg->available.version,
vdew_nonambig),
NULL);
pkg_clear_eflags(pkg, eflag_reinstreq);
post_postinst_tasks(pkg, stat_installed);
cleanup_pkg_failed--;
}
/*
* Does cycle checking. Doesn't mind if pkg has no triggers pending - in
* that case does nothing but fix up any stale awaiters.
*/
void
trigproc(struct pkginfo *pkg)
{
static struct varbuf namesarg;
struct trigpend *tp;
struct pkginfo *gaveup;
debug(dbg_triggers, "trigproc %s", pkg_name(pkg, pnaw_always));
if (pkg->clientdata->trigprocdeferred)
pkg->clientdata->trigprocdeferred->pkg = NULL;
pkg->clientdata->trigprocdeferred = NULL;
if (pkg->trigpend_head) {
assert(pkg->status == stat_triggerspending ||
pkg->status == stat_triggersawaited);
gaveup = check_trigger_cycle(pkg);
if (gaveup == pkg)
return;
printf(_("Processing triggers for %s (%s) ...\n"),
pkg_name(pkg, pnaw_nonambig),
versiondescribe(&pkg->installed.version, vdew_nonambig));
log_action("trigproc", pkg, &pkg->installed);
varbuf_reset(&namesarg);
for (tp = pkg->trigpend_head; tp; tp = tp->next) {
varbuf_add_char(&namesarg, ' ');
varbuf_add_str(&namesarg, tp->name);
}
varbuf_end_str(&namesarg);
/* Setting the status to half-configured
* causes modstatdb_note to clear pending triggers. */
pkg_set_status(pkg, stat_halfconfigured);
modstatdb_note(pkg);
if (!f_noact) {
sincenothing = 0;
maintscript_postinst(pkg, "triggered",
namesarg.buf + 1, NULL);
}
post_postinst_tasks(pkg, stat_installed);
} else {
/* In other branch is done by modstatdb_note(), from inside
* post_postinst_tasks(). */
trig_clear_awaiters(pkg);
}
}
/**
* Generate the pathname for the to-be-built package.
*
* @return The pathname for the package being built.
*/
static char *
pkg_get_pathname(const char *dir, struct pkginfo *pkg)
{
char *path;
const char *versionstring, *arch_sep;
versionstring = versiondescribe(&pkg->available.version, vdew_never);
arch_sep = pkg->available.arch->type == arch_none ? "" : "_";
m_asprintf(&path, "%s/%s_%s%s%s%s", dir, pkg->set->name, versionstring,
arch_sep, pkg->available.arch->name, DEBEXT);
return path;
}
void cu_prerminfavour(int argc, void **argv) {
struct pkginfo *conflictor= (struct pkginfo*)argv[0];
struct pkginfo *infavour= (struct pkginfo*)argv[1];
if (cleanup_conflictor_failed++) return;
maintainer_script_postinst(conflictor, "abort-remove",
"in-favour", infavour->set->name,
versiondescribe(&infavour->available.version,
vdew_nonambig),
NULL);
pkg_clear_eflags(conflictor, eflag_reinstreq);
post_postinst_tasks(conflictor, stat_installed);
cleanup_conflictor_failed--;
}
void cu_prermupgrade(int argc, void **argv) {
struct pkginfo *pkg= (struct pkginfo*)argv[0];
if (cleanup_pkg_failed++) return;
maintainer_script_installed(pkg,POSTINSTFILE,"post-installation",
"abort-upgrade",
versiondescribe(&pkg->available.version,
vdew_nonambig),
(char*)0);
pkg->status= stat_installed;
pkg->eflag &= ~eflagf_reinstreq;
modstatdb_note(pkg);
cleanup_pkg_failed--;
}
void cu_prerminfavour(int argc, void **argv) {
struct pkginfo *conflictor= (struct pkginfo*)argv[0];
struct pkginfo *infavour= (struct pkginfo*)argv[1];
if (cleanup_conflictor_failed++) return;
maintainer_script_installed(conflictor,POSTINSTFILE,"post-installation",
"abort-remove", "in-favour", infavour->name,
versiondescribe(&infavour->available.version,
vdew_nonambig),
(char*)0);
conflictor->status= stat_installed;
conflictor->eflag &= ~eflagf_reinstreq;
modstatdb_note(conflictor);
cleanup_conflictor_failed--;
}
void cu_preinstnew(int argc, void **argv) {
struct pkginfo *pkg= (struct pkginfo*)argv[0];
char *cidir= (char*)argv[1];
char *cidirrest= (char*)argv[2];
if (cleanup_pkg_failed++) return;
maintainer_script_new(pkg, POSTRMFILE, "post-removal", cidir, cidirrest,
"abort-install", versiondescribe(&pkg->installed.version,
vdew_nonambig),
NULL);
pkg_set_status(pkg, stat_configfiles);
pkg_clear_eflags(pkg, eflag_reinstreq);
modstatdb_note(pkg);
cleanup_pkg_failed--;
}
void cu_prerminfavour(int argc, void **argv) {
struct pkginfo *conflictor= (struct pkginfo*)argv[0];
struct pkginfo *infavour= (struct pkginfo*)argv[1];
if (cleanup_conflictor_failed++) return;
maintscript_postinst(conflictor, "abort-remove",
"in-favour",
pkgbin_name(infavour, &infavour->available,
pnaw_nonambig),
versiondescribe(&infavour->available.version,
vdew_nonambig),
NULL);
pkg_clear_eflags(conflictor, PKG_EFLAG_REINSTREQ);
post_postinst_tasks(conflictor, PKG_STAT_INSTALLED);
cleanup_conflictor_failed--;
}
void cu_preinstupgrade(int argc, void **argv) {
struct pkginfo *pkg= (struct pkginfo*)argv[0];
char *cidir= (char*)argv[1];
char *cidirrest= (char*)argv[2];
enum pkgstatus *oldstatusp= (enum pkgstatus*)argv[3];
if (cleanup_pkg_failed++) return;
maintainer_script_new(pkg->name, POSTRMFILE,"post-removal",cidir,cidirrest,
"abort-upgrade",
versiondescribe(&pkg->installed.version,
vdew_nonambig),
(char*)0);
pkg->status= *oldstatusp;
pkg->eflag &= ~eflagf_reinstreq;
modstatdb_note(pkg);
cleanup_pkg_failed--;
}
/* Note: If anyone wants to set some triggers-pending, they must also
* set status appropriately, or we will undo it. That is, it is legal
* to call this when pkg->status and pkg->trigpend_head disagree and
* in that case pkg->status takes precedence and pkg->trigpend_head
* will be adjusted.
*/
void modstatdb_note(struct pkginfo *pkg) {
struct trigaw *ta;
onerr_abort++;
/* Clear pending triggers here so that only code that sets the status
* to interesting (for triggers) values has to care about triggers.
*/
if (pkg->status != stat_triggerspending &&
pkg->status != stat_triggersawaited)
pkg->trigpend_head = NULL;
if (pkg->status <= stat_configfiles) {
for (ta = pkg->trigaw.head; ta; ta = ta->sameaw.next)
ta->aw = NULL;
pkg->trigaw.head = pkg->trigaw.tail = NULL;
}
log_message("status %s %s %s", statusinfos[pkg->status].name, pkg->name,
versiondescribe(&pkg->installed.version, vdew_nonambig));
statusfd_send("status: %s: %s", pkg->name, statusinfos[pkg->status].name);
if (cstatus >= msdbrw_write)
modstatdb_note_core(pkg);
if (!pkg->trigpend_head && pkg->othertrigaw_head) {
/* Automatically remove us from other packages' Triggers-Awaited.
* We do this last because we want to maximise our chances of
* successfully recording the status of the package we were
* pointed at by our caller, although there is some risk of
* leaving us in a slightly odd situation which is cleared up
* by the trigger handling logic in deppossi_ok_found.
*/
trig_clear_awaiters(pkg);
}
onerr_abort--;
}
/*
* *whynot must already have been initialized; it need not be
* empty though - it will be reset before use.
*
* If depisok returns false for ‘not OK’ it will contain a description,
* newline-terminated BUT NOT NUL-TERMINATED, of the reason.
*
* If depisok returns true it will contain garbage.
* allowunconfigd should be non-zero during the ‘Pre-Depends’ checking
* before a package is unpacked, when it is sufficient for the package
* to be unpacked provided that both the unpacked and previously-configured
* versions are acceptable.
*
* On false return (‘not OK’), *canfixbyremove refers to a package which
* if removed (dep_conflicts) or deconfigured (dep_breaks) will fix
* the problem. Caller may pass NULL for canfixbyremove and need not
* initialize *canfixbyremove.
*/
bool
depisok(struct dependency *dep, struct varbuf *whynot,
struct pkginfo **canfixbyremove, bool allowunconfigd)
{
struct deppossi *possi;
struct deppossi *provider;
int nconflicts;
/* Use this buffer so that when internationalisation comes along we
* don't have to rewrite the code completely, only redo the sprintf strings
* (assuming we have the fancy argument-number-specifiers).
* Allow 250x3 for package names, versions, &c, + 250 for ourselves. */
char linebuf[1024];
assert(dep->type == dep_depends || dep->type == dep_predepends ||
dep->type == dep_breaks || dep->type == dep_conflicts ||
dep->type == dep_recommends || dep->type == dep_suggests ||
dep->type == dep_enhances);
if (canfixbyremove)
*canfixbyremove = NULL;
/* The dependency is always OK if we're trying to remove the depend*ing*
* package. */
switch (dep->up->clientdata->istobe) {
case itb_remove: case itb_deconfigure:
return true;
case itb_normal:
/* Only installed packages can be make dependency problems. */
switch (dep->up->status) {
case stat_installed:
case stat_triggerspending:
case stat_triggersawaited:
break;
case stat_notinstalled: case stat_configfiles: case stat_halfinstalled:
case stat_halfconfigured: case stat_unpacked:
return true;
default:
internerr("unknown status depending '%d'", dep->up->status);
}
break;
case itb_installnew: case itb_preinstall:
break;
default:
internerr("unknown istobe depending '%d'", dep->up->clientdata->istobe);
}
/* Describe the dependency, in case we have to moan about it. */
varbufreset(whynot);
varbufaddc(whynot, ' ');
describedepcon(whynot, dep);
varbufaddc(whynot,'\n');
/* TODO: Check dep_enhances as well. */
if (dep->type == dep_depends || dep->type == dep_predepends ||
dep->type == dep_recommends || dep->type == dep_suggests ) {
/* Go through the alternatives. As soon as we find one that
* we like, we return ‘true’ straight away. Otherwise, when we get to
* the end we'll have accumulated all the reasons in whynot and
* can return ‘false’. */
for (possi= dep->list; possi; possi= possi->next) {
switch (possi->ed->clientdata->istobe) {
case itb_remove:
sprintf(linebuf,_(" %.250s is to be removed.\n"),possi->ed->name);
break;
case itb_deconfigure:
sprintf(linebuf,_(" %.250s is to be deconfigured.\n"),possi->ed->name);
break;
case itb_installnew:
if (versionsatisfied(&possi->ed->available, possi))
return true;
sprintf(linebuf,_(" %.250s is to be installed, but is version %.250s.\n"),
possi->ed->name,
versiondescribe(&possi->ed->available.version,vdew_nonambig));
break;
case itb_normal: case itb_preinstall:
switch (possi->ed->status) {
case stat_installed:
case stat_triggerspending:
if (versionsatisfied(&possi->ed->installed, possi))
return true;
sprintf(linebuf,_(" %.250s is installed, but is version %.250s.\n"),
possi->ed->name,
versiondescribe(&possi->ed->installed.version,vdew_nonambig));
break;
case stat_notinstalled:
/* Don't say anything about this yet - it might be a virtual package.
* Later on, if nothing has put anything in linebuf, we know that it
* isn't and issue a diagnostic then. */
*linebuf = '\0';
break;
case stat_unpacked:
case stat_halfconfigured:
case stat_triggersawaited:
if (allowunconfigd) {
if (!informativeversion(&possi->ed->configversion)) {
sprintf(linebuf, _(" %.250s is unpacked, but has never been configured.\n"),
possi->ed->name);
break;
} else if (!versionsatisfied(&possi->ed->installed, possi)) {
sprintf(linebuf, _(" %.250s is unpacked, but is version %.250s.\n"),
possi->ed->name,
versiondescribe(&possi->ed->available.version,vdew_nonambig));
break;
} else if (!versionsatisfied3(&possi->ed->configversion,
&possi->version,possi->verrel)) {
sprintf(linebuf, _(" %.250s latest configured version is %.250s.\n"),
possi->ed->name,
versiondescribe(&possi->ed->configversion,vdew_nonambig));
break;
} else {
return true;
}
}
/* Fall through. */
default:
sprintf(linebuf, _(" %.250s is %s.\n"),
possi->ed->name, gettext(statusstrings[possi->ed->status]));
break;
}
break;
default:
internerr("unknown istobe depended '%d'", possi->ed->clientdata->istobe);
}
varbufaddstr(whynot, linebuf);
/* If there was no version specified we try looking for Providers. */
if (possi->verrel == dvr_none) {
/* See if the package we're about to install Provides it. */
for (provider= possi->ed->available.depended;
provider;
provider = provider->rev_next) {
if (provider->up->type != dep_provides) continue;
if (provider->up->up->clientdata->istobe == itb_installnew)
return true;
}
/* Now look at the packages already on the system. */
for (provider= possi->ed->installed.depended;
provider;
provider = provider->rev_next) {
if (provider->up->type != dep_provides) continue;
switch (provider->up->up->clientdata->istobe) {
case itb_installnew:
/* Don't pay any attention to the Provides field of the
* currently-installed version of the package we're trying
* to install. We dealt with that by using the available
* information above. */
continue;
case itb_remove:
sprintf(linebuf, _(" %.250s provides %.250s but is to be removed.\n"),
provider->up->up->name, possi->ed->name);
break;
case itb_deconfigure:
sprintf(linebuf, _(" %.250s provides %.250s but is to be deconfigured.\n"),
provider->up->up->name, possi->ed->name);
break;
case itb_normal: case itb_preinstall:
if (provider->up->up->status == stat_installed)
return true;
sprintf(linebuf, _(" %.250s provides %.250s but is %s.\n"),
provider->up->up->name, possi->ed->name,
gettext(statusstrings[provider->up->up->status]));
break;
default:
internerr("unknown istobe provider '%d'",
provider->up->up->clientdata->istobe);
}
varbufaddstr(whynot, linebuf);
}
if (!*linebuf) {
/* If the package wasn't installed at all, and we haven't said
* yet why this isn't satisfied, we should say so now. */
sprintf(linebuf, _(" %.250s is not installed.\n"), possi->ed->name);
varbufaddstr(whynot, linebuf);
}
}
}
return false;
} else {
/* It's conflicts or breaks. There's only one main alternative,
* but we also have to consider Providers. We return ‘false’ as soon
* as we find something that matches the conflict, and only describe
* it then. If we get to the end without finding anything we return
* ‘true’. */
possi= dep->list;
nconflicts= 0;
if (possi->ed != possi->up->up) {
/* If the package conflicts with or breaks itself it must mean
* other packages which provide the same virtual name. We
* therefore don't look at the real package and go on to the
* virtual ones. */
switch (possi->ed->clientdata->istobe) {
case itb_remove:
break;
case itb_installnew:
if (!versionsatisfied(&possi->ed->available, possi)) break;
sprintf(linebuf, _(" %.250s (version %.250s) is to be installed.\n"),
possi->ed->name,
versiondescribe(&possi->ed->available.version,vdew_nonambig));
varbufaddstr(whynot, linebuf);
if (!canfixbyremove)
return false;
nconflicts++;
*canfixbyremove= possi->ed;
break;
case itb_deconfigure:
if (dep->type == dep_breaks)
break; /* Already deconfiguring this. */
/* Fall through. */
case itb_normal: case itb_preinstall:
switch (possi->ed->status) {
case stat_notinstalled: case stat_configfiles:
break;
case stat_halfinstalled: case stat_unpacked:
case stat_halfconfigured:
if (dep->type == dep_breaks)
break; /* No problem. */
case stat_installed:
case stat_triggerspending:
case stat_triggersawaited:
if (!versionsatisfied(&possi->ed->installed, possi)) break;
sprintf(linebuf, _(" %.250s (version %.250s) is present and %s.\n"),
possi->ed->name,
versiondescribe(&possi->ed->installed.version,vdew_nonambig),
gettext(statusstrings[possi->ed->status]));
varbufaddstr(whynot, linebuf);
if (!canfixbyremove)
return false;
nconflicts++;
*canfixbyremove= possi->ed;
}
break;
default:
internerr("unknown istobe conflict '%d'",
possi->ed->clientdata->istobe);
}
}
/* If there was no version specified we try looking for Providers. */
if (possi->verrel == dvr_none) {
/* See if the package we're about to install Provides it. */
for (provider= possi->ed->available.depended;
provider;
provider = provider->rev_next) {
if (provider->up->type != dep_provides) continue;
if (provider->up->up->clientdata->istobe != itb_installnew) continue;
if (provider->up->up == dep->up)
continue; /* Conflicts and provides the same. */
sprintf(linebuf, _(" %.250s provides %.250s and is to be installed.\n"),
provider->up->up->name, possi->ed->name);
varbufaddstr(whynot, linebuf);
/* We can't remove the one we're about to install: */
if (canfixbyremove)
*canfixbyremove = NULL;
return false;
}
/* Now look at the packages already on the system. */
for (provider= possi->ed->installed.depended;
provider;
provider = provider->rev_next) {
if (provider->up->type != dep_provides) continue;
if (provider->up->up == dep->up)
continue; /* Conflicts and provides the same. */
switch (provider->up->up->clientdata->istobe) {
case itb_installnew:
/* Don't pay any attention to the Provides field of the
* currently-installed version of the package we're trying
* to install. We dealt with that package by using the
* available information above. */
continue;
case itb_remove:
continue;
case itb_deconfigure:
if (dep->type == dep_breaks)
continue; /* Already deconfiguring. */
case itb_normal: case itb_preinstall:
switch (provider->up->up->status) {
case stat_notinstalled: case stat_configfiles:
continue;
case stat_halfinstalled: case stat_unpacked:
case stat_halfconfigured:
if (dep->type == dep_breaks)
break; /* No problem. */
case stat_installed:
case stat_triggerspending:
case stat_triggersawaited:
sprintf(linebuf,
_(" %.250s provides %.250s and is present and %s.\n"),
provider->up->up->name, possi->ed->name,
gettext(statusstrings[provider->up->up->status]));
varbufaddstr(whynot, linebuf);
if (!canfixbyremove)
return false;
nconflicts++;
*canfixbyremove= provider->up->up;
break;
}
break;
default:
internerr("unknown istobe conflict provider '%d'",
provider->up->up->clientdata->istobe);
}
}
}
if (!nconflicts)
return true;
if (nconflicts > 1)
*canfixbyremove = NULL;
return false;
} /* if (dependency) {...} else {...} */
}
/*
* *whynot must already have been initialized; it need not be
* empty though - it will be reset before use.
*
* If depisok returns false for ‘not OK’ it will contain a description,
* newline-terminated BUT NOT NUL-TERMINATED, of the reason.
*
* If depisok returns true it will contain garbage.
* allowunconfigd should be non-zero during the ‘Pre-Depends’ checking
* before a package is unpacked, when it is sufficient for the package
* to be unpacked provided that both the unpacked and previously-configured
* versions are acceptable.
*
* On false return (‘not OK’), *canfixbyremove refers to a package which
* if removed (dep_conflicts) or deconfigured (dep_breaks) will fix
* the problem. Caller may pass NULL for canfixbyremove and need not
* initialize *canfixbyremove.
*
* On false return (‘not OK’), *canfixbytrigaw refers to a package which
* can fix the problem if all the packages listed in Triggers-Awaited have
* their triggers processed. Caller may pass NULL for canfixbytrigaw and
* need not initialize *canfixbytrigaw.
*/
bool
depisok(struct dependency *dep, struct varbuf *whynot,
struct pkginfo **canfixbyremove, struct pkginfo **canfixbytrigaw,
bool allowunconfigd)
{
struct deppossi *possi;
struct deppossi *provider;
struct pkginfo *pkg_pos;
int nconflicts;
/* Use this buffer so that when internationalisation comes along we
* don't have to rewrite the code completely, only redo the sprintf strings
* (assuming we have the fancy argument-number-specifiers).
* Allow 250x3 for package names, versions, &c, + 250 for ourselves. */
char linebuf[1024];
assert(dep->type == dep_depends || dep->type == dep_predepends ||
dep->type == dep_breaks || dep->type == dep_conflicts ||
dep->type == dep_recommends || dep->type == dep_suggests ||
dep->type == dep_enhances);
if (canfixbyremove)
*canfixbyremove = NULL;
if (canfixbytrigaw)
*canfixbytrigaw = NULL;
/* The dependency is always OK if we're trying to remove the depend*ing*
* package. */
switch (dep->up->clientdata->istobe) {
case PKG_ISTOBE_REMOVE:
case PKG_ISTOBE_DECONFIGURE:
return true;
case PKG_ISTOBE_NORMAL:
/* Only installed packages can be make dependency problems. */
switch (dep->up->status) {
case PKG_STAT_INSTALLED:
case PKG_STAT_TRIGGERSPENDING:
case PKG_STAT_TRIGGERSAWAITED:
break;
case PKG_STAT_HALFCONFIGURED:
case PKG_STAT_UNPACKED:
case PKG_STAT_HALFINSTALLED:
if (dep->type == dep_predepends ||
dep->type == dep_conflicts ||
dep->type == dep_breaks)
break;
/* Fall through. */
case PKG_STAT_CONFIGFILES:
case PKG_STAT_NOTINSTALLED:
return true;
default:
internerr("unknown status depending '%d'", dep->up->status);
}
break;
case PKG_ISTOBE_INSTALLNEW:
case PKG_ISTOBE_PREINSTALL:
break;
default:
internerr("unknown istobe depending '%d'", dep->up->clientdata->istobe);
}
/* Describe the dependency, in case we have to moan about it. */
varbuf_reset(whynot);
varbuf_add_char(whynot, ' ');
describedepcon(whynot, dep);
varbuf_add_char(whynot, '\n');
/* TODO: Check dep_enhances as well. */
if (dep->type == dep_depends || dep->type == dep_predepends ||
dep->type == dep_recommends || dep->type == dep_suggests ) {
/* Go through the alternatives. As soon as we find one that
* we like, we return ‘true’ straight away. Otherwise, when we get to
* the end we'll have accumulated all the reasons in whynot and
* can return ‘false’. */
for (possi= dep->list; possi; possi= possi->next) {
struct deppossi_pkg_iterator *possi_iter;
possi_iter = deppossi_pkg_iter_new(possi, wpb_by_istobe);
while ((pkg_pos = deppossi_pkg_iter_next(possi_iter))) {
switch (pkg_pos->clientdata->istobe) {
case PKG_ISTOBE_REMOVE:
sprintf(linebuf, _(" %.250s is to be removed.\n"),
pkg_name(pkg_pos, pnaw_nonambig));
break;
case PKG_ISTOBE_DECONFIGURE:
sprintf(linebuf, _(" %.250s is to be deconfigured.\n"),
pkg_name(pkg_pos, pnaw_nonambig));
break;
case PKG_ISTOBE_INSTALLNEW:
if (versionsatisfied(&pkg_pos->available, possi)) {
deppossi_pkg_iter_free(possi_iter);
return true;
}
sprintf(linebuf, _(" %.250s is to be installed, but is version "
"%.250s.\n"),
pkgbin_name(pkg_pos, &pkg_pos->available, pnaw_nonambig),
versiondescribe(&pkg_pos->available.version, vdew_nonambig));
break;
case PKG_ISTOBE_NORMAL:
case PKG_ISTOBE_PREINSTALL:
switch (pkg_pos->status) {
case PKG_STAT_INSTALLED:
case PKG_STAT_TRIGGERSPENDING:
if (versionsatisfied(&pkg_pos->installed, possi)) {
deppossi_pkg_iter_free(possi_iter);
return true;
}
sprintf(linebuf, _(" %.250s is installed, but is version "
"%.250s.\n"),
pkg_name(pkg_pos, pnaw_nonambig),
versiondescribe(&pkg_pos->installed.version, vdew_nonambig));
break;
case PKG_STAT_NOTINSTALLED:
/* Don't say anything about this yet - it might be a virtual package.
* Later on, if nothing has put anything in linebuf, we know that it
* isn't and issue a diagnostic then. */
*linebuf = '\0';
break;
case PKG_STAT_TRIGGERSAWAITED:
if (canfixbytrigaw && versionsatisfied(&pkg_pos->installed, possi))
*canfixbytrigaw = pkg_pos;
/* Fall through to have a chance to return OK due to
* allowunconfigd and to fill the explanation */
case PKG_STAT_UNPACKED:
case PKG_STAT_HALFCONFIGURED:
if (allowunconfigd) {
if (!dpkg_version_is_informative(&pkg_pos->configversion)) {
sprintf(linebuf, _(" %.250s is unpacked, but has never been "
"configured.\n"),
pkg_name(pkg_pos, pnaw_nonambig));
break;
} else if (!versionsatisfied(&pkg_pos->installed, possi)) {
sprintf(linebuf, _(" %.250s is unpacked, but is version "
"%.250s.\n"),
pkg_name(pkg_pos, pnaw_nonambig),
versiondescribe(&pkg_pos->installed.version,
vdew_nonambig));
break;
} else if (!dpkg_version_relate(&pkg_pos->configversion,
possi->verrel,
&possi->version)) {
sprintf(linebuf, _(" %.250s latest configured version is "
"%.250s.\n"),
pkg_name(pkg_pos, pnaw_nonambig),
versiondescribe(&pkg_pos->configversion, vdew_nonambig));
break;
} else {
deppossi_pkg_iter_free(possi_iter);
return true;
}
}
/* Fall through. */
default:
sprintf(linebuf, _(" %.250s is %s.\n"),
pkg_name(pkg_pos, pnaw_nonambig),
gettext(statusstrings[pkg_pos->status]));
break;
}
break;
default:
internerr("unknown istobe depended '%d'", pkg_pos->clientdata->istobe);
}
varbuf_add_str(whynot, linebuf);
}
deppossi_pkg_iter_free(possi_iter);
/* See if the package we're about to install Provides it. */
for (provider = possi->ed->depended.available;
provider;
provider = provider->rev_next) {
if (provider->up->type != dep_provides) continue;
if (!pkg_virtual_deppossi_satisfied(possi, provider))
continue;
if (provider->up->up->clientdata->istobe == PKG_ISTOBE_INSTALLNEW)
return true;
}
/* Now look at the packages already on the system. */
for (provider = possi->ed->depended.installed;
provider;
provider = provider->rev_next) {
if (provider->up->type != dep_provides) continue;
if (!pkg_virtual_deppossi_satisfied(possi, provider))
continue;
switch (provider->up->up->clientdata->istobe) {
case PKG_ISTOBE_INSTALLNEW:
/* Don't pay any attention to the Provides field of the
* currently-installed version of the package we're trying
* to install. We dealt with that by using the available
* information above. */
continue;
case PKG_ISTOBE_REMOVE:
sprintf(linebuf, _(" %.250s provides %.250s but is to be removed.\n"),
pkg_name(provider->up->up, pnaw_nonambig),
possi->ed->name);
break;
case PKG_ISTOBE_DECONFIGURE:
sprintf(linebuf, _(" %.250s provides %.250s but is to be deconfigured.\n"),
pkg_name(provider->up->up, pnaw_nonambig),
possi->ed->name);
break;
case PKG_ISTOBE_NORMAL:
case PKG_ISTOBE_PREINSTALL:
if (provider->up->up->status == PKG_STAT_INSTALLED ||
provider->up->up->status == PKG_STAT_TRIGGERSPENDING)
return true;
if (provider->up->up->status == PKG_STAT_TRIGGERSAWAITED)
*canfixbytrigaw = provider->up->up;
sprintf(linebuf, _(" %.250s provides %.250s but is %s.\n"),
pkg_name(provider->up->up, pnaw_nonambig),
possi->ed->name,
gettext(statusstrings[provider->up->up->status]));
break;
default:
internerr("unknown istobe provider '%d'",
provider->up->up->clientdata->istobe);
}
varbuf_add_str(whynot, linebuf);
}
if (!*linebuf) {
/* If the package wasn't installed at all, and we haven't said
* yet why this isn't satisfied, we should say so now. */
sprintf(linebuf, _(" %.250s is not installed.\n"), possi->ed->name);
varbuf_add_str(whynot, linebuf);
}
}
return false;
} else {
/* It's conflicts or breaks. There's only one main alternative,
* but we also have to consider Providers. We return ‘false’ as soon
* as we find something that matches the conflict, and only describe
* it then. If we get to the end without finding anything we return
* ‘true’. */
possi= dep->list;
nconflicts= 0;
if (possi->ed != possi->up->up->set) {
struct deppossi_pkg_iterator *possi_iter;
/* If the package conflicts with or breaks itself it must mean
* other packages which provide the same virtual name. We
* therefore don't look at the real package and go on to the
* virtual ones. */
possi_iter = deppossi_pkg_iter_new(possi, wpb_by_istobe);
while ((pkg_pos = deppossi_pkg_iter_next(possi_iter))) {
switch (pkg_pos->clientdata->istobe) {
case PKG_ISTOBE_REMOVE:
break;
case PKG_ISTOBE_INSTALLNEW:
if (!versionsatisfied(&pkg_pos->available, possi))
break;
sprintf(linebuf, _(" %.250s (version %.250s) is to be installed.\n"),
pkgbin_name(pkg_pos, &pkg_pos->available, pnaw_nonambig),
versiondescribe(&pkg_pos->available.version, vdew_nonambig));
varbuf_add_str(whynot, linebuf);
if (!canfixbyremove) {
deppossi_pkg_iter_free(possi_iter);
return false;
}
nconflicts++;
*canfixbyremove = pkg_pos;
break;
case PKG_ISTOBE_DECONFIGURE:
if (dep->type == dep_breaks)
break; /* Already deconfiguring this. */
/* Fall through. */
case PKG_ISTOBE_NORMAL:
case PKG_ISTOBE_PREINSTALL:
switch (pkg_pos->status) {
case PKG_STAT_NOTINSTALLED:
case PKG_STAT_CONFIGFILES:
break;
case PKG_STAT_HALFINSTALLED:
case PKG_STAT_UNPACKED:
case PKG_STAT_HALFCONFIGURED:
if (dep->type == dep_breaks)
break; /* No problem. */
case PKG_STAT_INSTALLED:
case PKG_STAT_TRIGGERSPENDING:
case PKG_STAT_TRIGGERSAWAITED:
if (!versionsatisfied(&pkg_pos->installed, possi))
break;
sprintf(linebuf, _(" %.250s (version %.250s) is present and %s.\n"),
pkg_name(pkg_pos, pnaw_nonambig),
versiondescribe(&pkg_pos->installed.version, vdew_nonambig),
gettext(statusstrings[pkg_pos->status]));
varbuf_add_str(whynot, linebuf);
if (!canfixbyremove) {
deppossi_pkg_iter_free(possi_iter);
return false;
}
nconflicts++;
*canfixbyremove = pkg_pos;
}
break;
default:
internerr("unknown istobe conflict '%d'", pkg_pos->clientdata->istobe);
}
}
deppossi_pkg_iter_free(possi_iter);
}
/* See if the package we're about to install Provides it. */
for (provider = possi->ed->depended.available;
provider;
provider = provider->rev_next) {
if (provider->up->type != dep_provides) continue;
if (provider->up->up->clientdata->istobe != PKG_ISTOBE_INSTALLNEW)
continue;
if (provider->up->up->set == dep->up->set)
continue; /* Conflicts and provides the same. */
if (!pkg_virtual_deppossi_satisfied(possi, provider))
continue;
sprintf(linebuf, _(" %.250s provides %.250s and is to be installed.\n"),
pkgbin_name(provider->up->up, &provider->up->up->available,
pnaw_nonambig), possi->ed->name);
varbuf_add_str(whynot, linebuf);
/* We can't remove the one we're about to install: */
if (canfixbyremove)
*canfixbyremove = NULL;
return false;
}
/* Now look at the packages already on the system. */
for (provider = possi->ed->depended.installed;
provider;
provider = provider->rev_next) {
if (provider->up->type != dep_provides) continue;
if (provider->up->up->set == dep->up->set)
continue; /* Conflicts and provides the same. */
if (!pkg_virtual_deppossi_satisfied(possi, provider))
continue;
switch (provider->up->up->clientdata->istobe) {
case PKG_ISTOBE_INSTALLNEW:
/* Don't pay any attention to the Provides field of the
* currently-installed version of the package we're trying
* to install. We dealt with that package by using the
* available information above. */
continue;
case PKG_ISTOBE_REMOVE:
continue;
case PKG_ISTOBE_DECONFIGURE:
if (dep->type == dep_breaks)
continue; /* Already deconfiguring. */
case PKG_ISTOBE_NORMAL:
case PKG_ISTOBE_PREINSTALL:
switch (provider->up->up->status) {
case PKG_STAT_NOTINSTALLED:
case PKG_STAT_CONFIGFILES:
continue;
case PKG_STAT_HALFINSTALLED:
case PKG_STAT_UNPACKED:
case PKG_STAT_HALFCONFIGURED:
if (dep->type == dep_breaks)
break; /* No problem. */
case PKG_STAT_INSTALLED:
case PKG_STAT_TRIGGERSPENDING:
case PKG_STAT_TRIGGERSAWAITED:
sprintf(linebuf,
_(" %.250s provides %.250s and is present and %s.\n"),
pkg_name(provider->up->up, pnaw_nonambig), possi->ed->name,
gettext(statusstrings[provider->up->up->status]));
varbuf_add_str(whynot, linebuf);
if (!canfixbyremove)
return false;
nconflicts++;
*canfixbyremove= provider->up->up;
break;
}
break;
default:
internerr("unknown istobe conflict provider '%d'",
provider->up->up->clientdata->istobe);
}
}
if (!nconflicts)
return true;
if (nconflicts > 1)
*canfixbyremove = NULL;
return false;
} /* if (dependency) {...} else {...} */
}
void process_archive(const char *filename) {
static const struct TarFunctions tf = {
tarfileread,
tarobject, tarobject, tarobject, tarobject, tarobject
};
/* These need to be static so that we can pass their addresses to
* push_cleanup as arguments to the cu_xxx routines; if an error occurs
* we unwind the stack before processing the cleanup list, and these
* variables had better still exist ...
*/
static int p1[2];
static char cidirtmpnambuf[L_tmpnam+100];
static char *cidirbuf = NULL, *reasmbuf = NULL;
static struct fileinlist *newconffiles, *newfileslist;
static enum pkgstatus oldversionstatus;
static struct varbuf infofnvb, fnvb, depprobwhy;
static struct tarcontext tc;
int c1, r, admindirlen, i, infodirlen, infodirbaseused, status;
struct pkgiterator *it;
struct pkginfo *pkg, *otherpkg, *divpkg;
char *cidir, *cidirrest, *p;
char *pfilenamebuf, conffilenamebuf[MAXCONFFILENAME];
char *psize;
const char *pfilename, *newinfofilename;
struct fileinlist *newconff, **newconffileslastp;
struct fileinlist *cfile;
struct reversefilelistiter rlistit;
struct conffile *searchconff, **iconffileslastp, *newiconff;
struct filepackages *packageslump;
struct dependency *dsearch, *newdeplist, **newdeplistlastp;
struct dependency *newdep, *dep, *providecheck;
struct deppossi *psearch, **newpossilastp, *possi, *newpossi, *pdep;
FILE *conff;
DIR *dsd;
struct filenamenode *namenode;
struct dirent *de;
struct stat stab, oldfs;
struct pkg_deconf_list *deconpil, *deconpiltemp;
cleanup_pkg_failed= cleanup_conflictor_failed= 0;
admindirlen= strlen(admindir);
for (pfilename= filename ; pfilename && strlen(pfilename) > 30 &&
strchr(pfilename,'/') != NULL ; pfilename++ )
pfilename= strchr(pfilename,'/');
if (pfilename && pfilename != filename) {
pfilenamebuf= (char *)nfmalloc(strlen(pfilename)+5);
strcpy(pfilenamebuf,".../");
strcat(pfilenamebuf,pfilename);
pfilename= pfilenamebuf;
} else {
pfilename= filename;
}
if (stat(filename,&stab)) ohshite(_("cannot access archive"));
if (!f_noact) {
/* We can't `tentatively-reassemble' packages. */
if (!reasmbuf) {
reasmbuf= m_malloc(admindirlen+sizeof(REASSEMBLETMP)+5);
strcpy(reasmbuf,admindir);
strcat(reasmbuf,"/" REASSEMBLETMP);
}
if (unlink(reasmbuf) && errno != ENOENT)
ohshite(_("error ensuring `%.250s' doesn't exist"),reasmbuf);
push_cleanup(cu_pathname, ~0, NULL, 0, 1, (void *)reasmbuf);
c1= m_fork();
if (!c1) {
execlp(SPLITTER, SPLITTER, "-Qao", reasmbuf, filename, NULL);
ohshite(_("failed to exec dpkg-split to see if it's part of a multiparter"));
}
while ((r= waitpid(c1,&status,0)) == -1 && errno == EINTR);
if (r != c1) { onerr_abort++; ohshite(_("wait for dpkg-split failed")); }
switch (WIFEXITED(status) ? WEXITSTATUS(status) : -1) {
case 0:
/* It was a part - is it complete ? */
if (!stat(reasmbuf,&stab)) { /* Yes. */
filename= reasmbuf;
pfilename= _("reassembled package file");
break;
} else if (errno == ENOENT) { /* No. That's it, we skip it. */
return;
}
case 1:
/* No, it wasn't a part. */
break;
default:
checksubprocerr(status,SPLITTER,0);
}
}
/* Verify the package. */
if (!f_nodebsig && (stat(DEBSIGVERIFY, &stab)==0)) {
printf(_("Authenticating %s ...\n"), filename);
fflush(stdout);
c1 = m_fork();
if (!c1) {
execl(DEBSIGVERIFY, DEBSIGVERIFY, "-q", filename, NULL);
ohshite(_("failed to execl debsig-verify"));
} else {
int status;
waitpid(c1, &status, 0);
if (!(WIFEXITED(status) && WEXITSTATUS(status) == 0)) {
if (! fc_badverify) {
ohshit(_("Verification on package %s failed!"), filename);
} else {
fprintf(stderr, _("Verification on package %s failed,\nbut installing anyway as you requested.\n"), filename);
}
} else {
printf(_("passed\n"));
}
}
}
if (f_noact) {
cidir= cidirtmpnambuf;
/* We use tmpnam here, not to get a unique filename, but to get a unique directory. */
if (!tmpnam(cidir)) ohshite(_("unable to get unique filename for control info"));
strcat(cidir,"/");
} else {
/* We want it to be on the same filesystem so that we can
* use rename(2) to install the postinst &c.
*/
if (!cidirbuf)
cidirbuf= m_malloc(admindirlen+sizeof(CONTROLDIRTMP)+MAXCONTROLFILENAME+10);
cidir= cidirbuf;
strcpy(cidir,admindir);
strcat(cidir, "/" CONTROLDIRTMP);
}
cidirrest= cidir + strlen(cidir);
assert(*cidir && cidirrest[-1] == '/');
cidirrest[-1] = '\0';
ensure_pathname_nonexisting(cidir); cidirrest[-1]= '/';
push_cleanup(cu_cidir, ~0, NULL, 0, 2, (void *)cidir, (void *)cidirrest);
c1= m_fork();
if (!c1) {
cidirrest[-1] = '\0';
execlp(BACKEND, BACKEND, "--control", filename, cidir, NULL);
ohshite(_("failed to exec dpkg-deb to extract control information"));
}
waitsubproc(c1,BACKEND " --control",0);
strcpy(cidirrest,CONTROLFILE);
parsedb(cidir, pdb_recordavailable | pdb_rejectstatus | pdb_ignorefiles,
&pkg,NULL,NULL);
if (!pkg->files) {
pkg->files= nfmalloc(sizeof(struct filedetails));
pkg->files->next = NULL;
pkg->files->name = pkg->files->msdosname = pkg->files->md5sum = NULL;
}
/* Always nfmalloc. Otherwise, we may overwrite some other field(like md5sum). */
psize = nfmalloc(30);
sprintf(psize, "%lu", (unsigned long)stab.st_size);
pkg->files->size = psize;
if (cipaction->arg == act_avail) {
printf(_("Recorded info about %s from %s.\n"),pkg->name,pfilename);
pop_cleanup(ehflag_normaltidy);
return;
}
if (pkg->available.architecture && *pkg->available.architecture &&
strcmp(pkg->available.architecture,"all") &&
strcmp(pkg->available.architecture,architecture))
forcibleerr(fc_architecture,
_("package architecture (%s) does not match system (%s)"),
pkg->available.architecture,architecture);
if (!pkg->installed.valid) blankpackageperfile(&pkg->installed);
assert(pkg->available.valid);
for (deconpil= deconfigure;
deconpil;
deconpil= deconpiltemp) {
deconpiltemp= deconpil->next;
free(deconpil);
}
deconfigure = NULL;
clear_istobes();
if (!wanttoinstall(pkg,&pkg->available.version,1)) {
pop_cleanup(ehflag_normaltidy);
return;
}
/* Check if anything is installed that we conflict with, or not installed
* that we need */
pkg->clientdata->istobe= itb_installnew;
for (dsearch= pkg->available.depends; dsearch; dsearch= dsearch->next) {
switch (dsearch->type) {
case dep_conflicts:
/* Look for things we conflict with. */
check_conflict(dsearch, pkg, pfilename);
break;
case dep_breaks:
/* Look for things we break. */
check_breaks(dsearch, pkg, pfilename);
break;
case dep_provides:
/* Look for things that conflict with what we provide. */
if (dsearch->list->ed->installed.valid) {
for (psearch= dsearch->list->ed->installed.depended;
psearch;
psearch= psearch->nextrev) {
if (psearch->up->type != dep_conflicts) continue;
check_conflict(psearch->up, pkg, pfilename);
}
}
break;
case dep_suggests:
case dep_recommends:
case dep_depends:
case dep_replaces:
case dep_enhances:
/* Ignore these here. */
break;
case dep_predepends:
if (!depisok(dsearch, &depprobwhy, NULL, 1)) {
varbufaddc(&depprobwhy,0);
fprintf(stderr, _("dpkg: regarding %s containing %s, pre-dependency problem:\n%s"),
pfilename, pkg->name, depprobwhy.buf);
if (!force_depends(dsearch->list))
ohshit(_("pre-dependency problem - not installing %.250s"),pkg->name);
warning(_("ignoring pre-dependency problem!"));
}
}
}
/* Look for things that conflict with us. */
for (psearch= pkg->installed.depended; psearch; psearch= psearch->nextrev) {
if (psearch->up->type != dep_conflicts) continue;
check_conflict(psearch->up, pkg, pfilename);
}
ensure_allinstfiles_available();
filesdbinit();
trig_file_interests_ensure();
if (pkg->status != stat_notinstalled && pkg->status != stat_configfiles) {
printf(_("Preparing to replace %s %s (using %s) ...\n"),
pkg->name,
versiondescribe(&pkg->installed.version,vdew_nonambig),
pfilename);
log_action("upgrade", pkg);
} else {
printf(_("Unpacking %s (from %s) ...\n"),pkg->name,pfilename);
log_action("install", pkg);
}
if (f_noact) {
pop_cleanup(ehflag_normaltidy);
return;
}
/*
* OK, we're going ahead.
*/
trig_activate_packageprocessing(pkg);
strcpy(cidirrest, TRIGGERSCIFILE);
trig_parse_ci(cidir, NULL, trig_cicb_statuschange_activate, pkg);
/* Read the conffiles, and copy the hashes across. */
newconffiles = NULL;
newconffileslastp = &newconffiles;
push_cleanup(cu_fileslist, ~0, NULL, 0, 0);
strcpy(cidirrest,CONFFILESFILE);
conff= fopen(cidir,"r");
if (conff) {
push_cleanup(cu_closefile, ehflag_bombout, NULL, 0, 1, (void *)conff);
while (fgets(conffilenamebuf,MAXCONFFILENAME-2,conff)) {
p= conffilenamebuf + strlen(conffilenamebuf);
assert(p != conffilenamebuf);
if (p[-1] != '\n')
ohshit(_("name of conffile (starting `%.250s') is too long (>%d characters)"),
conffilenamebuf, MAXCONFFILENAME);
while (p > conffilenamebuf && isspace(p[-1])) --p;
if (p == conffilenamebuf) continue;
*p = '\0';
namenode= findnamenode(conffilenamebuf, 0);
namenode->oldhash= NEWCONFFILEFLAG;
newconff= newconff_append(&newconffileslastp, namenode);
/* Let's see if any packages have this file. If they do we
* check to see if they listed it as a conffile, and if they did
* we copy the hash across. Since (for plain file conffiles,
* which is the only kind we are supposed to have) there will
* only be one package which `has' the file, this will usually
* mean we only look in the package which we're installing now.
* The `conffiles' data in the status file is ignored when a
* package isn't also listed in the file ownership database as
* having that file. If several packages are listed as owning
* the file we pick one at random.
*/
searchconff = NULL;
for (packageslump= newconff->namenode->packages;
packageslump;
packageslump= packageslump->more) {
for (i=0; i < PERFILEPACKAGESLUMP && packageslump->pkgs[i]; i++) {
otherpkg= packageslump->pkgs[i];
debug(dbg_conffdetail,"process_archive conffile `%s' in package %s - conff ?",
newconff->namenode->name,otherpkg->name);
for (searchconff= otherpkg->installed.conffiles;
searchconff && strcmp(newconff->namenode->name,searchconff->name);
searchconff= searchconff->next)
debug(dbg_conffdetail,
"process_archive conffile `%s' in package %s - conff ? not `%s'",
newconff->namenode->name,otherpkg->name,searchconff->name);
if (searchconff) {
debug(dbg_conff,"process_archive conffile `%s' package=%s %s hash=%s",
newconff->namenode->name,otherpkg->name,
otherpkg == pkg ? "same" : "different!",
searchconff->hash);
if (otherpkg == pkg) goto xit_conff_hashcopy_srch;
}
}
}
xit_conff_hashcopy_srch:
if (searchconff) {
newconff->namenode->oldhash= searchconff->hash;
/* we don't copy `obsolete'; it's not obsolete in the new package */
} else {
debug(dbg_conff,"process_archive conffile `%s' no package, no hash",
newconff->namenode->name);
}
newconff->namenode->flags |= fnnf_new_conff;
}
if (ferror(conff)) ohshite(_("read error in %.250s"),cidir);
pop_cleanup(ehflag_normaltidy); /* conff= fopen() */
if (fclose(conff)) ohshite(_("error closing %.250s"),cidir);
} else {
if (errno != ENOENT) ohshite(_("error trying to open %.250s"),cidir);
}
/* All the old conffiles are marked with a flag, so that we don't delete
* them if they seem to disappear completely.
*/
oldconffsetflags(pkg->installed.conffiles);
for (i = 0 ; i < cflict_index ; i++) {
oldconffsetflags(conflictor[i]->installed.conffiles);
}
oldversionstatus= pkg->status;
assert(oldversionstatus <= stat_installed);
debug(dbg_general,"process_archive oldversionstatus=%s",
statusstrings[oldversionstatus]);
if (oldversionstatus == stat_halfconfigured ||
oldversionstatus == stat_triggersawaited ||
oldversionstatus == stat_triggerspending ||
oldversionstatus == stat_installed) {
pkg->eflag |= eflag_reinstreq;
pkg->status= stat_halfconfigured;
modstatdb_note(pkg);
push_cleanup(cu_prermupgrade, ~ehflag_normaltidy, NULL, 0, 1, (void *)pkg);
maintainer_script_alternative(pkg, PRERMFILE, "pre-removal", cidir, cidirrest,
"upgrade", "failed-upgrade");
pkg->status= stat_unpacked;
oldversionstatus= stat_unpacked;
modstatdb_note(pkg);
}
for (deconpil= deconfigure; deconpil; deconpil= deconpil->next) {
struct pkginfo *removing = deconpil->pkg_removal;
if (removing)
printf(_("De-configuring %s, to allow removal of %s ...\n"),
deconpil->pkg->name, removing->name);
else
printf(_("De-configuring %s ...\n"), deconpil->pkg->name);
trig_activate_packageprocessing(deconpil->pkg);
deconpil->pkg->status= stat_halfconfigured;
modstatdb_note(deconpil->pkg);
/* This means that we *either* go and run postinst abort-deconfigure,
* *or* queue the package for later configure processing, depending
* on which error cleanup route gets taken.
*/
push_cleanup(cu_prermdeconfigure, ~ehflag_normaltidy,
ok_prermdeconfigure, ehflag_normaltidy,
3, (void*)deconpil->pkg, (void*)removing, (void*)pkg);
if (removing) {
maintainer_script_installed(deconpil->pkg, PRERMFILE, "pre-removal",
"deconfigure", "in-favour", pkg->name,
versiondescribe(&pkg->available.version,
vdew_nonambig),
"removing", removing->name,
versiondescribe(&removing->installed.version,
vdew_nonambig),
NULL);
} else {
maintainer_script_installed(deconpil->pkg, PRERMFILE, "pre-removal",
"deconfigure", "in-favour", pkg->name,
versiondescribe(&pkg->available.version,
vdew_nonambig),
NULL);
}
}
for (i = 0 ; i < cflict_index; i++) {
if (!(conflictor[i]->status == stat_halfconfigured ||
conflictor[i]->status == stat_triggersawaited ||
conflictor[i]->status == stat_triggerspending ||
conflictor[i]->status == stat_installed)) continue;
trig_activate_packageprocessing(conflictor[i]);
conflictor[i]->status= stat_halfconfigured;
modstatdb_note(conflictor[i]);
push_cleanup(cu_prerminfavour, ~ehflag_normaltidy, NULL, 0,
2,(void*)conflictor[i],(void*)pkg);
maintainer_script_installed(conflictor[i], PRERMFILE, "pre-removal",
"remove", "in-favour", pkg->name,
versiondescribe(&pkg->available.version,
vdew_nonambig),
NULL);
conflictor[i]->status= stat_halfinstalled;
modstatdb_note(conflictor[i]);
}
pkg->eflag |= eflag_reinstreq;
if (pkg->status == stat_notinstalled)
pkg->installed.version= pkg->available.version;
pkg->status= stat_halfinstalled;
modstatdb_note(pkg);
if (oldversionstatus == stat_notinstalled) {
push_cleanup(cu_preinstverynew, ~ehflag_normaltidy, NULL, 0,
3,(void*)pkg,(void*)cidir,(void*)cidirrest);
maintainer_script_new(pkg, PREINSTFILE, "pre-installation", cidir, cidirrest,
"install", NULL);
} else if (oldversionstatus == stat_configfiles) {
push_cleanup(cu_preinstnew, ~ehflag_normaltidy, NULL, 0,
3,(void*)pkg,(void*)cidir,(void*)cidirrest);
maintainer_script_new(pkg, PREINSTFILE, "pre-installation", cidir, cidirrest,
"install", versiondescribe(&pkg->installed.version,
vdew_nonambig),
NULL);
} else {
push_cleanup(cu_preinstupgrade, ~ehflag_normaltidy, NULL, 0,
4,(void*)pkg,(void*)cidir,(void*)cidirrest,(void*)&oldversionstatus);
maintainer_script_new(pkg, PREINSTFILE, "pre-installation", cidir, cidirrest,
"upgrade", versiondescribe(&pkg->installed.version,
vdew_nonambig),
NULL);
printf(_("Unpacking replacement %.250s ...\n"),pkg->name);
}
/*
* Now we unpack the archive, backing things up as we go.
* For each file, we check to see if it already exists.
* There are several possibilities:
* + We are trying to install a non-directory ...
* - It doesn't exist. In this case we simply extract it.
* - It is a plain file, device, symlink, &c. We do an `atomic
* overwrite' using link() and rename(), but leave a backup copy.
* Later, when we delete the backup, we remove it from any other
* packages' lists.
* - It is a directory. In this case it depends on whether we're
* trying to install a symlink or something else.
* = If we're not trying to install a symlink we move the directory
* aside and extract the node. Later, when we recursively remove
* the backed-up directory, we remove it from any other packages'
* lists.
* = If we are trying to install a symlink we do nothing - ie,
* dpkg will never replace a directory tree with a symlink. This
* is to avoid embarrassing effects such as replacing a directory
* tree with a link to a link to the original directory tree.
* + We are trying to install a directory ...
* - It doesn't exist. We create it with the appropriate modes.
* - It exists as a directory or a symlink to one. We do nothing.
* - It is a plain file or a symlink (other than to a directory).
* We move it aside and create the directory. Later, when we
* delete the backup, we remove it from any other packages' lists.
*
* Install non-dir Install symlink Install dir
* Exists not X X X
* File/node/symlink LXR LXR BXR
* Directory BXR - -
*
* X: extract file/node/link/directory
* LX: atomic overwrite leaving backup
* B: ordinary backup
* R: later remove from other packages' lists
* -: do nothing
*
* After we've done this we go through the remaining things in the
* lists of packages we're trying to remove (including the old
* version of the current package). This happens in reverse order,
* so that we process files before the directories (or symlinks-to-
* directories) containing them.
* + If the thing is a conffile then we leave it alone for the purge
* operation.
* + Otherwise, there are several possibilities too:
* - The listed thing does not exist. We ignore it.
* - The listed thing is a directory or a symlink to a directory.
* We delete it only if it isn't listed in any other package.
* - The listed thing is not a directory, but was part of the package
* that was upgraded, we check to make sure the files aren't the
* same ones from the old package by checking dev/inode
* - The listed thing is not a directory or a symlink to one (ie,
* it's a plain file, device, pipe, &c, or a symlink to one, or a
* dangling symlink). We delete it.
* The removed packages' list becomes empty (of course, the new
* version of the package we're installing will have a new list,
* which replaces the old version's list).
*
* If at any stage we remove a file from a package's list, and the
* package isn't one we're already processing, and the package's
* list becomes empty as a result, we `vanish' the package. This
* means that we run its postrm with the `disappear' argument, and
* put the package in the `not-installed' state. If it had any
* conffiles, their hashes and ownership will have been transferred
* already, so we just ignore those and forget about them from the
* point of view of the disappearing package.
*
* NOTE THAT THE OLD POSTRM IS RUN AFTER THE NEW PREINST, since the
* files get replaced `as we go'.
*/
m_pipe(p1);
push_cleanup(cu_closepipe, ehflag_bombout, NULL, 0, 1, (void *)&p1[0]);
c1= m_fork();
if (!c1) {
m_dup2(p1[1],1); close(p1[0]); close(p1[1]);
execlp(BACKEND, BACKEND, "--fsys-tarfile", filename, NULL);
ohshite(_("unable to exec dpkg-deb to get filesystem archive"));
}
close(p1[1]);
p1[1] = -1;
newfileslist = NULL;
tc.newfilesp = &newfileslist;
push_cleanup(cu_fileslist, ~0, NULL, 0, 0);
tc.pkg= pkg;
tc.backendpipe= p1[0];
r= TarExtractor((void*)&tc, &tf);
if (r) {
if (errno) {
ohshite(_("error reading dpkg-deb tar output"));
} else {
ohshit(_("corrupted filesystem tarfile - corrupted package archive"));
}
}
fd_null_copy(p1[0], -1, _("dpkg-deb: zap possible trailing zeros"));
close(p1[0]);
p1[0] = -1;
waitsubproc(c1,BACKEND " --fsys-tarfile",PROCPIPE);
if (oldversionstatus == stat_halfinstalled || oldversionstatus == stat_unpacked) {
/* Packages that were in `installed' and `postinstfailed' have been reduced
* to `unpacked' by now, by the running of the prerm script.
*/
pkg->status= stat_halfinstalled;
modstatdb_note(pkg);
push_cleanup(cu_postrmupgrade, ~ehflag_normaltidy, NULL, 0, 1, (void *)pkg);
maintainer_script_alternative(pkg, POSTRMFILE, "post-removal", cidir, cidirrest,
"upgrade", "failed-upgrade");
}
/* If anything goes wrong while tidying up it's a bit late to do
* anything about it. However, we don't install the new status
* info yet, so that a future dpkg installation will put everything
* right (we hope).
*
* If something does go wrong later the `conflictor' package will be
* left in the `removal_failed' state. Removing or installing it
* will be impossible if it was required because of the conflict with
* the package we're installing now and (presumably) the dependency
* by other packages. This means that the files it contains in
* common with this package will hang around until we successfully
* get this package installed, after which point we can trust the
* conflicting package's file list, which will have been updated to
* remove any files in this package.
*/
push_checkpoint(~ehflag_bombout, ehflag_normaltidy);
/* Now we delete all the files that were in the old version of
* the package only, except (old or new) conffiles, which we leave
* alone.
*/
reversefilelist_init(&rlistit,pkg->clientdata->files);
while ((namenode= reversefilelist_next(&rlistit))) {
struct filenamenode *usenode;
if ((namenode->flags & fnnf_new_conff) ||
(namenode->flags & fnnf_new_inarchive))
continue;
usenode = namenodetouse(namenode, pkg);
trig_file_activate(usenode, pkg);
fnamevb.used= fnameidlu;
varbufaddstr(&fnamevb, usenode->name);
varbufaddc(&fnamevb,0);
if (!stat(namenode->name,&stab) && S_ISDIR(stab.st_mode)) {
debug(dbg_eachfiledetail, "process_archive: %s is a directory",
namenode->name);
if (isdirectoryinuse(namenode,pkg)) continue;
}
if (lstat(fnamevb.buf, &oldfs)) {
if (!(errno == ENOENT || errno == ELOOP || errno == ENOTDIR))
warning(_("could not stat old file '%.250s' so not deleting it: %s"),
fnamevb.buf, strerror(errno));
continue;
}
if (S_ISDIR(oldfs.st_mode)) {
if (rmdir(fnamevb.buf)) {
warning(_("unable to delete old directory '%.250s': %s"),
namenode->name, strerror(errno));
} else if ((namenode->flags & fnnf_old_conff)) {
warning(_("old conffile '%.250s' was an empty directory "
"(and has now been deleted)"), namenode->name);
}
} else {
/* Ok, it's an old file, but is it really not in the new package?
* It might be known by a different name because of symlinks.
*
* We need to check to make sure, so we stat the file, then compare
* it to the new list. If we find a dev/inode match, we assume they
* are the same file, and leave it alone. NOTE: we don't check in
* other packages for sanity reasons (we don't want to stat _all_
* the files on the system).
*
* We run down the list of _new_ files in this package. This keeps
* the process a little leaner. We are only worried about new ones
* since ones that stayed the same don't really apply here.
*/
struct fileinlist *sameas = NULL;
static struct stat empty_stat;
struct varbuf cfilename = VARBUF_INIT;
/* If we can't stat the old or new file, or it's a directory,
* we leave it up to the normal code
*/
debug(dbg_eachfile, "process_archive: checking %s for same files on "
"upgrade/downgrade", fnamevb.buf);
for (cfile= newfileslist; cfile; cfile= cfile->next) {
if (!cfile->namenode->filestat) {
struct stat tmp_stat;
varbufreset(&cfilename);
varbufaddstr(&cfilename, instdir);
varbufaddc(&cfilename, '/');
varbufaddstr(&cfilename, cfile->namenode->name);
varbufaddc(&cfilename, '\0');
if (lstat(cfilename.buf, &tmp_stat) == 0) {
cfile->namenode->filestat = nfmalloc(sizeof(struct stat));
memcpy(cfile->namenode->filestat, &tmp_stat, sizeof(struct stat));
} else {
if (!(errno == ENOENT || errno == ELOOP || errno == ENOTDIR))
ohshite(_("unable to stat other new file `%.250s'"),
cfile->namenode->name);
cfile->namenode->filestat = &empty_stat;
continue;
}
}
if (cfile->namenode->filestat == &empty_stat)
continue;
if (oldfs.st_dev == cfile->namenode->filestat->st_dev &&
oldfs.st_ino == cfile->namenode->filestat->st_ino) {
if (sameas)
warning(_("old file '%.250s' is the same as several new files! "
"(both '%.250s' and '%.250s')"), fnamevb.buf,
sameas->namenode->name, cfile->namenode->name);
sameas= cfile;
debug(dbg_eachfile, "process_archive: not removing %s,"
" since it matches %s", fnamevb.buf, cfile->namenode->name);
}
}
varbuffree(&cfilename);
if ((namenode->flags & fnnf_old_conff)) {
if (sameas) {
if (sameas->namenode->flags & fnnf_new_conff) {
if (!strcmp(sameas->namenode->oldhash, NEWCONFFILEFLAG)) {
sameas->namenode->oldhash= namenode->oldhash;
debug(dbg_eachfile, "process_archive: old conff %s"
" is same as new conff %s, copying hash",
namenode->name, sameas->namenode->name);
} else {
debug(dbg_eachfile, "process_archive: old conff %s"
" is same as new conff %s but latter already has hash",
namenode->name, sameas->namenode->name);
}
}
} else {
debug(dbg_eachfile, "process_archive: old conff %s"
" is disappearing", namenode->name);
namenode->flags |= fnnf_obs_conff;
newconff_append(&newconffileslastp, namenode);
addfiletolist(&tc, namenode);
}
continue;
}
if (sameas)
continue;
if (secure_unlink_statted(fnamevb.buf, &oldfs)) {
warning(_("unable to securely remove old file '%.250s': %s"),
namenode->name, strerror(errno));
}
} /* !S_ISDIR */
}
/* OK, now we can write the updated files-in-this package list,
* since we've done away (hopefully) with all the old junk.
*/
write_filelist_except(pkg,newfileslist,0);
/* Trigger interests may have changed.
* Firstly we go through the old list of interests deleting them.
* Then we go through the new list adding them.
*/
strcpy(cidirrest, TRIGGERSCIFILE);
trig_parse_ci(pkgadminfile(pkg, TRIGGERSCIFILE),
trig_cicb_interest_delete, NULL, pkg);
trig_parse_ci(cidir, trig_cicb_interest_add, NULL, pkg);
trig_file_interests_save();
/* We also install the new maintainer scripts, and any other
* cruft that may have come along with the package. First
* we go through the existing scripts replacing or removing
* them as appropriate; then we go through the new scripts
* (any that are left) and install them.
*/
debug(dbg_general, "process_archive updating info directory");
varbufreset(&infofnvb);
varbufaddstr(&infofnvb,admindir);
varbufaddstr(&infofnvb, "/" INFODIR);
infodirlen= infofnvb.used;
varbufaddc(&infofnvb,0);
dsd= opendir(infofnvb.buf);
if (!dsd) ohshite(_("cannot read info directory"));
push_cleanup(cu_closedir, ~0, NULL, 0, 1, (void *)dsd);
while ((de = readdir(dsd)) != NULL) {
debug(dbg_veryverbose, "process_archive info file `%s'", de->d_name);
if (de->d_name[0] == '.') continue; /* ignore dotfiles, including `.' and `..' */
p= strrchr(de->d_name,'.'); if (!p) continue; /* ignore anything odd */
if (strlen(pkg->name) != (size_t)(p-de->d_name) ||
strncmp(de->d_name,pkg->name,p-de->d_name)) continue;
debug(dbg_stupidlyverbose, "process_archive info this pkg");
/* Right do we have one ? */
p++; /* skip past the full stop */
if (!strcmp(p,LISTFILE)) continue; /* We do the list separately */
if (strlen(p) > MAXCONTROLFILENAME)
ohshit(_("old version of package has overly-long info file name starting `%.250s'"),
de->d_name);
infofnvb.used= infodirlen;
varbufaddstr(&infofnvb,de->d_name);
varbufaddc(&infofnvb,0);
strcpy(cidirrest,p);
if (!rename(cidir,infofnvb.buf)) {
debug(dbg_scripts, "process_archive info installed %s as %s",
cidir, infofnvb.buf);
} else if (errno == ENOENT) {
/* Right, no new version. */
if (unlink(infofnvb.buf))
ohshite(_("unable to remove obsolete info file `%.250s'"),infofnvb.buf);
debug(dbg_scripts, "process_archive info unlinked %s",infofnvb.buf);
} else {
ohshite(_("unable to install (supposed) new info file `%.250s'"),cidir);
}
}
pop_cleanup(ehflag_normaltidy); /* closedir */
*cidirrest = '\0'; /* the directory itself */
dsd= opendir(cidir);
if (!dsd) ohshite(_("unable to open temp control directory"));
push_cleanup(cu_closedir, ~0, NULL, 0, 1, (void *)dsd);
while ((de= readdir(dsd))) {
if (strchr(de->d_name,'.')) {
debug(dbg_scripts,"process_archive tmp.ci script/file `%s' contains dot",
de->d_name);
continue;
}
if (strlen(de->d_name) > MAXCONTROLFILENAME)
ohshit(_("package contains overly-long control info file name (starting `%.50s')"),
de->d_name);
strcpy(cidirrest,de->d_name);
/* First we check it's not a directory. */
if (!rmdir(cidir))
ohshit(_("package control info contained directory `%.250s'"),cidir);
else if (errno != ENOTDIR)
ohshite(_("package control info rmdir of `%.250s' didn't say not a dir"),de->d_name);
if (!strcmp(de->d_name,CONTROLFILE)) {
debug(dbg_scripts,"process_archive tmp.ci script/file `%s' is control",cidir);
continue; /* ignore the control file */
}
if (!strcmp(de->d_name,LISTFILE)) {
warning(_("package %s contained list as info file"), pkg->name);
continue;
}
/* Right, install it */
newinfofilename= pkgadminfile(pkg,de->d_name);
if (rename(cidir,newinfofilename))
ohshite(_("unable to install new info file `%.250s' as `%.250s'"),
cidir,newinfofilename);
debug(dbg_scripts,"process_archive tmp.ci script/file `%s' installed as `%s'",
cidir, newinfofilename);
}
pop_cleanup(ehflag_normaltidy); /* closedir */
/* Update the status database.
* This involves copying each field across from the `available'
* to the `installed' half of the pkg structure.
* For some of the fields we have to do a complicated construction
* operation; for others we can just copy the value.
* We tackle the fields in the order they appear, so that
* we don't miss any out :-).
* At least we don't have to copy any strings that are referred
* to, because these are never modified and never freed.
*/
/* The dependencies are the most difficult. We have to build
* a whole new forward dependency tree. At least the reverse
* links (linking our deppossi's into the reverse chains)
* can be done by copy_dependency_links.
*/
newdeplist = NULL;
newdeplistlastp = &newdeplist;
for (dep= pkg->available.depends; dep; dep= dep->next) {
newdep= nfmalloc(sizeof(struct dependency));
newdep->up= pkg;
newdep->next = NULL;
newdep->list = NULL;
newpossilastp = &newdep->list;
for (possi= dep->list; possi; possi= possi->next) {
newpossi= nfmalloc(sizeof(struct deppossi));
newpossi->up= newdep;
newpossi->ed= possi->ed;
newpossi->next = NULL;
newpossi->nextrev = newpossi->backrev = NULL;
newpossi->verrel= possi->verrel;
if (possi->verrel != dvr_none)
newpossi->version= possi->version;
else
blankversion(&newpossi->version);
newpossi->cyclebreak= 0;
*newpossilastp= newpossi;
newpossilastp= &newpossi->next;
}
newdep->type= dep->type;
*newdeplistlastp= newdep;
newdeplistlastp= &newdep->next;
}
/* Right, now we've replicated the forward tree, we
* get copy_dependency_links to remove all the old dependency
* structures from the reverse links and add the new dependency
* structures in instead. It also copies the new dependency
* structure pointer for this package into the right field.
*/
copy_dependency_links(pkg,&pkg->installed.depends,newdeplist,0);
/* The `depended' pointer in the structure doesn't represent anything
* that is actually specified by this package - it's there so we
* can find out what other packages refer to this one. So,
* we don't copy it. We go straight on to copy the text fields.
*/
pkg->installed.essential= pkg->available.essential;
pkg->installed.description= pkg->available.description;
pkg->installed.maintainer= pkg->available.maintainer;
pkg->installed.source= pkg->available.source;
pkg->installed.architecture= pkg->available.architecture;
pkg->installed.installedsize= pkg->available.installedsize;
pkg->installed.version= pkg->available.version;
pkg->installed.origin = pkg->available.origin;
pkg->installed.bugs = pkg->available.bugs;
/* We have to generate our own conffiles structure. */
pkg->installed.conffiles = NULL;
iconffileslastp = &pkg->installed.conffiles;
for (cfile= newconffiles; cfile; cfile= cfile->next) {
newiconff= nfmalloc(sizeof(struct conffile));
newiconff->next = NULL;
newiconff->name= nfstrsave(cfile->namenode->name);
newiconff->hash= nfstrsave(cfile->namenode->oldhash);
newiconff->obsolete= !!(cfile->namenode->flags & fnnf_obs_conff);
*iconffileslastp= newiconff;
iconffileslastp= &newiconff->next;
}
/* We can just copy the arbitrary fields list, because it is
* never even rearranged. Phew!
*/
pkg->installed.arbs= pkg->available.arbs;
/* Check for disappearing packages:
* We go through all the packages on the system looking for ones
* whose files are entirely part of the one we've just unpacked
* (and which actually *have* some files!).
*
* Any that we find are removed - we run the postrm with `disappear'
* as an argument, and remove their info/... files and status info.
* Conffiles are ignored (the new package had better do something
* with them !).
*/
it= iterpkgstart();
while ((otherpkg = iterpkgnext(it)) != NULL) {
ensure_package_clientdata(otherpkg);
if (otherpkg == pkg ||
otherpkg->status == stat_notinstalled ||
otherpkg->status == stat_configfiles ||
otherpkg->clientdata->istobe == itb_remove ||
!otherpkg->clientdata->files) continue;
debug(dbg_veryverbose, "process_archive checking disappearance %s",otherpkg->name);
assert(otherpkg->clientdata->istobe == itb_normal ||
otherpkg->clientdata->istobe == itb_deconfigure);
for (cfile= otherpkg->clientdata->files;
cfile && !strcmp(cfile->namenode->name,"/.");
cfile= cfile->next);
if (!cfile) {
debug(dbg_stupidlyverbose, "process_archive no non-root, no disappear");
continue;
}
for (cfile= otherpkg->clientdata->files;
cfile && !filesavespackage(cfile,otherpkg,pkg);
cfile= cfile->next);
if (cfile) continue;
/* So dependency things will give right answers ... */
otherpkg->clientdata->istobe= itb_remove;
debug(dbg_veryverbose, "process_archive disappear checking dependencies");
for (pdep= otherpkg->installed.depended;
pdep;
pdep= pdep->nextrev) {
if (pdep->up->type != dep_depends && pdep->up->type != dep_predepends &&
pdep->up->type != dep_recommends) continue;
if (depisok(pdep->up, &depprobwhy, NULL, 0))
continue;
varbufaddc(&depprobwhy,0);
debug(dbg_veryverbose,"process_archive cannot disappear: %s",depprobwhy.buf);
break;
}
if (!pdep) {
/* If we haven't found a reason not to yet, let's look some more. */
for (providecheck= otherpkg->installed.depends;
providecheck;
providecheck= providecheck->next) {
if (providecheck->type != dep_provides) continue;
for (pdep= providecheck->list->ed->installed.depended;
pdep;
pdep= pdep->nextrev) {
if (pdep->up->type != dep_depends && pdep->up->type != dep_predepends &&
pdep->up->type != dep_recommends)
continue;
if (depisok(pdep->up, &depprobwhy, NULL, 0))
continue;
varbufaddc(&depprobwhy,0);
debug(dbg_veryverbose,"process_archive cannot disappear (provides %s): %s",
providecheck->list->ed->name, depprobwhy.buf);
goto break_from_both_loops_at_once;
}
}
break_from_both_loops_at_once:;
}
otherpkg->clientdata->istobe= itb_normal;
if (pdep) continue;
printf(_("(Noting disappearance of %s, which has been completely replaced.)\n"),
otherpkg->name);
debug(dbg_general, "process_archive disappearing %s",otherpkg->name);
/* No, we're disappearing it. This is the wrong time to go and
* run maintainer scripts and things, as we can't back out. But
* what can we do ? It has to be run this late.
*/
trig_activate_packageprocessing(otherpkg);
maintainer_script_installed(otherpkg, POSTRMFILE,
"post-removal script (for disappearance)",
"disappear", pkg->name,
versiondescribe(&pkg->available.version,
vdew_nonambig),
NULL);
/* OK, now we delete all the stuff in the `info' directory .. */
varbufreset(&fnvb);
varbufaddstr(&fnvb,admindir);
varbufaddstr(&fnvb,"/" INFODIR);
infodirbaseused= fnvb.used;
varbufaddc(&fnvb,0);
dsd= opendir(fnvb.buf); if (!dsd) ohshite(_("cannot read info directory"));
push_cleanup(cu_closedir, ~0, NULL, 0, 1, (void *)dsd);
debug(dbg_general, "process_archive disappear cleaning info directory");
while ((de = readdir(dsd)) != NULL) {
debug(dbg_veryverbose, "process_archive info file `%s'", de->d_name);
if (de->d_name[0] == '.') continue;
p= strrchr(de->d_name,'.'); if (!p) continue;
if (strlen(otherpkg->name) != (size_t)(p-de->d_name) ||
strncmp(de->d_name,otherpkg->name,p-de->d_name)) continue;
debug(dbg_stupidlyverbose, "process_archive info this pkg");
fnvb.used= infodirbaseused;
varbufaddstr(&fnvb,de->d_name);
varbufaddc(&fnvb,0);
if (unlink(fnvb.buf))
ohshite(_("unable to delete disappearing control info file `%.250s'"),fnvb.buf);
debug(dbg_scripts, "process_archive info unlinked %s",fnvb.buf);
}
pop_cleanup(ehflag_normaltidy); /* closedir */
otherpkg->status= stat_notinstalled;
otherpkg->want = want_unknown;
otherpkg->eflag = eflag_ok;
blankversion(&otherpkg->configversion);
blankpackageperfile(&otherpkg->installed);
otherpkg->clientdata->fileslistvalid= 0;
modstatdb_note(otherpkg);
} /* while (otherpkg= ... */
iterpkgend(it);
/* Delete files from any other packages' lists.
* We have to do this before we claim this package is in any
* sane kind of state, as otherwise we might delete by mistake
* a file that we overwrote, when we remove the package which
* had the version we overwrote. To prevent this we make
* sure that we don't claim this package is OK until we
* have claimed `ownership' of all its files.
*/
for (cfile= newfileslist; cfile; cfile= cfile->next) {
if (!(cfile->namenode->flags & fnnf_elide_other_lists)) continue;
if (cfile->namenode->divert && cfile->namenode->divert->useinstead) {
divpkg= cfile->namenode->divert->pkg;
if (divpkg == pkg) {
debug(dbg_eachfile,
"process_archive not overwriting any `%s' (overriding, `%s')",
cfile->namenode->name, cfile->namenode->divert->useinstead->name);
continue;
} else {
debug(dbg_eachfile,
"process_archive looking for overwriting `%s' (overridden by %s)",
cfile->namenode->name, divpkg ? divpkg->name : "<local>");
}
} else {
divpkg = NULL;
debug(dbg_eachfile, "process_archive looking for overwriting `%s'",
cfile->namenode->name);
}
for (packageslump= cfile->namenode->packages;
packageslump;
packageslump= packageslump->more) {
for (i=0; i < PERFILEPACKAGESLUMP && packageslump->pkgs[i]; i++) {
otherpkg= packageslump->pkgs[i];
debug(dbg_eachfiledetail, "process_archive ... found in %s\n",otherpkg->name);
/* If !fileslistvalid then it's one of the disappeared packages above
* and we don't bother with it here, clearly.
*/
if (otherpkg == pkg || !otherpkg->clientdata->fileslistvalid) continue;
if (otherpkg == divpkg) {
debug(dbg_eachfiledetail, "process_archive ... diverted, skipping\n");
continue;
}
/* Found one. We delete remove the list entry for this file,
* (and any others in the same package) and then mark the package
* as requiring a reread.
*/
write_filelist_except(otherpkg, otherpkg->clientdata->files, 1);
ensure_package_clientdata(otherpkg);
debug(dbg_veryverbose, "process_archive overwrote from %s",otherpkg->name);
}
}
}
/* Right, the package we've unpacked is now in a reasonable state.
* The only thing that we have left to do with it is remove
* backup files, and we can leave the user to fix that if and when
* it happens (we leave the reinstall required flag, of course).
*/
pkg->status= stat_unpacked;
modstatdb_note(pkg);
/* Now we delete all the backup files that we made when
* extracting the archive - except for files listed as conffiles
* in the new package.
* This time we count it as an error if something goes wrong.
*
* Note that we don't ever delete things that were in the old
* package as a conffile and don't appear at all in the new.
* They stay recorded as obsolete conffiles and will eventually
* (if not taken over by another package) be forgotten.
*/
for (cfile= newfileslist; cfile; cfile= cfile->next) {
if (cfile->namenode->flags & fnnf_new_conff) continue;
fnametmpvb.used= fnameidlu;
varbufaddstr(&fnametmpvb,namenodetouse(cfile->namenode,pkg)->name);
varbufaddstr(&fnametmpvb,DPKGTEMPEXT);
varbufaddc(&fnametmpvb,0);
ensure_pathname_nonexisting(fnametmpvb.buf);
}
/* OK, we're now fully done with the main package.
* This is quite a nice state, so we don't unwind past here.
*/
pkg->eflag = eflag_ok;
modstatdb_note(pkg);
push_checkpoint(~ehflag_bombout, ehflag_normaltidy);
/* Only the removal of the conflictor left to do.
* The files list for the conflictor is still a little inconsistent in-core,
* as we have not yet updated the filename->packages mappings; however,
* the package->filenames mapping is
*/
for (i = 0 ; i < cflict_index ; i++) {
/* We need to have the most up-to-date info about which files are what ... */
ensure_allinstfiles_available();
removal_bulk(conflictor[i]);
}
if (cipaction->arg == act_install) add_to_queue(pkg);
}
void cmpversions(const char *const *argv) {
struct relationinfo {
const char *string;
/* These values are exit status codes, so 0 = true, 1 = false. */
int if_lesser, if_equal, if_greater;
int if_none_a, if_none_both, if_none_b;
};
static const struct relationinfo relationinfos[]= {
/* < = > !a!2!b */
{ "le", 0,0,1, 0,0,1 },
{ "lt", 0,1,1, 0,1,1 },
{ "eq", 1,0,1, 1,0,1 },
{ "ne", 0,1,0, 0,1,0 },
{ "ge", 1,0,0, 1,0,0 },
{ "gt", 1,1,0, 1,1,0 },
/* These treat an empty version as later than any version. */
{ "le-nl", 0,0,1, 1,0,0 },
{ "lt-nl", 0,1,1, 1,1,0 },
{ "ge-nl", 1,0,0, 0,0,1 },
{ "gt-nl", 1,1,0, 0,1,1 },
/* For compatibility with dpkg control file syntax. */
{ "<", 0,0,1, 0,0,1 },
{ "<=", 0,0,1, 0,0,1 },
{ "<<", 0,1,1, 0,1,1 },
{ "=", 1,0,1, 1,0,1 },
{ ">", 1,0,0, 1,0,0 },
{ ">=", 1,0,0, 1,0,0 },
{ ">>", 1,1,0, 1,1,0 },
{ NULL }
};
const struct relationinfo *rip;
const char *emsg;
struct versionrevision a, b;
int r;
if (!argv[0] || !argv[1] || !argv[2] || argv[3])
badusage(_("--compare-versions takes three arguments:"
" <version> <relation> <version>"));
for (rip=relationinfos; rip->string && strcmp(rip->string,argv[1]); rip++);
if (!rip->string) badusage(_("--compare-versions bad relation"));
if (*argv[0] && strcmp(argv[0],"<unknown>")) {
emsg= parseversion(&a,argv[0]);
if (emsg)
ohshit(_("version '%s' has bad syntax: %s"), argv[0], emsg);
} else {
blankversion(&a);
}
if (*argv[2] && strcmp(argv[2],"<unknown>")) {
emsg= parseversion(&b,argv[2]);
if (emsg)
ohshit(_("version '%s' has bad syntax: %s"), argv[2], emsg);
} else {
blankversion(&b);
}
if (!informativeversion(&a)) {
exit(informativeversion(&b) ? rip->if_none_a : rip->if_none_both);
} else if (!informativeversion(&b)) {
exit(rip->if_none_b);
}
r= versioncompare(&a,&b);
debug(dbg_general,"cmpversions a=`%s' b=`%s' r=%d",
versiondescribe(&a,vdew_always),
versiondescribe(&b,vdew_always),
r);
if (r>0) exit(rip->if_greater);
else if (r<0) exit(rip->if_lesser);
else exit(rip->if_equal);
}
/*
* Does cycle checking. Doesn't mind if pkg has no triggers pending - in
* that case does nothing but fix up any stale awaiters.
*/
void
trigproc(struct pkginfo *pkg, enum trigproc_type type)
{
static struct varbuf namesarg;
struct varbuf depwhynot = VARBUF_INIT;
struct trigpend *tp;
struct pkginfo *gaveup;
debug(dbg_triggers, "trigproc %s", pkg_name(pkg, pnaw_always));
if (pkg->clientdata->trigprocdeferred)
pkg->clientdata->trigprocdeferred->pkg = NULL;
pkg->clientdata->trigprocdeferred = NULL;
if (pkg->trigpend_head) {
enum dep_check ok;
assert(pkg->status == PKG_STAT_TRIGGERSPENDING ||
pkg->status == PKG_STAT_TRIGGERSAWAITED);
if (dependtry > 1) {
gaveup = check_trigger_cycle(pkg);
if (gaveup == pkg)
return;
if (findbreakcycle(pkg))
sincenothing = 0;
}
ok = dependencies_ok(pkg, NULL, &depwhynot);
if (ok == DEP_CHECK_DEFER) {
varbuf_destroy(&depwhynot);
enqueue_package(pkg);
return;
} else if (ok == DEP_CHECK_HALT) {
/* We cannot process this package on this dpkg run,
* and we can get here repeatedly if this package is
* required to make progress for other packages. So
* reset the trigger cycles tracking to avoid bogus
* cycle detections. */
trigproc_reset_cycle();
/* When doing opportunistic trigger processig, nothing
* requires us to be able to make progress; skip the
* package and silently ignore the error due to
* unsatisfiable dependencies. */
if (type == TRIGPROC_TRY) {
varbuf_destroy(&depwhynot);
return;
}
sincenothing = 0;
varbuf_end_str(&depwhynot);
notice(_("dependency problems prevent processing "
"triggers for %s:\n%s"),
pkg_name(pkg, pnaw_nonambig), depwhynot.buf);
varbuf_destroy(&depwhynot);
ohshit(_("dependency problems - leaving triggers unprocessed"));
} else if (depwhynot.used) {
varbuf_end_str(&depwhynot);
notice(_("%s: dependency problems, but processing "
"triggers anyway as you requested:\n%s"),
pkg_name(pkg, pnaw_nonambig), depwhynot.buf);
varbuf_destroy(&depwhynot);
}
if (dependtry <= 1) {
gaveup = check_trigger_cycle(pkg);
if (gaveup == pkg)
return;
}
printf(_("Processing triggers for %s (%s) ...\n"),
pkg_name(pkg, pnaw_nonambig),
versiondescribe(&pkg->installed.version, vdew_nonambig));
log_action("trigproc", pkg, &pkg->installed);
varbuf_reset(&namesarg);
for (tp = pkg->trigpend_head; tp; tp = tp->next) {
varbuf_add_char(&namesarg, ' ');
varbuf_add_str(&namesarg, tp->name);
}
varbuf_end_str(&namesarg);
/* Setting the status to half-configured
* causes modstatdb_note to clear pending triggers. */
pkg_set_status(pkg, PKG_STAT_HALFCONFIGURED);
modstatdb_note(pkg);
if (!f_noact) {
sincenothing = 0;
maintscript_postinst(pkg, "triggered",
namesarg.buf + 1, NULL);
}
post_postinst_tasks(pkg, PKG_STAT_INSTALLED);
} else {
/* In other branch is done by modstatdb_note(), from inside
* post_postinst_tasks(). */
trig_clear_awaiters(pkg);
}
}
/* Overly complex function that builds a .deb file
*/
void do_build(const char *const *argv) {
static const char *const maintainerscripts[]= {
PREINSTFILE, POSTINSTFILE, PRERMFILE, POSTRMFILE, NULL
};
char *m;
const char *debar, *directory, *const *mscriptp, *versionstring, *arch;
char *controlfile, *tfbuf;
const char *envbuf;
struct pkginfo *checkedinfo;
struct arbitraryfield *field;
FILE *ar, *cf;
int p1[2],p2[2],p3[2], warns, errs, n, c, subdir, gzfd;
pid_t c1,c2,c3;
struct stat controlstab, datastab, mscriptstab, debarstab;
char conffilename[MAXCONFFILENAME+1];
time_t thetime= 0;
struct file_info *fi;
struct file_info *symlist = NULL;
struct file_info *symlist_end = NULL;
/* Decode our arguments */
directory = *argv++;
if (!directory)
badusage(_("--%s needs a <directory> argument"), cipaction->olong);
/* template for our tempfiles */
if ((envbuf= getenv("TMPDIR")) == NULL)
envbuf= P_tmpdir;
tfbuf = m_malloc(strlen(envbuf) + 13);
strcpy(tfbuf,envbuf);
strcat(tfbuf,"/dpkg.XXXXXX");
subdir= 0;
debar = *argv++;
if (debar != NULL) {
if (*argv) badusage(_("--build takes at most two arguments"));
if (debar) {
if (stat(debar,&debarstab)) {
if (errno != ENOENT)
ohshite(_("unable to check for existence of archive `%.250s'"),debar);
} else if (S_ISDIR(debarstab.st_mode)) {
subdir= 1;
}
}
} else {
m= m_malloc(strlen(directory) + sizeof(DEBEXT));
strcpy(m, directory);
path_rtrim_slash_slashdot(m);
strcat(m, DEBEXT);
debar= m;
}
/* Perform some sanity checks on the to-be-build package.
*/
if (nocheckflag) {
if (subdir)
ohshit(_("target is directory - cannot skip control file check"));
warning(_("not checking contents of control area."));
printf(_("dpkg-deb: building an unknown package in '%s'.\n"), debar);
} else {
controlfile= m_malloc(strlen(directory) + sizeof(BUILDCONTROLDIR) +
sizeof(CONTROLFILE) + sizeof(CONFFILESFILE) +
sizeof(POSTINSTFILE) + sizeof(PREINSTFILE) +
sizeof(POSTRMFILE) + sizeof(PRERMFILE) +
MAXCONFFILENAME + 5);
/* Lets start by reading in the control-file so we can check its contents */
strcpy(controlfile, directory);
strcat(controlfile, "/" BUILDCONTROLDIR "/" CONTROLFILE);
warns= 0; errs= 0;
parsedb(controlfile, pdb_recordavailable|pdb_rejectstatus,
&checkedinfo, stderr, &warns);
assert(checkedinfo->available.valid);
if (strspn(checkedinfo->name,
"abcdefghijklmnopqrstuvwxyz0123456789+-.")
!= strlen(checkedinfo->name))
ohshit(_("package name has characters that aren't lowercase alphanums or `-+.'"));
if (checkedinfo->priority == pri_other) {
warning(_("'%s' contains user-defined Priority value '%s'"),
controlfile, checkedinfo->otherpriority);
warns++;
}
for (field= checkedinfo->available.arbs; field; field= field->next) {
if (known_arbitrary_field(field))
continue;
warning(_("'%s' contains user-defined field '%s'"),
controlfile, field->name);
warns++;
}
checkversion(checkedinfo->available.version.version,
_("(upstream) version"), &errs);
checkversion(checkedinfo->available.version.revision,
_("Debian revision"), &errs);
if (errs) ohshit(_("%d errors in control file"),errs);
if (subdir) {
versionstring= versiondescribe(&checkedinfo->available.version,vdew_never);
arch= checkedinfo->available.architecture; if (!arch) arch= "";
m= m_malloc(sizeof(DEBEXT)+1+strlen(debar)+1+strlen(checkedinfo->name)+
strlen(versionstring)+1+strlen(arch));
sprintf(m,"%s/%s_%s%s%s" DEBEXT,debar,checkedinfo->name,versionstring,
arch[0] ? "_" : "", arch);
debar= m;
}
printf(_("dpkg-deb: building package `%s' in `%s'.\n"), checkedinfo->name, debar);
/* Check file permissions */
strcpy(controlfile, directory);
strcat(controlfile, "/" BUILDCONTROLDIR "/");
if (lstat(controlfile, &mscriptstab))
ohshite(_("unable to stat control directory"));
if (!S_ISDIR(mscriptstab.st_mode))
ohshit(_("control directory is not a directory"));
if ((mscriptstab.st_mode & 07757) != 0755)
ohshit(_("control directory has bad permissions %03lo (must be >=0755 "
"and <=0775)"), (unsigned long)(mscriptstab.st_mode & 07777));
for (mscriptp= maintainerscripts; *mscriptp; mscriptp++) {
strcpy(controlfile, directory);
strcat(controlfile, "/" BUILDCONTROLDIR "/");
strcat(controlfile, *mscriptp);
if (!lstat(controlfile,&mscriptstab)) {
if (S_ISLNK(mscriptstab.st_mode)) continue;
if (!S_ISREG(mscriptstab.st_mode))
ohshit(_("maintainer script `%.50s' is not a plain file or symlink"),*mscriptp);
if ((mscriptstab.st_mode & 07557) != 0555)
ohshit(_("maintainer script `%.50s' has bad permissions %03lo "
"(must be >=0555 and <=0775)"),
*mscriptp, (unsigned long)(mscriptstab.st_mode & 07777));
} else if (errno != ENOENT) {
ohshite(_("maintainer script `%.50s' is not stattable"),*mscriptp);
}
}
/* Check if conffiles contains sane information */
strcpy(controlfile, directory);
strcat(controlfile, "/" BUILDCONTROLDIR "/" CONFFILESFILE);
if ((cf= fopen(controlfile,"r"))) {
struct file_info *conffiles_head = NULL;
struct file_info *conffiles_tail = NULL;
while (fgets(conffilename,MAXCONFFILENAME+1,cf)) {
n= strlen(conffilename);
if (!n) ohshite(_("empty string from fgets reading conffiles"));
if (conffilename[n-1] != '\n') {
warning(_("conffile name '%.50s...' is too long, or missing final newline"),
conffilename);
warns++;
while ((c= getc(cf)) != EOF && c != '\n');
continue;
}
conffilename[n - 1] = '\0';
strcpy(controlfile, directory);
strcat(controlfile, "/");
strcat(controlfile, conffilename);
if (lstat(controlfile,&controlstab)) {
if (errno == ENOENT) {
if((n > 1) && isspace(conffilename[n-2]))
warning(_("conffile filename '%s' contains trailing white spaces"),
conffilename);
ohshit(_("conffile `%.250s' does not appear in package"), conffilename);
} else
ohshite(_("conffile `%.250s' is not stattable"), conffilename);
} else if (!S_ISREG(controlstab.st_mode)) {
warning(_("conffile '%s' is not a plain file"), conffilename);
warns++;
}
if (file_info_find_name(conffiles_head, conffilename))
warning(_("conffile name '%s' is duplicated"), conffilename);
else {
struct file_info *conffile;
conffile = file_info_new(conffilename);
add_to_filist(&conffiles_head, &conffiles_tail, conffile);
}
}
free_filist(conffiles_head);
if (ferror(cf)) ohshite(_("error reading conffiles file"));
fclose(cf);
} else if (errno != ENOENT) {
ohshite(_("error opening conffiles file"));
}
if (warns)
warning(_("ignoring %d warnings about the control file(s)\n"), warns);
}
m_output(stdout, _("<standard output>"));
/* Now that we have verified everything its time to actually
* build something. Lets start by making the ar-wrapper.
*/
if (!(ar=fopen(debar,"wb"))) ohshite(_("unable to create `%.255s'"),debar);
if (setvbuf(ar, NULL, _IONBF, 0))
ohshite(_("unable to unbuffer `%.255s'"), debar);
/* Fork a tar to package the control-section of the package */
unsetenv("TAR_OPTIONS");
m_pipe(p1);
if (!(c1= m_fork())) {
m_dup2(p1[1],1); close(p1[0]); close(p1[1]);
if (chdir(directory)) ohshite(_("failed to chdir to `%.255s'"),directory);
if (chdir(BUILDCONTROLDIR)) ohshite(_("failed to chdir to .../DEBIAN"));
execlp(TAR, "tar", "-cf", "-", "--format=gnu", ".", NULL);
ohshite(_("failed to exec tar -cf"));
}
close(p1[1]);
/* Create a temporary file to store the control data in. Immediately unlink
* our temporary file so others can't mess with it.
*/
if ((gzfd= mkstemp(tfbuf)) == -1) ohshite(_("failed to make tmpfile (control)"));
/* make sure it's gone, the fd will remain until we close it */
if (unlink(tfbuf)) ohshit(_("failed to unlink tmpfile (control), %s"),
tfbuf);
/* reset this, so we can use it elsewhere */
strcpy(tfbuf,envbuf);
strcat(tfbuf,"/dpkg.XXXXXX");
/* And run gzip to compress our control archive */
if (!(c2= m_fork())) {
m_dup2(p1[0],0); m_dup2(gzfd,1); close(p1[0]); close(gzfd);
compress_cat(compress_type_gzip, 0, 1, "9", _("control"));
}
close(p1[0]);
waitsubproc(c2,"gzip -9c",0);
waitsubproc(c1,"tar -cf",0);
if (fstat(gzfd,&controlstab)) ohshite(_("failed to fstat tmpfile (control)"));
/* We have our first file for the ar-archive. Write a header for it to the
* package and insert it.
*/
if (oldformatflag) {
if (fprintf(ar, "%-8s\n%ld\n", OLDARCHIVEVERSION, (long)controlstab.st_size) == EOF)
werr(debar);
} else {
thetime = time(NULL);
if (fprintf(ar,
"!<arch>\n"
"debian-binary %-12lu0 0 100644 %-10ld`\n"
ARCHIVEVERSION "\n"
"%s"
ADMINMEMBER "%-12lu0 0 100644 %-10ld`\n",
thetime,
(long)sizeof(ARCHIVEVERSION),
(sizeof(ARCHIVEVERSION)&1) ? "\n" : "",
(unsigned long)thetime,
(long)controlstab.st_size) == EOF)
werr(debar);
}
if (lseek(gzfd,0,SEEK_SET)) ohshite(_("failed to rewind tmpfile (control)"));
fd_fd_copy(gzfd, fileno(ar), -1, _("control"));
/* Control is done, now we need to archive the data. Start by creating
* a new temporary file. Immediately unlink the temporary file so others
* can't mess with it. */
if (!oldformatflag) {
close(gzfd);
if ((gzfd= mkstemp(tfbuf)) == -1) ohshite(_("failed to make tmpfile (data)"));
/* make sure it's gone, the fd will remain until we close it */
if (unlink(tfbuf)) ohshit(_("failed to unlink tmpfile (data), %s"),
tfbuf);
/* reset these, in case we want to use the later */
strcpy(tfbuf,envbuf);
strcat(tfbuf,"/dpkg.XXXXXX");
}
/* Fork off a tar. We will feed it a list of filenames on stdin later.
*/
m_pipe(p1);
m_pipe(p2);
if (!(c1= m_fork())) {
m_dup2(p1[0],0); close(p1[0]); close(p1[1]);
m_dup2(p2[1],1); close(p2[0]); close(p2[1]);
if (chdir(directory)) ohshite(_("failed to chdir to `%.255s'"),directory);
execlp(TAR, "tar", "-cf", "-", "--format=gnu", "--null", "-T", "-", "--no-recursion", NULL);
ohshite(_("failed to exec tar -cf"));
}
close(p1[0]);
close(p2[1]);
/* Of course we should not forget to compress the archive as well.. */
if (!(c2= m_fork())) {
close(p1[1]);
m_dup2(p2[0],0); close(p2[0]);
m_dup2(oldformatflag ? fileno(ar) : gzfd,1);
compress_cat(compress_type, 0, 1, compression, _("data"));
}
close(p2[0]);
/* All the pipes are set, now lets run find, and start feeding
* filenames to tar.
*/
m_pipe(p3);
if (!(c3= m_fork())) {
m_dup2(p3[1],1); close(p3[0]); close(p3[1]);
if (chdir(directory)) ohshite(_("failed to chdir to `%.255s'"),directory);
execlp(FIND, "find", ".", "-path", "./" BUILDCONTROLDIR, "-prune", "-o",
"-print0", NULL);
ohshite(_("failed to exec find"));
}
close(p3[1]);
/* We need to reorder the files so we can make sure that symlinks
* will not appear before their target.
*/
while ((fi=getfi(directory, p3[0]))!=NULL)
if (S_ISLNK(fi->st.st_mode))
add_to_filist(&symlist, &symlist_end, fi);
else {
if (write(p1[1], fi->fn, strlen(fi->fn)+1) ==- 1)
ohshite(_("failed to write filename to tar pipe (data)"));
}
close(p3[0]);
waitsubproc(c3,"find",0);
for (fi= symlist;fi;fi= fi->next)
if (write(p1[1], fi->fn, strlen(fi->fn)+1) == -1)
ohshite(_("failed to write filename to tar pipe (data)"));
/* All done, clean up wait for tar and gzip to finish their job */
close(p1[1]);
free_filist(symlist);
waitsubproc(c2, _("<compress> from tar -cf"), 0);
waitsubproc(c1,"tar -cf",0);
/* Okay, we have data.tar.gz as well now, add it to the ar wrapper */
if (!oldformatflag) {
const char *datamember;
switch (compress_type) {
case compress_type_gzip:
datamember = DATAMEMBER_GZ;
break;
case compress_type_bzip2:
datamember = DATAMEMBER_BZ2;
break;
case compress_type_lzma:
datamember = DATAMEMBER_LZMA;
break;
case compress_type_cat:
datamember = DATAMEMBER_CAT;
break;
default:
internerr("unkown compress_type '%i'", compress_type);
}
if (fstat(gzfd, &datastab))
ohshite(_("failed to fstat tmpfile (data)"));
if (fprintf(ar,
"%s"
"%s" "%-12lu0 0 100644 %-10ld`\n",
(controlstab.st_size & 1) ? "\n" : "",
datamember,
(unsigned long)thetime,
(long)datastab.st_size) == EOF)
werr(debar);
if (lseek(gzfd,0,SEEK_SET)) ohshite(_("failed to rewind tmpfile (data)"));
fd_fd_copy(gzfd, fileno(ar), -1, _("cat (data)"));
if (datastab.st_size & 1)
if (putc('\n',ar) == EOF)
werr(debar);
}
if (fclose(ar)) werr(debar);
exit(0);
}
