diff options
Diffstat (limited to 'utils')
-rw-r--r-- | utils/Makefile.am | 89 | ||||
-rw-r--r-- | utils/Makefile.in | 976 | ||||
-rw-r--r-- | utils/README.alternatives | 2 | ||||
-rw-r--r-- | utils/start-stop-daemon.c | 2865 | ||||
-rw-r--r-- | utils/t/update_alternatives.t | 568 | ||||
-rw-r--r-- | utils/update-alternatives.c | 2870 | ||||
-rw-r--r-- | utils/update-alternatives.polkit.in | 20 |
7 files changed, 7390 insertions, 0 deletions
diff --git a/utils/Makefile.am b/utils/Makefile.am new file mode 100644 index 0000000..49c8b1f --- /dev/null +++ b/utils/Makefile.am @@ -0,0 +1,89 @@ +## Process this file with automake to produce Makefile.in + +localedir = $(datadir)/locale +AM_CPPFLAGS = \ + -DADMINDIR=\"$(admindir)\" \ + -DLOCALEDIR=\"$(localedir)\" \ + -DLOGDIR=\"$(logdir)\" \ + -DSYSCONFDIR=\"$(sysconfdir)\" \ + -idirafter $(top_srcdir)/lib/compat \ + -I$(top_builddir) \ + -I$(top_srcdir)/lib + +CLEANFILES = \ + org.dpkg.pkexec.update-alternatives.policy \ + $(nil) + +EXTRA_DIST = \ + README.alternatives \ + update-alternatives.polkit.in \ + $(test_scripts) \ + $(nil) + +pkexecdir = $(datadir)/polkit-1/actions +pkexec_DATA = + +bin_PROGRAMS = + +if BUILD_UPDATE_ALTERNATIVES +pkexec_DATA += org.dpkg.pkexec.update-alternatives.policy +bin_PROGRAMS += update-alternatives +endif + +do_polkit_subst = $(SED) \ + -e 's,[@]bindir[@],$(bindir),g' \ + $(nil) + +org.dpkg.pkexec.update-alternatives.policy: update-alternatives.polkit.in Makefile + @test -d `dirname $@` || $(MKDIR_P) `dirname $@` + $(AM_V_GEN) GETTEXTDATADIR="$(top_srcdir)/po" \ + $(MSGFMT) --xml --template $< -d $(top_srcdir)/po -o - \ + | $(do_polkit_subst) >$@ + +update_alternatives_SOURCES = \ + update-alternatives.c + +update_alternatives_CPPFLAGS = \ + -DALT_TMP_EXT=\".dpkg-tmp\" \ + -DADMINDIR_ENVVAR=\"DPKG_ADMINDIR\" \ + $(AM_CPPFLAGS) + +update_alternatives_LDADD = \ + ../lib/compat/libcompat.la \ + $(LIBINTL) \ + $(nil) + +sbin_PROGRAMS = + +if BUILD_START_STOP_DAEMON +sbin_PROGRAMS += start-stop-daemon + +start_stop_daemon_SOURCES = \ + start-stop-daemon.c + +start_stop_daemon_LDADD = \ + ../lib/compat/libcompat.la \ + $(PS_LIBS) \ + $(KVM_LIBS) \ + $(nil) +endif + +install-data-local: +if BUILD_UPDATE_ALTERNATIVES + $(MKDIR_P) $(DESTDIR)$(sysconfdir)/alternatives + $(MKDIR_P) $(DESTDIR)$(admindir)/alternatives + $(INSTALL_DATA) $(srcdir)/README.alternatives $(DESTDIR)$(sysconfdir)/alternatives/README +endif + +uninstall-local: + rm -f $(DESTDIR)$(sysconfdir)/alternatives/README + +TEST_ENV_VARS = DPKG_DATADIR=$(top_srcdir)/data + +test_tmpdir = t.tmp +test_scripts = \ + t/update_alternatives.t + +include $(top_srcdir)/check.am + +clean-local: check-clean diff --git a/utils/Makefile.in b/utils/Makefile.in new file mode 100644 index 0000000..74856fc --- /dev/null +++ b/utils/Makefile.in @@ -0,0 +1,976 @@ +# Makefile.in generated by automake 1.16.1 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994-2018 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +# Variables to be defined: +# +# TEST_VERBOSE - set to 0 (default) or 1 to control test suite verbosity +# TEST_PARALLEL - set to 1 (default) or N to control the parallel jobs +# TEST_ENV_VARS - environment variables to be set for the test suite +# TEST_COVERAGE - set to the perl module in charge of getting test coverage +# test_tmpdir - test suite temporary directory +# test_scripts - list of test case scripts +# test_programs - list of test case programs +# test_data - list of test data files + + +VPATH = @srcdir@ +am__is_gnu_make = { \ + if test -z '$(MAKELEVEL)'; then \ + false; \ + elif test -n '$(MAKE_HOST)'; then \ + true; \ + elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \ + true; \ + else \ + false; \ + fi; \ +} +am__make_running_with_option = \ + case $${target_option-} in \ + ?) ;; \ + *) echo "am__make_running_with_option: internal error: invalid" \ + "target option '$${target_option-}' specified" >&2; \ + exit 1;; \ + esac; \ + has_opt=no; \ + sane_makeflags=$$MAKEFLAGS; \ + if $(am__is_gnu_make); then \ + sane_makeflags=$$MFLAGS; \ + else \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + bs=\\; \ + sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ + | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ + esac; \ + fi; \ + skip_next=no; \ + strip_trailopt () \ + { \ + flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ + }; \ + for flg in $$sane_makeflags; do \ + test $$skip_next = yes && { skip_next=no; continue; }; \ + case $$flg in \ + *=*|--*) continue;; \ + -*I) strip_trailopt 'I'; skip_next=yes;; \ + -*I?*) strip_trailopt 'I';; \ + -*O) strip_trailopt 'O'; skip_next=yes;; \ + -*O?*) strip_trailopt 'O';; \ + -*l) strip_trailopt 'l'; skip_next=yes;; \ + -*l?*) strip_trailopt 'l';; \ + -[dEDm]) skip_next=yes;; \ + -[JT]) skip_next=yes;; \ + esac; \ + case $$flg in \ + *$$target_option*) has_opt=yes; break;; \ + esac; \ + done; \ + test $$has_opt = yes +am__make_dryrun = (target_option=n; $(am__make_running_with_option)) +am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) +pkgdatadir = $(datadir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkglibexecdir = $(libexecdir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +bin_PROGRAMS = $(am__EXEEXT_1) +@BUILD_UPDATE_ALTERNATIVES_TRUE@am__append_1 = org.dpkg.pkexec.update-alternatives.policy +@BUILD_UPDATE_ALTERNATIVES_TRUE@am__append_2 = update-alternatives +sbin_PROGRAMS = $(am__EXEEXT_2) +@BUILD_START_STOP_DAEMON_TRUE@am__append_3 = start-stop-daemon +subdir = utils +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/dpkg-arch.m4 \ + $(top_srcdir)/m4/dpkg-build.m4 \ + $(top_srcdir)/m4/dpkg-compiler.m4 \ + $(top_srcdir)/m4/dpkg-coverage.m4 \ + $(top_srcdir)/m4/dpkg-funcs.m4 $(top_srcdir)/m4/dpkg-libs.m4 \ + $(top_srcdir)/m4/dpkg-linker.m4 $(top_srcdir)/m4/dpkg-progs.m4 \ + $(top_srcdir)/m4/dpkg-types.m4 \ + $(top_srcdir)/m4/dpkg-unicode.m4 $(top_srcdir)/m4/gettext.m4 \ + $(top_srcdir)/m4/iconv.m4 $(top_srcdir)/m4/intlmacosx.m4 \ + $(top_srcdir)/m4/lib-ld.m4 $(top_srcdir)/m4/lib-link.m4 \ + $(top_srcdir)/m4/lib-prefix.m4 $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ + $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ + $(top_srcdir)/m4/nls.m4 $(top_srcdir)/m4/po.m4 \ + $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON) +mkinstalldirs = $(install_sh) -d +CONFIG_HEADER = $(top_builddir)/config.h +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +@BUILD_UPDATE_ALTERNATIVES_TRUE@am__EXEEXT_1 = \ +@BUILD_UPDATE_ALTERNATIVES_TRUE@ update-alternatives$(EXEEXT) +am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(sbindir)" \ + "$(DESTDIR)$(pkexecdir)" +@BUILD_START_STOP_DAEMON_TRUE@am__EXEEXT_2 = \ +@BUILD_START_STOP_DAEMON_TRUE@ start-stop-daemon$(EXEEXT) +PROGRAMS = $(bin_PROGRAMS) $(sbin_PROGRAMS) +am__start_stop_daemon_SOURCES_DIST = start-stop-daemon.c +@BUILD_START_STOP_DAEMON_TRUE@am_start_stop_daemon_OBJECTS = \ +@BUILD_START_STOP_DAEMON_TRUE@ start-stop-daemon.$(OBJEXT) +start_stop_daemon_OBJECTS = $(am_start_stop_daemon_OBJECTS) +am__DEPENDENCIES_1 = +@BUILD_START_STOP_DAEMON_TRUE@start_stop_daemon_DEPENDENCIES = \ +@BUILD_START_STOP_DAEMON_TRUE@ ../lib/compat/libcompat.la \ +@BUILD_START_STOP_DAEMON_TRUE@ $(am__DEPENDENCIES_1) \ +@BUILD_START_STOP_DAEMON_TRUE@ $(am__DEPENDENCIES_1) +AM_V_lt = $(am__v_lt_@AM_V@) +am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) +am__v_lt_0 = --silent +am__v_lt_1 = +am_update_alternatives_OBJECTS = \ + update_alternatives-update-alternatives.$(OBJEXT) +update_alternatives_OBJECTS = $(am_update_alternatives_OBJECTS) +update_alternatives_DEPENDENCIES = ../lib/compat/libcompat.la \ + $(am__DEPENDENCIES_1) +AM_V_P = $(am__v_P_@AM_V@) +am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) +am__v_P_0 = false +am__v_P_1 = : +AM_V_GEN = $(am__v_GEN_@AM_V@) +am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) +am__v_GEN_0 = @echo " GEN " $@; +am__v_GEN_1 = +AM_V_at = $(am__v_at_@AM_V@) +am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) +am__v_at_0 = @ +am__v_at_1 = +DEFAULT_INCLUDES = +depcomp = $(SHELL) $(top_srcdir)/build-aux/depcomp +am__maybe_remake_depfiles = depfiles +am__depfiles_remade = ./$(DEPDIR)/start-stop-daemon.Po \ + ./$(DEPDIR)/update_alternatives-update-alternatives.Po +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +AM_V_CC = $(am__v_CC_@AM_V@) +am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) +am__v_CC_0 = @echo " CC " $@; +am__v_CC_1 = +CCLD = $(CC) +LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_CCLD = $(am__v_CCLD_@AM_V@) +am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) +am__v_CCLD_0 = @echo " CCLD " $@; +am__v_CCLD_1 = +SOURCES = $(start_stop_daemon_SOURCES) $(update_alternatives_SOURCES) +DIST_SOURCES = $(am__start_stop_daemon_SOURCES_DIST) \ + $(update_alternatives_SOURCES) +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; +am__install_max = 40 +am__nobase_strip_setup = \ + srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` +am__nobase_strip = \ + for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" +am__nobase_list = $(am__nobase_strip_setup); \ + for p in $$list; do echo "$$p $$p"; done | \ + sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ + $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ + if (++n[$$2] == $(am__install_max)) \ + { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ + END { for (dir in files) print dir, files[dir] }' +am__base_list = \ + sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ + sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' +am__uninstall_files_from_dir = { \ + test -z "$$files" \ + || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ + || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ + $(am__cd) "$$dir" && rm -f $$files; }; \ + } +DATA = $(pkexec_DATA) +am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) +# Read a list of newline-separated strings from the standard input, +# and print each of them once, without duplicates. Input order is +# *not* preserved. +am__uniquify_input = $(AWK) '\ + BEGIN { nonempty = 0; } \ + { items[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in items) print i; }; } \ +' +# Make sure the list of sources is unique. This is necessary because, +# e.g., the same source file might be shared among _SOURCES variables +# for different programs/libraries. +am__define_uniq_tagged_files = \ + list='$(am__tagged_files)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | $(am__uniquify_input)` +ETAGS = etags +CTAGS = ctags +am__DIST_COMMON = $(srcdir)/Makefile.in \ + $(top_srcdir)/build-aux/depcomp $(top_srcdir)/check.am +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +AMTAR = @AMTAR@ +AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ +AR = @AR@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOM4TE = @AUTOM4TE@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +BUILD_DEVEL_DOCS = @BUILD_DEVEL_DOCS@ +BZ2_LIBS = @BZ2_LIBS@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CURSES_LIBS = @CURSES_LIBS@ +CXX = @CXX@ +CXXCPP = @CXXCPP@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +DLLTOOL = @DLLTOOL@ +DOXYGEN = @DOXYGEN@ +DSYMUTIL = @DSYMUTIL@ +DUMPBIN = @DUMPBIN@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +FGREP = @FGREP@ +GCOV = @GCOV@ +GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@ +GMSGFMT = @GMSGFMT@ +GMSGFMT_015 = @GMSGFMT_015@ +GREP = @GREP@ +HAVE_DOT = @HAVE_DOT@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +INTLLIBS = @INTLLIBS@ +INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@ +KVM_LIBS = @KVM_LIBS@ +LCOV = @LCOV@ +LCOV_GENHTML = @LCOV_GENHTML@ +LD = @LD@ +LDFLAGS = @LDFLAGS@ +LIBICONV = @LIBICONV@ +LIBINTL = @LIBINTL@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LIPO = @LIPO@ +LN_S = @LN_S@ +LTLIBICONV = @LTLIBICONV@ +LTLIBINTL = @LTLIBINTL@ +LTLIBOBJS = @LTLIBOBJS@ +LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@ +LZMA_LIBS = @LZMA_LIBS@ +MAKEINFO = @MAKEINFO@ +MANIFEST_TOOL = @MANIFEST_TOOL@ +MD_LIBS = @MD_LIBS@ +MKDIR_P = @MKDIR_P@ +MSGFMT = @MSGFMT@ +MSGFMT_015 = @MSGFMT_015@ +MSGMERGE = @MSGMERGE@ +NM = @NM@ +NMEDIT = @NMEDIT@ +OBJDUMP = @OBJDUMP@ +OBJEXT = @OBJEXT@ +OTOOL = @OTOOL@ +OTOOL64 = @OTOOL64@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_BUG_WEB = @PACKAGE_BUG_WEB@ +PACKAGE_COPYRIGHT_HOLDER = @PACKAGE_COPYRIGHT_HOLDER@ +PACKAGE_CPAN_NAME = @PACKAGE_CPAN_NAME@ +PACKAGE_DIST_IS_RELEASE = @PACKAGE_DIST_IS_RELEASE@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_RELEASE_DATE = @PACKAGE_RELEASE_DATE@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VCS_TYPE = @PACKAGE_VCS_TYPE@ +PACKAGE_VCS_URL = @PACKAGE_VCS_URL@ +PACKAGE_VCS_WEB = @PACKAGE_VCS_WEB@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATCH = @PATCH@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +PERL = @PERL@ +PERL_COVER = @PERL_COVER@ +PERL_COVERAGE = @PERL_COVERAGE@ +PERL_LIBDIR = @PERL_LIBDIR@ +PERL_MIN_VERSION = @PERL_MIN_VERSION@ +PKG_CONFIG = @PKG_CONFIG@ +PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ +PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ +PO4A = @PO4A@ +POD2MAN = @POD2MAN@ +POSUB = @POSUB@ +PS_LIBS = @PS_LIBS@ +RANLIB = @RANLIB@ +SED = @SED@ +SELINUX_CFLAGS = @SELINUX_CFLAGS@ +SELINUX_LIBS = @SELINUX_LIBS@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +TAR = @TAR@ +USE_NLS = @USE_NLS@ +USE_PO4A = @USE_PO4A@ +USE_UNICODE = @USE_UNICODE@ +VERSION = @VERSION@ +XGETTEXT = @XGETTEXT@ +XGETTEXT_015 = @XGETTEXT_015@ +XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@ +Z_LIBS = @Z_LIBS@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ +admindir = @admindir@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +builddir = @builddir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +devlibdir = @devlibdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = $(datadir)/locale +localstatedir = @localstatedir@ +logdir = @logdir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +pkgconfdir = @pkgconfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +runstatedir = @runstatedir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +AM_CPPFLAGS = \ + -DADMINDIR=\"$(admindir)\" \ + -DLOCALEDIR=\"$(localedir)\" \ + -DLOGDIR=\"$(logdir)\" \ + -DSYSCONFDIR=\"$(sysconfdir)\" \ + -idirafter $(top_srcdir)/lib/compat \ + -I$(top_builddir) \ + -I$(top_srcdir)/lib + +CLEANFILES = \ + org.dpkg.pkexec.update-alternatives.policy \ + $(nil) + +EXTRA_DIST = \ + README.alternatives \ + update-alternatives.polkit.in \ + $(test_scripts) \ + $(nil) + +pkexecdir = $(datadir)/polkit-1/actions +pkexec_DATA = $(am__append_1) +do_polkit_subst = $(SED) \ + -e 's,[@]bindir[@],$(bindir),g' \ + $(nil) + +update_alternatives_SOURCES = \ + update-alternatives.c + +update_alternatives_CPPFLAGS = \ + -DALT_TMP_EXT=\".dpkg-tmp\" \ + -DADMINDIR_ENVVAR=\"DPKG_ADMINDIR\" \ + $(AM_CPPFLAGS) + +update_alternatives_LDADD = \ + ../lib/compat/libcompat.la \ + $(LIBINTL) \ + $(nil) + +@BUILD_START_STOP_DAEMON_TRUE@start_stop_daemon_SOURCES = \ +@BUILD_START_STOP_DAEMON_TRUE@ start-stop-daemon.c + +@BUILD_START_STOP_DAEMON_TRUE@start_stop_daemon_LDADD = \ +@BUILD_START_STOP_DAEMON_TRUE@ ../lib/compat/libcompat.la \ +@BUILD_START_STOP_DAEMON_TRUE@ $(PS_LIBS) \ +@BUILD_START_STOP_DAEMON_TRUE@ $(KVM_LIBS) \ +@BUILD_START_STOP_DAEMON_TRUE@ $(nil) + +TEST_ENV_VARS = DPKG_DATADIR=$(top_srcdir)/data +test_tmpdir = t.tmp +test_scripts = \ + t/update_alternatives.t + +TEST_RUNNER = '\ + my $$harness = TAP::Harness->new({ \ + exec => sub { my (undef, $$test) = @_; \ + return [ $$test ] if $$test !~ "\.t\$$" and -x $$test; \ + return }, \ + lib => [ "$(top_srcdir)/scripts", "$(top_srcdir)/dselect/methods" ], \ + color => 1, \ + verbosity => $(TEST_VERBOSE), \ + jobs => $(TEST_PARALLEL), \ + failures => 1, \ + }); \ + my $$aggregate = $$harness->runtests(@ARGV); \ + die "FAIL: test suite has errors\n" if $$aggregate->has_errors;' + +all: all-am + +.SUFFIXES: +.SUFFIXES: .c .lo .o .obj +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(top_srcdir)/check.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign utils/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --foreign utils/Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \ + esac; +$(top_srcdir)/check.am $(am__empty): + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): +install-binPROGRAMS: $(bin_PROGRAMS) + @$(NORMAL_INSTALL) + @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \ + fi; \ + for p in $$list; do echo "$$p $$p"; done | \ + sed 's/$(EXEEXT)$$//' | \ + while read p p1; do if test -f $$p \ + || test -f $$p1 \ + ; then echo "$$p"; echo "$$p"; else :; fi; \ + done | \ + sed -e 'p;s,.*/,,;n;h' \ + -e 's|.*|.|' \ + -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \ + sed 'N;N;N;s,\n, ,g' | \ + $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \ + { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \ + if ($$2 == $$4) files[d] = files[d] " " $$1; \ + else { print "f", $$3 "/" $$4, $$1; } } \ + END { for (d in files) print "f", d, files[d] }' | \ + while read type dir files; do \ + if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \ + test -z "$$files" || { \ + echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \ + $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \ + } \ + ; done + +uninstall-binPROGRAMS: + @$(NORMAL_UNINSTALL) + @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ + files=`for p in $$list; do echo "$$p"; done | \ + sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \ + -e 's/$$/$(EXEEXT)/' \ + `; \ + test -n "$$list" || exit 0; \ + echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \ + cd "$(DESTDIR)$(bindir)" && rm -f $$files + +clean-binPROGRAMS: + @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \ + echo " rm -f" $$list; \ + rm -f $$list || exit $$?; \ + test -n "$(EXEEXT)" || exit 0; \ + list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \ + echo " rm -f" $$list; \ + rm -f $$list +install-sbinPROGRAMS: $(sbin_PROGRAMS) + @$(NORMAL_INSTALL) + @list='$(sbin_PROGRAMS)'; test -n "$(sbindir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(sbindir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(sbindir)" || exit 1; \ + fi; \ + for p in $$list; do echo "$$p $$p"; done | \ + sed 's/$(EXEEXT)$$//' | \ + while read p p1; do if test -f $$p \ + || test -f $$p1 \ + ; then echo "$$p"; echo "$$p"; else :; fi; \ + done | \ + sed -e 'p;s,.*/,,;n;h' \ + -e 's|.*|.|' \ + -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \ + sed 'N;N;N;s,\n, ,g' | \ + $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \ + { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \ + if ($$2 == $$4) files[d] = files[d] " " $$1; \ + else { print "f", $$3 "/" $$4, $$1; } } \ + END { for (d in files) print "f", d, files[d] }' | \ + while read type dir files; do \ + if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \ + test -z "$$files" || { \ + echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(sbindir)$$dir'"; \ + $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(sbindir)$$dir" || exit $$?; \ + } \ + ; done + +uninstall-sbinPROGRAMS: + @$(NORMAL_UNINSTALL) + @list='$(sbin_PROGRAMS)'; test -n "$(sbindir)" || list=; \ + files=`for p in $$list; do echo "$$p"; done | \ + sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \ + -e 's/$$/$(EXEEXT)/' \ + `; \ + test -n "$$list" || exit 0; \ + echo " ( cd '$(DESTDIR)$(sbindir)' && rm -f" $$files ")"; \ + cd "$(DESTDIR)$(sbindir)" && rm -f $$files + +clean-sbinPROGRAMS: + @list='$(sbin_PROGRAMS)'; test -n "$$list" || exit 0; \ + echo " rm -f" $$list; \ + rm -f $$list || exit $$?; \ + test -n "$(EXEEXT)" || exit 0; \ + list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \ + echo " rm -f" $$list; \ + rm -f $$list + +start-stop-daemon$(EXEEXT): $(start_stop_daemon_OBJECTS) $(start_stop_daemon_DEPENDENCIES) $(EXTRA_start_stop_daemon_DEPENDENCIES) + @rm -f start-stop-daemon$(EXEEXT) + $(AM_V_CCLD)$(LINK) $(start_stop_daemon_OBJECTS) $(start_stop_daemon_LDADD) $(LIBS) + +update-alternatives$(EXEEXT): $(update_alternatives_OBJECTS) $(update_alternatives_DEPENDENCIES) $(EXTRA_update_alternatives_DEPENDENCIES) + @rm -f update-alternatives$(EXEEXT) + $(AM_V_CCLD)$(LINK) $(update_alternatives_OBJECTS) $(update_alternatives_LDADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/start-stop-daemon.Po@am__quote@ # am--include-marker +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/update_alternatives-update-alternatives.Po@am__quote@ # am--include-marker + +$(am__depfiles_remade): + @$(MKDIR_P) $(@D) + @echo '# dummy' >$@-t && $(am__mv) $@-t $@ + +am--depfiles: $(am__depfiles_remade) + +.c.o: +@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $< + +.c.obj: +@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.c.lo: +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $< + +update_alternatives-update-alternatives.o: update-alternatives.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(update_alternatives_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT update_alternatives-update-alternatives.o -MD -MP -MF $(DEPDIR)/update_alternatives-update-alternatives.Tpo -c -o update_alternatives-update-alternatives.o `test -f 'update-alternatives.c' || echo '$(srcdir)/'`update-alternatives.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/update_alternatives-update-alternatives.Tpo $(DEPDIR)/update_alternatives-update-alternatives.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='update-alternatives.c' object='update_alternatives-update-alternatives.o' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(update_alternatives_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o update_alternatives-update-alternatives.o `test -f 'update-alternatives.c' || echo '$(srcdir)/'`update-alternatives.c + +update_alternatives-update-alternatives.obj: update-alternatives.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(update_alternatives_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT update_alternatives-update-alternatives.obj -MD -MP -MF $(DEPDIR)/update_alternatives-update-alternatives.Tpo -c -o update_alternatives-update-alternatives.obj `if test -f 'update-alternatives.c'; then $(CYGPATH_W) 'update-alternatives.c'; else $(CYGPATH_W) '$(srcdir)/update-alternatives.c'; fi` +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/update_alternatives-update-alternatives.Tpo $(DEPDIR)/update_alternatives-update-alternatives.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='update-alternatives.c' object='update_alternatives-update-alternatives.obj' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(update_alternatives_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o update_alternatives-update-alternatives.obj `if test -f 'update-alternatives.c'; then $(CYGPATH_W) 'update-alternatives.c'; else $(CYGPATH_W) '$(srcdir)/update-alternatives.c'; fi` + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs +install-pkexecDATA: $(pkexec_DATA) + @$(NORMAL_INSTALL) + @list='$(pkexec_DATA)'; test -n "$(pkexecdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(pkexecdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(pkexecdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkexecdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(pkexecdir)" || exit $$?; \ + done + +uninstall-pkexecDATA: + @$(NORMAL_UNINSTALL) + @list='$(pkexec_DATA)'; test -n "$(pkexecdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(pkexecdir)'; $(am__uninstall_files_from_dir) + +ID: $(am__tagged_files) + $(am__define_uniq_tagged_files); mkid -fID $$unique +tags: tags-am +TAGS: tags + +tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + set x; \ + here=`pwd`; \ + $(am__define_uniq_tagged_files); \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: ctags-am + +CTAGS: ctags +ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + $(am__define_uniq_tagged_files); \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" +cscopelist: cscopelist-am + +cscopelist-am: $(am__tagged_files) + list='$(am__tagged_files)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(BUILT_SOURCES) + $(MAKE) $(AM_MAKEFLAGS) distdir-am + +distdir-am: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done +check-am: all-am + $(MAKE) $(AM_MAKEFLAGS) check-local +check: check-am +all-am: Makefile $(PROGRAMS) $(DATA) +installdirs: + for dir in "$(DESTDIR)$(bindir)" "$(DESTDIR)$(sbindir)" "$(DESTDIR)$(pkexecdir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-binPROGRAMS clean-generic clean-libtool clean-local \ + clean-sbinPROGRAMS mostlyclean-am + +distclean: distclean-am + -rm -f ./$(DEPDIR)/start-stop-daemon.Po + -rm -f ./$(DEPDIR)/update_alternatives-update-alternatives.Po + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +html-am: + +info: info-am + +info-am: + +install-data-am: install-data-local + +install-dvi: install-dvi-am + +install-dvi-am: + +install-exec-am: install-binPROGRAMS install-pkexecDATA \ + install-sbinPROGRAMS + +install-html: install-html-am + +install-html-am: + +install-info: install-info-am + +install-info-am: + +install-man: + +install-pdf: install-pdf-am + +install-pdf-am: + +install-ps: install-ps-am + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -f ./$(DEPDIR)/start-stop-daemon.Po + -rm -f ./$(DEPDIR)/update_alternatives-update-alternatives.Po + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-binPROGRAMS uninstall-local \ + uninstall-pkexecDATA uninstall-sbinPROGRAMS + +.MAKE: check-am install-am install-strip + +.PHONY: CTAGS GTAGS TAGS all all-am am--depfiles check check-am \ + check-local clean clean-binPROGRAMS clean-generic \ + clean-libtool clean-local clean-sbinPROGRAMS cscopelist-am \ + ctags ctags-am distclean distclean-compile distclean-generic \ + distclean-libtool distclean-tags distdir dvi dvi-am html \ + html-am info info-am install install-am install-binPROGRAMS \ + install-data install-data-am install-data-local install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-info install-info-am install-man \ + install-pdf install-pdf-am install-pkexecDATA install-ps \ + install-ps-am install-sbinPROGRAMS install-strip installcheck \ + installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags tags-am uninstall uninstall-am uninstall-binPROGRAMS \ + uninstall-local uninstall-pkexecDATA uninstall-sbinPROGRAMS + +.PRECIOUS: Makefile + + +org.dpkg.pkexec.update-alternatives.policy: update-alternatives.polkit.in Makefile + @test -d `dirname $@` || $(MKDIR_P) `dirname $@` + $(AM_V_GEN) GETTEXTDATADIR="$(top_srcdir)/po" \ + $(MSGFMT) --xml --template $< -d $(top_srcdir)/po -o - \ + | $(do_polkit_subst) >$@ + +install-data-local: +@BUILD_UPDATE_ALTERNATIVES_TRUE@ $(MKDIR_P) $(DESTDIR)$(sysconfdir)/alternatives +@BUILD_UPDATE_ALTERNATIVES_TRUE@ $(MKDIR_P) $(DESTDIR)$(admindir)/alternatives +@BUILD_UPDATE_ALTERNATIVES_TRUE@ $(INSTALL_DATA) $(srcdir)/README.alternatives $(DESTDIR)$(sysconfdir)/alternatives/README + +uninstall-local: + rm -f $(DESTDIR)$(sysconfdir)/alternatives/README + +TEST_VERBOSE ?= 0 +TEST_PARALLEL ?= 1 + +check-clean: + [ -z "$(test_tmpdir)" ] || rm -fr $(test_tmpdir) + +check-local: $(test_data) $(test_programs) $(test_scripts) + [ -z "$(test_tmpdir)" ] || $(MKDIR_P) $(test_tmpdir) + PATH="$(abs_top_builddir)/src:$(abs_top_builddir)/scripts:$(abs_top_builddir)/utils:$(PATH)" \ + LC_ALL=C \ + DPKG_COLORS=never \ + $(TEST_ENV_VARS) \ + srcdir=$(srcdir) builddir=$(builddir) \ + CC=$(CC) \ + PERL=$(PERL) \ + PERL_DL_NONLAZY=1 \ + PERL5LIB=$(abs_top_srcdir)/scripts:$(abs_top_srcdir)/dselect/methods \ + PERL5OPT=$(TEST_COVERAGE) \ + $(PERL) -MTAP::Harness -e $(TEST_RUNNER) \ + $(addprefix $(builddir)/,$(test_programs)) \ + $(addprefix $(srcdir)/,$(test_scripts)) + +clean-local: check-clean + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/utils/README.alternatives b/utils/README.alternatives new file mode 100644 index 0000000..4c4d215 --- /dev/null +++ b/utils/README.alternatives @@ -0,0 +1,2 @@ +Please read the update-alternatives(1) man page for information on this +directory and its contents. diff --git a/utils/start-stop-daemon.c b/utils/start-stop-daemon.c new file mode 100644 index 0000000..88c9726 --- /dev/null +++ b/utils/start-stop-daemon.c @@ -0,0 +1,2865 @@ +/* + * A rewrite of the original Debian's start-stop-daemon Perl script + * in C (faster - it is executed many times during system startup). + * + * Written by Marek Michalkiewicz <marekm@i17linuxb.ists.pwr.wroc.pl>, + * public domain. Based conceptually on start-stop-daemon.pl, by Ian + * Jackson <ijackson@gnu.ai.mit.edu>. May be used and distributed + * freely for any purpose. Changes by Christian Schwarz + * <schwarz@monet.m.isar.de>, to make output conform to the Debian + * Console Message Standard, also placed in public domain. Minor + * changes by Klee Dienes <klee@debian.org>, also placed in the Public + * Domain. + * + * Changes by Ben Collins <bcollins@debian.org>, added --chuid, --background + * and --make-pidfile options, placed in public domain as well. + * + * Port to OpenBSD by Sontri Tomo Huynh <huynh.29@osu.edu> + * and Andreas Schuldei <andreas@schuldei.org> + * + * Changes by Ian Jackson: added --retry (and associated rearrangements). + */ + +#include <config.h> +#include <compat.h> + +#include <dpkg/macros.h> + +#if defined(__linux__) +# define OS_Linux +#elif defined(__GNU__) +# define OS_Hurd +#elif defined(__FreeBSD__) || defined(__FreeBSD_kernel__) +# define OS_FreeBSD +#elif defined(__NetBSD__) +# define OS_NetBSD +#elif defined(__OpenBSD__) +# define OS_OpenBSD +#elif defined(__DragonFly__) +# define OS_DragonFlyBSD +#elif defined(__APPLE__) && defined(__MACH__) +# define OS_Darwin +#elif defined(__sun) +# define OS_Solaris +#elif defined(_AIX) +# define OS_AIX +#elif defined(__hpux) +# define OS_HPUX +#else +# error Unknown architecture - cannot build start-stop-daemon +#endif + +/* NetBSD needs this to expose struct proc. */ +#define _KMEMUSER 1 + +#ifdef HAVE_SYS_PARAM_H +#include <sys/param.h> +#endif +#ifdef HAVE_SYS_SYSCALL_H +#include <sys/syscall.h> +#endif +#ifdef HAVE_SYS_SYSCTL_H +#include <sys/sysctl.h> +#endif +#ifdef HAVE_SYS_PROCFS_H +#include <sys/procfs.h> +#endif +#ifdef HAVE_SYS_PROC_H +#include <sys/proc.h> +#endif +#ifdef HAVE_SYS_USER_H +#include <sys/user.h> +#endif +#ifdef HAVE_SYS_PSTAT_H +#include <sys/pstat.h> +#endif +#include <sys/types.h> +#include <sys/time.h> +#include <sys/stat.h> +#include <sys/wait.h> +#include <sys/select.h> +#include <sys/ioctl.h> +#include <sys/socket.h> +#include <sys/un.h> + +#include <errno.h> +#include <limits.h> +#include <time.h> +#include <fcntl.h> +#include <dirent.h> +#include <ctype.h> +#include <string.h> +#include <pwd.h> +#include <grp.h> +#include <signal.h> +#include <termios.h> +#include <unistd.h> +#ifdef HAVE_STDDEF_H +#include <stddef.h> +#endif +#include <stdbool.h> +#include <stdarg.h> +#include <stdlib.h> +#include <stdio.h> +#include <getopt.h> +#ifdef HAVE_ERROR_H +#include <error.h> +#endif +#ifdef HAVE_ERR_H +#include <err.h> +#endif + +#if defined(OS_Hurd) +#include <hurd.h> +#include <ps.h> +#endif + +#if defined(OS_Darwin) +#include <libproc.h> +#endif + +#ifdef HAVE_KVM_H +#include <kvm.h> +#if defined(OS_FreeBSD) +#define KVM_MEMFILE "/dev/null" +#else +#define KVM_MEMFILE NULL +#endif +#endif + +#if defined(_POSIX_PRIORITY_SCHEDULING) && _POSIX_PRIORITY_SCHEDULING > 0 +#include <sched.h> +#else +#define SCHED_OTHER -1 +#define SCHED_FIFO -1 +#define SCHED_RR -1 +#endif + +#if defined(OS_Linux) +/* This comes from TASK_COMM_LEN defined in Linux' include/linux/sched.h. */ +#define PROCESS_NAME_SIZE 15 +#elif defined(OS_Solaris) +#define PROCESS_NAME_SIZE 15 +#elif defined(OS_Darwin) +#define PROCESS_NAME_SIZE 16 +#elif defined(OS_AIX) +/* This comes from PRFNSZ defined in AIX's <sys/procfs.h>. */ +#define PROCESS_NAME_SIZE 16 +#elif defined(OS_NetBSD) +#define PROCESS_NAME_SIZE 16 +#elif defined(OS_OpenBSD) +#define PROCESS_NAME_SIZE 16 +#elif defined(OS_FreeBSD) +#define PROCESS_NAME_SIZE 19 +#elif defined(OS_DragonFlyBSD) +/* On DragonFlyBSD MAXCOMLEN expands to 16. */ +#define PROCESS_NAME_SIZE MAXCOMLEN +#endif + +#if defined(SYS_ioprio_set) && defined(linux) +#define HAVE_IOPRIO_SET +#endif + +#define IOPRIO_CLASS_SHIFT 13 +#define IOPRIO_PRIO_VALUE(class, prio) (((class) << IOPRIO_CLASS_SHIFT) | (prio)) +#define IO_SCHED_PRIO_MIN 0 +#define IO_SCHED_PRIO_MAX 7 + +enum { + IOPRIO_WHO_PROCESS = 1, + IOPRIO_WHO_PGRP, + IOPRIO_WHO_USER, +}; + +enum { + IOPRIO_CLASS_NONE, + IOPRIO_CLASS_RT, + IOPRIO_CLASS_BE, + IOPRIO_CLASS_IDLE, +}; + +enum action_code { + ACTION_NONE, + ACTION_START, + ACTION_STOP, + ACTION_STATUS, +}; + +enum match_code { + MATCH_NONE = 0, + MATCH_PID = 1 << 0, + MATCH_PPID = 1 << 1, + MATCH_PIDFILE = 1 << 2, + MATCH_EXEC = 1 << 3, + MATCH_NAME = 1 << 4, + MATCH_USER = 1 << 5, +}; + +/* Time conversion constants. */ +enum { + NANOSEC_IN_SEC = 1000000000L, + NANOSEC_IN_MILLISEC = 1000000L, + NANOSEC_IN_MICROSEC = 1000L, +}; + +/* The minimum polling interval, 20ms. */ +static const long MIN_POLL_INTERVAL = 20L * NANOSEC_IN_MILLISEC; + +static enum action_code action; +static enum match_code match_mode; +static bool testmode = false; +static int quietmode = 0; +static int exitnodo = 1; +static bool background = false; +static bool close_io = true; +static bool notify_await = false; +static int notify_timeout = 60; +static char *notify_sockdir; +static char *notify_socket; +static bool mpidfile = false; +static bool rpidfile = false; +static int signal_nr = SIGTERM; +static int user_id = -1; +static int runas_uid = -1; +static int runas_gid = -1; +static const char *userspec = NULL; +static char *changeuser = NULL; +static const char *changegroup = NULL; +static char *changeroot = NULL; +static const char *changedir = "/"; +static const char *cmdname = NULL; +static char *execname = NULL; +static char *startas = NULL; +static pid_t match_pid = -1; +static pid_t match_ppid = -1; +static const char *pidfile = NULL; +static char *what_stop = NULL; +static const char *progname = ""; +static int nicelevel = 0; +static int umask_value = -1; + +static struct stat exec_stat; +#if defined(OS_Hurd) +static struct proc_stat_list *procset = NULL; +#endif + +/* LSB Init Script process status exit codes. */ +enum status_code { + STATUS_OK = 0, + STATUS_DEAD_PIDFILE = 1, + STATUS_DEAD_LOCKFILE = 2, + STATUS_DEAD = 3, + STATUS_UNKNOWN = 4, +}; + +struct pid_list { + struct pid_list *next; + pid_t pid; +}; + +static struct pid_list *found = NULL; +static struct pid_list *killed = NULL; + +/* Resource scheduling policy. */ +struct res_schedule { + const char *policy_name; + int policy; + int priority; +}; + +struct schedule_item { + enum { + sched_timeout, + sched_signal, + sched_goto, + /* Only seen within parse_schedule and callees. */ + sched_forever, + } type; + /* Seconds, signal no., or index into array. */ + int value; +}; + +static struct res_schedule *proc_sched = NULL; +static struct res_schedule *io_sched = NULL; + +static int schedule_length; +static struct schedule_item *schedule = NULL; + + +static void DPKG_ATTR_PRINTF(1) +debug(const char *format, ...) +{ + va_list arglist; + + if (quietmode >= 0) + return; + + va_start(arglist, format); + vprintf(format, arglist); + va_end(arglist); +} + +static void DPKG_ATTR_PRINTF(1) +info(const char *format, ...) +{ + va_list arglist; + + if (quietmode > 0) + return; + + va_start(arglist, format); + vprintf(format, arglist); + va_end(arglist); +} + +static void DPKG_ATTR_PRINTF(1) +warning(const char *format, ...) +{ + va_list arglist; + + fprintf(stderr, "%s: warning: ", progname); + va_start(arglist, format); + vfprintf(stderr, format, arglist); + va_end(arglist); +} + +static void DPKG_ATTR_NORET DPKG_ATTR_VPRINTF(2) +fatalv(int errno_fatal, const char *format, va_list args) +{ + va_list args_copy; + + fprintf(stderr, "%s: ", progname); + va_copy(args_copy, args); + vfprintf(stderr, format, args_copy); + va_end(args_copy); + if (errno_fatal) + fprintf(stderr, " (%s)\n", strerror(errno_fatal)); + else + fprintf(stderr, "\n"); + + if (action == ACTION_STATUS) + exit(STATUS_UNKNOWN); + else + exit(2); +} + +static void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(1) +fatal(const char *format, ...) +{ + va_list args; + + va_start(args, format); + fatalv(0, format, args); +} + +static void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(1) +fatale(const char *format, ...) +{ + va_list args; + + va_start(args, format); + fatalv(errno, format, args); +} + +#define BUG(...) bug(__FILE__, __LINE__, __func__, __VA_ARGS__) + +static void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(4) +bug(const char *file, int line, const char *func, const char *format, ...) +{ + va_list arglist; + + fprintf(stderr, "%s:%s:%d:%s: internal error: ", + progname, file, line, func); + va_start(arglist, format); + vfprintf(stderr, format, arglist); + va_end(arglist); + + if (action == ACTION_STATUS) + exit(STATUS_UNKNOWN); + else + exit(3); +} + +static void * +xmalloc(int size) +{ + void *ptr; + + ptr = malloc(size); + if (ptr) + return ptr; + fatale("malloc(%d) failed", size); +} + +static char * +xstrndup(const char *str, size_t n) +{ + char *new_str; + + new_str = strndup(str, n); + if (new_str) + return new_str; + fatale("strndup(%s, %zu) failed", str, n); +} + +static void +timespec_gettime(struct timespec *ts) +{ +#if defined(_POSIX_TIMERS) && _POSIX_TIMERS > 0 && \ + defined(_POSIX_MONOTONIC_CLOCK) && _POSIX_MONOTONIC_CLOCK > 0 + if (clock_gettime(CLOCK_MONOTONIC, ts) < 0) + fatale("clock_gettime failed"); +#else + struct timeval tv; + + if (gettimeofday(&tv, NULL) != 0) + fatale("gettimeofday failed"); + + ts->tv_sec = tv.tv_sec; + ts->tv_nsec = tv.tv_usec * NANOSEC_IN_MICROSEC; +#endif +} + +#define timespec_cmp(a, b, OP) \ + (((a)->tv_sec == (b)->tv_sec) ? \ + ((a)->tv_nsec OP (b)->tv_nsec) : \ + ((a)->tv_sec OP (b)->tv_sec)) + +static void +timespec_sub(struct timespec *a, struct timespec *b, struct timespec *res) +{ + res->tv_sec = a->tv_sec - b->tv_sec; + res->tv_nsec = a->tv_nsec - b->tv_nsec; + if (res->tv_nsec < 0) { + res->tv_sec--; + res->tv_nsec += NANOSEC_IN_SEC; + } +} + +static void +timespec_mul(struct timespec *a, int b) +{ + long nsec = a->tv_nsec * b; + + a->tv_sec *= b; + a->tv_sec += nsec / NANOSEC_IN_SEC; + a->tv_nsec = nsec % NANOSEC_IN_SEC; +} + +static char * +newpath(const char *dirname, const char *filename) +{ + char *path; + size_t path_len; + + path_len = strlen(dirname) + 1 + strlen(filename) + 1; + path = xmalloc(path_len); + snprintf(path, path_len, "%s/%s", dirname, filename); + + return path; +} + +static int +parse_unsigned(const char *string, int base, int *value_r) +{ + long value; + char *endptr; + + errno = 0; + if (!string[0]) + return -1; + + value = strtol(string, &endptr, base); + if (string == endptr || *endptr != '\0' || errno != 0) + return -1; + if (value < 0 || value > INT_MAX) + return -1; + + *value_r = value; + return 0; +} + +static long +get_open_fd_max(void) +{ +#ifdef HAVE_GETDTABLESIZE + return getdtablesize(); +#else + return sysconf(_SC_OPEN_MAX); +#endif +} + +#ifndef HAVE_SETSID +static void +detach_controlling_tty(void) +{ +#ifdef HAVE_TIOCNOTTY + int tty_fd; + + tty_fd = open("/dev/tty", O_RDWR); + + /* The current process does not have a controlling tty. */ + if (tty_fd < 0) + return; + + if (ioctl(tty_fd, TIOCNOTTY, 0) != 0) + fatale("unable to detach controlling tty"); + + close(tty_fd); +#endif +} + +static pid_t +setsid(void) +{ + if (setpgid(0, 0) < 0) + return -1: + + detach_controlling_tty(); + + return 0; +} +#endif + +static void +wait_for_child(pid_t pid) +{ + pid_t child; + int status; + + do { + child = waitpid(pid, &status, 0); + } while (child == -1 && errno == EINTR); + + if (child != pid) + fatal("error waiting for child"); + + if (WIFEXITED(status)) { + int ret = WEXITSTATUS(status); + + if (ret != 0) + fatal("child returned error exit status %d", ret); + } else if (WIFSIGNALED(status)) { + int signo = WTERMSIG(status); + + fatal("child was killed by signal %d", signo); + } else { + fatal("unexpected status %d waiting for child", status); + } +} + +static void +cleanup_socket_dir(void) +{ + unlink(notify_socket); + rmdir(notify_sockdir); +} + +static char * +setup_socket_name(const char *suffix) +{ + const char *basedir; + + if (getuid() == 0 && access("/run", F_OK) == 0) { + basedir = "/run"; + } else { + basedir = getenv("TMPDIR"); + if (basedir == NULL) + basedir = P_tmpdir; + } + + if (asprintf(¬ify_sockdir, "%s/%s.XXXXXX", basedir, suffix) < 0) + fatale("cannot allocate socket directory name"); + + if (mkdtemp(notify_sockdir) == NULL) + fatale("cannot create socket directory %s", notify_sockdir); + + atexit(cleanup_socket_dir); + + if (chown(notify_sockdir, runas_uid, runas_gid)) + fatale("cannot change socket directory ownership"); + + if (asprintf(¬ify_socket, "%s/notify", notify_sockdir) < 0) + fatale("cannot allocate socket name"); + + setenv("NOTIFY_SOCKET", notify_socket, 1); + + return notify_socket; +} + +static void +set_socket_passcred(int fd) +{ +#ifdef SO_PASSCRED + static const int enable = 1; + + setsockopt(fd, SOL_SOCKET, SO_PASSCRED, &enable, sizeof(enable)); +#endif +} + +static int +create_notify_socket(void) +{ + const char *sockname; + struct sockaddr_un su; + int fd, rc, flags; + + /* Create notification socket. */ + fd = socket(AF_UNIX, SOCK_DGRAM | SOCK_NONBLOCK, 0); + if (fd < 0) + fatale("cannot create notification socket"); + + /* We could set SOCK_CLOEXEC instead, but then we would need to + * check whether the socket call failed, try and then do this anyway, + * when we have no threading problems to worry about. */ + flags = fcntl(fd, F_GETFD); + if (flags < 0) + fatale("cannot read fd flags for notification socket"); + if (fcntl(fd, F_SETFD, flags | FD_CLOEXEC) < 0) + fatale("cannot set close-on-exec flag for notification socket"); + + sockname = setup_socket_name(".s-s-d-notify"); + + /* Bind to a socket in a temporary directory, selected based on + * the platform. */ + memset(&su, 0, sizeof(su)); + su.sun_family = AF_UNIX; + strncpy(su.sun_path, sockname, sizeof(su.sun_path) - 1); + + rc = bind(fd, &su, sizeof(su)); + if (rc < 0) + fatale("cannot bind to notification socket"); + + rc = chmod(su.sun_path, 0660); + if (rc < 0) + fatale("cannot change notification socket permissions"); + + rc = chown(su.sun_path, runas_uid, runas_gid); + if (rc < 0) + fatale("cannot change notification socket ownership"); + + /* XXX: Verify we are talking to an expected child? Although it is not + * clear whether this is feasible given the knowledge we have got. */ + set_socket_passcred(fd); + + return fd; +} + +static void +wait_for_notify(int fd) +{ + struct timespec startat, now, elapsed, timeout, timeout_orig; + fd_set fdrs; + int rc; + + timeout.tv_sec = notify_timeout; + timeout.tv_nsec = 0; + timeout_orig = timeout; + + timespec_gettime(&startat); + + while (timeout.tv_sec >= 0 && timeout.tv_nsec >= 0) { + FD_ZERO(&fdrs); + FD_SET(fd, &fdrs); + + /* Wait for input. */ + debug("Waiting for notifications... (timeout %lusec %lunsec)\n", + timeout.tv_sec, timeout.tv_nsec); + rc = pselect(fd + 1, &fdrs, NULL, NULL, &timeout, NULL); + + /* Catch non-restartable errors, that is, not signals nor + * kernel out of resources. */ + if (rc < 0 && (errno != EINTR && errno != EAGAIN)) + fatale("cannot monitor notification socket for activity"); + + /* Timed-out. */ + if (rc == 0) + fatal("timed out waiting for a notification"); + + /* Update the timeout, as should not rely on pselect() having + * done that for us, which is an unportable assumption. */ + timespec_gettime(&now); + timespec_sub(&now, &startat, &elapsed); + timespec_sub(&timeout_orig, &elapsed, &timeout); + + /* Restartable error, a signal or kernel out of resources. */ + if (rc < 0) + continue; + + /* Parse it and check for a supported notification message, + * once we get a READY=1, we exit. */ + for (;;) { + ssize_t nrecv; + char buf[4096]; + char *line, *line_next; + + nrecv = recv(fd, buf, sizeof(buf), 0); + if (nrecv < 0 && (errno != EINTR && errno != EAGAIN)) + fatale("cannot receive notification packet"); + if (nrecv < 0) + break; + + buf[nrecv] = '\0'; + + for (line = buf; *line; line = line_next) { + line_next = strchrnul(line, '\n'); + if (*line_next == '\n') + *line_next++ = '\0'; + + debug("Child sent some notification...\n"); + if (strncmp(line, "EXTEND_TIMEOUT_USEC=", 20) == 0) { + int extend_usec = 0; + + if (parse_unsigned(line + 20, 10, &extend_usec) != 0) + fatale("cannot parse extended timeout notification %s", line); + + /* Reset the current timeout. */ + timeout.tv_sec = extend_usec / 1000L; + timeout.tv_nsec = (extend_usec % 1000L) * + NANOSEC_IN_MILLISEC; + timeout_orig = timeout; + + timespec_gettime(&startat); + } else if (strncmp(line, "ERRNO=", 6) == 0) { + int suberrno = 0; + + if (parse_unsigned(line + 6, 10, &suberrno) != 0) + fatale("cannot parse errno notification %s", line); + errno = suberrno; + fatale("program failed to initialize"); + } else if (strcmp(line, "READY=1") == 0) { + debug("-> Notification => ready for service.\n"); + return; + } else { + debug("-> Notification line '%s' received\n", line); + } + } + } + } +} + +static void +write_pidfile(const char *filename, pid_t pid) +{ + FILE *fp; + int fd; + + fd = open(filename, O_CREAT | O_WRONLY | O_TRUNC | O_NOFOLLOW, 0666); + if (fd < 0) + fp = NULL; + else + fp = fdopen(fd, "w"); + + if (fp == NULL) + fatale("unable to open pidfile '%s' for writing", filename); + + fprintf(fp, "%d\n", pid); + + if (fclose(fp)) + fatale("unable to close pidfile '%s'", filename); +} + +static void +remove_pidfile(const char *filename) +{ + if (unlink(filename) < 0 && errno != ENOENT) + fatale("cannot remove pidfile '%s'", filename); +} + +static void +daemonize(void) +{ + int notify_fd = -1; + pid_t pid; + sigset_t mask; + sigset_t oldmask; + + debug("Detaching to start %s...\n", startas); + + /* Block SIGCHLD to allow waiting for the child process while it is + * performing actions, such as creating a pidfile. */ + sigemptyset(&mask); + sigaddset(&mask, SIGCHLD); + if (sigprocmask(SIG_BLOCK, &mask, &oldmask) == -1) + fatale("cannot block SIGCHLD"); + + if (notify_await) + notify_fd = create_notify_socket(); + + pid = fork(); + if (pid < 0) + fatale("unable to do first fork"); + else if (pid) { /* First Parent. */ + /* Wait for the second parent to exit, so that if we need to + * perform any actions there, like creating a pidfile, we do + * not suffer from race conditions on return. */ + wait_for_child(pid); + + if (notify_await) { + /* Wait for a readiness notification from the second + * child, so that we can safely exit when the service + * is up. */ + wait_for_notify(notify_fd); + close(notify_fd); + cleanup_socket_dir(); + } + + _exit(0); + } + + /* Create a new session. */ + if (setsid() < 0) + fatale("cannot set session ID"); + + pid = fork(); + if (pid < 0) + fatale("unable to do second fork"); + else if (pid) { /* Second parent. */ + /* Set a default umask for dumb programs, which might get + * overridden by the --umask option later on, so that we get + * a defined umask when creating the pidfile. */ + umask(022); + + if (mpidfile && pidfile != NULL) + /* User wants _us_ to make the pidfile. */ + write_pidfile(pidfile, pid); + + _exit(0); + } + + if (sigprocmask(SIG_SETMASK, &oldmask, NULL) == -1) + fatale("cannot restore signal mask"); + + debug("Detaching complete...\n"); +} + +static void +pid_list_push(struct pid_list **list, pid_t pid) +{ + struct pid_list *p; + + p = xmalloc(sizeof(*p)); + p->next = *list; + p->pid = pid; + *list = p; +} + +static void +pid_list_free(struct pid_list **list) +{ + struct pid_list *here, *next; + + for (here = *list; here != NULL; here = next) { + next = here->next; + free(here); + } + + *list = NULL; +} + +static void +usage(void) +{ + printf( +"Usage: start-stop-daemon [<option>...] <command>\n" +"\n"); + + printf( +"Commands:\n" +" -S, --start -- <argument>... start a program and pass <arguments> to it\n" +" -K, --stop stop a program\n" +" -T, --status get the program status\n" +" -H, --help print help information\n" +" -V, --version print version\n" +"\n"); + + printf( +"Matching options (at least one is required):\n" +" --pid <pid> pid to check\n" +" --ppid <ppid> parent pid to check\n" +" -p, --pidfile <pid-file> pid file to check\n" +" -x, --exec <executable> program to start/check if it is running\n" +" -n, --name <process-name> process name to check\n" +" -u, --user <username|uid> process owner to check\n" +"\n"); + + printf( +"Options:\n" +" -g, --group <group|gid> run process as this group\n" +" -c, --chuid <name|uid[:group|gid]>\n" +" change to this user/group before starting\n" +" process\n" +" -s, --signal <signal> signal to send (default TERM)\n" +" -a, --startas <pathname> program to start (default is <executable>)\n" +" -r, --chroot <directory> chroot to <directory> before starting\n" +" -d, --chdir <directory> change to <directory> (default is /)\n" +" -N, --nicelevel <incr> add incr to the process' nice level\n" +" -P, --procsched <policy[:prio]>\n" +" use <policy> with <prio> for the kernel\n" +" process scheduler (default prio is 0)\n" +" -I, --iosched <class[:prio]> use <class> with <prio> to set the IO\n" +" scheduler (default prio is 4)\n" +" -k, --umask <mask> change the umask to <mask> before starting\n" +" -b, --background force the process to detach\n" +" --notify-await wait for a readiness notification\n" +" --notify-timeout <int> timeout after <int> seconds of notify wait\n" +" -C, --no-close do not close any file descriptor\n" +" -m, --make-pidfile create the pidfile before starting\n" +" --remove-pidfile delete the pidfile after stopping\n" +" -R, --retry <schedule> check whether processes die, and retry\n" +" -t, --test test mode, don't do anything\n" +" -o, --oknodo exit status 0 (not 1) if nothing done\n" +" -q, --quiet be more quiet\n" +" -v, --verbose be more verbose\n" +"\n"); + + printf( +"Retry <schedule> is <item>|/<item>/... where <item> is one of\n" +" -<signal-num>|[-]<signal-name> send that signal\n" +" <timeout> wait that many seconds\n" +" forever repeat remainder forever\n" +"or <schedule> may be just <timeout>, meaning <signal>/<timeout>/KILL/<timeout>\n" +"\n"); + + printf( +"The process scheduler <policy> can be one of:\n" +" other, fifo or rr\n" +"\n"); + + printf( +"The IO scheduler <class> can be one of:\n" +" real-time, best-effort or idle\n" +"\n"); + + printf( +"Exit status:\n" +" 0 = done\n" +" 1 = nothing done (=> 0 if --oknodo)\n" +" 2 = with --retry, processes would not die\n" +" 3 = trouble\n" +"Exit status with --status:\n" +" 0 = program is running\n" +" 1 = program is not running and the pid file exists\n" +" 3 = program is not running\n" +" 4 = unable to determine status\n"); +} + +static void +do_version(void) +{ + printf("start-stop-daemon %s for Debian\n\n", VERSION); + + printf("Written by Marek Michalkiewicz, public domain.\n"); +} + +static void DPKG_ATTR_NORET +badusage(const char *msg) +{ + if (msg) + fprintf(stderr, "%s: %s\n", progname, msg); + fprintf(stderr, "Try '%s --help' for more information.\n", progname); + + if (action == ACTION_STATUS) + exit(STATUS_UNKNOWN); + else + exit(3); +} + +struct sigpair { + const char *name; + int signal; +}; + +static const struct sigpair siglist[] = { + { "ABRT", SIGABRT }, + { "ALRM", SIGALRM }, + { "FPE", SIGFPE }, + { "HUP", SIGHUP }, + { "ILL", SIGILL }, + { "INT", SIGINT }, + { "KILL", SIGKILL }, + { "PIPE", SIGPIPE }, + { "QUIT", SIGQUIT }, + { "SEGV", SIGSEGV }, + { "TERM", SIGTERM }, + { "USR1", SIGUSR1 }, + { "USR2", SIGUSR2 }, + { "CHLD", SIGCHLD }, + { "CONT", SIGCONT }, + { "STOP", SIGSTOP }, + { "TSTP", SIGTSTP }, + { "TTIN", SIGTTIN }, + { "TTOU", SIGTTOU } +}; + +static int +parse_pid(const char *pid_str, int *pid_num) +{ + if (parse_unsigned(pid_str, 10, pid_num) != 0) + return -1; + if (*pid_num == 0) + return -1; + + return 0; +} + +static int +parse_signal(const char *sig_str, int *sig_num) +{ + unsigned int i; + + if (parse_unsigned(sig_str, 10, sig_num) == 0) + return 0; + + for (i = 0; i < array_count(siglist); i++) { + if (strcmp(sig_str, siglist[i].name) == 0) { + *sig_num = siglist[i].signal; + return 0; + } + } + return -1; +} + +static int +parse_umask(const char *string, int *value_r) +{ + return parse_unsigned(string, 0, value_r); +} + +static void +validate_proc_schedule(void) +{ +#if defined(_POSIX_PRIORITY_SCHEDULING) && _POSIX_PRIORITY_SCHEDULING > 0 + int prio_min, prio_max; + + prio_min = sched_get_priority_min(proc_sched->policy); + prio_max = sched_get_priority_max(proc_sched->policy); + + if (proc_sched->priority < prio_min) + badusage("process scheduler priority less than min"); + if (proc_sched->priority > prio_max) + badusage("process scheduler priority greater than max"); +#endif +} + +static void +parse_proc_schedule(const char *string) +{ + char *policy_str; + size_t policy_len; + int prio = 0; + + policy_len = strcspn(string, ":"); + policy_str = xstrndup(string, policy_len); + + if (string[policy_len] == ':' && + parse_unsigned(string + policy_len + 1, 10, &prio) != 0) + fatale("invalid process scheduler priority"); + + proc_sched = xmalloc(sizeof(*proc_sched)); + proc_sched->policy_name = policy_str; + + if (strcmp(policy_str, "other") == 0) { + proc_sched->policy = SCHED_OTHER; + proc_sched->priority = 0; + } else if (strcmp(policy_str, "fifo") == 0) { + proc_sched->policy = SCHED_FIFO; + proc_sched->priority = prio; + } else if (strcmp(policy_str, "rr") == 0) { + proc_sched->policy = SCHED_RR; + proc_sched->priority = prio; + } else + badusage("invalid process scheduler policy"); + + validate_proc_schedule(); +} + +static void +parse_io_schedule(const char *string) +{ + char *class_str; + size_t class_len; + int prio = 4; + + class_len = strcspn(string, ":"); + class_str = xstrndup(string, class_len); + + if (string[class_len] == ':' && + parse_unsigned(string + class_len + 1, 10, &prio) != 0) + fatale("invalid IO scheduler priority"); + + io_sched = xmalloc(sizeof(*io_sched)); + io_sched->policy_name = class_str; + + if (strcmp(class_str, "real-time") == 0) { + io_sched->policy = IOPRIO_CLASS_RT; + io_sched->priority = prio; + } else if (strcmp(class_str, "best-effort") == 0) { + io_sched->policy = IOPRIO_CLASS_BE; + io_sched->priority = prio; + } else if (strcmp(class_str, "idle") == 0) { + io_sched->policy = IOPRIO_CLASS_IDLE; + io_sched->priority = 7; + } else + badusage("invalid IO scheduler policy"); + + if (io_sched->priority < IO_SCHED_PRIO_MIN) + badusage("IO scheduler priority less than min"); + if (io_sched->priority > IO_SCHED_PRIO_MAX) + badusage("IO scheduler priority greater than max"); +} + +static void +set_proc_schedule(struct res_schedule *sched) +{ +#if defined(_POSIX_PRIORITY_SCHEDULING) && _POSIX_PRIORITY_SCHEDULING > 0 + struct sched_param param; + + param.sched_priority = sched->priority; + + if (sched_setscheduler(getpid(), sched->policy, ¶m) == -1) + fatale("unable to set process scheduler"); +#endif +} + +#ifdef HAVE_IOPRIO_SET +static inline int +ioprio_set(int which, int who, int ioprio) +{ + return syscall(SYS_ioprio_set, which, who, ioprio); +} +#endif + +static void +set_io_schedule(struct res_schedule *sched) +{ +#ifdef HAVE_IOPRIO_SET + int io_sched_mask; + + io_sched_mask = IOPRIO_PRIO_VALUE(sched->policy, sched->priority); + if (ioprio_set(IOPRIO_WHO_PROCESS, getpid(), io_sched_mask) == -1) + warning("unable to alter IO priority to mask %i (%s)\n", + io_sched_mask, strerror(errno)); +#endif +} + +static void +parse_schedule_item(const char *string, struct schedule_item *item) +{ + const char *after_hyph; + + if (strcmp(string, "forever") == 0) { + item->type = sched_forever; + } else if (isdigit(string[0])) { + item->type = sched_timeout; + if (parse_unsigned(string, 10, &item->value) != 0) + badusage("invalid timeout value in schedule"); + } else if ((after_hyph = string + (string[0] == '-')) && + parse_signal(after_hyph, &item->value) == 0) { + item->type = sched_signal; + } else { + badusage("invalid schedule item (must be [-]<signal-name>, " + "-<signal-number>, <timeout> or 'forever'"); + } +} + +static void +parse_schedule(const char *schedule_str) +{ + char item_buf[20]; + const char *slash; + int count, repeatat; + size_t str_len; + + count = 0; + for (slash = schedule_str; *slash; slash++) + if (*slash == '/') + count++; + + schedule_length = (count == 0) ? 4 : count + 1; + schedule = xmalloc(sizeof(*schedule) * schedule_length); + + if (count == 0) { + schedule[0].type = sched_signal; + schedule[0].value = signal_nr; + parse_schedule_item(schedule_str, &schedule[1]); + if (schedule[1].type != sched_timeout) { + badusage("--retry takes timeout, or schedule list" + " of at least two items"); + } + schedule[2].type = sched_signal; + schedule[2].value = SIGKILL; + schedule[3] = schedule[1]; + } else { + count = 0; + repeatat = -1; + while (*schedule_str) { + slash = strchrnul(schedule_str, '/'); + str_len = (size_t)(slash - schedule_str); + if (str_len >= sizeof(item_buf)) + badusage("invalid schedule item: far too long" + " (you must delimit items with slashes)"); + memcpy(item_buf, schedule_str, str_len); + item_buf[str_len] = '\0'; + schedule_str = *slash ? slash + 1 : slash; + + parse_schedule_item(item_buf, &schedule[count]); + if (schedule[count].type == sched_forever) { + if (repeatat >= 0) + badusage("invalid schedule: 'forever'" + " appears more than once"); + repeatat = count; + continue; + } + count++; + } + if (repeatat == count) + badusage("invalid schedule: 'forever' appears last, " + "nothing to repeat"); + if (repeatat >= 0) { + schedule[count].type = sched_goto; + schedule[count].value = repeatat; + count++; + } + if (count != schedule_length) + BUG("count=%d != schedule_length=%d", + count, schedule_length); + } +} + +static void +set_action(enum action_code new_action) +{ + if (action == new_action) + return; + + if (action != ACTION_NONE) + badusage("only one command can be specified"); + + action = new_action; +} + +#define OPT_PID 500 +#define OPT_PPID 501 +#define OPT_RM_PIDFILE 502 +#define OPT_NOTIFY_AWAIT 503 +#define OPT_NOTIFY_TIMEOUT 504 + +static void +parse_options(int argc, char * const *argv) +{ + static struct option longopts[] = { + { "help", 0, NULL, 'H'}, + { "stop", 0, NULL, 'K'}, + { "start", 0, NULL, 'S'}, + { "status", 0, NULL, 'T'}, + { "version", 0, NULL, 'V'}, + { "startas", 1, NULL, 'a'}, + { "name", 1, NULL, 'n'}, + { "oknodo", 0, NULL, 'o'}, + { "pid", 1, NULL, OPT_PID}, + { "ppid", 1, NULL, OPT_PPID}, + { "pidfile", 1, NULL, 'p'}, + { "quiet", 0, NULL, 'q'}, + { "signal", 1, NULL, 's'}, + { "test", 0, NULL, 't'}, + { "user", 1, NULL, 'u'}, + { "group", 1, NULL, 'g'}, + { "chroot", 1, NULL, 'r'}, + { "verbose", 0, NULL, 'v'}, + { "exec", 1, NULL, 'x'}, + { "chuid", 1, NULL, 'c'}, + { "nicelevel", 1, NULL, 'N'}, + { "procsched", 1, NULL, 'P'}, + { "iosched", 1, NULL, 'I'}, + { "umask", 1, NULL, 'k'}, + { "background", 0, NULL, 'b'}, + { "notify-await", 0, NULL, OPT_NOTIFY_AWAIT}, + { "notify-timeout", 1, NULL, OPT_NOTIFY_TIMEOUT}, + { "no-close", 0, NULL, 'C'}, + { "make-pidfile", 0, NULL, 'm'}, + { "remove-pidfile", 0, NULL, OPT_RM_PIDFILE}, + { "retry", 1, NULL, 'R'}, + { "chdir", 1, NULL, 'd'}, + { NULL, 0, NULL, 0 } + }; + const char *pid_str = NULL; + const char *ppid_str = NULL; + const char *umask_str = NULL; + const char *signal_str = NULL; + const char *schedule_str = NULL; + const char *proc_schedule_str = NULL; + const char *io_schedule_str = NULL; + const char *notify_timeout_str = NULL; + size_t changeuser_len; + int c; + + for (;;) { + c = getopt_long(argc, argv, + "HKSVTa:n:op:qr:s:tu:vx:c:N:P:I:k:bCmR:g:d:", + longopts, NULL); + if (c == -1) + break; + switch (c) { + case 'H': /* --help */ + usage(); + exit(0); + case 'K': /* --stop */ + set_action(ACTION_STOP); + break; + case 'S': /* --start */ + set_action(ACTION_START); + break; + case 'T': /* --status */ + set_action(ACTION_STATUS); + break; + case 'V': /* --version */ + do_version(); + exit(0); + case 'a': /* --startas <pathname> */ + startas = optarg; + break; + case 'n': /* --name <process-name> */ + match_mode |= MATCH_NAME; + cmdname = optarg; + break; + case 'o': /* --oknodo */ + exitnodo = 0; + break; + case OPT_PID: /* --pid <pid> */ + match_mode |= MATCH_PID; + pid_str = optarg; + break; + case OPT_PPID: /* --ppid <ppid> */ + match_mode |= MATCH_PPID; + ppid_str = optarg; + break; + case 'p': /* --pidfile <pid-file> */ + match_mode |= MATCH_PIDFILE; + pidfile = optarg; + break; + case 'q': /* --quiet */ + quietmode = true; + break; + case 's': /* --signal <signal> */ + signal_str = optarg; + break; + case 't': /* --test */ + testmode = true; + break; + case 'u': /* --user <username>|<uid> */ + match_mode |= MATCH_USER; + userspec = optarg; + break; + case 'v': /* --verbose */ + quietmode = -1; + break; + case 'x': /* --exec <executable> */ + match_mode |= MATCH_EXEC; + execname = optarg; + break; + case 'c': /* --chuid <username>|<uid> */ + /* We copy the string just in case we need the + * argument later. */ + changeuser_len = strcspn(optarg, ":"); + changeuser = xstrndup(optarg, changeuser_len); + if (optarg[changeuser_len] == ':') { + if (optarg[changeuser_len + 1] == '\0') + fatal("missing group name"); + changegroup = optarg + changeuser_len + 1; + } + break; + case 'g': /* --group <group>|<gid> */ + changegroup = optarg; + break; + case 'r': /* --chroot /new/root */ + changeroot = optarg; + break; + case 'N': /* --nice */ + nicelevel = atoi(optarg); + break; + case 'P': /* --procsched */ + proc_schedule_str = optarg; + break; + case 'I': /* --iosched */ + io_schedule_str = optarg; + break; + case 'k': /* --umask <mask> */ + umask_str = optarg; + break; + case 'b': /* --background */ + background = true; + break; + case OPT_NOTIFY_AWAIT: + notify_await = true; + break; + case OPT_NOTIFY_TIMEOUT: + notify_timeout_str = optarg; + break; + case 'C': /* --no-close */ + close_io = false; + break; + case 'm': /* --make-pidfile */ + mpidfile = true; + break; + case OPT_RM_PIDFILE: /* --remove-pidfile */ + rpidfile = true; + break; + case 'R': /* --retry <schedule>|<timeout> */ + schedule_str = optarg; + break; + case 'd': /* --chdir /new/dir */ + changedir = optarg; + break; + default: + /* Message printed by getopt. */ + badusage(NULL); + } + } + + if (pid_str != NULL) { + if (parse_pid(pid_str, &match_pid) != 0) + badusage("pid value must be a number greater than 0"); + } + + if (ppid_str != NULL) { + if (parse_pid(ppid_str, &match_ppid) != 0) + badusage("ppid value must be a number greater than 0"); + } + + if (signal_str != NULL) { + if (parse_signal(signal_str, &signal_nr) != 0) + badusage("signal value must be numeric or name" + " of signal (KILL, INT, ...)"); + } + + if (schedule_str != NULL) { + parse_schedule(schedule_str); + } + + if (proc_schedule_str != NULL) + parse_proc_schedule(proc_schedule_str); + + if (io_schedule_str != NULL) + parse_io_schedule(io_schedule_str); + + if (umask_str != NULL) { + if (parse_umask(umask_str, &umask_value) != 0) + badusage("umask value must be a positive number"); + } + + if (notify_timeout_str != NULL) + if (parse_unsigned(notify_timeout_str, 10, ¬ify_timeout) != 0) + badusage("invalid notify timeout value"); + + if (action == ACTION_NONE) + badusage("need one of --start or --stop or --status"); + + if (match_mode == MATCH_NONE || + (!execname && !cmdname && !userspec && + !pid_str && !ppid_str && !pidfile)) + badusage("need at least one of --exec, --pid, --ppid, --pidfile, --user or --name"); + +#ifdef PROCESS_NAME_SIZE + if (cmdname && strlen(cmdname) > PROCESS_NAME_SIZE) + warning("this system is not able to track process names\n" + "longer than %d characters, please use --exec " + "instead of --name.\n", PROCESS_NAME_SIZE); +#endif + + if (!startas) + startas = execname; + + if (action == ACTION_START && !startas) + badusage("--start needs --exec or --startas"); + + if (mpidfile && pidfile == NULL) + badusage("--make-pidfile requires --pidfile"); + if (rpidfile && pidfile == NULL) + badusage("--remove-pidfile requires --pidfile"); + + if (pid_str && pidfile) + badusage("need either --pid or --pidfile, not both"); + + if (background && action != ACTION_START) + badusage("--background is only relevant with --start"); + + if (!close_io && !background) + badusage("--no-close is only relevant with --background"); +} + +static void +setup_options(void) +{ + if (execname) { + char *fullexecname; + + /* If it's a relative path, normalize it. */ + if (execname[0] != '/') + execname = newpath(changedir, execname); + + if (changeroot) + fullexecname = newpath(changeroot, execname); + else + fullexecname = execname; + + if (stat(fullexecname, &exec_stat)) + fatale("unable to stat %s", fullexecname); + + if (fullexecname != execname) + free(fullexecname); + } + + if (userspec && parse_unsigned(userspec, 10, &user_id) < 0) { + struct passwd *pw; + + pw = getpwnam(userspec); + if (!pw) + fatale("user '%s' not found", userspec); + + user_id = pw->pw_uid; + } + + if (changegroup && parse_unsigned(changegroup, 10, &runas_gid) < 0) { + struct group *gr; + + gr = getgrnam(changegroup); + if (!gr) + fatale("group '%s' not found", changegroup); + changegroup = gr->gr_name; + runas_gid = gr->gr_gid; + } + if (changeuser) { + struct passwd *pw; + struct stat st; + + if (parse_unsigned(changeuser, 10, &runas_uid) == 0) + pw = getpwuid(runas_uid); + else + pw = getpwnam(changeuser); + if (!pw) + fatale("user '%s' not found", changeuser); + changeuser = pw->pw_name; + runas_uid = pw->pw_uid; + if (changegroup == NULL) { + /* Pass the default group of this user. */ + changegroup = ""; /* Just empty. */ + runas_gid = pw->pw_gid; + } + if (stat(pw->pw_dir, &st) == 0) + setenv("HOME", pw->pw_dir, 1); + } +} + +#if defined(OS_Linux) +static const char * +proc_status_field(pid_t pid, const char *field) +{ + static char *line = NULL; + static size_t line_size = 0; + + FILE *fp; + char filename[32]; + char *value = NULL; + ssize_t line_len; + size_t field_len = strlen(field); + + sprintf(filename, "/proc/%d/status", pid); + fp = fopen(filename, "r"); + if (!fp) + return NULL; + while ((line_len = getline(&line, &line_size, fp)) >= 0) { + if (strncasecmp(line, field, field_len) == 0) { + line[line_len - 1] = '\0'; + + value = line + field_len; + while (isspace(*value)) + value++; + + break; + } + } + fclose(fp); + + return value; +} +#elif defined(OS_AIX) +static bool +proc_get_psinfo(pid_t pid, struct psinfo *psinfo) +{ + char filename[64]; + FILE *fp; + + sprintf(filename, "/proc/%d/psinfo", pid); + fp = fopen(filename, "r"); + if (!fp) + return false; + if (fread(psinfo, sizeof(*psinfo), 1, fp) == 0) { + fclose(fp); + return false; + } + if (ferror(fp)) { + fclose(fp); + return false; + } + + fclose(fp); + + return true; +} +#elif defined(OS_Hurd) +static void +init_procset(void) +{ + struct ps_context *context; + error_t err; + + err = ps_context_create(getproc(), &context); + if (err) + error(1, err, "ps_context_create"); + + err = proc_stat_list_create(context, &procset); + if (err) + error(1, err, "proc_stat_list_create"); + + err = proc_stat_list_add_all(procset, 0, 0); + if (err) + error(1, err, "proc_stat_list_add_all"); +} + +static struct proc_stat * +get_proc_stat(pid_t pid, ps_flags_t flags) +{ + struct proc_stat *ps; + ps_flags_t wanted_flags = PSTAT_PID | flags; + + if (!procset) + init_procset(); + + ps = proc_stat_list_pid_proc_stat(procset, pid); + if (!ps) + return NULL; + if (proc_stat_set_flags(ps, wanted_flags)) + return NULL; + if ((proc_stat_flags(ps) & wanted_flags) != wanted_flags) + return NULL; + + return ps; +} +#elif defined(HAVE_KVM_H) +static kvm_t * +ssd_kvm_open(void) +{ + kvm_t *kd; + char errbuf[_POSIX2_LINE_MAX]; + + kd = kvm_openfiles(NULL, KVM_MEMFILE, NULL, O_RDONLY, errbuf); + if (kd == NULL) + errx(1, "%s", errbuf); + + return kd; +} + +static struct kinfo_proc * +ssd_kvm_get_procs(kvm_t *kd, int op, int arg, int *count) +{ + struct kinfo_proc *kp; + int lcount; + + if (count == NULL) + count = &lcount; + *count = 0; + +#if defined(OS_OpenBSD) + kp = kvm_getprocs(kd, op, arg, sizeof(*kp), count); +#else + kp = kvm_getprocs(kd, op, arg, count); +#endif + if (kp == NULL && errno != ESRCH) + errx(1, "%s", kvm_geterr(kd)); + + return kp; +} +#endif + +#if defined(OS_Linux) +static bool +pid_is_exec(pid_t pid, const struct stat *esb) +{ + char lname[32]; + char lcontents[_POSIX_PATH_MAX + 1]; + char *filename; + const char deleted[] = " (deleted)"; + int nread; + struct stat sb; + + sprintf(lname, "/proc/%d/exe", pid); + nread = readlink(lname, lcontents, sizeof(lcontents) - 1); + if (nread == -1) + return false; + + filename = lcontents; + filename[nread] = '\0'; + + /* OpenVZ kernels contain a bogus patch that instead of appending, + * prepends the deleted marker. Workaround those. Otherwise handle + * the normal appended marker. */ + if (strncmp(filename, deleted, strlen(deleted)) == 0) + filename += strlen(deleted); + else if (strcmp(filename + nread - strlen(deleted), deleted) == 0) + filename[nread - strlen(deleted)] = '\0'; + + if (stat(filename, &sb) != 0) + return false; + + return (sb.st_dev == esb->st_dev && sb.st_ino == esb->st_ino); +} +#elif defined(OS_AIX) +static bool +pid_is_exec(pid_t pid, const struct stat *esb) +{ + struct stat sb; + char filename[64]; + + sprintf(filename, "/proc/%d/object/a.out", pid); + + if (stat(filename, &sb) != 0) + return false; + + return sb.st_dev == esb->st_dev && sb.st_ino == esb->st_ino; +} +#elif defined(OS_Hurd) +static bool +pid_is_exec(pid_t pid, const struct stat *esb) +{ + struct proc_stat *ps; + struct stat sb; + const char *filename; + + ps = get_proc_stat(pid, PSTAT_ARGS); + if (ps == NULL) + return false; + + /* On old Hurd systems we have to use the argv[0] value, because + * there is nothing better. */ + filename = proc_stat_args(ps); +#ifdef PSTAT_EXE + /* On new Hurd systems we can use the correct value, as long + * as it's not NULL nor empty, as it was the case on the first + * implementation. */ + if (proc_stat_set_flags(ps, PSTAT_EXE) == 0 && + proc_stat_flags(ps) & PSTAT_EXE && + proc_stat_exe(ps) != NULL && + proc_stat_exe(ps)[0] != '\0') + filename = proc_stat_exe(ps); +#endif + + if (stat(filename, &sb) != 0) + return false; + + return (sb.st_dev == esb->st_dev && sb.st_ino == esb->st_ino); +} +#elif defined(OS_Darwin) +static bool +pid_is_exec(pid_t pid, const struct stat *esb) +{ + struct stat sb; + char pathname[_POSIX_PATH_MAX]; + + if (proc_pidpath(pid, pathname, sizeof(pathname)) < 0) + return false; + + if (stat(pathname, &sb) != 0) + return false; + + return (sb.st_dev == esb->st_dev && sb.st_ino == esb->st_ino); +} +#elif defined(OS_HPUX) +static bool +pid_is_exec(pid_t pid, const struct stat *esb) +{ + struct pst_status pst; + + if (pstat_getproc(&pst, sizeof(pst), (size_t)0, (int)pid) < 0) + return false; + return ((dev_t)pst.pst_text.psf_fsid.psfs_id == esb->st_dev && + (ino_t)pst.pst_text.psf_fileid == esb->st_ino); +} +#elif defined(OS_FreeBSD) +static bool +pid_is_exec(pid_t pid, const struct stat *esb) +{ + struct stat sb; + int error, mib[4]; + size_t len; + char pathname[PATH_MAX]; + + mib[0] = CTL_KERN; + mib[1] = KERN_PROC; + mib[2] = KERN_PROC_PATHNAME; + mib[3] = pid; + len = sizeof(pathname); + + error = sysctl(mib, 4, pathname, &len, NULL, 0); + if (error != 0 && errno != ESRCH) + return false; + if (len == 0) + pathname[0] = '\0'; + + if (stat(pathname, &sb) != 0) + return false; + + return (sb.st_dev == esb->st_dev && sb.st_ino == esb->st_ino); +} +#elif defined(HAVE_KVM_H) +static bool +pid_is_exec(pid_t pid, const struct stat *esb) +{ + kvm_t *kd; + int argv_len = 0; + struct kinfo_proc *kp; + struct stat sb; + char buf[_POSIX2_LINE_MAX]; + char **pid_argv_p; + char *start_argv_0_p, *end_argv_0_p; + bool res = false; + + kd = ssd_kvm_open(); + kp = ssd_kvm_get_procs(kd, KERN_PROC_PID, pid, NULL); + if (kp == NULL) + goto cleanup; + + pid_argv_p = kvm_getargv(kd, kp, argv_len); + if (pid_argv_p == NULL) + errx(1, "%s", kvm_geterr(kd)); + + /* Find and compare string. */ + start_argv_0_p = *pid_argv_p; + + /* Find end of argv[0] then copy and cut of str there. */ + end_argv_0_p = strchr(*pid_argv_p, ' '); + if (end_argv_0_p == NULL) + /* There seems to be no space, so we have the command + * already in its desired form. */ + start_argv_0_p = *pid_argv_p; + else { + /* Tests indicate that this never happens, since + * kvm_getargv itself cuts of tailing stuff. This is + * not what the manpage says, however. */ + strncpy(buf, *pid_argv_p, (end_argv_0_p - start_argv_0_p)); + buf[(end_argv_0_p - start_argv_0_p) + 1] = '\0'; + start_argv_0_p = buf; + } + + if (stat(start_argv_0_p, &sb) != 0) + goto cleanup; + + res = (sb.st_dev == esb->st_dev && sb.st_ino == esb->st_ino); + +cleanup: + kvm_close(kd); + + return res; +} +#endif + +#if defined(OS_Linux) +static bool +pid_is_child(pid_t pid, pid_t ppid) +{ + const char *ppid_str; + pid_t proc_ppid; + int rc; + + ppid_str = proc_status_field(pid, "PPid:"); + if (ppid_str == NULL) + return false; + + rc = parse_pid(ppid_str, &proc_ppid); + if (rc < 0) + return false; + + return proc_ppid == ppid; +} +#elif defined(OS_Hurd) +static bool +pid_is_child(pid_t pid, pid_t ppid) +{ + struct proc_stat *ps; + struct procinfo *pi; + + ps = get_proc_stat(pid, PSTAT_PROC_INFO); + if (ps == NULL) + return false; + + pi = proc_stat_proc_info(ps); + + return pi->ppid == ppid; +} +#elif defined(OS_Darwin) +static bool +pid_is_child(pid_t pid, pid_t ppid) +{ + struct proc_bsdinfo info; + + if (proc_pidinfo(pid, PROC_PIDTBSDINFO, 0, &info, sizeof(info)) < 0) + return false; + + return (pid_t)info.pbi_ppid == ppid; +} +#elif defined(OS_AIX) +static bool +pid_is_child(pid_t pid, pid_t ppid) +{ + struct psinfo psi; + + if (!proc_get_psinfo(pid, &psi)) + return false; + + return (pid_t)psi.pr_ppid == ppid; +} +#elif defined(OS_HPUX) +static bool +pid_is_child(pid_t pid, pid_t ppid) +{ + struct pst_status pst; + + if (pstat_getproc(&pst, sizeof(pst), (size_t)0, (int)pid) < 0) + return false; + + return pst.pst_ppid == ppid; +} +#elif defined(OS_FreeBSD) +static bool +pid_is_child(pid_t pid, pid_t ppid) +{ + struct kinfo_proc kp; + int rc, mib[4]; + size_t len; + + mib[0] = CTL_KERN; + mib[1] = KERN_PROC; + mib[2] = KERN_PROC_PID; + mib[3] = pid; + len = sizeof(kp); + + rc = sysctl(mib, 4, &kp, &len, NULL, 0); + if (rc != 0 && errno != ESRCH) + return false; + if (len == 0 || len != sizeof(kp)) + return false; + + return kp.ki_ppid == ppid; +} +#elif defined(HAVE_KVM_H) +static bool +pid_is_child(pid_t pid, pid_t ppid) +{ + kvm_t *kd; + struct kinfo_proc *kp; + pid_t proc_ppid; + bool res = false; + + kd = ssd_kvm_open(); + kp = ssd_kvm_get_procs(kd, KERN_PROC_PID, pid, NULL); + if (kp == NULL) + goto cleanup; + +#if defined(OS_FreeBSD) + proc_ppid = kp->ki_ppid; +#elif defined(OS_OpenBSD) + proc_ppid = kp->p_ppid; +#elif defined(OS_DragonFlyBSD) + proc_ppid = kp->kp_ppid; +#else + proc_ppid = kp->kp_proc.p_ppid; +#endif + + res = (proc_ppid == ppid); + +cleanup: + kvm_close(kd); + + return res; +} +#endif + +#if defined(OS_Linux) +static bool +pid_is_user(pid_t pid, uid_t uid) +{ + struct stat sb; + char buf[32]; + + sprintf(buf, "/proc/%d", pid); + if (stat(buf, &sb) != 0) + return false; + return (sb.st_uid == uid); +} +#elif defined(OS_Hurd) +static bool +pid_is_user(pid_t pid, uid_t uid) +{ + struct proc_stat *ps; + + ps = get_proc_stat(pid, PSTAT_OWNER_UID); + return ps && (uid_t)proc_stat_owner_uid(ps) == uid; +} +#elif defined(OS_Darwin) +static bool +pid_is_user(pid_t pid, uid_t uid) +{ + struct proc_bsdinfo info; + + if (proc_pidinfo(pid, PROC_PIDTBSDINFO, 0, &info, sizeof(info)) < 0) + return false; + + return info.pbi_ruid == uid; +} +#elif defined(OS_AIX) +static bool +pid_is_user(pid_t pid, uid_t uid) +{ + struct psinfo psi; + + if (!proc_get_psinfo(pid, &psi)) + return false; + + return psi.pr_uid == uid; +} +#elif defined(OS_HPUX) +static bool +pid_is_user(pid_t pid, uid_t uid) +{ + struct pst_status pst; + + if (pstat_getproc(&pst, sizeof(pst), (size_t)0, (int)pid) < 0) + return false; + return ((uid_t)pst.pst_uid == uid); +} +#elif defined(OS_FreeBSD) +static bool +pid_is_user(pid_t pid, uid_t uid) +{ + struct kinfo_proc kp; + int rc, mib[4]; + size_t len; + + mib[0] = CTL_KERN; + mib[1] = KERN_PROC; + mib[2] = KERN_PROC_PID; + mib[3] = pid; + len = sizeof(kp); + + rc = sysctl(mib, 4, &kp, &len, NULL, 0); + if (rc != 0 && errno != ESRCH) + return false; + if (len == 0 || len != sizeof(kp)) + return false; + + return kp.ki_ruid == uid; +} +#elif defined(HAVE_KVM_H) +static bool +pid_is_user(pid_t pid, uid_t uid) +{ + kvm_t *kd; + uid_t proc_uid; + struct kinfo_proc *kp; + bool res = false; + + kd = ssd_kvm_open(); + kp = ssd_kvm_get_procs(kd, KERN_PROC_PID, pid, NULL); + if (kp == NULL) + goto cleanup; + +#if defined(OS_FreeBSD) + proc_uid = kp->ki_ruid; +#elif defined(OS_OpenBSD) + proc_uid = kp->p_ruid; +#elif defined(OS_DragonFlyBSD) + proc_uid = kp->kp_ruid; +#elif defined(OS_NetBSD) + proc_uid = kp->kp_eproc.e_pcred.p_ruid; +#else + if (kp->kp_proc.p_cred) + kvm_read(kd, (u_long)&(kp->kp_proc.p_cred->p_ruid), + &proc_uid, sizeof(uid_t)); + else + goto cleanup; +#endif + + res = (proc_uid == (uid_t)uid); + +cleanup: + kvm_close(kd); + + return res; +} +#endif + +#if defined(OS_Linux) +static bool +pid_is_cmd(pid_t pid, const char *name) +{ + const char *comm; + + comm = proc_status_field(pid, "Name:"); + if (comm == NULL) + return false; + + return strcmp(comm, name) == 0; +} +#elif defined(OS_Hurd) +static bool +pid_is_cmd(pid_t pid, const char *name) +{ + struct proc_stat *ps; + size_t argv0_len; + const char *argv0; + const char *binary_name; + + ps = get_proc_stat(pid, PSTAT_ARGS); + if (ps == NULL) + return false; + + argv0 = proc_stat_args(ps); + argv0_len = strlen(argv0) + 1; + + binary_name = basename(argv0); + if (strcmp(binary_name, name) == 0) + return true; + + /* XXX: This is all kinds of ugly, but on the Hurd there's no way to + * know the command name of a process, so we have to try to match + * also on argv[1] for the case of an interpreted script. */ + if (proc_stat_args_len(ps) > argv0_len) { + const char *script_name = basename(argv0 + argv0_len); + + return strcmp(script_name, name) == 0; + } + + return false; +} +#elif defined(OS_AIX) +static bool +pid_is_cmd(pid_t pid, const char *name) +{ + struct psinfo psi; + + if (!proc_get_psinfo(pid, &psi)) + return false; + + return strcmp(psi.pr_fname, name) == 0; +} +#elif defined(OS_HPUX) +static bool +pid_is_cmd(pid_t pid, const char *name) +{ + struct pst_status pst; + + if (pstat_getproc(&pst, sizeof(pst), (size_t)0, (int)pid) < 0) + return false; + return (strcmp(pst.pst_ucomm, name) == 0); +} +#elif defined(OS_Darwin) +static bool +pid_is_cmd(pid_t pid, const char *name) +{ + char pathname[_POSIX_PATH_MAX]; + + if (proc_pidpath(pid, pathname, sizeof(pathname)) < 0) + return false; + + return strcmp(pathname, name) == 0; +} +#elif defined(OS_FreeBSD) +static bool +pid_is_cmd(pid_t pid, const char *name) +{ + struct kinfo_proc kp; + int rc, mib[4]; + size_t len; + + mib[0] = CTL_KERN; + mib[1] = KERN_PROC; + mib[2] = KERN_PROC_PID; + mib[3] = pid; + len = sizeof(kp); + + rc = sysctl(mib, 4, &kp, &len, NULL, 0); + if (rc != 0 && errno != ESRCH) + return false; + if (len == 0 || len != sizeof(kp)) + return false; + + return strcmp(kp.ki_comm, name) == 0; +} +#elif defined(HAVE_KVM_H) +static bool +pid_is_cmd(pid_t pid, const char *name) +{ + kvm_t *kd; + struct kinfo_proc *kp; + char *process_name; + bool res = false; + + kd = ssd_kvm_open(); + kp = ssd_kvm_get_procs(kd, KERN_PROC_PID, pid, NULL); + if (kp == NULL) + goto cleanup; + +#if defined(OS_FreeBSD) + process_name = kp->ki_comm; +#elif defined(OS_OpenBSD) + process_name = kp->p_comm; +#elif defined(OS_DragonFlyBSD) + process_name = kp->kp_comm; +#else + process_name = kp->kp_proc.p_comm; +#endif + + res = (strcmp(name, process_name) == 0); + +cleanup: + kvm_close(kd); + + return res; +} +#endif + +#if defined(OS_Hurd) +static bool +pid_is_running(pid_t pid) +{ + return get_proc_stat(pid, 0) != NULL; +} +#else /* !OS_Hurd */ +static bool +pid_is_running(pid_t pid) +{ + if (kill(pid, 0) == 0 || errno == EPERM) + return true; + else if (errno == ESRCH) + return false; + else + fatale("error checking pid %u status", pid); +} +#endif + +static enum status_code +pid_check(pid_t pid) +{ + if (execname && !pid_is_exec(pid, &exec_stat)) + return STATUS_DEAD; + if (match_ppid > 0 && !pid_is_child(pid, match_ppid)) + return STATUS_DEAD; + if (userspec && !pid_is_user(pid, user_id)) + return STATUS_DEAD; + if (cmdname && !pid_is_cmd(pid, cmdname)) + return STATUS_DEAD; + if (action != ACTION_STOP && !pid_is_running(pid)) + return STATUS_DEAD; + + pid_list_push(&found, pid); + + return STATUS_OK; +} + +static enum status_code +do_pidfile(const char *name) +{ + FILE *f; + static pid_t pid = 0; + + if (pid) + return pid_check(pid); + + f = fopen(name, "r"); + if (f) { + enum status_code pid_status; + + /* If we are only matching on the pidfile, and it is owned by + * a non-root user, then this is a security risk, and the + * contents cannot be trusted, because the daemon might have + * been compromised. + * + * If the pidfile is world-writable we refuse to parse it. + * + * If we got /dev/null specified as the pidfile, we ignore the + * checks, as this is being used to run processes no matter + * what. */ + if (strcmp(name, "/dev/null") != 0) { + struct stat st; + int fd = fileno(f); + + if (fstat(fd, &st) < 0) + fatale("cannot stat pidfile %s", name); + + if (match_mode == MATCH_PIDFILE && + ((st.st_uid != getuid() && st.st_uid != 0) || + (st.st_gid != getgid() && st.st_gid != 0))) + fatal("matching only on non-root pidfile %s is insecure", name); + if (st.st_mode & 0002) + fatal("matching on world-writable pidfile %s is insecure", name); + + } + + if (fscanf(f, "%d", &pid) == 1) + pid_status = pid_check(pid); + else + pid_status = STATUS_UNKNOWN; + fclose(f); + + if (pid_status == STATUS_DEAD) + return STATUS_DEAD_PIDFILE; + else + return pid_status; + } else if (errno == ENOENT) + return STATUS_DEAD; + else + fatale("unable to open pidfile %s", name); +} + +#if defined(OS_Linux) || defined(OS_Solaris) || defined(OS_AIX) +static enum status_code +do_procinit(void) +{ + DIR *procdir; + struct dirent *entry; + int foundany; + pid_t pid; + enum status_code prog_status = STATUS_DEAD; + + procdir = opendir("/proc"); + if (!procdir) + fatale("unable to opendir /proc"); + + foundany = 0; + while ((entry = readdir(procdir)) != NULL) { + enum status_code pid_status; + + if (sscanf(entry->d_name, "%d", &pid) != 1) + continue; + foundany++; + + pid_status = pid_check(pid); + if (pid_status < prog_status) + prog_status = pid_status; + } + closedir(procdir); + if (foundany == 0) + fatal("nothing in /proc - not mounted?"); + + return prog_status; +} +#elif defined(OS_Hurd) +static int +check_proc_stat(struct proc_stat *ps) +{ + pid_check(proc_stat_pid(ps)); + return 0; +} + +static enum status_code +do_procinit(void) +{ + if (!procset) + init_procset(); + + proc_stat_list_for_each(procset, check_proc_stat); + + if (found) + return STATUS_OK; + else + return STATUS_DEAD; +} +#elif defined(OS_Darwin) +static enum status_code +do_procinit(void) +{ + pid_t *pid_buf; + int i, npids, pid_bufsize; + enum status_code prog_status = STATUS_DEAD; + + npids = proc_listallpids(NULL, 0); + if (npids == 0) + return STATUS_UNKNOWN; + + /* Try to avoid sudden changes in number of PIDs. */ + npids += 4096; + pid_bufsize = sizeof(pid_t) * npids; + pid_buf = xmalloc(pid_bufsize); + + npids = proc_listallpids(pid_buf, pid_bufsize); + if (npids == 0) + return STATUS_UNKNOWN; + + for (i = 0; i < npids; i++) { + enum status_code pid_status; + + pid_status = pid_check(pid_buf[i]); + if (pid_status < prog_status) + prog_status = pid_status; + } + + free(pid_buf); + + return prog_status; +} +#elif defined(OS_HPUX) +static enum status_code +do_procinit(void) +{ + struct pst_status pst[10]; + int i, count; + int idx = 0; + enum status_code prog_status = STATUS_DEAD; + + while ((count = pstat_getproc(pst, sizeof(pst[0]), 10, idx)) > 0) { + enum status_code pid_status; + + for (i = 0; i < count; i++) { + pid_status = pid_check(pst[i].pst_pid); + if (pid_status < prog_status) + prog_status = pid_status; + } + idx = pst[count - 1].pst_idx + 1; + } + + return prog_status; +} +#elif defined(OS_FreeBSD) +static enum status_code +do_procinit(void) +{ + struct kinfo_proc *kp; + int rc, mib[3]; + size_t len = 0; + int nentries, i; + enum status_code prog_status = STATUS_DEAD; + + mib[0] = CTL_KERN; + mib[1] = KERN_PROC; + mib[2] = KERN_PROC_PROC; + + rc = sysctl(mib, 3, NULL, &len, NULL, 0); + if (rc != 0 && errno != ESRCH) + return STATUS_UNKNOWN; + if (len == 0) + return STATUS_UNKNOWN; + + kp = xmalloc(len); + rc = sysctl(mib, 3, kp, &len, NULL, 0); + if (rc != 0 && errno != ESRCH) + return STATUS_UNKNOWN; + if (len == 0) + return STATUS_UNKNOWN; + nentries = len / sizeof(*kp); + + for (i = 0; i < nentries; i++) { + enum status_code pid_status; + + pid_status = pid_check(kp[i].ki_pid); + if (pid_status < prog_status) + prog_status = pid_status; + } + + free(kp); + + return prog_status; +} +#elif defined(HAVE_KVM_H) +static enum status_code +do_procinit(void) +{ + kvm_t *kd; + int nentries, i; + struct kinfo_proc *kp; + enum status_code prog_status = STATUS_DEAD; + + kd = ssd_kvm_open(); + kp = ssd_kvm_get_procs(kd, KERN_PROC_ALL, 0, &nentries); + + for (i = 0; i < nentries; i++) { + enum status_code pid_status; + pid_t pid; + +#if defined(OS_FreeBSD) + pid = kp[i].ki_pid; +#elif defined(OS_OpenBSD) + pid = kp[i].p_pid; +#elif defined(OS_DragonFlyBSD) + pid = kp[i].kp_pid; +#else + pid = kp[i].kp_proc.p_pid; +#endif + + pid_status = pid_check(pid); + if (pid_status < prog_status) + prog_status = pid_status; + } + + kvm_close(kd); + + return prog_status; +} +#endif + +static enum status_code +do_findprocs(void) +{ + pid_list_free(&found); + + if (match_pid > 0) + return pid_check(match_pid); + else if (pidfile) + return do_pidfile(pidfile); + else + return do_procinit(); +} + +static int +do_start(int argc, char **argv) +{ + int devnull_fd = -1; + gid_t rgid; + uid_t ruid; + + do_findprocs(); + + if (found) { + info("%s already running.\n", execname ? execname : "process"); + return exitnodo; + } + if (testmode && quietmode <= 0) { + printf("Would start %s ", startas); + while (argc-- > 0) + printf("%s ", *argv++); + if (changeuser != NULL) { + printf(" (as user %s[%d]", changeuser, runas_uid); + if (changegroup != NULL) + printf(", and group %s[%d])", changegroup, runas_gid); + else + printf(")"); + } + if (changeroot != NULL) + printf(" in directory %s", changeroot); + if (nicelevel) + printf(", and add %i to the priority", nicelevel); + if (proc_sched) + printf(", with scheduling policy %s with priority %i", + proc_sched->policy_name, proc_sched->priority); + if (io_sched) + printf(", with IO scheduling class %s with priority %i", + io_sched->policy_name, io_sched->priority); + printf(".\n"); + } + if (testmode) + return 0; + debug("Starting %s...\n", startas); + *--argv = startas; + if (background) + /* Ok, we need to detach this process. */ + daemonize(); + else if (mpidfile && pidfile != NULL) + /* User wants _us_ to make the pidfile, but detach themself! */ + write_pidfile(pidfile, getpid()); + if (background && close_io) { + devnull_fd = open("/dev/null", O_RDWR); + if (devnull_fd < 0) + fatale("unable to open '%s'", "/dev/null"); + } + if (nicelevel) { + errno = 0; + if ((nice(nicelevel) == -1) && (errno != 0)) + fatale("unable to alter nice level by %i", nicelevel); + } + if (proc_sched) + set_proc_schedule(proc_sched); + if (io_sched) + set_io_schedule(io_sched); + if (umask_value >= 0) + umask(umask_value); + if (changeroot != NULL) { + if (chdir(changeroot) < 0) + fatale("unable to chdir() to %s", changeroot); + if (chroot(changeroot) < 0) + fatale("unable to chroot() to %s", changeroot); + } + if (chdir(changedir) < 0) + fatale("unable to chdir() to %s", changedir); + + rgid = getgid(); + ruid = getuid(); + if (changegroup != NULL) { + if (rgid != (gid_t)runas_gid) + if (setgid(runas_gid)) + fatale("unable to set gid to %d", runas_gid); + } + if (changeuser != NULL) { + /* We assume that if our real user and group are the same as + * the ones we should switch to, the supplementary groups + * will be already in place. */ + if (rgid != (gid_t)runas_gid || ruid != (uid_t)runas_uid) + if (initgroups(changeuser, runas_gid)) + fatale("unable to set initgroups() with gid %d", + runas_gid); + + if (ruid != (uid_t)runas_uid) + if (setuid(runas_uid)) + fatale("unable to set uid to %s", changeuser); + } + + if (background && close_io) { + int i; + + dup2(devnull_fd, 0); /* stdin */ + dup2(devnull_fd, 1); /* stdout */ + dup2(devnull_fd, 2); /* stderr */ + + /* Now close all extra fds. */ + for (i = get_open_fd_max() - 1; i >= 3; --i) + close(i); + } + execv(startas, argv); + fatale("unable to start %s", startas); +} + +static void +do_stop(int sig_num, int *n_killed, int *n_notkilled) +{ + struct pid_list *p; + + do_findprocs(); + + *n_killed = 0; + *n_notkilled = 0; + + if (!found) + return; + + pid_list_free(&killed); + + for (p = found; p; p = p->next) { + if (testmode) { + info("Would send signal %d to %d.\n", sig_num, p->pid); + (*n_killed)++; + } else if (kill(p->pid, sig_num) == 0) { + pid_list_push(&killed, p->pid); + (*n_killed)++; + } else { + if (sig_num) + warning("failed to kill %d: %s\n", + p->pid, strerror(errno)); + (*n_notkilled)++; + } + } +} + +static void +do_stop_summary(int retry_nr) +{ + struct pid_list *p; + + if (quietmode >= 0 || !killed) + return; + + printf("Stopped %s (pid", what_stop); + for (p = killed; p; p = p->next) + printf(" %d", p->pid); + putchar(')'); + if (retry_nr > 0) + printf(", retry #%d", retry_nr); + printf(".\n"); +} + +static void DPKG_ATTR_PRINTF(1) +set_what_stop(const char *format, ...) +{ + va_list arglist; + int rc; + + va_start(arglist, format); + rc = vasprintf(&what_stop, format, arglist); + va_end(arglist); + + if (rc < 0) + fatale("cannot allocate formatted string"); +} + +/* + * We want to keep polling for the processes, to see if they've exited, or + * until the timeout expires. + * + * This is a somewhat complicated algorithm to try to ensure that we notice + * reasonably quickly when all the processes have exited, but don't spend + * too much CPU time polling. In particular, on a fast machine with + * quick-exiting daemons we don't want to delay system shutdown too much, + * whereas on a slow one, or where processes are taking some time to exit, + * we want to increase the polling interval. + * + * The algorithm is as follows: we measure the elapsed time it takes to do + * one poll(), and wait a multiple of this time for the next poll. However, + * if that would put us past the end of the timeout period we wait only as + * long as the timeout period, but in any case we always wait at least + * MIN_POLL_INTERVAL (20ms). The multiple (‘ratio’) starts out as 2, and + * increases by 1 for each poll to a maximum of 10; so we use up to between + * 30% and 10% of the machine's resources (assuming a few reasonable things + * about system performance). + */ +static bool +do_stop_timeout(int timeout, int *n_killed, int *n_notkilled) +{ + struct timespec stopat, before, after, interval, maxinterval; + int rc, ratio; + + timespec_gettime(&stopat); + stopat.tv_sec += timeout; + ratio = 1; + for (;;) { + timespec_gettime(&before); + if (timespec_cmp(&before, &stopat, >)) + return false; + + do_stop(0, n_killed, n_notkilled); + if (!*n_killed) + return true; + + timespec_gettime(&after); + + if (!timespec_cmp(&after, &stopat, <)) + return false; + + if (ratio < 10) + ratio++; + + timespec_sub(&stopat, &after, &maxinterval); + timespec_sub(&after, &before, &interval); + timespec_mul(&interval, ratio); + + if (interval.tv_sec < 0 || interval.tv_nsec < 0) + interval.tv_sec = interval.tv_nsec = 0; + + if (timespec_cmp(&interval, &maxinterval, >)) + interval = maxinterval; + + if (interval.tv_sec == 0 && + interval.tv_nsec <= MIN_POLL_INTERVAL) + interval.tv_nsec = MIN_POLL_INTERVAL; + + rc = pselect(0, NULL, NULL, NULL, &interval, NULL); + if (rc < 0 && errno != EINTR) + fatale("select() failed for pause"); + } +} + +static int +finish_stop_schedule(bool anykilled) +{ + if (rpidfile && pidfile && !testmode) + remove_pidfile(pidfile); + + if (anykilled) + return 0; + + info("No %s found running; none killed.\n", what_stop); + + return exitnodo; +} + +static int +run_stop_schedule(void) +{ + int position, n_killed, n_notkilled, value, retry_nr; + bool anykilled; + + if (testmode) { + if (schedule != NULL) { + info("Ignoring --retry in test mode\n"); + schedule = NULL; + } + } + + if (cmdname) + set_what_stop("%s", cmdname); + else if (execname) + set_what_stop("%s", execname); + else if (pidfile) + set_what_stop("process in pidfile '%s'", pidfile); + else if (match_pid > 0) + set_what_stop("process with pid %d", match_pid); + else if (match_ppid > 0) + set_what_stop("process(es) with parent pid %d", match_ppid); + else if (userspec) + set_what_stop("process(es) owned by '%s'", userspec); + else + BUG("no match option, please report"); + + anykilled = false; + retry_nr = 0; + + if (schedule == NULL) { + do_stop(signal_nr, &n_killed, &n_notkilled); + do_stop_summary(0); + if (n_notkilled > 0) + info("%d pids were not killed\n", n_notkilled); + if (n_killed) + anykilled = true; + return finish_stop_schedule(anykilled); + } + + for (position = 0; position < schedule_length; position++) { + reposition: + value = schedule[position].value; + n_notkilled = 0; + + switch (schedule[position].type) { + case sched_goto: + position = value; + goto reposition; + case sched_signal: + do_stop(value, &n_killed, &n_notkilled); + do_stop_summary(retry_nr++); + if (!n_killed) + return finish_stop_schedule(anykilled); + else + anykilled = true; + continue; + case sched_timeout: + if (do_stop_timeout(value, &n_killed, &n_notkilled)) + return finish_stop_schedule(anykilled); + else + continue; + default: + BUG("schedule[%d].type value %d is not valid", + position, schedule[position].type); + } + } + + info("Program %s, %d process(es), refused to die.\n", + what_stop, n_killed); + + return 2; +} + +int +main(int argc, char **argv) +{ + progname = argv[0]; + + parse_options(argc, argv); + setup_options(); + + argc -= optind; + argv += optind; + + if (action == ACTION_START) + return do_start(argc, argv); + else if (action == ACTION_STOP) + return run_stop_schedule(); + else if (action == ACTION_STATUS) + return do_findprocs(); + + return 0; +} diff --git a/utils/t/update_alternatives.t b/utils/t/update_alternatives.t new file mode 100644 index 0000000..c80edba --- /dev/null +++ b/utils/t/update_alternatives.t @@ -0,0 +1,568 @@ +#!/usr/bin/perl +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <https://www.gnu.org/licenses/>. + +use strict; +use warnings; + +use Test::More; + +use File::Spec; + +use Dpkg::IPC; +use Dpkg::File qw(file_slurp); +use Dpkg::Path qw(find_command); + +my $srcdir = $ENV{srcdir} || '.'; +my $tmpdir = 't.tmp/update_alternatives'; +my $admindir = File::Spec->rel2abs("$tmpdir/admindir"), +my $altdir = File::Spec->rel2abs("$tmpdir/alternatives"); +my $bindir = File::Spec->rel2abs("$tmpdir/bin"); +my @ua = ("$ENV{builddir}/update-alternatives", '--log', '/dev/null', + '--quiet', '--admindir', "$admindir", '--altdir', "$altdir"); + +my %paths = ( + true => find_command('true'), + false => find_command('false'), + yes => find_command('yes'), + cat => find_command('cat'), + date => find_command('date'), + sleep => find_command('sleep'), +); + +if (! -x "$ENV{builddir}/update-alternatives") { + plan skip_all => 'update-alternatives not available'; + exit(0); +} + +my $main_link = "$bindir/generic-test"; +my $main_name = 'generic-test'; +my @choices = ( + { + path => $paths{true}, + priority => 20, + slaves => [ + { + link => "$bindir/slave2", + name => 'slave2', + path => $paths{cat}, + }, + { + link => "$bindir/slave3", + name => 'slave3', + path => $paths{cat}, + }, + { + link => "$bindir/slave1", + name => 'slave1', + path => $paths{yes}, + }, + { + link => "$bindir/slave4", + name => 'slave4', + path => $paths{cat}, + }, + ], + }, + { + path => $paths{false}, + priority => 10, + slaves => [ + { + link => "$bindir/slave1", + name => 'slave1', + path => $paths{date}, + }, + ], + }, + { + path => $paths{sleep}, + priority => 5, + slaves => [], + }, +); +my $nb_slaves = 4; +plan tests => (4 * ($nb_slaves + 1) + 2) * 26 # number of check_choices + + 110; # rest + +sub cleanup { + system("rm -rf $tmpdir && mkdir -p $admindir && mkdir -p $altdir"); + system("mkdir -p $bindir/more"); +} + +sub call_ua { + my ($params, %opts) = @_; + spawn(exec => [ @ua, @$params ], nocheck => 1, + wait_child => 1, env => { LC_ALL => 'C' }, %opts); + my $test_id = ''; + $test_id = "$opts{test_id}: " if defined $opts{test_id}; + if ($opts{expect_failure}) { + ok($? != 0, "${test_id}update-alternatives @$params should fail.") or + diag("Did not fail as expected: @ua @$params"); + } else { + ok($? == 0, "${test_id}update-alternatives @$params should work.") or + diag("Did not succeed as expected: @ua @$params"); + } +} + +sub install_choice { + my ($id, %opts) = @_; + my $alt = $choices[$id]; + my @params; + push @params, @{$opts{params}} if exists $opts{params}; + push @params, '--install', "$main_link", "$main_name", + $alt->{path}, $alt->{priority}; + foreach my $slave (@{ $alt->{slaves} }) { + push @params, '--slave', $slave->{link}, $slave->{name}, $slave->{path}; + } + call_ua(\@params, %opts); +} + +sub remove_choice { + my ($id, %opts) = @_; + my $alt = $choices[$id]; + my @params; + push @params, @{$opts{params}} if exists $opts{params}; + push @params, '--remove', $main_name, $alt->{path}; + call_ua(\@params, %opts); +} + +sub remove_all_choices { + my (%opts) = @_; + my @params; + push @params, @{$opts{params}} if exists $opts{params}; + push @params, '--remove-all', $main_name; + call_ua(\@params, %opts); +} + +sub set_choice { + my ($id, %opts) = @_; + my $alt = $choices[$id]; + my @params; + push @params, @{$opts{params}} if exists $opts{params}; + push @params, '--set', $main_name, $alt->{path}; + call_ua(\@params, %opts); +} + +sub config_choice { + my ($id, %opts) = @_; + my ($input, $output) = ('', ''); + if ($id >= 0) { + my $alt = $choices[$id]; + $input = $alt->{path}; + } else { + $input = '0'; + } + $input .= "\n"; + $opts{from_string} = \$input; + $opts{to_string} = \$output; + my @params; + push @params, @{$opts{params}} if exists $opts{params}; + push @params, '--config', $main_name; + call_ua(\@params, %opts); +} + +sub get_slaves_status { + my ($id) = @_; + my %slaves; + # None of the slaves are installed + foreach my $alt (@choices) { + for my $i (0 .. @{$alt->{slaves}} - 1) { + $slaves{$alt->{slaves}[$i]{name}} = $alt->{slaves}[$i]; + $slaves{$alt->{slaves}[$i]{name}}{installed} = 0; + } + } + # except those of the current alternative (minus optional slaves) + if (defined($id)) { + my $alt = $choices[$id]; + for my $i (0 .. @{$alt->{slaves}} - 1) { + $slaves{$alt->{slaves}[$i]{name}} = $alt->{slaves}[$i]; + if (-e $alt->{slaves}[$i]{path}) { + $slaves{$alt->{slaves}[$i]{name}}{installed} = 1; + } + } + } + my @slaves = sort { $a->{name} cmp $b->{name} } values %slaves; + + return @slaves; +} + +sub check_link { + my ($link, $value, $msg) = @_; + ok(-l $link, "$msg: $link disappeared."); + is(readlink($link), $value, "$link doesn't point to $value."); +} +sub check_no_link { + my ($link, $msg) = @_; + lstat($link); + ok(!-e _, "$msg: $link still exists."); + ok(1, 'fake test'); # Same number of tests as check_link +} + +sub check_slaves { + my ($id, $msg) = @_; + foreach my $slave (get_slaves_status($id)) { + if ($slave->{installed}) { + check_link("$altdir/$slave->{name}", $slave->{path}, $msg); + check_link($slave->{link}, "$altdir/$slave->{name}", $msg); + } else { + check_no_link("$altdir/$slave->{name}", $msg); + check_no_link($slave->{link}, $msg); + } + } +} +# (4 * (nb_slaves+1) + 2) tests in each check_choice() call +sub check_choice { + my ($id, $mode, $msg) = @_; + my $output; + if (defined $id) { + # Check status + call_ua([ '--query', "$main_name" ], to_string => \$output, test_id => $msg); + $output =~ /^Status: (.*)$/im; + is($1, $mode, "$msg: status is not $mode."); + # Check links + my $alt = $choices[$id]; + check_link("$altdir/$main_name", $alt->{path}, $msg); + check_link($main_link, "$altdir/$main_name", $msg); + check_slaves($id, $msg); + } else { + call_ua([ '--query', "$main_name" ], error_to_string => \$output, + expect_failure => 1, test_id => $msg); + ok($output =~ /no alternatives/, "$msg: bad error message for --query."); + # Check that all links have disappeared + check_no_link("$altdir/$main_name", $msg); + check_no_link($main_link, $msg); + check_slaves(undef, $msg); + } +} + +### START OF TESTS +cleanup(); +# removal when not installed should not fail +remove_choice(0); +# successive install in auto mode +install_choice(1); +check_choice(1, 'auto', 'initial install 1'); +install_choice(2); # 2 is lower prio, stays at 1 +check_choice(1, 'auto', 'initial install 2'); +install_choice(0); # 0 is higher priority +check_choice(0, 'auto', 'initial install 3'); + +# verify that the administrative file is sorted properly +{ + my $content = file_slurp("$admindir/generic-test"); + my $expected = +"auto +$bindir/generic-test +slave1 +$bindir/slave1 +slave2 +$bindir/slave2 +slave3 +$bindir/slave3 +slave4 +$bindir/slave4 + +"; + + my %slaves; + + # Store slaves in a hash to easily retrieve present and missing ones. + foreach my $alt (@choices) { + foreach my $slave (@{$alt->{slaves}}) { + $slaves{$slave->{name}}{$alt->{path}} = $slave; + } + } + + foreach my $alt (sort { $a->{path} cmp $b->{path} } @choices) { + $expected .= $alt->{path} . "\n"; + $expected .= $alt->{priority} . "\n"; + foreach my $slave_name (sort keys %slaves) { + $expected .= $slaves{$slave_name}{$alt->{path}}{path} || ''; + $expected .= "\n"; + } + } + $expected .= "\n"; + + is($content, $expected, 'administrative file is as expected'); +} + +# manual change with --set-selections +my $input = "doesntexist auto $paths{date}\ngeneric-test manual $paths{false}\n"; +my $output = ''; +call_ua(['--set-selections'], from_string => \$input, + to_string => \$output, test_id => 'manual update with --set-selections'); +check_choice(1, 'manual', 'manual update with --set-selections'); +$input = "generic-test auto $paths{true}\n"; +call_ua(['--set-selections'], from_string => \$input, + to_string => \$output, test_id => 'auto update with --set-selections'); +check_choice(0, 'auto', 'auto update with --set-selections'); +# manual change with set +set_choice(2, test_id => 'manual update with --set'); +check_choice(2, 'manual', 'manual update with --set'); # test #388313 +remove_choice(2, test_id => 'remove manual, back to auto'); +check_choice(0, 'auto', 'remove manual, back to auto'); +remove_choice(0, test_id => 'remove best'); +check_choice(1, 'auto', 'remove best'); +remove_choice(1, test_id => 'no alternative left'); +check_choice(undef, '', 'no alternative left'); +# single choice in manual mode, to be removed +install_choice(1); +set_choice(1); +check_choice(1, 'manual', 'single manual choice'); +remove_choice(1); +check_choice(undef, '', 'removal single manual'); +# test --remove-all +install_choice(0); +install_choice(1); +install_choice(2); +remove_all_choices(test_id => 'remove all'); +check_choice(undef, '', 'no alternative left'); +# check auto-recovery of user mistakes (#100135) +install_choice(1); +ok(unlink("$bindir/generic-test"), 'failed removal'); +ok(unlink("$bindir/slave1"), 'failed removal'); +install_choice(1); +check_choice(1, 'auto', 'recreate links in auto mode'); +set_choice(1); +ok(unlink("$bindir/generic-test"), 'failed removal'); +ok(unlink("$bindir/slave1"), 'failed removal'); +install_choice(1); +check_choice(1, 'manual', 'recreate links in manual mode'); +# check recovery of /etc/alternatives/* +install_choice(0); +ok(unlink("$altdir/generic-test"), 'failed removal'); +install_choice(1); +check_choice(0, 'auto', '<altdir>/generic-test lost, back to auto'); +# test --config +config_choice(0); +check_choice(0, 'manual', 'config to best but manual'); +config_choice(1); +check_choice(1, 'manual', 'config to manual'); +config_choice(-1); +check_choice(0, 'auto', 'config auto'); + +# test rename of links +install_choice(0); +my $old_slave = $choices[0]{slaves}[0]{link}; +my $old_link = $main_link; +$choices[0]{slaves}[0]{link} = "$bindir/more/generic-slave"; +$main_link = "$bindir/more/mytest"; +install_choice(0); +check_choice(0, 'auto', 'test rename of links'); +check_no_link($old_link, 'test rename of links'); +check_no_link($old_slave, 'test rename of links'); +# rename with installing other alternatives +$old_link = $main_link; +$main_link = "$bindir/generic-test"; +install_choice(1); +check_choice(0, 'auto', 'rename link'); +check_no_link($old_link, 'rename link'); +# rename with lost file +unlink($old_slave); +$old_slave = $choices[0]{slaves}[0]{link}; +$choices[0]{slaves}[0]{link} = "$bindir/generic-slave-bis"; +install_choice(0); +check_choice(0, 'auto', 'rename lost file'); +check_no_link($old_slave, 'rename lost file'); +# update of alternative with many slaves not currently installed +# and the link of the renamed slave exists while it should not +set_choice(1); +symlink("$paths{cat}", "$bindir/generic-slave-bis"); +$choices[0]{slaves}[0]{link} = "$bindir/slave2"; +install_choice(0, test_id => 'update with non-installed slaves'); +check_no_link("$bindir/generic-slave-bis", + 'drop renamed symlink that should not be installed'); + +# test install with empty admin file (#457863) +cleanup(); +system("touch $admindir/generic-test"); +install_choice(0); +# test install with garbage admin file +cleanup(); +system("echo garbage > $admindir/generic-test"); +install_choice(0, error_to_file => '/dev/null', expect_failure => 1); + +# test invalid usages +cleanup(); +install_choice(0); +# try to install a slave alternative as new master +call_ua(['--install', "$bindir/testmaster", 'slave1', "$paths{date}", '10'], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# try to install a master alternative as slave +call_ua(['--install', "$bindir/testmaster", 'testmaster', "$paths{date}", '10', + '--slave', "$bindir/testslave", 'generic-test', "$paths{true}" ], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# try to reuse master link in slave +call_ua(['--install', "$bindir/testmaster", 'testmaster', "$paths{date}", '10', + '--slave', "$bindir/testmaster", 'testslave', "$paths{true}" ], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# try to reuse links in master alternative +call_ua(['--install', "$bindir/slave1", 'testmaster', "$paths{date}", '10'], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# try to reuse links in slave alternative +call_ua(['--install', "$bindir/testmaster", 'testmaster', "$paths{date}", '10', + '--slave', "$bindir/generic-test", 'testslave', "$paths{true}" ], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# try to reuse slave link in another slave alternative of another choice of +# the same main alternative +call_ua(['--install', $main_link, $main_name, "$paths{date}", '10', + '--slave', "$bindir/slave1", 'testslave', "$paths{true}" ], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# lack of absolute filenames in links or file path, non-existing path, +call_ua(['--install', '../testmaster', 'testmaster', "$paths{date}", '10'], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +call_ua(['--install', "$bindir/testmaster", 'testmaster', './update-alternatives.pl', '10'], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# non-existing alternative path +call_ua(['--install', "$bindir/testmaster", 'testmaster', "$bindir/doesntexist", '10'], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# invalid alternative name in master +call_ua(['--install', "$bindir/testmaster", 'test/master', "$paths{date}", '10'], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# invalid alternative name in slave +call_ua(['--install', "$bindir/testmaster", 'testmaster', "$paths{date}", '10', + '--slave', "$bindir/testslave", 'test slave', "$paths{true}" ], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +# install in non-existing dir should fail +call_ua(['--install', "$bindir/doesntexist/testmaster", 'testmaster', "$paths{date}", '10', + '--slave', "$bindir/testslave", 'testslave', "$paths{true}" ], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); +call_ua(['--install', "$bindir/testmaster", 'testmaster', "$paths{date}", '10', + '--slave', "$bindir/doesntexist/testslave", 'testslave', "$paths{true}" ], + expect_failure => 1, to_file => '/dev/null', error_to_file => '/dev/null'); + +# non-existing alternative path in slave is not a failure +my $old_path = $choices[0]{slaves}[0]{path}; +$old_slave = $choices[0]{slaves}[0]{link}; +$choices[0]{slaves}[0]{path} = "$bindir/doesntexist"; +$choices[0]{slaves}[0]{link} = "$bindir/baddir/slave2"; +# test rename of slave link that existed but that doesn't anymore +# and link is moved into non-existing dir at the same time +install_choice(0); +check_choice(0, 'auto', 'optional renamed slave2 in non-existing dir'); +# same but on fresh install +cleanup(); +install_choice(0); +check_choice(0, 'auto', 'optional slave2 in non-existing dir'); +$choices[0]{slaves}[0]{link} = $old_slave; +# test fresh install with a non-existing slave file +cleanup(); +install_choice(0); +check_choice(0, 'auto', 'optional slave2'); +$choices[0]{slaves}[0]{path} = $old_path; + +# test management of pre-existing files +cleanup(); +system("touch $main_link $bindir/slave1"); +install_choice(0); +ok(!-l $main_link, 'install preserves files that should be links'); +ok(!-l "$bindir/slave1", 'install preserves files that should be slave links'); +remove_choice(0); +ok(-f $main_link, 'removal keeps real file installed as master link'); +ok(-f "$bindir/slave1", 'removal keeps real files installed as slave links'); +install_choice(0, params => ['--force']); +check_choice(0, 'auto', 'install --force replaces files with links'); + +# test management of pre-existing files #2 +cleanup(); +system("touch $main_link $bindir/slave2"); +install_choice(0); +install_choice(1); +ok(!-l $main_link, 'inactive install preserves files that should be links'); +ok(!-l "$bindir/slave2", 'inactive install preserves files that should be slave links'); +ok(-f $main_link, 'inactive install keeps real file installed as master link'); +ok(-f "$bindir/slave2", 'inactive install keeps real files installed as slave links'); +set_choice(1); +ok(!-l $main_link, 'manual switching preserves files that should be links'); +ok(!-l "$bindir/slave2", 'manual switching preserves files that should be slave links'); +ok(-f $main_link, 'manual switching keeps real file installed as master link'); +ok(-f "$bindir/slave2", 'manual switching keeps real files installed as slave links'); +remove_choice(1); +ok(!-l $main_link, 'auto switching preserves files that should be links'); +ok(!-l "$bindir/slave2", 'auto switching preserves files that should be slave links'); +ok(-f $main_link, 'auto switching keeps real file installed as master link'); +ok(-f "$bindir/slave2", 'auto switching keeps real files installed as slave links'); +remove_all_choices(params => ['--force']); +ok(!-e "$bindir/slave2", 'forced removeall drops real files installed as slave links'); + +# test management of pre-existing files #3 +cleanup(); +system("touch $main_link $bindir/slave2"); +install_choice(0); +install_choice(1); +remove_choice(0); +ok(!-l $main_link, 'removal + switching preserves files that should be links'); +ok(!-l "$bindir/slave2", 'removal + switching preserves files that should be slave links'); +ok(-f $main_link, 'removal + switching keeps real file installed as master link'); +ok(-f "$bindir/slave2", 'removal + switching keeps real files installed as slave links'); +install_choice(0); +ok(!-l $main_link, 'install + switching preserves files that should be links'); +ok(!-l "$bindir/slave2", 'install + switching preserves files that should be slave links'); +ok(-f $main_link, 'install + switching keeps real file installed as master link'); +ok(-f "$bindir/slave2", 'install + switching keeps real files installed as slave links'); +set_choice(1, params => ['--force']); +ok(!-e "$bindir/slave2", 'forced switching w/o slave drops real files installed as slave links'); +check_choice(1, 'manual', 'set --force replaces files with links'); + +# check disappearence of obsolete slaves (#916799) +cleanup(); +call_ua([ + '--install', "$bindir/test-obsolete", 'test-obsolete', "$paths{date}", '10', + '--slave', "$bindir/test-slave-a", 'test-slave-a', "$bindir/impl-slave-a", + '--slave', "$bindir/test-slave-b", 'test-slave-b', "$bindir/impl-slave-b", + '--slave', "$bindir/test-slave-c", 'test-slave-c', "$bindir/impl-slave-c", +], to_file => '/dev/null', error_to_file => '/dev/null'); + +my $content; +my $expected; + +$content = file_slurp("$admindir/test-obsolete"); +$expected = +"auto +$bindir/test-obsolete +test-slave-a +$bindir/test-slave-a +test-slave-b +$bindir/test-slave-b +test-slave-c +$bindir/test-slave-c + +$paths{date} +10 +$bindir/impl-slave-a +$bindir/impl-slave-b +$bindir/impl-slave-c + +"; +is($content, $expected, 'administrative file for non-obsolete slaves is as expected'); + +call_ua([ + '--install', "$bindir/test-obsolete", 'test-obsolete', "$paths{date}", '20', + '--slave', "$bindir/test-slave-c", 'test-slave-c', "$bindir/impl-slave-c", +], to_file => '/dev/null', error_to_file => '/dev/null'); + +$content = file_slurp("$admindir/test-obsolete"); +$expected = +"auto +$bindir/test-obsolete +test-slave-c +$bindir/test-slave-c + +$paths{date} +20 +$bindir/impl-slave-c + +"; +is($content, $expected, 'administrative file for obsolete slaves is as expected'); diff --git a/utils/update-alternatives.c b/utils/update-alternatives.c new file mode 100644 index 0000000..a57e970 --- /dev/null +++ b/utils/update-alternatives.c @@ -0,0 +1,2870 @@ +/* + * update-alternatives + * + * Copyright © 1995 Ian Jackson <ijackson@chiark.greenend.org.uk> + * Copyright © 2000-2002 Wichert Akkerman <wakkerma@debian.org> + * Copyright © 2006-2017 Guillem Jover <guillem@debian.org> + * Copyright © 2008 Pierre Habouzit <madcoder@debian.org> + * Copyright © 2009-2010 Raphaël Hertzog <hertzog@debian.org> + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see <https://www.gnu.org/licenses/>. + */ + +#include <config.h> +#include <compat.h> + +#include <sys/types.h> +#include <sys/stat.h> +#include <sys/wait.h> + +#include <errno.h> +#include <stdarg.h> +#include <stdbool.h> +#include <stdlib.h> +#include <stdio.h> +#include <unistd.h> +#include <string.h> +#include <dirent.h> +#include <time.h> +#include <setjmp.h> +#include <assert.h> +#include <locale.h> +#include <ctype.h> +#include <limits.h> + +#include <dpkg/macros.h> +#include <dpkg/i18n.h> + +/* Global variables: */ + +#define PROGNAME "update-alternatives" + +static const char *altdir = SYSCONFDIR "/alternatives"; +static const char *admdir; + +static const char *prog_path = "update-alternatives"; + +enum action { + ACTION_NONE, + ACTION_INSTALL, + ACTION_SET, + ACTION_SET_SELECTIONS, + ACTION_GET_SELECTIONS, + ACTION_AUTO, + ACTION_CONFIG, + ACTION_CONFIG_ALL, + ACTION_REMOVE, + ACTION_REMOVE_ALL, + ACTION_LIST, + ACTION_QUERY, + ACTION_DISPLAY, +}; + +struct action_name { + enum action action; + const char *name; +} action_names[] = { + { ACTION_NONE, "" }, + { ACTION_INSTALL, "install" }, + { ACTION_SET, "set" }, + { ACTION_SET_SELECTIONS, "set-selections" }, + { ACTION_GET_SELECTIONS, "get-selections" }, + { ACTION_AUTO, "auto" }, + { ACTION_CONFIG, "config" }, + { ACTION_CONFIG_ALL, "all" }, + { ACTION_REMOVE, "remove" }, + { ACTION_REMOVE_ALL, "remove-all" }, + { ACTION_LIST, "list" }, + { ACTION_QUERY, "query" }, + { ACTION_DISPLAY, "display" }, +}; + +enum output_mode { + OUTPUT_QUIET = -1, + OUTPUT_NORMAL = 0, + OUTPUT_VERBOSE = 1, + OUTPUT_DEBUG = 2, +}; + +/* Action to perform */ +static enum action action = ACTION_NONE; +static const char *log_file = LOGDIR "/alternatives.log"; +/* Skip alternatives properly configured in auto mode (for --config) */ +static int opt_skip_auto = 0; +static int opt_verbose = OUTPUT_NORMAL; +static int opt_force = 0; + +/* + * Functions. + */ + +static void +version(void) +{ + printf(_("Debian %s version %s.\n"), PROGNAME, VERSION); + printf("\n"); + + printf(_( +"This is free software; see the GNU General Public License version 2 or\n" +"later for copying conditions. There is NO warranty.\n")); +} + +static void +usage(void) +{ + printf(_( +"Usage: %s [<option> ...] <command>\n" +"\n"), PROGNAME); + + printf(_( +"Commands:\n" +" --install <link> <name> <path> <priority>\n" +" [--slave <link> <name> <path>] ...\n" +" add a group of alternatives to the system.\n" +" --remove <name> <path> remove <path> from the <name> group alternative.\n" +" --remove-all <name> remove <name> group from the alternatives system.\n" +" --auto <name> switch the master link <name> to automatic mode.\n" +" --display <name> display information about the <name> group.\n" +" --query <name> machine parseable version of --display <name>.\n" +" --list <name> display all targets of the <name> group.\n" +" --get-selections list master alternative names and their status.\n" +" --set-selections read alternative status from standard input.\n" +" --config <name> show alternatives for the <name> group and ask the\n" +" user to select which one to use.\n" +" --set <name> <path> set <path> as alternative for <name>.\n" +" --all call --config on all alternatives.\n" +"\n")); + + printf(_( +"<link> is the symlink pointing to %s/<name>.\n" +" (e.g. /usr/bin/pager)\n" +"<name> is the master name for this link group.\n" +" (e.g. pager)\n" +"<path> is the location of one of the alternative target files.\n" +" (e.g. /usr/bin/less)\n" +"<priority> is an integer; options with higher numbers have higher priority in\n" +" automatic mode.\n" +"\n"), altdir); + + printf(_( +"Options:\n" +" --altdir <directory> change the alternatives directory.\n" +" --admindir <directory> change the administrative directory.\n" +" --log <file> change the log file.\n" +" --force allow replacing files with alternative links.\n" +" --skip-auto skip prompt for alternatives correctly configured\n" +" in automatic mode (relevant for --config only)\n" +" --quiet quiet operation, minimal output.\n" +" --verbose verbose operation, more output.\n" +" --debug debug output, way more output.\n" +" --help show this help message.\n" +" --version show the version.\n" +)); +} + +static void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(1) +error(char const *fmt, ...) +{ + va_list args; + + fprintf(stderr, "%s: %s: ", PROGNAME, _("error")); + va_start(args, fmt); + vfprintf(stderr, fmt, args); + va_end(args); + fprintf(stderr, "\n"); + exit(2); +} + +static void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(1) +syserr(char const *fmt, ...) +{ + va_list args; + + fprintf(stderr, "%s: %s: ", PROGNAME, _("error")); + va_start(args, fmt); + vfprintf(stderr, fmt, args); + va_end(args); + fprintf(stderr, ": %s\n", strerror(errno)); + exit(2); +} + +static void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(1) +badusage(char const *fmt, ...) +{ + va_list args; + + fprintf(stderr, "%s: ", PROGNAME); + va_start(args, fmt); + vfprintf(stderr, fmt, args); + va_end(args); + fprintf(stderr, "\n\n"); + fprintf(stderr, _("Use '%s --help' for program usage information."), + PROGNAME); + fprintf(stderr, "\n"); + exit(2); +} + +static void DPKG_ATTR_PRINTF(1) +warning(char const *fmt, ...) +{ + va_list args; + + if (opt_verbose < OUTPUT_NORMAL) + return; + + fprintf(stderr, "%s: %s: ", PROGNAME, _("warning")); + va_start(args, fmt); + vfprintf(stderr, fmt, args); + va_end(args); + fprintf(stderr, "\n"); +} + +static void DPKG_ATTR_PRINTF(1) +debug(char const *fmt, ...) +{ + va_list args; + + if (opt_verbose < OUTPUT_DEBUG) + return; + + fprintf(stderr, "DEBUG: "); + va_start(args, fmt); + vfprintf(stderr, fmt, args); + va_end(args); + fprintf(stderr, "\n"); +} + +static void DPKG_ATTR_PRINTF(1) +verbose(char const *fmt, ...) +{ + va_list args; + + if (opt_verbose < OUTPUT_VERBOSE) + return; + + printf("%s: ", PROGNAME); + va_start(args, fmt); + vprintf(fmt, args); + va_end(args); + printf("\n"); +} + +static void DPKG_ATTR_PRINTF(1) +info(char const *fmt, ...) +{ + va_list args; + + if (opt_verbose < OUTPUT_NORMAL) + return; + + printf("%s: ", PROGNAME); + va_start(args, fmt); + vprintf(fmt, args); + va_end(args); + printf("\n"); +} + +static void DPKG_ATTR_PRINTF(1) +pr(char const *fmt, ...) +{ + va_list args; + + va_start(args, fmt); + vprintf(fmt, args); + va_end(args); + printf("\n"); +} + +static void * +xmalloc(size_t size) +{ + void *ptr; + + ptr = malloc(size); + if (!ptr) + error(_("malloc failed (%zu bytes)"), size); + + return ptr; +} + +static char * +xstrdup(const char *str) +{ + char *new_str; + + if (!str) + return NULL; + + new_str = strdup(str); + if (!new_str) + error(_("failed to allocate memory")); + + return new_str; +} + +static char * DPKG_ATTR_VPRINTF(1) +xvasprintf(const char *fmt, va_list args) +{ + char *str; + + if (vasprintf(&str, fmt, args) < 0) + error(_("failed to allocate memory")); + + return str; +} + +static char * DPKG_ATTR_PRINTF(1) +xasprintf(const char *fmt, ...) +{ + va_list args; + char *str; + + va_start(args, fmt); + str = xvasprintf(fmt, args); + va_end(args); + + return str; +} + +static char * +areadlink(const char *linkname) +{ + struct stat st; + char *buf; + ssize_t size; + + /* Allocate required memory to store the value of the symlink */ + if (lstat(linkname, &st)) + return NULL; + + if (!S_ISLNK(st.st_mode)) { + errno = EINVAL; + return NULL; + } + + buf = xmalloc(st.st_size + 1); + + /* Read it and terminate the string properly */ + size = readlink(linkname, buf, st.st_size); + if (size == -1) { + int saved_errno = errno; + + free(buf); + errno = saved_errno; + + return NULL; + } + buf[size] = '\0'; + + return buf; +} + +static char * +xreadlink(const char *linkname) +{ + char *buf; + + buf = areadlink(linkname); + if (buf == NULL) + syserr(_("unable to read link '%.255s'"), linkname); + + return buf; +} + +static bool +pathname_is_missing(const char *pathname) +{ + struct stat st; + + errno = 0; + if (stat(pathname, &st) == 0) + return false; + + if (errno == ENOENT) + return true; + + syserr(_("cannot stat file '%s'"), pathname); +} + +static void +set_action(enum action new_action) +{ + if (action) + badusage(_("two commands specified: --%s and --%s"), + action_names[action].name, action_names[new_action].name); + action = new_action; +} + +static void +set_action_from_name(const char *new_action) +{ + size_t i; + + for (i = 0; i < array_count(action_names); i++) { + if (strcmp(new_action, action_names[i].name) == 0) { + set_action(action_names[i].action); + return; + } + } + + assert(!"unknown action name"); +} + +static const char * +admindir_init(void) +{ + const char *basedir, *basedir_env; + + /* Try to get the admindir from an environment variable, usually set + * by the system package manager. */ + basedir_env = getenv(ADMINDIR_ENVVAR); + if (basedir_env) + basedir = basedir_env; + else + basedir = ADMINDIR; + + return xasprintf("%s/%s", basedir, "alternatives"); +} + +static FILE *fh_log = NULL; + +static void DPKG_ATTR_PRINTF(1) +log_msg(const char *fmt, ...) +{ + va_list args; + + if (fh_log == NULL) { + fh_log = fopen(log_file, "a"); + if (fh_log == NULL && errno != EACCES) + syserr(_("cannot append to '%s'"), log_file); + } + + if (fh_log) { + char timestamp[64]; + time_t now; + + time(&now); + strftime(timestamp, sizeof(timestamp), "%Y-%m-%d %H:%M:%S", + localtime(&now)); + fprintf(fh_log, "%s %s: ", PROGNAME, timestamp); + va_start(args, fmt); + vfprintf(fh_log, fmt, args); + va_end(args); + fprintf(fh_log, "\n"); + } +} + +static int +spawn(const char *prog, const char *args[]) +{ + pid_t pid, dead_pid; + int status; + + pid = fork(); + if (pid == -1) + error(_("fork failed")); + if (pid == 0) { + execvp(prog, (char *const *)args); + syserr(_("unable to execute %s (%s)"), prog, prog); + } + while ((dead_pid = waitpid(pid, &status, 0)) == -1 && errno == EINTR) ; + if (dead_pid != pid) + error(_("wait for subprocess %s failed"), prog); + + return status; +} + +static bool +rename_mv(const char *src, const char *dst) +{ + const char *args[] = { "mv", src, dst, NULL }; + int rc; + + if (rename(src, dst) == 0) + return true; + if (errno == ENOENT) + return false; + + rc = spawn("mv", args); + if (WIFEXITED(rc) && WEXITSTATUS(rc) == 0) + return true; + + return false; +} + +static void +checked_symlink(const char *filename, const char *linkname) +{ + if (symlink(filename, linkname)) + syserr(_("error creating symbolic link '%.255s'"), linkname); +} + +static void +checked_mv(const char *src, const char *dst) +{ + if (!rename_mv(src, dst)) + syserr(_("unable to install '%.250s' as '%.250s'"), src, dst); +} + +static void +checked_rm(const char *f) +{ + if (!unlink(f)) + return; + + if (errno != ENOENT) + syserr(_("unable to remove '%s'"), f); +} + +static void DPKG_ATTR_PRINTF(1) +checked_rm_args(const char *fmt, ...) +{ + va_list args; + char *path; + + va_start(args, fmt); + path = xvasprintf(fmt, args); + va_end(args); + + checked_rm(path); + free(path); +} + +/* + * OBJECTS + */ + +struct fileset { + struct fileset *next; + + char *master_file; + int priority; + + struct slave_file { + struct slave_file *next; + char *name; + char *file; + } *slaves; +}; + +static struct fileset * +fileset_new(const char *master_file, int prio) +{ + struct fileset *fs; + + fs = xmalloc(sizeof(*fs)); + fs->next = NULL; + fs->master_file = xstrdup(master_file); + fs->priority = prio; + fs->slaves = NULL; + + return fs; +} + +static void +fileset_free(struct fileset *fs) +{ + struct slave_file *slave, *next; + + free(fs->master_file); + for (slave = fs->slaves; slave; slave = next) { + next = slave->next; + free(slave->name); + free(slave->file); + free(slave); + } + free(fs); +} + +static void +fileset_add_slave(struct fileset *fs, const char *name, const char *file) +{ + struct slave_file *sl, *cur, *prev = NULL; + + /* Replace existing first */ + for (cur = fs->slaves; cur; cur = cur->next) { + if (strcmp(cur->name, name) == 0) { + free(cur->file); + cur->file = xstrdup(file); + return; + } + prev = cur; + } + + /* Otherwise add new at the end */ + sl = xmalloc(sizeof(*sl)); + sl->next = NULL; + sl->name = xstrdup(name); + sl->file = xstrdup(file); + if (prev) + prev->next = sl; + else + fs->slaves = sl; +} + +static const char * +fileset_get_slave(struct fileset *fs, const char *name) +{ + struct slave_file *slave; + + for (slave = fs->slaves; slave; slave = slave->next) { + if (strcmp(slave->name, name) == 0) + return slave->file; + } + + return NULL; +} + +static bool +fileset_has_slave(struct fileset *fs, const char *name) +{ + const char *file = fileset_get_slave(fs, name); + + if (file == NULL) + return false; + + return file[0] != '\0'; +} + +static bool +fileset_can_install_slave(struct fileset *fs, const char *slave_name) +{ + /* Decide whether the slave alternative must be setup */ + if (fileset_has_slave(fs, slave_name)) { + const char *slave = fileset_get_slave(fs, slave_name); + + if (!pathname_is_missing(slave)) + return true; + } + + return false; +} + +struct slave_link { + struct slave_link *next; + char *name; + char *link; + bool updated; +}; + +struct commit_operation { + struct commit_operation *next; + + enum opcode { + OPCODE_NOP, + OPCODE_RM, + OPCODE_MV, + } opcode; + + char *arg_a; + char *arg_b; +}; + +enum alternative_update_reason { + ALT_UPDATE_NO, + ALT_UPDATE_SLAVE_CHANGED, + ALT_UPDATE_LINK_BROKEN, +}; + +struct alternative { + char *master_name; + char *master_link; + char *current; + + enum alternative_status { + ALT_ST_UNKNOWN, + ALT_ST_AUTO, + ALT_ST_MANUAL, + } status; + + struct slave_link *slaves; + struct fileset *choices; + + struct commit_operation *commit_ops; + + int ref_count; + bool modified; + bool known_current; +}; + +static void +slave_link_free(struct slave_link *slave) +{ + free(slave->name); + free(slave->link); + free(slave); +} + +static void +commit_operation_free(struct commit_operation *commit_op) +{ + free(commit_op->arg_a); + free(commit_op->arg_b); + free(commit_op); +} + +static struct alternative * +alternative_new(const char *name) +{ + struct alternative *alt; + + alt = xmalloc(sizeof(*alt)); + alt->master_name = xstrdup(name); + alt->master_link = NULL; + alt->current = NULL; + alt->status = ALT_ST_UNKNOWN; + alt->slaves = NULL; + alt->choices = NULL; + alt->commit_ops = NULL; + alt->modified = false; + alt->known_current = false; + alt->ref_count = 1; + + return alt; +} + +static inline void +alternative_ref(struct alternative *a) +{ + a->ref_count++; +} + +static inline bool +alternative_unref(struct alternative *a) +{ + return --a->ref_count == 0; +} + +static void +alternative_choices_free(struct alternative *a) +{ + struct fileset *fs; + + if (a->choices) + a->modified = true; + + while (a->choices) { + fs = a->choices; + a->choices = fs->next; + fileset_free(fs); + } +} + +static void +alternative_commit_operations_free(struct alternative *a) +{ + struct commit_operation *op; + + while (a->commit_ops) { + op = a->commit_ops; + a->commit_ops = op->next; + commit_operation_free(op); + } +} + +static void +alternative_reset(struct alternative *alt) +{ + struct slave_link *slave; + + free(alt->current); + alt->current = NULL; + free(alt->master_link); + alt->master_link = NULL; + while (alt->slaves) { + slave = alt->slaves; + alt->slaves = slave->next; + slave_link_free(slave); + } + alternative_choices_free(alt); + alternative_commit_operations_free(alt); + alt->modified = false; + alt->known_current = false; +} + +static void +alternative_free(struct alternative *alt) +{ + if (!alternative_unref(alt)) + return; + + alternative_reset(alt); + free(alt->master_name); + free(alt); +} + +static int +alternative_choices_count(struct alternative *alt) +{ + struct fileset *fs; + int count = 0; + + for (fs = alt->choices; fs; fs = fs->next) + count++; + + return count; +} + +static int +alternative_slaves_count(struct alternative *alt) +{ + struct slave_link *sl; + int count = 0; + + for (sl = alt->slaves; sl; sl = sl->next) + count++; + + return count; +} + +static int +compare_fileset(const void *va, const void *vb) +{ + const struct fileset *a = *(const struct fileset **)va; + const struct fileset *b = *(const struct fileset **)vb; + + assert(a && a->master_file); + assert(b && b->master_file); + + return strcmp(a->master_file, b->master_file); +} + +static int +compare_slave_link(const void *va, const void *vb) +{ + const struct slave_link *a = *(const struct slave_link **)va; + const struct slave_link *b = *(const struct slave_link **)vb; + + assert(a && a->name); + assert(b && b->name); + + return strcmp(a->name, b->name); +} + +static void +alternative_sort_choices(struct alternative *a) +{ + int count, i; + struct fileset **table, *fs; + + count = alternative_choices_count(a); + if (count < 2) /* Nothing to sort */ + return; + + /* Store objects in a table instead of a linked list */ + table = xmalloc(sizeof(fs) * count); + for (fs = a->choices, i = 0; fs; fs = fs->next) { + assert(fs->master_file); + table[i++] = fs; + } + + qsort(table, count, sizeof(fs), compare_fileset); + + /* Rewrite the linked list from the sorted table */ + a->choices = fs = table[0]; + table[count - 1]->next = NULL; + for (i = 1; i < count; fs = fs->next, i++) + fs->next = table[i]; + free(table); +} + +static void +alternative_sort_slaves(struct alternative *a) +{ + int count, i; + struct slave_link **table, *sl; + + count = alternative_slaves_count(a); + if (count < 2) /* Nothing to sort */ + return; + + /* Store objects in a table instead of a linked list */ + table = xmalloc(sizeof(sl) * count); + for (sl = a->slaves, i = 0; sl; sl = sl->next, i++) { + table[i] = sl; + } + + qsort(table, count, sizeof(sl), compare_slave_link); + + /* Rewrite the linked list from the sorted table */ + a->slaves = sl = table[0]; + table[count - 1]->next = NULL; + for (i = 1; i < count; sl = sl->next, i++) + sl->next = table[i]; + free(table); +} + +static struct fileset * +alternative_get_fileset(struct alternative *a, const char *file) +{ + struct fileset *fs; + + for (fs = a->choices; fs; fs = fs->next) + if (strcmp(fs->master_file, file) == 0) + return fs; + + return NULL; +} + +static struct slave_link * +alternative_get_slave(struct alternative *a, const char *name) +{ + struct slave_link *sl; + + for (sl = a->slaves; sl; sl = sl->next) + if (strcmp(sl->name, name) == 0) + return sl; + + return NULL; +} + +static bool +alternative_has_slave(struct alternative *a, const char *name) +{ + return alternative_get_slave(a, name) != NULL; +} + +static bool +alternative_has_choice(struct alternative *a, const char *file) +{ + return alternative_get_fileset(a, file) != NULL; +} + +static void +alternative_add_choice(struct alternative *a, struct fileset *fs) +{ + struct fileset *cur, *prev = NULL; + + /* Replace if already existing */ + for (cur = a->choices; cur; cur = cur->next) { + if (strcmp(cur->master_file, fs->master_file) == 0) { + fs->next = cur->next; + fileset_free(cur); + if (prev) + prev->next = fs; + else + a->choices = fs; + + /* XXX: Be smarter in detecting change? */ + a->modified = true; + return; + } + prev = cur; + } + + /* Otherwise add at the end */ + if (prev == NULL) + a->choices = fs; + else + prev->next = fs; + fs->next = NULL; + a->modified = true; +} + +static struct slave_link * +alternative_add_slave(struct alternative *a, + const char *slave_name, const char *slave_link) +{ + struct slave_link *sl, *new; + + /* Replace if already existing */ + for (sl = a->slaves; sl; sl = sl->next) { + if (strcmp(sl->name, slave_name) == 0) { + free(sl->link); + sl->link = xstrdup(slave_link); + return sl; + } + if (sl->next == NULL) + break; + } + + /* Otherwise create new and add at the end */ + new = xmalloc(sizeof(*new)); + new->name = xstrdup(slave_name); + new->link = xstrdup(slave_link); + new->updated = false; + new->next = NULL; + if (sl) + sl->next = new; + else + a->slaves = new; + + return new; +} + +static void +alternative_copy_slave(struct alternative *a, struct slave_link *sl) +{ + struct slave_link *sl_new; + + sl_new = alternative_add_slave(a, sl->name, sl->link); + sl_new->updated = sl->updated; +} + +static const char * +alternative_status_string(enum alternative_status status) +{ + return (status == ALT_ST_AUTO) ? "auto" : "manual"; +} + +static const char * +alternative_status_describe(enum alternative_status status) +{ + return (status == ALT_ST_AUTO) ? _("auto mode") : _("manual mode"); +} + +static void +alternative_set_status(struct alternative *a, enum alternative_status status) +{ + if (a->status == ALT_ST_UNKNOWN || status != a->status) + a->modified = true; + + if (a->status != ALT_ST_UNKNOWN && status != a->status) + log_msg("status of link group %s set to %s", a->master_link, + alternative_status_string(status)); + + a->status = status; +} + +static void +alternative_set_link(struct alternative *a, const char *linkname) +{ + if (a->master_link == NULL || strcmp(linkname, a->master_link) != 0) + a->modified = true; + + free(a->master_link); + a->master_link = xstrdup(linkname); +} + +static bool +alternative_remove_choice(struct alternative *a, const char *file) +{ + struct fileset *fs, *fs_prev; + + fs_prev = NULL; + for (fs = a->choices; fs; fs = fs->next) { + if (strcmp(fs->master_file, file) != 0) { + fs_prev = fs; + continue; + } + if (fs_prev) + fs_prev->next = fs->next; + else + a->choices = fs->next; + fileset_free(fs); + a->modified = true; + return true; + } + + return false; +} + +/* + * Alternatives Database Load/Store functions. + */ + +enum altdb_flags { + ALTDB_LAX_PARSER = 1 << 0, + ALTDB_WARN_PARSER = 1 << 1, +}; + +struct altdb_context { + FILE *fh; + char *filename; + enum altdb_flags flags; + bool modified; + void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(2) + (*bad_format)(struct altdb_context *, const char *format, ...); + jmp_buf on_error; +}; + +static int +altdb_filter_namelist(const struct dirent *entry) +{ + if (strcmp(entry->d_name, ".") == 0 || + strcmp(entry->d_name, "..") == 0 || + (strlen(entry->d_name) > strlen(ALT_TMP_EXT) && + strcmp(entry->d_name + strlen(entry->d_name) - + strlen(ALT_TMP_EXT), ALT_TMP_EXT) == 0)) + return 0; + return 1; +} + +static int +altdb_get_namelist(struct dirent ***table) +{ + int count; + + count = scandir(admdir, table, altdb_filter_namelist, alphasort); + if (count < 0) + syserr(_("cannot scan directory '%.255s'"), admdir); + + return count; +} + +static void +altdb_free_namelist(struct dirent **table, int n) +{ + while (n--) + free(table[n]); + free(table); +} + +static char * +altdb_get_line(struct altdb_context *ctx, const char *name) +{ + char *buf, *line; + size_t len, bufsz, i; + + bufsz = 1024; + buf = xmalloc(bufsz); + + for (i = 0; true; i += strlen(line)) { + errno = 0; + line = fgets(buf + i, bufsz - i, ctx->fh); + if (line) { + if (strlen(buf) < bufsz - 1 || buf[bufsz - 2] == '\n') + break; + /* Need more space */ + bufsz *= 2; + buf = realloc(buf, bufsz); + if (!buf) + error(_("failed to allocate memory")); + continue; + } + if (feof(ctx->fh)) + ctx->bad_format(ctx, _("unexpected end of file while trying " + "to read %s"), name); + ctx->bad_format(ctx, _("while reading %s: %s"), + name, strerror(errno)); + } + + len = strlen(buf); + if (len == 0 || buf[len - 1] != '\n') { + ctx->bad_format(ctx, _("line not terminated while trying " + "to read %s"), name); + } + line[len - 1] = '\0'; + + return buf; +} + +static void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(2) +altdb_parse_error(struct altdb_context *ctx, const char *format, ...) +{ + char *msg; + va_list args; + + va_start(args, format); + msg = xvasprintf(format, args); + va_end(args); + + error(_("%s corrupt: %s"), ctx->filename, msg); +} + +static void DPKG_ATTR_NORET DPKG_ATTR_PRINTF(2) +altdb_parse_stop(struct altdb_context *ctx, const char *format, ...) +{ + longjmp(ctx->on_error, 1); +} + +static void +altdb_print_line(struct altdb_context *ctx, const char *line) +{ + if (strchr(line, '\n') != NULL) + error(_("newlines prohibited in update-alternatives files (%s)"), + line); + + if (fprintf(ctx->fh, "%s\n", line) < (int) strlen(line) + 1) + syserr(_("unable to write file '%s'"), ctx->filename); +} + +static bool +alternative_parse_slave(struct alternative *a, struct altdb_context *ctx) +{ + char *name, *linkname; + struct slave_link *sl; + + name = altdb_get_line(ctx, _("slave name")); + if (!strlen(name)) { /* End of list */ + free(name); + return false; + } + sl = alternative_get_slave(a, name); + if (sl) { + free(name); + ctx->bad_format(ctx, _("duplicate slave name %s"), sl->name); + } + + linkname = altdb_get_line(ctx, _("slave link")); + if (strcmp(linkname, a->master_link) == 0) { + free(linkname); + free(name); + ctx->bad_format(ctx, _("slave link same as main link %s"), + a->master_link); + } + for (sl = a->slaves; sl; sl = sl->next) { + if (strcmp(linkname, sl->link) == 0) { + free(linkname); + free(name); + ctx->bad_format(ctx, _("duplicate slave link %s"), + sl->link); + } + } + + alternative_add_slave(a, name, linkname); + free(linkname); + free(name); + + return true; +} + +static bool +alternative_parse_fileset(struct alternative *a, struct altdb_context *ctx) +{ + struct fileset *fs; + struct slave_link *sl; + char *master_file; + + master_file = altdb_get_line(ctx, _("master file")); + if (!strlen(master_file)) { /* End of list */ + free(master_file); + return false; + } + + fs = alternative_get_fileset(a, master_file); + if (fs) + ctx->bad_format(ctx, _("duplicate path %s"), master_file); + + if (pathname_is_missing(master_file)) { + char *junk; + + /* File not found - remove. */ + if (ctx->flags & ALTDB_WARN_PARSER) + warning(_("alternative %s (part of link group %s) " + "doesn't exist; removing from list of " + "alternatives"), master_file, a->master_name); + junk = altdb_get_line(ctx, _("priority")); + free(junk); + for (sl = a->slaves; sl; sl = sl->next) { + junk = altdb_get_line(ctx, _("slave file")); + free(junk); + } + ctx->modified = true; + } else { + char *prio_str, *prio_end; + long prio; + + prio_str = altdb_get_line(ctx, _("priority")); + errno = 0; + prio = strtol(prio_str, &prio_end, 10); + /* XXX: Leak master_file/prio_str on non-fatal error */ + if (prio_str == prio_end || *prio_end != '\0') + ctx->bad_format(ctx, _("priority of %s: %s"), + master_file, prio_str); + if (prio < INT_MIN || prio > INT_MAX || errno == ERANGE) + ctx->bad_format(ctx, + _("priority of %s is out of range: %s"), + master_file, prio_str); + free(prio_str); + + fs = fileset_new(master_file, prio); + for (sl = a->slaves; sl; sl = sl->next) { + char *slave_file = altdb_get_line(ctx, _("slave file")); + fileset_add_slave(fs, sl->name, slave_file); + free(slave_file); + } + alternative_add_choice(a, fs); + } + free(master_file); + + return true; +} + +static bool +alternative_load(struct alternative *a, enum altdb_flags flags) +{ + struct altdb_context ctx; + struct stat st; + char *status; + char *master_link; + + /* Initialize parse context */ + if (setjmp(ctx.on_error)) { + if (ctx.fh) + fclose(ctx.fh); + free(ctx.filename); + alternative_reset(a); + return false; + } + ctx.modified = false; + ctx.flags = flags; + if (flags & ALTDB_LAX_PARSER) + ctx.bad_format = altdb_parse_stop; + else + ctx.bad_format = altdb_parse_error; + ctx.filename = xasprintf("%s/%s", admdir, a->master_name); + + /* Open the alternative file. */ + ctx.fh = fopen(ctx.filename, "r"); + if (ctx.fh == NULL) { + if (errno == ENOENT) + return false; + + syserr(_("unable to open file '%s'"), ctx.filename); + } + + /* Verify the alternative is not empty. */ + if (fstat(fileno(ctx.fh), &st) == -1) + syserr(_("cannot stat file '%s'"), ctx.filename); + if (st.st_size == 0) + return false; + + /* Start parsing mandatory attributes (link+status) of the alternative */ + alternative_reset(a); + status = altdb_get_line(&ctx, _("status")); + if (strcmp(status, "auto") != 0 && strcmp(status, "manual") != 0) + ctx.bad_format(&ctx, _("invalid status")); + alternative_set_status(a, (strcmp(status, "auto") == 0) ? + ALT_ST_AUTO : ALT_ST_MANUAL); + free(status); + + master_link = altdb_get_line(&ctx, _("master link")); + alternative_set_link(a, master_link); + free(master_link); + + /* Parse the description of the slaves links of the alternative */ + while (alternative_parse_slave(a, &ctx)); + + /* Parse the available choices in the alternative */ + while (alternative_parse_fileset(a, &ctx)) ; + + /* Close database file */ + if (fclose(ctx.fh)) + syserr(_("unable to close file '%s'"), ctx.filename); + free(ctx.filename); + + /* Initialize the modified field which has been erroneously changed + * by the various alternative_(add|set)_* calls: + * false unless a choice has been auto-cleaned */ + a->modified = ctx.modified; + + return true; +} + +static void +alternative_save(struct alternative *a) +{ + struct altdb_context ctx; + struct slave_link *sl, *sl_prev; + struct fileset *fs; + char *filenew, *file; + + /* Cleanup unused slaves before writing admin file. */ + sl_prev = NULL; + sl = a->slaves; + while (sl) { + bool has_slave = false; + + for (fs = a->choices; fs; fs = fs->next) { + if (fileset_has_slave(fs, sl->name)) { + has_slave = true; + break; + } + } + + if (!has_slave) { + struct slave_link *sl_rm; + + verbose(_("discarding obsolete slave link %s (%s)"), + sl->name, sl->link); + if (sl_prev) + sl_prev->next = sl->next; + else + a->slaves = sl->next; + sl_rm = sl; + sl = sl->next; + slave_link_free(sl_rm); + } else { + sl_prev = sl; + sl = sl->next; + } + } + + /* Sort entries */ + alternative_sort_slaves(a); + alternative_sort_choices(a); + + /* Write admin file. */ + file = xasprintf("%s/%s", admdir, a->master_name); + filenew = xasprintf("%s" ALT_TMP_EXT, file); + + ctx.filename = filenew; + ctx.fh = fopen(ctx.filename, "w"); + if (ctx.fh == NULL) + syserr(_("unable to create file '%s'"), ctx.filename); + + altdb_print_line(&ctx, alternative_status_string(a->status)); + altdb_print_line(&ctx, a->master_link); + for (sl = a->slaves; sl; sl = sl->next) { + altdb_print_line(&ctx, sl->name); + altdb_print_line(&ctx, sl->link); + } + altdb_print_line(&ctx, ""); + + for (fs = a->choices; fs; fs = fs->next) { + char *prio; + + altdb_print_line(&ctx, fs->master_file); + + prio = xasprintf("%d", fs->priority); + altdb_print_line(&ctx, prio); + free(prio); + + for (sl = a->slaves; sl; sl = sl->next) { + if (fileset_has_slave(fs, sl->name)) + altdb_print_line(&ctx, + fileset_get_slave(fs, sl->name)); + else + altdb_print_line(&ctx, ""); + } + } + altdb_print_line(&ctx, ""); + + /* Close database file */ + if (fflush(ctx.fh)) + syserr(_("unable to flush file '%s'"), ctx.filename); + if (fsync(fileno(ctx.fh))) + syserr(_("unable to sync file '%s'"), ctx.filename); + if (fclose(ctx.fh)) + syserr(_("unable to close file '%s'"), ctx.filename); + + /* Put in place atomically. */ + checked_mv(filenew, file); + + free(filenew); + free(file); +} + +static const char * +alternative_set_current(struct alternative *a, char *new_choice) +{ + a->known_current = true; + a->current = new_choice; + + return new_choice; +} + +static const char * +alternative_get_current(struct alternative *a) +{ + char *curlink; + char *file; + + if (a->known_current) + return a->current; + + curlink = xasprintf("%s/%s", altdir, a->master_name); + file = areadlink(curlink); + if (file == NULL && errno != ENOENT) + syserr(_("cannot stat file '%s'"), curlink); + free(curlink); + + return alternative_set_current(a, file); +} + +static struct fileset * +alternative_get_best(struct alternative *a) +{ + struct fileset *fs, *best; + const char *current; + + current = alternative_get_current(a); + if (current) + best = alternative_get_fileset(a, current); + else + best = NULL; + + if (best == NULL) + best = a->choices; + + for (fs = a->choices; fs; fs = fs->next) + if (fs->priority > best->priority) + best = fs; + + return best; +} + +static void +alternative_display_query(struct alternative *a) +{ + struct fileset *best, *fs; + struct slave_link *sl; + const char *current; + + pr("Name: %s", a->master_name); + pr("Link: %s", a->master_link); + if (alternative_slaves_count(a) > 0) { + pr("Slaves:"); + for (sl = a->slaves; sl; sl = sl->next) + pr(" %s %s", sl->name, sl->link); + } + pr("Status: %s", alternative_status_string(a->status)); + best = alternative_get_best(a); + if (best) + pr("Best: %s", best->master_file); + current = alternative_get_current(a); + pr("Value: %s", current ? current : "none"); + + for (fs = a->choices; fs; fs = fs->next) { + printf("\n"); + pr("Alternative: %s", fs->master_file); + pr("Priority: %d", fs->priority); + if (alternative_slaves_count(a) == 0) + continue; + pr("Slaves:"); + for (sl = a->slaves; sl; sl = sl->next) { + if (fileset_has_slave(fs, sl->name)) + pr(" %s %s", sl->name, + fileset_get_slave(fs, sl->name)); + } + } +} + +static void +alternative_display_user(struct alternative *a) +{ + const char *current; + struct fileset *fs; + struct slave_link *sl; + + pr("%s - %s", a->master_name, alternative_status_describe(a->status)); + fs = alternative_get_best(a); + if (fs) + pr(_(" link best version is %s"), fs->master_file); + else + pr(_(" link best version not available")); + current = alternative_get_current(a); + if (current) { + pr(_(" link currently points to %s"), current); + } else { + pr(_(" link currently absent")); + } + pr(_(" link %s is %s"), a->master_name, a->master_link); + for (sl = a->slaves; sl; sl = sl->next) + pr(_(" slave %s is %s"), sl->name, sl->link); + + for (fs = a->choices; fs; fs = fs->next) { + pr(_("%s - priority %d"), fs->master_file, fs->priority); + for (sl = a->slaves; sl; sl = sl->next) { + if (fileset_has_slave(fs, sl->name)) + pr(_(" slave %s: %s"), sl->name, + fileset_get_slave(fs, sl->name)); + } + } +} + +static void +alternative_display_list(struct alternative *a) +{ + struct fileset *fs; + + for (fs = a->choices; fs; fs = fs->next) + pr("%s", fs->master_file); +} + +static void +alternative_print_choice(struct alternative *a, enum alternative_status status, + struct fileset *fs, int idx, int len) +{ + const char *current = alternative_get_current(a); + int mark; + + if (a->status == status && + current && strcmp(current, fs->master_file) == 0) + mark = '*'; + else + mark = ' '; + + pr("%c %-12d %-*s % -10d %s", mark, idx, len, + fs->master_file, fs->priority, alternative_status_describe(status)); +} + +static char * +alternative_select_choice(struct alternative *a) +{ + const char *current; + char *ret, selection[_POSIX_PATH_MAX]; + struct fileset *best, *fs; + int n_choices; + int len, idx; + + n_choices = alternative_choices_count(a); + current = alternative_get_current(a); + best = alternative_get_best(a); + assert(best); + + len = 15; + for (fs = a->choices; fs; fs = fs->next) + len = max(len, (int)strlen(fs->master_file) + 1); + + for (;;) { + pr(P_("There is %d choice for the alternative %s (providing %s).", + "There are %d choices for the alternative %s (providing %s).", + n_choices), n_choices, a->master_name, a->master_link); + printf("\n"); + + pr(" %-12.12s %-*.*s %-10.10s %s", _("Selection"), len, len, + _("Path"), _("Priority"), _("Status")); + pr("------------------------------------------------------------"); + idx = 0; + alternative_print_choice(a, ALT_ST_AUTO, best, idx++, len); + for (fs = a->choices; fs; fs = fs->next, idx++) + alternative_print_choice(a, ALT_ST_MANUAL, fs, idx, len); + printf("\n"); + printf(_("Press <enter> to keep the current choice[*], " + "or type selection number: ")); + ret = fgets(selection, sizeof(selection), stdin); + if (ret == NULL || strlen(selection) == 0) { + return NULL; + } + selection[strlen(selection) - 1] = '\0'; + if (strlen(selection) == 0) + return xstrdup(current); + errno = 0; + idx = strtol(selection, &ret, 10); + if (idx >= 0 && errno == 0 && *ret == '\0') { + /* Look up by index */ + if (idx == 0) { + alternative_set_status(a, ALT_ST_AUTO); + return xstrdup(best->master_file); + } + idx--; + for (fs = a->choices; idx && fs; idx--) + fs = fs->next; + if (fs) { + alternative_set_status(a, ALT_ST_MANUAL); + return xstrdup(fs->master_file); + } + } else { + /* Look up by name */ + fs = alternative_get_fileset(a, selection); + if (fs) { + alternative_set_status(a, ALT_ST_MANUAL); + return xstrdup(selection); + } + } + } +} + +static char * +alternative_config(struct alternative *a, const char *current_choice) +{ + char *new_choice = NULL; + + if (alternative_choices_count(a) == 0) { + pr(_("There is no program which provides %s."), + a->master_name); + pr(_("Nothing to configure.")); + } else if (opt_skip_auto && a->status == ALT_ST_AUTO) { + alternative_display_user(a); + } else if (alternative_choices_count(a) == 1 && + a->status == ALT_ST_AUTO && + current_choice != NULL) { + pr(_("There is only one alternative in link group %s (providing %s): %s"), + a->master_name, a->master_link, current_choice); + pr(_("Nothing to configure.")); + } else { + new_choice = alternative_select_choice(a); + } + + return new_choice; +} + +static void +alternative_add_commit_op(struct alternative *a, enum opcode opcode, + const char *arg_a, const char *arg_b) +{ + struct commit_operation *op, *cur; + + op = xmalloc(sizeof(*op)); + op->opcode = opcode; + op->arg_a = xstrdup(arg_a); + op->arg_b = xstrdup(arg_b); + op->next = NULL; + + /* Add at the end */ + cur = a->commit_ops; + while (cur && cur->next) + cur = cur->next; + if (cur) + cur->next = op; + else + a->commit_ops = op; +} + +static void +alternative_commit(struct alternative *a) +{ + struct commit_operation *op; + + for (op = a->commit_ops; op; op = op->next) { + switch (op->opcode) { + case OPCODE_NOP: + break; + case OPCODE_RM: + checked_rm(op->arg_a); + break; + case OPCODE_MV: + checked_mv(op->arg_a, op->arg_b); + break; + } + } + + alternative_commit_operations_free(a); +} + +enum alternative_path_status { + ALT_PATH_SYMLINK, + ALT_PATH_MISSING, + ALT_PATH_OTHER, +}; + +static enum alternative_path_status +alternative_path_classify(const char *linkname) +{ + struct stat st; + + errno = 0; + if (lstat(linkname, &st) == -1) { + if (errno != ENOENT) + syserr(_("cannot stat file '%s'"), linkname); + return ALT_PATH_MISSING; + } else if (S_ISLNK(st.st_mode)) { + return ALT_PATH_SYMLINK; + } else { + return ALT_PATH_OTHER; + } +} + +static bool +alternative_path_can_remove(const char *linkname) +{ + if (opt_force) + return true; + + if (alternative_path_classify(linkname) == ALT_PATH_OTHER) + return false; + else + return true; +} + +static bool +alternative_path_needs_update(const char *linkname, const char *filename) +{ + char *linktarget; + bool update; + + if (opt_force) + return true; + + switch (alternative_path_classify(linkname)) { + case ALT_PATH_SYMLINK: + linktarget = xreadlink(linkname); + if (strcmp(linktarget, filename) == 0) + update = false; + else + update = true; + free(linktarget); + + return update; + case ALT_PATH_OTHER: + warning(_("not replacing %s with a link"), linkname); + return false; + case ALT_PATH_MISSING: + default: + return true; + } +} + +static void +alternative_prepare_install_single(struct alternative *a, const char *name, + const char *linkname, const char *file) +{ + char *fntmp, *fn; + + /* Create link in /etc/alternatives. */ + fntmp = xasprintf("%s/%s" ALT_TMP_EXT, altdir, name); + fn = xasprintf("%s/%s", altdir, name); + checked_rm(fntmp); + checked_symlink(file, fntmp); + alternative_add_commit_op(a, OPCODE_MV, fntmp, fn); + free(fntmp); + + if (alternative_path_needs_update(linkname, fn)) { + /* Create alternative link. */ + fntmp = xasprintf("%s" ALT_TMP_EXT, linkname); + checked_rm(fntmp); + checked_symlink(fn, fntmp); + alternative_add_commit_op(a, OPCODE_MV, fntmp, linkname); + free(fntmp); + } + free(fn); +} + +static void +alternative_prepare_install(struct alternative *a, const char *choice) +{ + struct slave_link *sl; + struct fileset *fs; + + fs = alternative_get_fileset(a, choice); + if (fs == NULL) + error(_("can't install unknown choice %s"), choice); + + /* Take care of master alternative */ + alternative_prepare_install_single(a, a->master_name, a->master_link, + choice); + + /* Take care of slaves alternatives */ + for (sl = a->slaves; sl; sl = sl->next) { + char *fn; + + if (fileset_can_install_slave(fs, sl->name)) { + alternative_prepare_install_single(a, sl->name, + sl->link, fileset_get_slave(fs, sl->name)); + continue; + } + + /* Slave can't be installed */ + if (fileset_has_slave(fs, sl->name)) + warning(_("skip creation of %s because associated " + "file %s (of link group %s) doesn't exist"), + sl->link, fileset_get_slave(fs, sl->name), + a->master_name); + + /* Drop unused slave. */ + fn = xasprintf("%s/%s", altdir, sl->name); + if (alternative_path_can_remove(sl->link)) + alternative_add_commit_op(a, OPCODE_RM, sl->link, NULL); + else + warning(_("not removing %s since it's not a symlink"), + sl->link); + alternative_add_commit_op(a, OPCODE_RM, fn, NULL); + free(fn); + } +} + +static void +alternative_remove_files(struct alternative *a) +{ + struct slave_link *sl; + + checked_rm_args("%s" ALT_TMP_EXT, a->master_link); + if (alternative_path_can_remove(a->master_link)) + checked_rm(a->master_link); + + checked_rm_args("%s/%s" ALT_TMP_EXT, altdir, a->master_name); + checked_rm_args("%s/%s", altdir, a->master_name); + + for (sl = a->slaves; sl; sl = sl->next) { + checked_rm_args("%s" ALT_TMP_EXT, sl->link); + if (alternative_path_can_remove(sl->link)) + checked_rm(sl->link); + + checked_rm_args("%s/%s" ALT_TMP_EXT, altdir, sl->name); + checked_rm_args("%s/%s", altdir, sl->name); + } + /* Drop admin file */ + checked_rm_args("%s/%s", admdir, a->master_name); +} + +static const char * +alternative_remove(struct alternative *a, const char *current_choice, + const char *path) +{ + const char *new_choice = NULL; + + if (alternative_has_choice(a, path)) + alternative_remove_choice(a, path); + else + verbose(_("alternative %s for %s not registered; not removing"), + path, a->master_name); + + if (current_choice && strcmp(current_choice, path) == 0) { + struct fileset *best; + + /* Current choice is removed. */ + if (a->status == ALT_ST_MANUAL) { + /* And it was manual, switch to auto. */ + info(_("removing manually selected alternative " + "- switching %s to auto mode"), + a->master_name); + alternative_set_status(a, ALT_ST_AUTO); + } + best = alternative_get_best(a); + if (best) + new_choice = best->master_file; + } + + return new_choice; +} + +static bool +alternative_has_broken_slave(struct slave_link *sl, struct fileset *fs) +{ + if (fileset_can_install_slave(fs, sl->name)) { + char *wanted; + char *sl_altlnk, *sl_current; + + /* Verify link -> /etc/alternatives/foo */ + sl_altlnk = areadlink(sl->link); + if (!sl_altlnk) + return true; + wanted = xasprintf("%s/%s", altdir, sl->name); + if (strcmp(sl_altlnk, wanted) != 0) { + free(wanted); + free(sl_altlnk); + return true; + } + free(sl_altlnk); + /* Verify /etc/alternatives/foo -> file */ + sl_current = areadlink(wanted); + free(wanted); + if (!sl_current) + return true; + if (strcmp(sl_current, fileset_get_slave(fs, sl->name)) != 0) { + free(sl_current); + return true; + } + free(sl_current); + } else { + char *sl_altlnk; + + /* Slave link must not exist. */ + if (alternative_path_classify(sl->link) != ALT_PATH_MISSING) + return true; + sl_altlnk = xasprintf("%s/%s", altdir, sl->name); + if (alternative_path_classify(sl_altlnk) != ALT_PATH_MISSING) { + free(sl_altlnk); + return true; + } + free(sl_altlnk); + } + + return false; +} + +static enum alternative_update_reason +alternative_needs_update(struct alternative *a) +{ + enum alternative_update_reason reason = ALT_UPDATE_NO; + const char *current; + char *altlnk, *wanted; + struct fileset *fs; + struct slave_link *sl; + + /* Check master link */ + altlnk = areadlink(a->master_link); + if (!altlnk) + return ALT_UPDATE_LINK_BROKEN; + wanted = xasprintf("%s/%s", altdir, a->master_name); + if (strcmp(altlnk, wanted) != 0) { + free(wanted); + free(altlnk); + return ALT_UPDATE_LINK_BROKEN; + } + free(wanted); + free(altlnk); + + /* Stop if we have an unmanaged alternative */ + current = alternative_get_current(a); + if (current == NULL) + return ALT_UPDATE_LINK_BROKEN; + + fs = alternative_get_fileset(a, current); + + /* Stop if we do not have the choice. */ + if (fs == NULL) + return ALT_UPDATE_NO; + + /* Check slaves */ + for (sl = a->slaves; sl; sl = sl->next) { + if (alternative_has_broken_slave(sl, fs)) { + if (sl->updated) + reason = ALT_UPDATE_SLAVE_CHANGED; + else + return ALT_UPDATE_LINK_BROKEN; + } + } + + return reason; +} + +struct alternative_map { + struct alternative_map *next; + + const char *key; + struct alternative *item; +}; + +static struct alternative_map * +alternative_map_new(const char *key, struct alternative *a) +{ + struct alternative_map *am; + + am = xmalloc(sizeof(*am)); + am->next = NULL; + am->key = key; + am->item = a; + + return am; +} + +static struct alternative * +alternative_map_find(struct alternative_map *am, const char *key) +{ + for (; am; am = am->next) + if (am->key && strcmp(am->key, key) == 0) + return am->item; + + return NULL; +} + +static void +alternative_map_add(struct alternative_map *am, const char *key, + struct alternative *a) +{ + if (am->key == NULL) { + am->key = key; + am->item = a; + } else { + struct alternative_map *new = alternative_map_new(key, a); + + while (am->next) + am = am->next; + am->next = new; + } +} + +static void +alternative_map_load_names(struct alternative_map *alt_map_obj) +{ + struct dirent **table; + int i, count; + + count = altdb_get_namelist(&table); + for (i = 0; i < count; i++) { + struct alternative *a_new = alternative_new(table[i]->d_name); + + if (!alternative_load(a_new, ALTDB_LAX_PARSER)) { + alternative_free(a_new); + continue; + } + alternative_map_add(alt_map_obj, a_new->master_name, a_new); + } + altdb_free_namelist(table, count); +} + +static void +alternative_map_load_tree(struct alternative_map *alt_map_links, + struct alternative_map *alt_map_parent) +{ + struct dirent **table; + int i, count; + + count = altdb_get_namelist(&table); + for (i = 0; i < count; i++) { + struct slave_link *sl; + struct alternative *a_new = alternative_new(table[i]->d_name); + + if (!alternative_load(a_new, ALTDB_LAX_PARSER)) { + alternative_free(a_new); + continue; + } + alternative_map_add(alt_map_links, a_new->master_link, a_new); + alternative_ref(a_new); + alternative_map_add(alt_map_parent, a_new->master_name, a_new); + for (sl = a_new->slaves; sl; sl = sl->next) { + alternative_ref(a_new); + alternative_map_add(alt_map_links, sl->link, a_new); + alternative_ref(a_new); + alternative_map_add(alt_map_parent, sl->name, a_new); + } + } + altdb_free_namelist(table, count); +} + +static void +alternative_map_free(struct alternative_map *am) +{ + struct alternative_map *am_next; + + while (am) { + am_next = am->next; + if (am->item) + alternative_free(am->item); + free(am); + am = am_next; + } +} + +static const char * +alternative_set_manual(struct alternative *a, const char *path) +{ + const char *new_choice = NULL; + + if (alternative_has_choice(a, path)) + new_choice = path; + else + error(_("alternative %s for %s not registered; " + "not setting"), path, a->master_name); + alternative_set_status(a, ALT_ST_MANUAL); + + return new_choice; +} + +static const char * +alternative_set_auto(struct alternative *a) +{ + const char *new_choice = NULL; + + alternative_set_status(a, ALT_ST_AUTO); + if (alternative_choices_count(a) == 0) + pr(_("There is no program which provides %s."), + a->master_name); + else + new_choice = alternative_get_best(a)->master_file; + + return new_choice; +} + +static const char * +get_argv_string(int argc, char **argv) +{ + static char string[2048]; + size_t cur_len; + int i; + + string[0] = '\0'; + cur_len = 0; + for (i = 1; i < argc; i++) { + size_t arg_len = strlen(argv[i]); + + if (cur_len + arg_len + 2 > sizeof(string)) + break; + if (cur_len) { + strcpy(string + cur_len, " "); + cur_len++; + } + strcpy(string + cur_len, argv[i]); + cur_len += arg_len; + } + + return string; +} + +static void +alternative_select_mode(struct alternative *a, const char *current_choice) +{ + if (current_choice) { + /* Detect manually modified alternative, switch to manual. */ + if (!alternative_has_choice(a, current_choice)) { + if (pathname_is_missing(current_choice)) { + warning(_("%s/%s is dangling; it will be updated " + "with best choice"), altdir, a->master_name); + alternative_set_status(a, ALT_ST_AUTO); + } else if (a->status != ALT_ST_MANUAL) { + warning(_("%s/%s has been changed (manually or by " + "a script); switching to manual " + "updates only"), altdir, a->master_name); + alternative_set_status(a, ALT_ST_MANUAL); + } + } + } else { + /* Lack of alternative link => automatic mode. */ + verbose(_("setting up automatic selection of %s"), + a->master_name); + alternative_set_status(a, ALT_ST_AUTO); + } +} + +static void +alternative_evolve_slave(struct alternative *a, const char *cur_choice, + struct slave_link *sl, struct fileset *fs) +{ + struct slave_link *sl_old; + char *new_file = NULL; + const char *old, *new; + + sl_old = alternative_get_slave(a, sl->name); + if (sl_old == NULL) { + sl->updated = true; + return; + } + + old = sl_old->link; + new = sl->link; + + if (cur_choice && strcmp(cur_choice, fs->master_file) == 0) { + new_file = xstrdup(fileset_get_slave(fs, sl->name)); + } else { + char *lnk; + + lnk = xasprintf("%s/%s", altdir, sl->name); + new_file = areadlink(lnk); + free(lnk); + } + if (strcmp(old, new) != 0 && + alternative_path_classify(old) == ALT_PATH_SYMLINK) { + bool rename_link = false; + + if (new_file) + rename_link = !pathname_is_missing(new_file); + + if (rename_link) { + info(_("renaming %s slave link from %s to %s"), + sl->name, old, new); + checked_mv(old, new); + } else { + checked_rm(old); + } + + sl->updated = true; + } + free(new_file); +} + +static void +alternative_evolve(struct alternative *a, struct alternative *b, + const char *cur_choice, struct fileset *fs) +{ + struct slave_link *sl; + bool is_link; + + is_link = alternative_path_classify(a->master_link) == ALT_PATH_SYMLINK; + if (is_link && strcmp(a->master_link, b->master_link) != 0) { + info(_("renaming %s link from %s to %s"), b->master_name, + a->master_link, b->master_link); + checked_mv(a->master_link, b->master_link); + } + alternative_set_link(a, b->master_link); + + /* Check if new slaves have been added, or existing + * ones renamed. */ + for (sl = b->slaves; sl; sl = sl->next) { + alternative_evolve_slave(a, cur_choice, sl, fs); + alternative_copy_slave(a, sl); + } +} + +static void +alternative_update(struct alternative *a, + const char *current_choice, const char *new_choice) +{ + enum alternative_update_reason reason; + + /* No choice left, remove everything. */ + if (!alternative_choices_count(a)) { + log_msg("link group %s fully removed", a->master_name); + alternative_remove_files(a); + return; + } + + /* New choice wanted. */ + if (new_choice && + (!current_choice || strcmp(new_choice, current_choice) != 0)) { + log_msg("link group %s updated to point to %s", a->master_name, + new_choice); + if (a->status == ALT_ST_AUTO) + info(_("using %s to provide %s (%s) in auto mode"), + new_choice, a->master_link, a->master_name); + else + info(_("using %s to provide %s (%s) in manual mode"), + new_choice, a->master_link, a->master_name); + debug("prepare_install(%s)", new_choice); + alternative_prepare_install(a, new_choice); + } else if ((reason = alternative_needs_update(a))) { + if (reason == ALT_UPDATE_SLAVE_CHANGED) { + log_msg("link group %s updated with changed slaves", + a->master_name); + info(_("updating alternative %s " + "because link group %s has changed slave links"), + current_choice, a->master_name); + } else { + log_msg("auto-repair link group %s", a->master_name); + warning(_("forcing reinstallation of alternative %s " + "because link group %s is broken"), + current_choice, a->master_name); + } + + if (current_choice && !alternative_has_choice(a, current_choice)) { + struct fileset *best = alternative_get_best(a); + + warning(_("current alternative %s is unknown, " + "switching to %s for link group %s"), + current_choice, best->master_file, + a->master_name); + current_choice = best->master_file; + alternative_set_status(a, ALT_ST_AUTO); + } + + if (current_choice) + alternative_prepare_install(a, current_choice); + } + + /* Save administrative file if needed. */ + if (a->modified) { + debug("%s is modified and will be saved", a->master_name); + alternative_save(a); + } + + /* Replace all symlinks in one pass. */ + alternative_commit(a); +} + +static void +alternative_config_all(void) +{ + struct alternative_map *alt_map_obj; + struct alternative_map *am; + + alt_map_obj = alternative_map_new(NULL, NULL); + alternative_map_load_names(alt_map_obj); + + for (am = alt_map_obj; am && am->item; am = am->next) { + const char *current_choice; + char *new_choice; + + current_choice = alternative_get_current(am->item); + alternative_select_mode(am->item, current_choice); + + new_choice = alternative_config(am->item, current_choice); + + alternative_update(am->item, current_choice, new_choice); + + free(new_choice); + } + + alternative_map_free(alt_map_obj); +} + +static void +alternative_get_selections(void) +{ + struct alternative_map *alt_map_obj; + struct alternative_map *am; + + alt_map_obj = alternative_map_new(NULL, NULL); + alternative_map_load_names(alt_map_obj); + + for (am = alt_map_obj; am && am->item; am = am->next) { + const char *current; + + current = alternative_get_current(am->item); + printf("%-30s %-8s %s\n", am->key, + alternative_status_string(am->item->status), + current ? current : ""); + } + + alternative_map_free(alt_map_obj); +} + +static void +alternative_set_selection(struct alternative_map *all, const char *name, + const char *status, const char *choice) +{ + struct alternative *a; + + debug("set_selection(%s, %s, %s)", name, status, choice); + a = alternative_map_find(all, name); + if (a) { + const char *new_choice = NULL; + + if (strcmp(status, "auto") == 0) { + new_choice = alternative_set_auto(a); + } else if (alternative_has_choice(a, choice)) { + new_choice = alternative_set_manual(a, choice); + } else { + pr(_("Alternative %s unchanged because choice " + "%s is not available."), name, choice); + } + + if (new_choice) { + const char *current_choice; + + current_choice = alternative_get_current(a); + alternative_select_mode(a, current_choice); + + alternative_update(a, current_choice, new_choice); + } + } else { + pr(_("Skip unknown alternative %s."), name); + } +} + +static void +alternative_set_selections(FILE *input, const char *desc) +{ + struct alternative_map *alt_map_obj; + + alt_map_obj = alternative_map_new(NULL, NULL); + alternative_map_load_names(alt_map_obj); + + for (;;) { + char line[1024], *res, *name, *status, *choice; + size_t len, i; + + errno = 0; + /* Can't use scanf("%s %s %s") because choice can + * contain a space */ + res = fgets(line, sizeof(line), input); + if (res == NULL && errno) { + syserr(_("read error in %.250s"), desc); + } else if (res == NULL) { + break; + } + len = strlen(line); + if (len == 0 || line[len - 1] != '\n') { + error(_("line too long or not terminated while " + "trying to read %s"), desc); + } + line[len - 1] = '\0'; + len--; + + /* Delimit name string in line */ + i = 0; + name = line; + while (i < len && !isblank(line[i])) + i++; + if (i >= len) { + printf("[%s %s] ", PROGNAME, "--set-selections"); + pr(_("Skip invalid line: %s"), line); + continue; + } + line[i++] = '\0'; + while (i < len && isblank(line[i])) + i++; + + /* Delimit status string in line */ + status = line + i; + while (i < len && !isblank(line[i])) + i++; + if (i >= len) { + printf("[%s %s] ", PROGNAME, "--set-selections"); + pr(_("Skip invalid line: %s"), line); + continue; + } + line[i++] = '\0'; + while (i < len && isblank(line[i])) + i++; + + /* Delimit choice string in the line */ + if (i >= len) { + printf("[%s %s] ", PROGNAME, "--set-selections"); + pr(_("Skip invalid line: %s"), line); + continue; + } + choice = line + i; + + printf("[%s %s] ", PROGNAME, "--set-selections"); + alternative_set_selection(alt_map_obj, name, status, choice); + } + + alternative_map_free(alt_map_obj); +} + +static void +alternative_check_name(const char *name) +{ + if (strpbrk(name, "/ \t")) + error(_("alternative name (%s) must not contain '/' " + "and spaces"), name); +} + +static void +alternative_check_link(const char *linkname) +{ + if (linkname[0] != '/') + error(_("alternative link is not absolute as it should be: %s"), + linkname); +} + +static void +alternative_check_path(const char *file) +{ + if (!file || file[0] != '/') + error(_("alternative path is not absolute as it should be: %s"), + file); +} + +/** + * Check the alternative installation arguments. + * + * That the caller doesn't mix links between alternatives, doesn't mix + * alternatives between slave/master, and that the various parameters + * are fine. + */ +static void +alternative_check_install_args(struct alternative *inst_alt, + struct fileset *fileset) +{ + struct alternative_map *alt_map_links, *alt_map_parent; + struct alternative *found; + struct slave_link *sl; + + alternative_check_name(inst_alt->master_name); + alternative_check_link(inst_alt->master_link); + alternative_check_path(fileset->master_file); + + /* Load information about all alternatives to check for mistakes. */ + alt_map_links = alternative_map_new(NULL, NULL); + alt_map_parent = alternative_map_new(NULL, NULL); + alternative_map_load_tree(alt_map_links, alt_map_parent); + + found = alternative_map_find(alt_map_parent, inst_alt->master_name); + if (found && strcmp(found->master_name, inst_alt->master_name) != 0) { + error(_("alternative %s can't be master: it is a slave of %s"), + inst_alt->master_name, found->master_name); + } + + found = alternative_map_find(alt_map_links, inst_alt->master_link); + if (found && strcmp(found->master_name, inst_alt->master_name) != 0) { + found = alternative_map_find(alt_map_parent, + found->master_name); + error(_("alternative link %s is already managed by %s"), + inst_alt->master_link, found->master_name); + } + + if (pathname_is_missing(fileset->master_file)) + error(_("alternative path %s doesn't exist"), + fileset->master_file); + + for (sl = inst_alt->slaves; sl; sl = sl->next) { + const char *file = fileset_get_slave(fileset, sl->name); + + alternative_check_name(sl->name); + alternative_check_link(sl->link); + alternative_check_path(file); + + found = alternative_map_find(alt_map_parent, sl->name); + if (found && + strcmp(found->master_name, inst_alt->master_name) != 0) { + if (strcmp(found->master_name, sl->name) == 0) + error(_("alternative %s can't be slave of %s: " + "it is a master alternative"), + sl->name, inst_alt->master_name); + else + error(_("alternative %s can't be slave of %s: " + "it is a slave of %s"), + sl->name, inst_alt->master_name, + found->master_name); + } + + found = alternative_map_find(alt_map_links, sl->link); + if (found && + strcmp(found->master_name, inst_alt->master_name) != 0) { + error(_("alternative link %s is already " + "managed by %s"), sl->link, + found->master_name); + } + if (found) { + struct slave_link *sl2; + + for (sl2 = found->slaves; sl2; sl2 = sl2->next) + if (strcmp(sl2->link, sl->link) == 0) + break; + if (sl2 && strcmp(sl2->name, sl->name) != 0) + error(_("alternative link %s is already " + "managed by %s (slave of %s)"), + sl->link, sl2->name, + found->master_name); + } + } + + alternative_map_free(alt_map_links); + alternative_map_free(alt_map_parent); +} + +/* + * Main program + */ + +#define MISSING_ARGS(nb) (argc < i + nb + 1) + +int +main(int argc, char **argv) +{ + /* Alternative worked on. */ + struct alternative *a = NULL; + /* Alternative to install. */ + struct alternative *inst_alt = NULL; + /* Set of files to install in the alternative. */ + struct fileset *fileset = NULL; + /* Path of alternative we are offering. */ + char *path = NULL; + const char *current_choice = NULL; + const char *new_choice = NULL; + bool modifies_alt = false; + bool modifies_sys = false; + int i = 0; + + setlocale(LC_ALL, ""); + bindtextdomain(PACKAGE, LOCALEDIR); + textdomain(PACKAGE); + + admdir = admindir_init(); + + if (setvbuf(stdout, NULL, _IONBF, 0)) + syserr("setvbuf failed"); + + prog_path = argv[0]; + + for (i = 1; i < argc; i++) { + if (strstr(argv[i], "--") != argv[i]) { + error(_("unknown argument '%s'"), argv[i]); + } else if (strcmp("--help", argv[i]) == 0) { + usage(); + exit(0); + } else if (strcmp("--version", argv[i]) == 0) { + version(); + exit(0); + } else if (strcmp("--quiet", argv[i]) == 0) { + opt_verbose = OUTPUT_QUIET; + } else if (strcmp("--verbose", argv[i]) == 0) { + opt_verbose = OUTPUT_VERBOSE; + } else if (strcmp("--debug", argv[i]) == 0) { + opt_verbose = OUTPUT_DEBUG; + } else if (strcmp("--install", argv[i]) == 0) { + char *prio_str, *prio_end; + long prio; + + set_action(ACTION_INSTALL); + if (MISSING_ARGS(4)) + badusage(_("--install needs <link> <name> " + "<path> <priority>")); + + prio_str = argv[i + 4]; + + if (strcmp(argv[i+1], argv[i+3]) == 0) + badusage(_("<link> and <path> can't be the same")); + errno = 0; + prio = strtol(prio_str, &prio_end, 10); + if (prio_str == prio_end || *prio_end != '\0') + badusage(_("priority must be an integer")); + if (prio < INT_MIN || prio > INT_MAX || errno == ERANGE) + badusage(_("priority is out of range")); + + a = alternative_new(argv[i + 2]); + inst_alt = alternative_new(argv[i + 2]); + alternative_set_status(inst_alt, ALT_ST_AUTO); + alternative_set_link(inst_alt, argv[i + 1]); + fileset = fileset_new(argv[i + 3], prio); + + i += 4; + } else if (strcmp("--remove", argv[i]) == 0 || + strcmp("--set", argv[i]) == 0) { + set_action_from_name(argv[i] + 2); + if (MISSING_ARGS(2)) + badusage(_("--%s needs <name> <path>"), argv[i] + 2); + + a = alternative_new(argv[i + 1]); + path = xstrdup(argv[i + 2]); + + alternative_check_name(a->master_name); + alternative_check_path(path); + + i += 2; + } else if (strcmp("--display", argv[i]) == 0 || + strcmp("--query", argv[i]) == 0 || + strcmp("--auto", argv[i]) == 0 || + strcmp("--config", argv[i]) == 0 || + strcmp("--list", argv[i]) == 0 || + strcmp("--remove-all", argv[i]) == 0) { + set_action_from_name(argv[i] + 2); + if (MISSING_ARGS(1)) + badusage(_("--%s needs <name>"), argv[i] + 2); + a = alternative_new(argv[i + 1]); + + alternative_check_name(a->master_name); + + i++; + } else if (strcmp("--all", argv[i]) == 0 || + strcmp("--get-selections", argv[i]) == 0 || + strcmp("--set-selections", argv[i]) == 0) { + set_action_from_name(argv[i] + 2); + } else if (strcmp("--slave", argv[i]) == 0) { + const char *slink, *sname, *spath; + struct slave_link *sl; + + if (action == ACTION_NONE || action != ACTION_INSTALL) + badusage(_("--slave only allowed with --install")); + if (MISSING_ARGS(3)) + badusage(_("--slave needs <link> <name> <path>")); + + slink = argv[i + 1]; + sname = argv[i + 2]; + spath = argv[i + 3]; + + if (strcmp(slink, spath) == 0) + badusage(_("<link> and <path> can't be the same")); + if (strcmp(inst_alt->master_name, sname) == 0) + badusage(_("name %s is both primary and slave"), + sname); + if (strcmp(slink, inst_alt->master_link) == 0) + badusage(_("link %s is both primary and slave"), + slink); + if (alternative_has_slave(inst_alt, sname)) + badusage(_("duplicate slave name %s"), sname); + + for (sl = inst_alt->slaves; sl; sl = sl->next) { + const char *linkname = sl->link; + if (linkname == NULL) + linkname = ""; + if (strcmp(linkname, slink) == 0) + badusage(_("duplicate slave link %s"), + slink); + } + + alternative_add_slave(inst_alt, sname, slink); + fileset_add_slave(fileset, sname, spath); + + i+= 3; + } else if (strcmp("--log", argv[i]) == 0) { + if (MISSING_ARGS(1)) + badusage(_("--%s needs a <file> argument"), "log"); + log_file = argv[i + 1]; + i++; + } else if (strcmp("--altdir", argv[i]) == 0) { + if (MISSING_ARGS(1)) + badusage(_("--%s needs a <directory> argument"), "log"); + altdir = argv[i + 1]; + i++; + } else if (strcmp("--admindir", argv[i]) == 0) { + if (MISSING_ARGS(1)) + badusage(_("--%s needs a <directory> argument"), "log"); + admdir = argv[i + 1]; + i++; + } else if (strcmp("--skip-auto", argv[i]) == 0) { + opt_skip_auto = 1; + } else if (strcmp("--force", argv[i]) == 0) { + opt_force = 1; + } else { + badusage(_("unknown option '%s'"), argv[i]); + } + } + + if (action == ACTION_NONE) + badusage(_("need --display, --query, --list, --get-selections, " + "--config, --set, --set-selections, --install, " + "--remove, --all, --remove-all or --auto")); + + /* The following actions might modify the current alternative. */ + if (action == ACTION_SET || + action == ACTION_AUTO || + action == ACTION_CONFIG || + action == ACTION_REMOVE || + action == ACTION_REMOVE_ALL || + action == ACTION_INSTALL) + modifies_alt = true; + + /* The following actions might modify the system somehow. */ + if (modifies_alt || + action == ACTION_CONFIG_ALL || + action == ACTION_SET_SELECTIONS) + modifies_sys = true; + + if (action == ACTION_INSTALL) + alternative_check_install_args(inst_alt, fileset); + + if (action == ACTION_DISPLAY || + action == ACTION_QUERY || + action == ACTION_LIST || + action == ACTION_SET || + action == ACTION_AUTO || + action == ACTION_CONFIG || + action == ACTION_REMOVE_ALL) { + /* Load the alternative info, stop on failure. */ + if (!alternative_load(a, ALTDB_WARN_PARSER)) + error(_("no alternatives for %s"), a->master_name); + } else if (action == ACTION_REMOVE) { + /* FIXME: Be consistent for now with the case when we + * try to remove a non-existing path from an existing + * link group file. */ + if (!alternative_load(a, ALTDB_WARN_PARSER)) { + verbose(_("no alternatives for %s"), a->master_name); + exit(0); + } + } else if (action == ACTION_INSTALL) { + /* Load the alternative info, ignore failures. */ + alternative_load(a, ALTDB_WARN_PARSER); + } + + if (modifies_sys) + log_msg("run with %s", get_argv_string(argc, argv)); + + if (modifies_alt) { + current_choice = alternative_get_current(a); + alternative_select_mode(a, current_choice); + } + + /* Handle actions. */ + if (action == ACTION_CONFIG_ALL) { + alternative_config_all(); + } else if (action == ACTION_GET_SELECTIONS) { + alternative_get_selections(); + } else if (action == ACTION_SET_SELECTIONS) { + alternative_set_selections(stdin, _("<standard input>")); + } else if (action == ACTION_DISPLAY) { + alternative_display_user(a); + } else if (action == ACTION_QUERY) { + alternative_display_query(a); + } else if (action == ACTION_LIST) { + alternative_display_list(a); + } else if (action == ACTION_SET) { + new_choice = alternative_set_manual(a, path); + } else if (action == ACTION_AUTO) { + new_choice = alternative_set_auto(a); + } else if (action == ACTION_CONFIG) { + new_choice = alternative_config(a, current_choice); + } else if (action == ACTION_REMOVE) { + new_choice = alternative_remove(a, current_choice, path); + } else if (action == ACTION_REMOVE_ALL) { + alternative_choices_free(a); + } else if (action == ACTION_INSTALL) { + if (a->master_link) { + /* Alternative already exists, check if anything got + * updated. */ + alternative_evolve(a, inst_alt, current_choice, fileset); + } else { + /* Alternative doesn't exist, create from parameters. */ + alternative_free(a); + a = inst_alt; + } + alternative_add_choice(a, fileset); + if (a->status == ALT_ST_AUTO) { + new_choice = alternative_get_best(a)->master_file; + } else { + verbose(_("automatic updates of %s/%s are disabled; " + "leaving it alone"), altdir, a->master_name); + verbose(_("to return to automatic updates use " + "'%s --auto %s'"), PROGNAME, a->master_name); + } + } + + if (modifies_alt) + alternative_update(a, current_choice, new_choice); + + return 0; +} diff --git a/utils/update-alternatives.polkit.in b/utils/update-alternatives.polkit.in new file mode 100644 index 0000000..a712bc3 --- /dev/null +++ b/utils/update-alternatives.polkit.in @@ -0,0 +1,20 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE policyconfig PUBLIC + "-//freedesktop//DTD PolicyKit Policy Configuration 1.0//EN" + "http://www.freedesktop.org/standards/PolicyKit/1/policyconfig.dtd"> +<policyconfig> + <vendor>The Dpkg Project</vendor> + <vendor_url>https://wiki.debian.org/Teams/Dpkg</vendor_url> + <icon_name>update-alternatives</icon_name> + + <action id="org.dpkg.pkexec.update-alternatives"> + <description>Run update-alternatives to modify system alternative selections</description> + <message>Authentication is required to run update-alternatives</message> + <defaults> + <allow_any>auth_admin_keep</allow_any> + <allow_inactive>auth_admin_keep</allow_inactive> + <allow_active>auth_admin_keep</allow_active> + </defaults> + <annotate key="org.freedesktop.policykit.exec.path">@bindir@/update-alternatives</annotate> + </action> +</policyconfig> |