print.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2004 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/mman.h>
#include <fcntl.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>
#include <limits.h>
#include <alloca.h>
#include "sgs.h"
#include "rtc.h"
#include "conv.h"
#include "_crle.h"
#include "msg.h"
/*
* Display the command line required to regenerate the configuration file.
*
* Under normal mode the command is printed on one line to make it more
* available for grep(1) use. Under verbose mode the command is separated
* into each argument (a little more readable perhaps when the arguments are
* numerous of have long pathnames).
*
* Note that for version 1 configuration files we never used to generate any
* command-line information, and as the attempt to do so is only a best effort
* don't bother printing anything.
*/
static void
printcmd(Crle_desc * crle, Rtc_head * head, List * cmdline)
{
Listnode *lnp;
const char *fmto, *fmtb, *fmtm, *fmte;
char *cmd;
int output = 0;
if (crle->c_flags & CRLE_VERBOSE) {
fmto = MSG_INTL(MSG_DMP_CMD_ONE_V);
fmtb = MSG_INTL(MSG_DMP_CMD_BGN_V);
fmtm = MSG_INTL(MSG_DMP_CMD_MID_V);
fmte = MSG_INTL(MSG_DMP_CMD_END_V);
} else if (head->ch_version > RTC_VER_ONE) {
fmto = MSG_INTL(MSG_DMP_CMD_ONE);
fmtb = MSG_INTL(MSG_DMP_CMD_BGN);
fmtm = MSG_INTL(MSG_DMP_CMD_MID);
fmte = MSG_INTL(MSG_DMP_CMD_END);
} else {
(void) printf(MSG_ORIG(MSG_STR_NL));
return;
}
(void) printf(MSG_INTL(MSG_DMP_CMD_TITLE));
for (LIST_TRAVERSE(cmdline, lnp, cmd)) {
if (output++ == 0) {
if (lnp->next)
(void) printf(fmtb, cmd);
else
(void) printf(fmto, cmd);
} else {
if (lnp->next)
(void) printf(fmtm, cmd);
else
(void) printf(fmte, cmd);
}
}
}
/*
* Establish the argument required to generate the associated object.
*/
static const char *
getformat(Half flags)
{
if (flags & RTC_OBJ_ALTER) {
if (flags & RTC_OBJ_DUMP) {
if (flags & RTC_OBJ_GROUP)
return (MSG_ORIG(MSG_CMD_DUMPGRP));
else
return (MSG_ORIG(MSG_CMD_DUMPIND));
} else {
if (flags & RTC_OBJ_OPTINAL)
return (MSG_ORIG(MSG_CMD_OPTIONAL));
else
return (MSG_ORIG(MSG_CMD_ALTER));
}
} else {
if (flags & RTC_OBJ_GROUP)
return (MSG_ORIG(MSG_CMD_GRP));
else
return (MSG_ORIG(MSG_CMD_IND));
}
}
/*
* Fabricate a system default search path. If an update is requested, and
* new search paths are specified while no configuration file exists, or if a
* configuration file does exist but doesn't specify this particular search
* path, create any system defaults. The intent is to allow
* "crle -u -l/usr/local/lib" and have this append the search path to the
* system default, rather than have the user have to determine and specify
* this default themselves.
*/
static int
fablib(Crle_desc * crle, int flag)
{
const char *path;
char **list;
switch (flag) {
case CRLE_EDLIB:
if (crle->c_class == ELFCLASS64) {
#ifndef SGS_PRE_UNIFIED_PROCESS
path = MSG_ORIG(MSG_PTH_NEWDLP_64);
#else
path = MSG_ORIG(MSG_PTH_OLDDLP_64);
#endif
} else {
#ifndef SGS_PRE_UNIFIED_PROCESS
path = MSG_ORIG(MSG_PTH_NEWDLP);
#else
path = MSG_ORIG(MSG_PTH_OLDDLP);
#endif
}
list = &crle->c_edlibpath;
break;
case CRLE_ESLIB:
if (crle->c_class == ELFCLASS64) {
#ifndef SGS_PRE_UNIFIED_PROCESS
path = MSG_ORIG(MSG_PTH_NEWTD_64);
#else
path = MSG_ORIG(MSG_PTH_OLDTD_64);
#endif
} else {
#ifndef SGS_PRE_UNIFIED_PROCESS
path = MSG_ORIG(MSG_PTH_NEWTD);
#else
path = MSG_ORIG(MSG_PTH_OLDTD);
#endif
}
list = &crle->c_eslibpath;
break;
case CRLE_ADLIB:
path = MSG_ORIG(MSG_PTH_AOUTDLP);
list = &crle->c_adlibpath;
break;
case CRLE_ASLIB:
path = MSG_ORIG(MSG_PTH_AOUTTD);
list = &crle->c_aslibpath;
break;
default:
return (1);
}
return (addlib(crle, list, path));
}
/*
* Establish the flags required to generate the associated object. Actually
* the flags are already part of the object being inspected from the present
* configuration file, but instead of using them all, which can cause some
* unsuspected propagation down the inspect() family, only use those flags that
* would have been contributed from crle()'s calls to inspect.
*/
static Half
getflags(Half flags)
{
flags &=
(RTC_OBJ_ALTER | RTC_OBJ_DUMP | RTC_OBJ_GROUP | RTC_OBJ_OPTINAL);
return (flags | RTC_OBJ_CMDLINE);
}
/*
* Dump a configuration files information. This routine is very close to the
* scanconfig() in libcrle.
*/
static int
scanconfig(Crle_desc * crle, Addr addr)
{
Rtc_head *head = (Rtc_head *)addr;
Rtc_dir *dirtbl;
Rtc_file *filetbl;
Rtc_obj *objtbl, * obj;
Word *hash, * chain;
const char *strtbl;
int ndx, bkts;
List cmdline = { 0 };
char _cmd[PATH_MAX], * cmd;
char _objdir[PATH_MAX], * objdir = 0;
/* LINTED */
objtbl = (Rtc_obj *)((char *)head->ch_obj + addr);
strtbl = (const char *)((char *)head->ch_str + addr);
/*
* If this is a version 1 configuration file we can't generate accurate
* update information, or the command-line used to create the file.
*/
if (head->ch_version == RTC_VER_ONE) {
(void) printf(MSG_INTL(MSG_ARG_UPDATE), crle->c_name,
crle->c_confil, head->ch_version);
}
/*
* If we're updating an existing configuration file make sure we're
* dealing with the same class of file.
*/
if (crle->c_flags & CRLE_UPDATE) {
if (head->ch_cnflags & RTC_HDR_64)
crle->c_class = ELFCLASS64;
else if (crle->c_class == ELFCLASS64) {
(void) fprintf(stderr, MSG_INTL(MSG_ARG_CLASS),
crle->c_name, crle->c_confil);
return (1);
}
} else {
if (head->ch_cnflags & RTC_HDR_64) {
/*
* Construct the original command line argument.
*/
cmd = strcpy(alloca(MSG_CMD_64_SIZE + 1),
MSG_ORIG(MSG_CMD_64));
if (list_append(&cmdline, cmd) == 0)
return (1);
}
}
/*
* Start analyzing the configuration files header information.
*/
if ((crle->c_flags & CRLE_UPDATE) == 0) {
const char *fmt;
if (head->ch_dlflags)
fmt = conv_dlflag_str(head->ch_dlflags, 0);
else
fmt = MSG_ORIG(MSG_STR_EMPTY);
(void) printf(MSG_INTL(MSG_DMP_HEAD), head->ch_version,
crle->c_confil, fmt);
/*
* Construct the original command line argument.
*/
(void) snprintf(_cmd, PATH_MAX, MSG_ORIG(MSG_CMD_CONF),
crle->c_confil);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
/*
* Construct any -f usage.
*/
if (head->ch_dlflags &&
(head->ch_dlflags != RTLD_REL_RELATIVE)) {
(void) snprintf(_cmd, PATH_MAX, MSG_ORIG(MSG_CMD_FLAGS),
conv_dlflag_str(head->ch_dlflags, 1));
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
} else {
/*
* Establish any -f usage.
*/
if (head->ch_dlflags &&
(head->ch_dlflags != RTLD_REL_RELATIVE))
crle->c_dlflags = head->ch_dlflags;
}
/*
* Determine if this configuration file is only applicable to a specific
* application.
*/
if (head->ch_app) {
char *alter;
obj = (Rtc_obj *)(head->ch_app + addr);
/*
* Determine the output directory for the files
* alternative name.
*/
alter = (char *)(strtbl + obj->co_alter);
(void) strcpy(_objdir, alter);
alter = strrchr(_objdir, '/');
*alter = '\0';
crle->c_objdir = objdir = _objdir;
if (crle->c_flags & CRLE_UPDATE) {
if (inspect(crle, (strtbl + obj->co_name),
(RTC_OBJ_DUMP | RTC_OBJ_ALTER |
RTC_OBJ_GROUP | RTC_OBJ_CMDLINE)) != 0)
return (1);
} else {
(void) printf(MSG_INTL(MSG_DMP_APP),
(strtbl + obj->co_alter), (strtbl + obj->co_name));
/*
* Construct the original command line arguments.
*/
(void) snprintf(_cmd, PATH_MAX,
MSG_ORIG(MSG_CMD_OUTPUT), crle->c_objdir);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
(void) snprintf(_cmd, PATH_MAX,
MSG_ORIG(MSG_CMD_DUMPGRP), (strtbl + obj->co_name));
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
}
/*
* Analyze any alternative library path and trusted directory entries.
*/
if (head->ch_edlibpath) {
const char *str;
str = (const char *)(head->ch_edlibpath + addr);
if (crle->c_flags & CRLE_UPDATE) {
crle->c_flags &= ~CRLE_AOUT;
#ifndef SGS_PRE_UNIFIED_PROCESS
if ((head->ch_cnflags & RTC_HDR_UPM) == 0) {
if (head->ch_cnflags & RTC_HDR_64)
str = conv_upm_string(str,
MSG_ORIG(MSG_PTH_OLDDLP_64),
MSG_ORIG(MSG_PTH_UPDLP_64),
MSG_PTH_UPDLP_64_SIZE);
else
str = conv_upm_string(str,
MSG_ORIG(MSG_PTH_OLDDLP),
MSG_ORIG(MSG_PTH_UPDLP),
MSG_PTH_UPDLP_SIZE);
}
#endif
if (addlib(crle, &crle->c_edlibpath, str) != 0)
return (1);
} else {
(void) printf(MSG_INTL(MSG_DMP_DLIBPTH),
MSG_ORIG(MSG_STR_ELF), str);
(void) snprintf(_cmd, PATH_MAX,
MSG_ORIG(MSG_CMD_EDLIB), str);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
} else {
if (crle->c_flags & CRLE_UPDATE) {
if (crle->c_flags & CRLE_EDLIB) {
/*
* If we've been asked to update a configuration
* file, and no existing default ELF search
* path exists, but the user is going to add new
* entries, fabricate the system defaults so
* that the users get added to them.
*/
if (fablib(crle, CRLE_EDLIB) != 0)
return (1);
}
} else {
/*
* Indicate any system default.
*/
if (crle->c_class == ELFCLASS64) {
#ifndef SGS_PRE_UNIFIED_PROCESS
(void) printf(MSG_INTL(MSG_DEF_NEWDLP_64));
#else
(void) printf(MSG_INTL(MSG_DEF_OLDDLP_64));
#endif
} else {
#ifndef SGS_PRE_UNIFIED_PROCESS
(void) printf(MSG_INTL(MSG_DEF_NEWDLP));
#else
(void) printf(MSG_INTL(MSG_DEF_OLDDLP));
#endif
}
}
}
if (head->ch_eslibpath) {
const char *str;
str = (const char *)(head->ch_eslibpath + addr);
if (crle->c_flags & CRLE_UPDATE) {
crle->c_flags &= ~CRLE_AOUT;
#ifndef SGS_PRE_UNIFIED_PROCESS
if ((head->ch_cnflags & RTC_HDR_UPM) == 0) {
if (head->ch_cnflags & RTC_HDR_64)
str = conv_upm_string(str,
MSG_ORIG(MSG_PTH_OLDTD_64),
MSG_ORIG(MSG_PTH_UPTD_64),
MSG_PTH_UPTD_64_SIZE);
else
str = conv_upm_string(str,
MSG_ORIG(MSG_PTH_OLDTD),
MSG_ORIG(MSG_PTH_UPTD),
MSG_PTH_UPTD_SIZE);
}
#endif
if (addlib(crle, &crle->c_eslibpath, str) != 0)
return (1);
} else {
(void) printf(MSG_INTL(MSG_DMP_TLIBPTH),
MSG_ORIG(MSG_STR_ELF), str);
(void) snprintf(_cmd, PATH_MAX,
MSG_ORIG(MSG_CMD_ESLIB), str);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
} else {
if (crle->c_flags & CRLE_UPDATE) {
if (crle->c_flags & CRLE_ESLIB) {
/*
* If we've been asked to update a configuration
* file, and no existing default ELF secure
* path exists, but the user is going to add new
* entries, fabricate the system defaults so
* that the users get added to them.
*/
if (fablib(crle, CRLE_ESLIB) != 0)
return (1);
}
} else {
/*
* Indicate any system default.
*/
if (crle->c_class == ELFCLASS64) {
#ifndef SGS_PRE_UNIFIED_PROCESS
(void) printf(MSG_INTL(MSG_DEF_NEWTD_64));
#else
(void) printf(MSG_INTL(MSG_DEF_OLDTD_64));
#endif
} else {
#ifndef SGS_PRE_UNIFIED_PROCESS
(void) printf(MSG_INTL(MSG_DEF_NEWTD));
#else
(void) printf(MSG_INTL(MSG_DEF_OLDTD));
#endif
}
}
}
if (head->ch_adlibpath) {
const char *str;
str = (const char *)(head->ch_adlibpath + addr);
if (crle->c_flags & CRLE_UPDATE) {
crle->c_flags |= CRLE_AOUT;
if (addlib(crle, &crle->c_adlibpath, str) != 0)
return (1);
} else {
(void) printf(MSG_INTL(MSG_DMP_DLIBPTH),
MSG_ORIG(MSG_STR_AOUT), str);
(void) snprintf(_cmd, PATH_MAX,
MSG_ORIG(MSG_CMD_ADLIB), str);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
} else {
if (crle->c_flags & CRLE_UPDATE) {
if (crle->c_flags & CRLE_ADLIB) {
/*
* If we've been asked to update a configuration
* file, and no existing default AOUT search
* path exists, but the user is going to add new
* entries, fabricate the system defaults so
* that the users get added to them.
*/
if (fablib(crle, CRLE_ADLIB) != 0)
return (1);
}
} else if (crle->c_flags & CRLE_AOUT) {
/*
* Indicate any system default.
*/
(void) printf(MSG_INTL(MSG_DEF_AOUTDLP));
}
}
if (head->ch_aslibpath) {
const char *str;
str = (const char *)(head->ch_aslibpath + addr);
if (crle->c_flags & CRLE_UPDATE) {
crle->c_flags |= CRLE_AOUT;
if (addlib(crle, &crle->c_aslibpath, str) != 0)
return (1);
} else {
(void) printf(MSG_INTL(MSG_DMP_TLIBPTH),
MSG_ORIG(MSG_STR_AOUT), str);
(void) snprintf(_cmd, PATH_MAX,
MSG_ORIG(MSG_CMD_ASLIB), str);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
} else {
if (crle->c_flags & CRLE_UPDATE) {
if (crle->c_flags & CRLE_ASLIB) {
/*
* If we've been asked to update a configuration
* file, and no existing default AOUT secure
* path exists, but the user is going to add new
* entries, fabricate the system defaults so
* that the users get added to them.
*/
if (fablib(crle, CRLE_ASLIB) != 0)
return (1);
}
} else if (crle->c_flags & CRLE_AOUT) {
/*
* Indicate any system default.
*/
(void) printf(MSG_INTL(MSG_DEF_AOUTTD));
}
}
/*
* Display any environment variables.
*/
if ((head->ch_version >= RTC_VER_THREE) && head->ch_env) {
Rtc_env * envtbl;
if ((crle->c_flags & CRLE_UPDATE) == 0)
(void) printf(MSG_INTL(MSG_ENV_TITLE));
for (envtbl = (Rtc_env *)(head->ch_env + addr);
envtbl->env_str; envtbl++) {
const char *str;
str = (const char *)(envtbl->env_str + addr);
if (crle->c_flags & CRLE_UPDATE) {
if (addenv(crle, str,
(envtbl->env_flags | RTC_ENV_CONFIG)) == 0)
return (1);
} else {
const char *pfmt, *sfmt;
if (envtbl->env_flags & RTC_ENV_PERMANT) {
pfmt = MSG_INTL(MSG_ENV_PRM);
sfmt = MSG_ORIG(MSG_CMD_PRMENV);
} else {
pfmt = MSG_INTL(MSG_ENV_RPL);
sfmt = MSG_ORIG(MSG_CMD_RPLENV);
}
(void) printf(pfmt, str);
(void) snprintf(_cmd, PATH_MAX, sfmt, str);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
}
}
/*
* Display any filter/filtee associations.
*/
if ((head->ch_version >= RTC_VER_FOUR) && head->ch_fltr) {
if ((crle->c_flags & CRLE_UPDATE) == 0) {
Rtc_fltr * fltrtbl;
Rtc_flte * fltetbl;
/* LINTED */
fltrtbl = (Rtc_fltr *)((char *)head->ch_fltr + addr);
/* LINTED */
fltetbl = (Rtc_flte *)((char *)head->ch_flte + addr);
(void) printf(MSG_INTL(MSG_FLT_TITLE));
while (fltrtbl->fr_filter) {
Rtc_flte *_fltetbl;
/*
* Print the filter and filtee string pair.
*/
(void) printf(MSG_INTL(MSG_FLT_FILTER),
(strtbl + fltrtbl->fr_filter),
(strtbl + fltrtbl->fr_string));
/*
* Print each filtee.
*/
/* LINTED */
for (_fltetbl = (Rtc_flte *)((char *)fltetbl +
fltrtbl->fr_filtee); _fltetbl->fe_filtee;
_fltetbl++) {
(void) printf(MSG_INTL(MSG_FLT_FILTEE),
(strtbl + _fltetbl->fe_filtee));
}
fltrtbl++;
}
}
}
/*
* Display any memory reservations required for any alternative
* objects.
*/
if (head->ch_resbgn && ((crle->c_flags & CRLE_UPDATE) == 0))
(void) printf(MSG_INTL(MSG_DMP_RESV), head->ch_resbgn,
head->ch_resend, (head->ch_resend - head->ch_resbgn));
/*
* If there's no hash table there's nothing else to process.
*/
if (head->ch_hash == 0) {
if ((crle->c_flags & CRLE_UPDATE) == 0)
printcmd(crle, head, &cmdline);
return (0);
}
/*
* Traverse the directory and filename arrays.
*/
for (dirtbl = (Rtc_dir *)(head->ch_dir + addr);
dirtbl->cd_obj; dirtbl++) {
struct stat status;
Rtc_obj *dobj;
const char *str;
dobj = (Rtc_obj *)(dirtbl->cd_obj + addr);
filetbl = (Rtc_file *)(dirtbl->cd_file + addr);
str = strtbl + dobj->co_name;
/*
* Simplify recreation by using any command-line directories.
* If we're dealing with a version 1 configuration file use
* every directory.
*/
if ((dobj->co_flags & RTC_OBJ_CMDLINE) ||
(head->ch_version == RTC_VER_ONE)) {
if (crle->c_flags & CRLE_UPDATE) {
if (inspect(crle, str,
getflags(dobj->co_flags)) != 0)
return (1);
if ((dobj->co_flags &
(RTC_OBJ_NOEXIST | RTC_OBJ_ALTER)) ==
RTC_OBJ_NOEXIST)
continue;
} else {
/* LINTED */
(void) snprintf(_cmd, PATH_MAX,
getformat(dobj->co_flags), str);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
}
/*
* If this isn't an update print the directory name. If the
* directory has no entries (possible if the directory is a
* symlink to another directory, in which case we record the
* real path also), don't bother printing it unless we're in
* verbose mode.
*/
if ((crle->c_flags & CRLE_UPDATE) == 0) {
if ((dobj->co_flags &
(RTC_OBJ_NOEXIST | RTC_OBJ_ALTER)) ==
RTC_OBJ_NOEXIST) {
(void) printf(MSG_INTL(MSG_DMP_DIR_2), str);
continue;
} else if (filetbl->cf_obj ||
(crle->c_flags & CRLE_VERBOSE))
(void) printf(MSG_INTL(MSG_DMP_DIR_1), str);
}
/*
* Under verbose mode validate any real directory entry - the
* same test will be carried out by ld.so.1.
*/
if (((crle->c_flags & CRLE_UPDATE) == 0) &&
(crle->c_flags & CRLE_VERBOSE) &&
(dobj->co_flags & RTC_OBJ_REALPTH)) {
if (stat(str, &status) != 0) {
int err = errno;
(void) printf(MSG_INTL(MSG_DMP_STAT), str,
strerror(err));
} else if (status.st_mtime != dobj->co_info) {
(void) printf(MSG_INTL(MSG_DMP_DCMP), str);
}
}
for (; filetbl->cf_obj; filetbl++) {
Rtc_obj * fobj;
Half flags;
fobj = (Rtc_obj *)(filetbl->cf_obj + addr);
str = strtbl + fobj->co_name;
flags = fobj->co_flags;
/*
* Only update individual files that were originally
* specified on the command-line. Or, if this is a
* version 1 configuration file use every file that
* isn't part of an all-entries directory.
*/
if (((flags & RTC_OBJ_CMDLINE) &&
((fobj->co_flags & RTC_OBJ_APP) == 0)) ||
((head->ch_version == RTC_VER_ONE) &&
((dobj->co_flags & RTC_OBJ_ALLENTS) == 0))) {
char *alter = 0, altdir[PATH_MAX];
/*
* Determine whether this file requires an
* alternative, and if so, and we haven't
* already an alternative in affect, create one.
*/
if (fobj->co_flags & RTC_OBJ_ALTER) {
alter = (char *)(strtbl +
fobj->co_alter);
(void) strcpy(altdir, alter);
alter = strrchr(altdir, '/');
*alter = '\0';
if ((objdir == 0) ||
(strcmp(objdir, altdir) != 0)) {
(void) strcpy(_objdir, altdir);
crle->c_objdir = alter =
objdir = _objdir;
} else
alter = 0;
}
if (crle->c_flags & CRLE_UPDATE) {
if (inspect(crle, str,
getflags(flags)) != 0)
return (1);
continue;
}
if (alter) {
(void) snprintf(_cmd, PATH_MAX,
MSG_ORIG(MSG_CMD_OUTPUT),
crle->c_objdir);
cmd = strcpy(alloca(strlen(_cmd) + 1),
_cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
/* LINTED */
(void) snprintf(_cmd, PATH_MAX,
getformat(flags), str);
cmd = strcpy(alloca(strlen(_cmd) + 1), _cmd);
if (list_append(&cmdline, cmd) == 0)
return (1);
}
if (crle->c_flags & CRLE_UPDATE)
continue;
/*
* Although we record both full pathnames and their
* simple filenames (basename), only print the simple
* names unless we're under verbose mode.
*/
if ((strchr(str, '/') == 0) ||
(crle->c_flags & CRLE_VERBOSE)) {
if (fobj->co_flags & RTC_OBJ_ALTER)
(void) printf(MSG_INTL(MSG_DMP_FILE_2),
str, (strtbl + fobj->co_alter));
else
(void) printf(MSG_INTL(MSG_DMP_FILE_1),
str);
}
/*
* Under verbose mode validate any real file entry - the
* same test will be carried out by ld.so.1.
*/
if ((crle->c_flags & CRLE_VERBOSE) &&
(fobj->co_flags & RTC_OBJ_REALPTH)) {
if (stat(str, &status) != 0) {
int err = errno;
(void) printf(MSG_INTL(MSG_DMP_STAT),
str, strerror(err));
} else if (status.st_size != fobj->co_info) {
(void) printf(MSG_INTL(MSG_DMP_FCMP),
str);
}
}
}
}
if ((crle->c_flags & CRLE_UPDATE) == 0)
printcmd(crle, head, &cmdline);
if ((crle->c_flags & CRLE_VERBOSE) == 0)
return (0);
/*
* If we've in verbose mode scan the hash list.
*/
/* LINTED */
hash = (Word *)((char *)head->ch_hash + addr);
bkts = hash[0];
chain = &hash[2 + bkts];
hash += 2;
(void) printf(MSG_INTL(MSG_DMP_HASH));
/*
* Scan the hash buckets looking for valid entries.
*/
for (ndx = 0; ndx < bkts; ndx++, hash++) {
Rtc_obj *obj;
const char *str;
Word _ndx;
if (*hash == 0)
continue;
obj = objtbl + *hash;
str = strtbl + obj->co_name;
(void) printf(MSG_INTL(MSG_DMP_HASHENT_1), obj->co_id, ndx,
str, conv_config_obj(obj->co_flags));
/*
* Determine whether there are other objects chained to this
* bucket.
*/
for (_ndx = chain[*hash]; _ndx; _ndx = chain[_ndx]) {
obj = objtbl + _ndx;
str = strtbl + obj->co_name;
(void) printf(MSG_INTL(MSG_DMP_HASHENT_2), obj->co_id,
str, conv_config_obj(obj->co_flags));
}
}
(void) printf(MSG_ORIG(MSG_STR_NL));
return (0);
}
int
inspectconfig(Crle_desc * crle)
{
int error, fd;
Addr addr;
struct stat status;
const char *caller = crle->c_name, *file = crle->c_confil;
/*
* Open the configuration file, determine its size and map it in.
*/
if ((fd = open(file, O_RDONLY, 0)) == -1) {
int err = errno;
if ((err == ENOENT)) {
/*
* To allow an update (-u) from scratch, fabricate any
* default search and secure paths that the user
* intends to add to.
*/
if (crle->c_flags & CRLE_UPDATE) {
if (crle->c_flags & CRLE_EDLIB) {
if (fablib(crle, CRLE_EDLIB))
return (1);
}
if (crle->c_flags & CRLE_ESLIB) {
if (fablib(crle, CRLE_ESLIB))
return (1);
}
if (crle->c_flags & CRLE_ADLIB) {
if (fablib(crle, CRLE_ADLIB))
return (1);
}
if (crle->c_flags & CRLE_ASLIB) {
if (fablib(crle, CRLE_ASLIB))
return (1);
}
return (0);
} else if (crle->c_flags & CRLE_CONFDEF) {
const char *fmt1, *fmt2;
/*
* Otherwise if the user is inspecting a default
* configuration file that doesn't exist inform
* them and display the ELF defaults.
*/
(void) printf(MSG_INTL(MSG_DEF_NOCONF), file);
if (crle->c_flags & CRLE_AOUT) {
fmt1 = MSG_INTL(MSG_DEF_AOUTDLP);
fmt2 = MSG_INTL(MSG_DEF_AOUTTD);
} else {
if (crle->c_class == ELFCLASS64) {
#ifndef SGS_PRE_UNIFIED_PROCESS
fmt1 = MSG_INTL(MSG_DEF_NEWDLP_64);
fmt2 = MSG_INTL(MSG_DEF_NEWTD_64);
#else
fmt1 = MSG_INTL(MSG_DEF_OLDDLP_64);
fmt2 = MSG_INTL(MSG_DEF_OLDTD_64);
#endif
} else {
#ifndef SGS_PRE_UNIFIED_PROCESS
fmt1 = MSG_INTL(MSG_DEF_NEWDLP);
fmt2 = MSG_INTL(MSG_DEF_NEWTD);
#else
fmt1 = MSG_INTL(MSG_DEF_OLDDLP);
fmt2 = MSG_INTL(MSG_DEF_OLDTD);
#endif
}
}
(void) printf(fmt1);
(void) printf(fmt2);
return (0);
}
}
/*
* Otherwise there's an error condition in accessing the file.
*/
(void) fprintf(stderr, MSG_INTL(MSG_SYS_OPEN), caller, file,
strerror(err));
return (1);
}
(void) fstat(fd, &status);
if (status.st_size < sizeof (Rtc_head)) {
(void) close(fd);
(void) fprintf(stderr, MSG_INTL(MSG_COR_TRUNC), caller, file);
return (1);
}
if ((addr = (Addr)mmap(0, status.st_size, PROT_READ, MAP_SHARED,
fd, 0)) == (Addr)MAP_FAILED) {
int err = errno;
(void) fprintf(stderr, MSG_INTL(MSG_SYS_MMAP), caller, file,
strerror(err));
(void) close(fd);
return (1);
}
(void) close(fd);
/*
* Print the contents of the configuration file.
*/
error = scanconfig(crle, addr);
(void) munmap((void *)addr, status.st_size);
return (error);
}