15c51f124SMoriah Waterland /*
25c51f124SMoriah Waterland * CDDL HEADER START
35c51f124SMoriah Waterland *
45c51f124SMoriah Waterland * The contents of this file are subject to the terms of the
55c51f124SMoriah Waterland * Common Development and Distribution License (the "License").
65c51f124SMoriah Waterland * You may not use this file except in compliance with the License.
75c51f124SMoriah Waterland *
85c51f124SMoriah Waterland * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
95c51f124SMoriah Waterland * or http://www.opensolaris.org/os/licensing.
105c51f124SMoriah Waterland * See the License for the specific language governing permissions
115c51f124SMoriah Waterland * and limitations under the License.
125c51f124SMoriah Waterland *
135c51f124SMoriah Waterland * When distributing Covered Code, include this CDDL HEADER in each
145c51f124SMoriah Waterland * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
155c51f124SMoriah Waterland * If applicable, add the following below this CDDL HEADER, with the
165c51f124SMoriah Waterland * fields enclosed by brackets "[]" replaced with your own identifying
175c51f124SMoriah Waterland * information: Portions Copyright [yyyy] [name of copyright owner]
185c51f124SMoriah Waterland *
195c51f124SMoriah Waterland * CDDL HEADER END
205c51f124SMoriah Waterland */
215c51f124SMoriah Waterland
225c51f124SMoriah Waterland /*
2332991bedSPeter Tribble * Copyright (c) 2017 Peter Tribble.
2432991bedSPeter Tribble */
2532991bedSPeter Tribble
2632991bedSPeter Tribble /*
275c51f124SMoriah Waterland * Copyright 2009 Sun Microsystems, Inc. All rights reserved.
285c51f124SMoriah Waterland * Use is subject to license terms.
295c51f124SMoriah Waterland */
305c51f124SMoriah Waterland
315c51f124SMoriah Waterland /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
325c51f124SMoriah Waterland /* All Rights Reserved */
335c51f124SMoriah Waterland
345c51f124SMoriah Waterland
355c51f124SMoriah Waterland #include <stdio.h>
365c51f124SMoriah Waterland #include <limits.h>
375c51f124SMoriah Waterland #include <unistd.h>
385c51f124SMoriah Waterland #include <stdlib.h>
395c51f124SMoriah Waterland #include <string.h>
405c51f124SMoriah Waterland #include <ctype.h>
415c51f124SMoriah Waterland #include <dirent.h>
425c51f124SMoriah Waterland #include <sys/stat.h>
435c51f124SMoriah Waterland #include <pkginfo.h>
445c51f124SMoriah Waterland #include <pkglocs.h>
455c51f124SMoriah Waterland #include <sys/types.h>
465c51f124SMoriah Waterland #include <pkgstrct.h>
475c51f124SMoriah Waterland #include <pkgtrans.h>
485c51f124SMoriah Waterland #include <locale.h>
495c51f124SMoriah Waterland #include <libintl.h>
505c51f124SMoriah Waterland #include <pkglib.h>
515c51f124SMoriah Waterland #include <libadm.h>
525c51f124SMoriah Waterland #include <libinst.h>
535c51f124SMoriah Waterland
545c51f124SMoriah Waterland #define MAXPATHS 1024
555c51f124SMoriah Waterland
565c51f124SMoriah Waterland #define MSG_CHK_STRM "Checking uninstalled stream format package " \
575c51f124SMoriah Waterland "<%s> from <%s>\n"
585c51f124SMoriah Waterland #define MSG_CHK_DIR "Checking uninstalled directory format package " \
595c51f124SMoriah Waterland "<%s> from <%s>\n"
605c51f124SMoriah Waterland #define MSG_NOTROOT "NOTE: \"root\" permission may be required to " \
615c51f124SMoriah Waterland "validate all objects in the client filesystem."
625c51f124SMoriah Waterland #define MSG_CONT "Continuing."
635c51f124SMoriah Waterland
645c51f124SMoriah Waterland #define WRN_F_SPOOL "WARNING: %s is spooled. Ignoring \"f\" argument"
655c51f124SMoriah Waterland
665c51f124SMoriah Waterland #define ERR_ROOT_SET "Could not set install root from the environment."
675c51f124SMoriah Waterland #define ERR_ROOT_CMD "Command line install root contends with environment."
685c51f124SMoriah Waterland #define ERR_IOPEN "unable to open input file <%s>"
695c51f124SMoriah Waterland #define ERR_IEMPTY "no pathnames in file specified by -i option"
705c51f124SMoriah Waterland #define ERR_POPTION "no pathname included with -p option"
715c51f124SMoriah Waterland #define ERR_PARTIAL_POPTION "no pathname included with -P option"
725c51f124SMoriah Waterland #define ERR_MAXPATHS "too many pathnames in option list (limit is %d)"
735c51f124SMoriah Waterland #define ERR_NOTROOT "You must be \"root\" for \"%s -f\" to" \
745c51f124SMoriah Waterland "execute properly."
755c51f124SMoriah Waterland #define ERR_SEL_PKG "No packages selected for verification."
765c51f124SMoriah Waterland #define ERR_CAT_LNGTH "The category argument exceeds the SVr4 ABI\n" \
775c51f124SMoriah Waterland " defined maximum supported length of 16 characters."
785c51f124SMoriah Waterland #define ERR_CAT_FND "Category argument <%s> cannot be found."
795c51f124SMoriah Waterland #define ERR_CAT_INV "Category argument <%s> is invalid."
805c51f124SMoriah Waterland #define ERR_TOO_MANY "too many pathnames in list, limit is %d"
815c51f124SMoriah Waterland #define ERR_PATHS_INVALID "Pathnames in %s are not valid."
825c51f124SMoriah Waterland #define ERR_MKDIR "unable to make directory <%s>"
835c51f124SMoriah Waterland #define ERR_USAGE "usage:\n" \
845c51f124SMoriah Waterland "\t%s [-l|vqacnxf] [-R rootdir] [-p path[, ...] | " \
855c51f124SMoriah Waterland "-P path[, ...]]\n" \
865c51f124SMoriah Waterland "\t\t[-i file] [options]\n" \
875c51f124SMoriah Waterland "\t%s -d device [-f][-l|v] [-p path[, ...] | " \
885c51f124SMoriah Waterland "-P path[, ...]]\n" \
895c51f124SMoriah Waterland "\t\t[-V ...] [-M] [-i file] [-Y category[, ...] | " \
905c51f124SMoriah Waterland "pkginst [...]]\n" \
915c51f124SMoriah Waterland "\twhere options may include ONE of the " \
925c51f124SMoriah Waterland "following:\n " \
935c51f124SMoriah Waterland "\t\t-m pkgmap [-e envfile]\n" \
945c51f124SMoriah Waterland "\t\tpkginst [...]\n" \
955c51f124SMoriah Waterland "\t\t-Y category[, ...]\n"
965c51f124SMoriah Waterland
975c51f124SMoriah Waterland #define LINK 1
985c51f124SMoriah Waterland
995c51f124SMoriah Waterland char **pkg = NULL;
1005c51f124SMoriah Waterland int pkgcnt = 0;
1015c51f124SMoriah Waterland char *basedir;
1025c51f124SMoriah Waterland char *pathlist[MAXPATHS], *ppathlist[MAXPATHS], pkgspool[PATH_MAX];
1035c51f124SMoriah Waterland short used[MAXPATHS];
1045c51f124SMoriah Waterland short npaths;
1055c51f124SMoriah Waterland struct cfent **eptlist;
1065c51f124SMoriah Waterland
1075c51f124SMoriah Waterland int aflag = (-1);
1085c51f124SMoriah Waterland int cflag = (-1);
1095c51f124SMoriah Waterland int vflag = 0;
1105c51f124SMoriah Waterland int nflag = 0;
1115c51f124SMoriah Waterland int lflag = 0;
1125c51f124SMoriah Waterland int Lflag = 0;
1135c51f124SMoriah Waterland int fflag = 0;
1145c51f124SMoriah Waterland int xflag = 0;
1155c51f124SMoriah Waterland int qflag = 0;
1165c51f124SMoriah Waterland int Rflag = 0;
1175c51f124SMoriah Waterland int dflag = 0;
1185c51f124SMoriah Waterland char *device;
1195c51f124SMoriah Waterland
1205c51f124SMoriah Waterland char *uniTmp;
1215c51f124SMoriah Waterland
1225c51f124SMoriah Waterland static char *mapfile,
1235c51f124SMoriah Waterland *spooldir,
1245c51f124SMoriah Waterland *tmpdir,
1255c51f124SMoriah Waterland *envfile;
1265c51f124SMoriah Waterland static int errflg = 0;
1275c51f124SMoriah Waterland static int map_client = 1;
1285c51f124SMoriah Waterland
1295c51f124SMoriah Waterland void quit(int);
1305c51f124SMoriah Waterland static void setpathlist(char *);
1315c51f124SMoriah Waterland static void usage(void);
1325c51f124SMoriah Waterland
1335c51f124SMoriah Waterland extern char **environ;
1345c51f124SMoriah Waterland extern char *pkgdir;
1355c51f124SMoriah Waterland
1365c51f124SMoriah Waterland /* checkmap.c */
1375c51f124SMoriah Waterland extern int checkmap(int, int, char *, char *, char *, char *, int);
1385c51f124SMoriah Waterland /* scriptvfy.c */
1395c51f124SMoriah Waterland extern int checkscripts(char *inst_dir, int silent);
1405c51f124SMoriah Waterland
1415c51f124SMoriah Waterland int
main(int argc,char * argv[])1425c51f124SMoriah Waterland main(int argc, char *argv[])
1435c51f124SMoriah Waterland {
1445c51f124SMoriah Waterland int pkgfmt = 0; /* Makes more sense as a pointer, but */
1455c51f124SMoriah Waterland /* 18N is compromised. */
1465c51f124SMoriah Waterland char file[PATH_MAX+1],
1475c51f124SMoriah Waterland *abi_sym_ptr,
1485c51f124SMoriah Waterland *vfstab_file = NULL;
1495c51f124SMoriah Waterland char *all_pkgs[4] = {"all", NULL};
1505c51f124SMoriah Waterland char **category = NULL;
1515c51f124SMoriah Waterland char *catg_arg = NULL;
1525c51f124SMoriah Waterland int c;
1535c51f124SMoriah Waterland int n = 0;
154*014740deSToomas Soome char *prog, *Rvalue = NULL, *dvalue = NULL;
1555c51f124SMoriah Waterland int pathtype;
1565c51f124SMoriah Waterland
1575c51f124SMoriah Waterland /* initialize locale mechanism */
1585c51f124SMoriah Waterland
1595c51f124SMoriah Waterland (void) setlocale(LC_ALL, "");
1605c51f124SMoriah Waterland
1615c51f124SMoriah Waterland #if !defined(TEXT_DOMAIN) /* Should be defined by cc -D */
1625c51f124SMoriah Waterland #define TEXT_DOMAIN "SYS_TEST"
1635c51f124SMoriah Waterland #endif
1645c51f124SMoriah Waterland (void) textdomain(TEXT_DOMAIN);
1655c51f124SMoriah Waterland
1665c51f124SMoriah Waterland /* determine program name */
1675c51f124SMoriah Waterland
1685c51f124SMoriah Waterland prog = set_prog_name(argv[0]);
1695c51f124SMoriah Waterland
1705c51f124SMoriah Waterland /* establish installation root directory */
1715c51f124SMoriah Waterland
1725c51f124SMoriah Waterland if (!set_inst_root(getenv("PKG_INSTALL_ROOT"))) {
1735c51f124SMoriah Waterland progerr(gettext(ERR_ROOT_SET));
1745c51f124SMoriah Waterland quit(1);
1755c51f124SMoriah Waterland }
1765c51f124SMoriah Waterland
1775c51f124SMoriah Waterland /* check if not ABI compliant mode */
1785c51f124SMoriah Waterland abi_sym_ptr = getenv("PKG_NONABI_SYMLINKS");
1795c51f124SMoriah Waterland if (abi_sym_ptr && strncasecmp(abi_sym_ptr, "TRUE", 4) == 0) {
1805c51f124SMoriah Waterland set_nonABI_symlinks();
1815c51f124SMoriah Waterland }
1825c51f124SMoriah Waterland
1835c51f124SMoriah Waterland /* bugId 4012147 */
1845c51f124SMoriah Waterland if ((uniTmp = getenv("PKG_NO_UNIFIED")) != NULL)
1855c51f124SMoriah Waterland map_client = 0;
1865c51f124SMoriah Waterland
187dea58231SPeter Tribble while ((c = getopt(argc, argv, "Y:R:e:p:d:nLli:vaV:Mm:cqxfP:?"))
1885c51f124SMoriah Waterland != EOF) {
1895c51f124SMoriah Waterland switch (c) {
1905c51f124SMoriah Waterland case 'p':
1915c51f124SMoriah Waterland pathlist[npaths] = strtok(optarg, " , ");
1925c51f124SMoriah Waterland if (pathlist[npaths++] == NULL) {
1935c51f124SMoriah Waterland progerr(gettext(ERR_POPTION));
1945c51f124SMoriah Waterland quit(1);
1955c51f124SMoriah Waterland }
1965c51f124SMoriah Waterland while (pathlist[npaths] = strtok(NULL, " , ")) {
1975c51f124SMoriah Waterland if (npaths++ >= MAXPATHS) {
1985c51f124SMoriah Waterland progerr(gettext(ERR_MAXPATHS),
1995c51f124SMoriah Waterland MAXPATHS);
2005c51f124SMoriah Waterland quit(1);
2015c51f124SMoriah Waterland }
2025c51f124SMoriah Waterland }
2035c51f124SMoriah Waterland break;
2045c51f124SMoriah Waterland
2055c51f124SMoriah Waterland case 'd':
2065c51f124SMoriah Waterland dvalue = optarg;
2075c51f124SMoriah Waterland dflag = 1;
2085c51f124SMoriah Waterland break;
2095c51f124SMoriah Waterland
2105c51f124SMoriah Waterland case 'n':
2115c51f124SMoriah Waterland nflag++;
2125c51f124SMoriah Waterland break;
2135c51f124SMoriah Waterland
2145c51f124SMoriah Waterland case 'M':
2155c51f124SMoriah Waterland map_client = 0;
2165c51f124SMoriah Waterland break;
2175c51f124SMoriah Waterland
2185c51f124SMoriah Waterland /*
2195c51f124SMoriah Waterland * Allow admin to establish the client filesystem using a
2205c51f124SMoriah Waterland * vfstab-like file of stable format.
2215c51f124SMoriah Waterland */
2225c51f124SMoriah Waterland case 'V':
2235c51f124SMoriah Waterland vfstab_file = flex_device(optarg, 2);
2245c51f124SMoriah Waterland map_client = 1;
2255c51f124SMoriah Waterland break;
2265c51f124SMoriah Waterland
2275c51f124SMoriah Waterland case 'f':
2285c51f124SMoriah Waterland if (getuid()) {
2295c51f124SMoriah Waterland progerr(gettext(ERR_NOTROOT), prog);
2305c51f124SMoriah Waterland quit(1);
2315c51f124SMoriah Waterland }
2325c51f124SMoriah Waterland fflag++;
2335c51f124SMoriah Waterland break;
2345c51f124SMoriah Waterland
2355c51f124SMoriah Waterland case 'i':
2365c51f124SMoriah Waterland setpathlist(optarg);
2375c51f124SMoriah Waterland break;
2385c51f124SMoriah Waterland
2395c51f124SMoriah Waterland case 'v':
2405c51f124SMoriah Waterland vflag++;
2415c51f124SMoriah Waterland break;
2425c51f124SMoriah Waterland
2435c51f124SMoriah Waterland case 'l':
2445c51f124SMoriah Waterland lflag++;
2455c51f124SMoriah Waterland break;
2465c51f124SMoriah Waterland
2475c51f124SMoriah Waterland case 'L':
2485c51f124SMoriah Waterland Lflag++;
2495c51f124SMoriah Waterland break;
2505c51f124SMoriah Waterland
2515c51f124SMoriah Waterland case 'x':
2525c51f124SMoriah Waterland if (aflag < 0)
2535c51f124SMoriah Waterland aflag = 0;
2545c51f124SMoriah Waterland if (cflag < 0)
2555c51f124SMoriah Waterland cflag = 0;
2565c51f124SMoriah Waterland xflag++;
2575c51f124SMoriah Waterland break;
2585c51f124SMoriah Waterland
2595c51f124SMoriah Waterland case 'q':
2605c51f124SMoriah Waterland qflag++;
2615c51f124SMoriah Waterland break;
2625c51f124SMoriah Waterland
2635c51f124SMoriah Waterland case 'a':
2645c51f124SMoriah Waterland if (cflag < 0)
2655c51f124SMoriah Waterland cflag = 0;
2665c51f124SMoriah Waterland aflag = 1;
2675c51f124SMoriah Waterland break;
2685c51f124SMoriah Waterland
2695c51f124SMoriah Waterland case 'c':
2705c51f124SMoriah Waterland if (aflag < 0)
2715c51f124SMoriah Waterland aflag = 0;
2725c51f124SMoriah Waterland cflag = 1;
2735c51f124SMoriah Waterland break;
2745c51f124SMoriah Waterland
2755c51f124SMoriah Waterland case 'e':
2765c51f124SMoriah Waterland envfile = optarg;
2775c51f124SMoriah Waterland break;
2785c51f124SMoriah Waterland
2795c51f124SMoriah Waterland case 'm':
2805c51f124SMoriah Waterland mapfile = optarg;
2815c51f124SMoriah Waterland break;
2825c51f124SMoriah Waterland
2835c51f124SMoriah Waterland case 'R':
2845c51f124SMoriah Waterland Rvalue = optarg;
2855c51f124SMoriah Waterland Rflag = 1;
2865c51f124SMoriah Waterland break;
2875c51f124SMoriah Waterland
2885c51f124SMoriah Waterland case 'Y':
2895c51f124SMoriah Waterland catg_arg = strdup(optarg);
2905c51f124SMoriah Waterland
2915c51f124SMoriah Waterland if ((category = get_categories(catg_arg)) == NULL) {
2925c51f124SMoriah Waterland progerr(gettext(ERR_CAT_INV), catg_arg);
2935c51f124SMoriah Waterland quit(1);
2945c51f124SMoriah Waterland } else if (is_not_valid_length(category)) {
2955c51f124SMoriah Waterland progerr(gettext(ERR_CAT_LNGTH));
2965c51f124SMoriah Waterland quit(1);
2975c51f124SMoriah Waterland }
2985c51f124SMoriah Waterland break;
2995c51f124SMoriah Waterland
3005c51f124SMoriah Waterland case 'P':
3015c51f124SMoriah Waterland ppathlist[npaths] = strtok(optarg, " , ");
3025c51f124SMoriah Waterland if ((ppathlist[npaths] == NULL) ||
3035c51f124SMoriah Waterland (ppathlist[npaths][0] == '-')) {
3045c51f124SMoriah Waterland progerr(gettext(ERR_PARTIAL_POPTION));
3055c51f124SMoriah Waterland quit(1);
3065c51f124SMoriah Waterland }
3075c51f124SMoriah Waterland npaths++;
3085c51f124SMoriah Waterland while (ppathlist[npaths] = strtok(NULL, " , ")) {
3095c51f124SMoriah Waterland if (npaths++ >= MAXPATHS) {
3105c51f124SMoriah Waterland progerr(gettext(ERR_MAXPATHS),
3115c51f124SMoriah Waterland MAXPATHS);
3125c51f124SMoriah Waterland quit(1);
3135c51f124SMoriah Waterland }
3145c51f124SMoriah Waterland }
3155c51f124SMoriah Waterland break;
3165c51f124SMoriah Waterland
3175c51f124SMoriah Waterland default:
3185c51f124SMoriah Waterland usage();
3195c51f124SMoriah Waterland /*NOTREACHED*/
3205c51f124SMoriah Waterland /*
3215c51f124SMoriah Waterland * Although usage() calls a noreturn function,
3225c51f124SMoriah Waterland * needed to add return (1); so that main() would
3235c51f124SMoriah Waterland * pass compilation checks. The statement below
3245c51f124SMoriah Waterland * should never be executed.
3255c51f124SMoriah Waterland */
3265c51f124SMoriah Waterland return (1);
3275c51f124SMoriah Waterland }
3285c51f124SMoriah Waterland }
3295c51f124SMoriah Waterland
3305c51f124SMoriah Waterland /* Check for incompatible options */
3315c51f124SMoriah Waterland if (dflag && Rflag)
3325c51f124SMoriah Waterland usage();
3335c51f124SMoriah Waterland
3345c51f124SMoriah Waterland /* Check for root dir and device dir if set */
3355c51f124SMoriah Waterland if (Rflag) {
3365c51f124SMoriah Waterland if (!set_inst_root(Rvalue)) {
3375c51f124SMoriah Waterland progerr(gettext(ERR_ROOT_CMD));
3385c51f124SMoriah Waterland quit(1);
3395c51f124SMoriah Waterland }
3405c51f124SMoriah Waterland }
3415c51f124SMoriah Waterland
3425c51f124SMoriah Waterland if (dflag)
3435c51f124SMoriah Waterland device = flex_device(dvalue, 1);
3445c51f124SMoriah Waterland
3455c51f124SMoriah Waterland if (lflag || Lflag) {
3465c51f124SMoriah Waterland /* we're only supposed to list information */
3475c51f124SMoriah Waterland if ((cflag >= 0) || (aflag >= 0) ||
3485c51f124SMoriah Waterland qflag || xflag || fflag || nflag || vflag)
3495c51f124SMoriah Waterland usage();
3505c51f124SMoriah Waterland }
3515c51f124SMoriah Waterland
3525c51f124SMoriah Waterland set_PKGpaths(get_inst_root());
3535c51f124SMoriah Waterland
3545c51f124SMoriah Waterland if (catg_arg != NULL && device == NULL) {
3555c51f124SMoriah Waterland if (argc - optind) {
3565c51f124SMoriah Waterland usage();
3575c51f124SMoriah Waterland }
3585c51f124SMoriah Waterland pkg = gpkglist(pkgdir, all_pkgs, category);
3595c51f124SMoriah Waterland if (pkg == NULL) {
3605c51f124SMoriah Waterland progerr(gettext(ERR_CAT_FND), catg_arg);
3615c51f124SMoriah Waterland quit(1);
3625c51f124SMoriah Waterland } else {
363dea58231SPeter Tribble for (pkgcnt = 0; pkg[pkgcnt] != NULL; pkgcnt++)
364dea58231SPeter Tribble ;
3655c51f124SMoriah Waterland }
3665c51f124SMoriah Waterland } else if (catg_arg != NULL && optind < argc) {
3675c51f124SMoriah Waterland usage();
3685c51f124SMoriah Waterland } else {
3695c51f124SMoriah Waterland pkg = &argv[optind];
3705c51f124SMoriah Waterland pkgcnt = (argc - optind);
3715c51f124SMoriah Waterland }
3725c51f124SMoriah Waterland
37362224350SCasper H.S. Dik /* read the environment for the pkgserver */
37462224350SCasper H.S. Dik pkgserversetmode(DEFAULTMODE);
37562224350SCasper H.S. Dik
3765c51f124SMoriah Waterland environ = NULL; /* Sever the parent environment. */
3775c51f124SMoriah Waterland
3785c51f124SMoriah Waterland if (vcfile() == 0) {
3795c51f124SMoriah Waterland quit(99);
3805c51f124SMoriah Waterland }
3815c51f124SMoriah Waterland
3825c51f124SMoriah Waterland errflg = 0;
3835c51f124SMoriah Waterland if (mapfile) {
3845c51f124SMoriah Waterland /* check for incompatible options */
3855c51f124SMoriah Waterland if (device || pkgcnt)
3865c51f124SMoriah Waterland usage();
3875c51f124SMoriah Waterland put_path_params(); /* Restore what's needed. */
3885c51f124SMoriah Waterland
3895c51f124SMoriah Waterland /* send pathtype if partial path */
3905c51f124SMoriah Waterland pathtype = (ppathlist[0] != NULL) ? 1 : 0;
3915c51f124SMoriah Waterland if (checkmap(0, (device != NULL), mapfile, envfile, NULL,
3925c51f124SMoriah Waterland NULL, pathtype))
3935c51f124SMoriah Waterland errflg++;
3945c51f124SMoriah Waterland } else if (device) {
3955c51f124SMoriah Waterland /* check for incompatible options */
3965c51f124SMoriah Waterland if ((cflag >= 0) || (aflag >= 0))
3975c51f124SMoriah Waterland usage();
3985c51f124SMoriah Waterland if (qflag || xflag || nflag || envfile)
3995c51f124SMoriah Waterland usage();
4005c51f124SMoriah Waterland tmpdir = NULL;
4015c51f124SMoriah Waterland if ((spooldir = devattr(device, "pathname")) == NULL)
4025c51f124SMoriah Waterland spooldir = device;
4035c51f124SMoriah Waterland if (isdir(spooldir)) {
4045c51f124SMoriah Waterland tmpdir = spooldir = qstrdup(tmpnam(NULL));
4055c51f124SMoriah Waterland if (fflag) {
4065c51f124SMoriah Waterland logerr(gettext(WRN_F_SPOOL), *pkg);
4075c51f124SMoriah Waterland fflag = 0;
4085c51f124SMoriah Waterland }
4095c51f124SMoriah Waterland if (mkdir(spooldir, 0755)) {
4105c51f124SMoriah Waterland progerr(gettext(ERR_MKDIR), spooldir);
4115c51f124SMoriah Waterland quit(99);
4125c51f124SMoriah Waterland }
41332991bedSPeter Tribble if (n = pkgtrans(device, spooldir, pkg, PT_SILENT))
4145c51f124SMoriah Waterland quit(n);
4155c51f124SMoriah Waterland if (catg_arg != NULL)
4165c51f124SMoriah Waterland pkg = gpkglist(spooldir, all_pkgs, category);
4175c51f124SMoriah Waterland else
4185c51f124SMoriah Waterland pkg = gpkglist(spooldir, all_pkgs, NULL);
4195c51f124SMoriah Waterland pkgfmt = 0;
4205c51f124SMoriah Waterland } else {
4215c51f124SMoriah Waterland if (catg_arg != NULL)
4225c51f124SMoriah Waterland pkg = gpkglist(spooldir,
4235c51f124SMoriah Waterland pkgcnt ? pkg : all_pkgs, category);
4245c51f124SMoriah Waterland else
4255c51f124SMoriah Waterland pkg = gpkglist(spooldir,
4265c51f124SMoriah Waterland pkgcnt ? pkg : all_pkgs, NULL);
4275c51f124SMoriah Waterland pkgfmt = 1;
4285c51f124SMoriah Waterland }
4295c51f124SMoriah Waterland
4305c51f124SMoriah Waterland /*
4315c51f124SMoriah Waterland * At this point pkg[] is the list of packages to check. They
4325c51f124SMoriah Waterland * are in directory format in spooldir.
4335c51f124SMoriah Waterland */
4345c51f124SMoriah Waterland if (pkg == NULL) {
4355c51f124SMoriah Waterland if (catg_arg != NULL) {
4365c51f124SMoriah Waterland progerr(gettext(ERR_CAT_FND), catg_arg);
4375c51f124SMoriah Waterland quit(1);
4385c51f124SMoriah Waterland } else {
4395c51f124SMoriah Waterland progerr(gettext(ERR_SEL_PKG));
4405c51f124SMoriah Waterland quit(1);
4415c51f124SMoriah Waterland }
4425c51f124SMoriah Waterland }
4435c51f124SMoriah Waterland
4445c51f124SMoriah Waterland aflag = 0;
4455c51f124SMoriah Waterland
4465c51f124SMoriah Waterland for (n = 0; pkg[n]; n++) {
4475c51f124SMoriah Waterland char locenv[PATH_MAX];
4485c51f124SMoriah Waterland
4495c51f124SMoriah Waterland if (pkgfmt)
4505c51f124SMoriah Waterland (void) printf(
4515c51f124SMoriah Waterland gettext(MSG_CHK_DIR), pkg[n], device);
4525c51f124SMoriah Waterland else
4535c51f124SMoriah Waterland (void) printf(
4545c51f124SMoriah Waterland gettext(MSG_CHK_STRM), pkg[n], device);
4555c51f124SMoriah Waterland
4565c51f124SMoriah Waterland (void) snprintf(pkgspool, sizeof (pkgspool),
4575c51f124SMoriah Waterland "%s/%s", spooldir, pkg[n]);
4585c51f124SMoriah Waterland (void) snprintf(file, sizeof (file),
4595c51f124SMoriah Waterland "%s/install", pkgspool);
4605c51f124SMoriah Waterland /* Here we check the install scripts. */
4615c51f124SMoriah Waterland (void) printf(
4625c51f124SMoriah Waterland gettext("## Checking control scripts.\n"));
4635c51f124SMoriah Waterland (void) checkscripts(file, 0);
4645c51f124SMoriah Waterland /* Verify consistency with the pkgmap. */
4655c51f124SMoriah Waterland (void) printf(
4665c51f124SMoriah Waterland gettext("## Checking package objects.\n"));
4675c51f124SMoriah Waterland (void) snprintf(file, sizeof (file),
4685c51f124SMoriah Waterland "%s/pkgmap", pkgspool);
4695c51f124SMoriah Waterland (void) snprintf(locenv, sizeof (locenv),
4705c51f124SMoriah Waterland "%s/pkginfo", pkgspool);
4715c51f124SMoriah Waterland envfile = locenv;
4725c51f124SMoriah Waterland
4735c51f124SMoriah Waterland /*
4745c51f124SMoriah Waterland * NOTE : checkmap() frees the environ data and
4755c51f124SMoriah Waterland * pointer when it's through with them.
4765c51f124SMoriah Waterland */
4775c51f124SMoriah Waterland if (checkmap(0, (device != NULL), file, envfile,
4785c51f124SMoriah Waterland pkg[n], NULL, 0))
4795c51f124SMoriah Waterland errflg++;
4805c51f124SMoriah Waterland (void) printf(
4815c51f124SMoriah Waterland gettext("## Checking is complete.\n"));
4825c51f124SMoriah Waterland }
4835c51f124SMoriah Waterland } else {
4845c51f124SMoriah Waterland if (envfile)
4855c51f124SMoriah Waterland usage();
4865c51f124SMoriah Waterland
4875c51f124SMoriah Waterland put_path_params(); /* Restore what's needed. */
4885c51f124SMoriah Waterland
4895c51f124SMoriah Waterland /*
4905c51f124SMoriah Waterland * If this is a check of a client of some sort, we'll need to
4915c51f124SMoriah Waterland * mount up the client's filesystems. If the caller isn't
4925c51f124SMoriah Waterland * root, this may not be possible.
4935c51f124SMoriah Waterland */
4945c51f124SMoriah Waterland if (is_an_inst_root()) {
4955c51f124SMoriah Waterland if (getuid()) {
4965c51f124SMoriah Waterland logerr(gettext(MSG_NOTROOT));
4975c51f124SMoriah Waterland logerr(gettext(MSG_CONT));
4985c51f124SMoriah Waterland } else {
4995c51f124SMoriah Waterland if (get_mntinfo(map_client, vfstab_file))
5005c51f124SMoriah Waterland map_client = 0;
5015c51f124SMoriah Waterland if (map_client)
5025c51f124SMoriah Waterland mount_client();
5035c51f124SMoriah Waterland }
5045c51f124SMoriah Waterland }
5055c51f124SMoriah Waterland
5065c51f124SMoriah Waterland (void) snprintf(file, sizeof (file),
5075c51f124SMoriah Waterland "%s/contents", get_PKGADM());
5085c51f124SMoriah Waterland if (ppathlist[0] != NULL) {
5095c51f124SMoriah Waterland for (n = 0; ppathlist[n]; n++) {
5105c51f124SMoriah Waterland if (checkmap(1, (device != NULL), file, NULL,
5115c51f124SMoriah Waterland NULL, ppathlist[n], 1))
5125c51f124SMoriah Waterland errflg++;
5135c51f124SMoriah Waterland }
5145c51f124SMoriah Waterland } else if (pkg[0] != NULL) {
5155c51f124SMoriah Waterland if (checkmap(1, (device != NULL), file, NULL,
5165c51f124SMoriah Waterland pkg[0], NULL, 0)) {
5175c51f124SMoriah Waterland errflg++;
5185c51f124SMoriah Waterland }
5195c51f124SMoriah Waterland } else {
5205c51f124SMoriah Waterland if (checkmap(1, (device != NULL), file, NULL,
5215c51f124SMoriah Waterland NULL, NULL, 0)) {
5225c51f124SMoriah Waterland errflg++;
5235c51f124SMoriah Waterland }
5245c51f124SMoriah Waterland }
5255c51f124SMoriah Waterland
5265c51f124SMoriah Waterland if (map_client) {
5275c51f124SMoriah Waterland unmount_client();
5285c51f124SMoriah Waterland }
5295c51f124SMoriah Waterland }
5305c51f124SMoriah Waterland quit(errflg ? 1 : 0);
5315c51f124SMoriah Waterland /* LINTED: no return */
5325c51f124SMoriah Waterland }
5335c51f124SMoriah Waterland
5345c51f124SMoriah Waterland static void
setpathlist(char * file)5355c51f124SMoriah Waterland setpathlist(char *file)
5365c51f124SMoriah Waterland {
5375c51f124SMoriah Waterland int fd;
5385c51f124SMoriah Waterland struct stat st;
5395c51f124SMoriah Waterland FILE *fplist;
5405c51f124SMoriah Waterland char pathname[PATH_MAX];
5415c51f124SMoriah Waterland /*
5425c51f124SMoriah Waterland * This trap laid to catch a mismatch between the declaration above and
5435c51f124SMoriah Waterland * the hard-coded constant in the fscanf below
5445c51f124SMoriah Waterland */
5455c51f124SMoriah Waterland #if PATH_MAX != 1024
5465c51f124SMoriah Waterland #error "PATH_MAX changed, so we have a bug to fix"
5475c51f124SMoriah Waterland #endif
5485c51f124SMoriah Waterland
5495c51f124SMoriah Waterland if (strcmp(file, "-") == 0) {
5505c51f124SMoriah Waterland fplist = stdin;
5515c51f124SMoriah Waterland } else {
5525c51f124SMoriah Waterland if ((fd = open(file, O_RDONLY)) == -1) {
5535c51f124SMoriah Waterland progerr(gettext(ERR_IOPEN), file);
5545c51f124SMoriah Waterland quit(1);
5555c51f124SMoriah Waterland }
5565c51f124SMoriah Waterland if (fstat(fd, &st) == -1) {
5575c51f124SMoriah Waterland progerr(gettext(ERR_IOPEN), file);
5585c51f124SMoriah Waterland quit(1);
5595c51f124SMoriah Waterland }
5605c51f124SMoriah Waterland if (S_ISDIR(st.st_mode) || S_ISBLK(st.st_mode)) {
5615c51f124SMoriah Waterland progerr(gettext(ERR_PATHS_INVALID), file);
5625c51f124SMoriah Waterland quit(1);
5635c51f124SMoriah Waterland }
5645c51f124SMoriah Waterland if ((fplist = fdopen(fd, "r")) == NULL) {
5655c51f124SMoriah Waterland progerr(gettext(ERR_IOPEN), file);
5665c51f124SMoriah Waterland quit(1);
5675c51f124SMoriah Waterland }
5685c51f124SMoriah Waterland }
5695c51f124SMoriah Waterland while (fscanf(fplist, "%1024s", pathname) == 1) {
5705c51f124SMoriah Waterland if (*pathname == '\0') {
5715c51f124SMoriah Waterland progerr(gettext(ERR_PATHS_INVALID), file);
5725c51f124SMoriah Waterland quit(1);
5735c51f124SMoriah Waterland }
5745c51f124SMoriah Waterland pathlist[npaths] = qstrdup(pathname);
5755c51f124SMoriah Waterland if (npaths++ > MAXPATHS) {
5765c51f124SMoriah Waterland progerr(gettext(ERR_TOO_MANY), MAXPATHS);
5775c51f124SMoriah Waterland quit(1);
5785c51f124SMoriah Waterland }
5795c51f124SMoriah Waterland }
5805c51f124SMoriah Waterland if (npaths == 0) {
5815c51f124SMoriah Waterland progerr(gettext(ERR_IEMPTY));
5825c51f124SMoriah Waterland quit(1);
5835c51f124SMoriah Waterland }
5845c51f124SMoriah Waterland (void) fclose(fplist);
5855c51f124SMoriah Waterland }
5865c51f124SMoriah Waterland
5875c51f124SMoriah Waterland void
quit(int n)5885c51f124SMoriah Waterland quit(int n)
5895c51f124SMoriah Waterland {
5905c51f124SMoriah Waterland /* cleanup any temporary directories */
5915c51f124SMoriah Waterland (void) chdir("/");
5925c51f124SMoriah Waterland if (tmpdir != NULL) {
5935c51f124SMoriah Waterland (void) rrmdir(tmpdir);
5945c51f124SMoriah Waterland free(tmpdir);
5955c51f124SMoriah Waterland tmpdir = NULL;
5965c51f124SMoriah Waterland }
5975c51f124SMoriah Waterland (void) pkghead(NULL);
5985c51f124SMoriah Waterland exit(n);
5995c51f124SMoriah Waterland /*NOTREACHED*/
6005c51f124SMoriah Waterland }
6015c51f124SMoriah Waterland
6025c51f124SMoriah Waterland static void
usage(void)6035c51f124SMoriah Waterland usage(void)
6045c51f124SMoriah Waterland {
6055c51f124SMoriah Waterland char *prog = get_prog_name();
6065c51f124SMoriah Waterland
6075c51f124SMoriah Waterland (void) fprintf(stderr, gettext(ERR_USAGE), prog, prog);
6085c51f124SMoriah Waterland quit(1);
6095c51f124SMoriah Waterland /*NOTREACHED*/
6105c51f124SMoriah Waterland }
611