sync with rpm4 branch: added new files

README.ALT

@@ -0,0 +1,89 @@
+There are few noticeable for packager differences of this version
+of the RPM from ALT Linux Team from the version from MandrakeSoft on which
+this one is based upon:
+
+Features and incompatibilities:
+0. Many bug fixes still missing in public release of rpm-3.0.6.
+1. Advanced and enhanced macros designed to simplify work of packager, including 
+  + add_optflags, remove_optflags, and many others (for easy compilation
+    tuning);
+  + make_compile, make_install, make (aliases for make in %build and %install
+    sections);
+  + install_info, uninstall_info (advanced variants of _install_info and
+    _remove_install_info from MDK for work with info pages);
+  + various macros aliasing well-known directories;
+2. Automatic lookup for dependencies in shell scripts (use "Autoreq: no" to
+   disable).
+3. By default, info and man pages are compressed with either "gzip -9n" or
+   "bzip2 -9", depending on result size; it means that numerous ".bz2"s in
+   %files section should be replaced with "*"; same changes should be done in
+   other sections of spec file.
+   This behavior of rpm is handled by %_compress_method macro; currently defined
+   methods are:
+   + auto: compression as described above;
+   + bzip2: compression with "bzip2 -9" program;
+   + gzip: compression with "gzip -9n" program;
+   + none: all pages will be uncompressed;
+   + skip: just skip this phase, do not (un)compress at all, only check links.
+4. At the post-install stage, ELF binaries are stripped, depending on file type.
+   This behavior of rpm is handled by %_strip_method macro which is set of
+   recognizable ELF file types:
+   + executable (ELF executable);
+   + relocatable (ELF relocatable);
+   + shared (ELF shared object);
+   + static (current ar archive);
+   + no, none, off, false - designates no stripping at all.
+   Value of %_strip_method macro can be set by %set_strip_method macro or
+   defined directly.
+   By default, only ELF executables and ELF shared objects will be stripped.
+   Also, there are 4 macros designed for manual stripping from .spec file:
+   %strip_executable, %strip_relocatable, %strip_shared, %strip_static.
+   Syntax of these macros described in '/usr/lib/rpm/brp-strip --help'.
+5. At the post-install stage, RPM performs lookup for dependencies.
+   This behavior of rpm is handled by standard tags: AutoReq, AutoProv,
+   AutoReqProv. Unlike original yes/no rule, these tags now define set of
+   methods to be used for lookup. Currently, following methods are recognized:
+   + files - enable lookup for external files dependencies;
+   + nofiles - disable lookup for external files dependencies;
+   + lib - enable lookup for shared library dependencies;
+   + nolib - disable lookup for shared library dependencies;
+   + pam - enable lookup for pam dependencies;
+   + nopam - disable lookup for pam dependencies;
+   + perl - enable lookup for dependencies found in perl scripts;
+   + noperl - disable lookup for dependencies found in perl scripts;
+   + shell - enable lookup for dependencies found in Bourne shell scripts;
+   + noshell - disable lookup for dependencies found in Bourne shell scripts;
+   + default, yes, true - enable lookup using default methods (see rcfiles for details).
+   + all - enable lookup using all known methods (files, lib, pam, perl, shell).
+   + no, none, off, false - disable lookup;
+   By default, both AutoReq and AutoProv defined to "yes" - it means that
+   values of %_findreq_default_method and %_findprov_default_method macros will
+   be used to define lookup methods.
+   In addition, macro _perl_lib_path can be defined to customize
+   RPM_PERL_LIB_PATH variable used to find perl provides/requires.
+6. At the post-install stage, RPM performs recompilation of python modules
+   if found in BuildRoot, using value of __python macro as python compiler.
+   By default, it's equal to /usr/bin/python; to bypass the procedure, just
+   undefine this macro.
+   Rationale: if not compiled properly, compiled python modules will be useless
+   after package installation.
+7. BuildRoot now defined in /usr/lib/rpm/macros; that is, BuildRoot tag
+   defined in specfile will have no effect and may be omitted. More even,
+   building packages without proper defined BuildRoot is impossible.
+   %buildroot macro can be redefined in any rcfile.
+8. Before executing %install and after executing %clean sections, BuildRoot will
+   be automatically purged; that is, you don't need to specify this pesky
+   "rpm -rf" any more. Note, however, that any activity in BuildRoot before
+   %install section will be lost.
+   If you need to keep BuildRoot before %install section, you should use
+   %buildmulti macro instead of %build. In this case, BuildRoot will be purged
+   right before %build section.
+9. Default %defattr value in all %files sections is %{_defattr}.
+   This macro have been defined to %defattr(-,root,root,755) by default.
+   That is, most of %defattr entries in spec file may be omitted.
+10.POPT library now distributed in separate package; also, files required only
+   for packaging have been moved to rpm-build subpackage.
+11.By default, rpm now blocks if package database lock cannot be obtained.
+   This wait-for-lock behavior can be disabled with --nowait-lock option.
+12.By default, root no longer allowed to build packages. This behavior can be
+   changed by _allow_root_build macro.

autodeps/linux.prov.in

@@ -0,0 +1,174 @@
+#!/bin/sh -e
+#
+# find-provides - generate list of linux-specific package provides.
+# Inspired by tool with same name from RPM distribution.
+#
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+# If using normal root, avoid changing anything.
+if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
+	echo "$PROG: non-/ RPM_BUILD_ROOT expected" >&2
+	exit 1
+fi
+
+FIND_LIBS=
+FIND_PAM=
+FIND_PERL=
+
+ParseMethod()
+{
+	local t
+	for	t in "$@"; do
+		case "${t/%,}" in
+			no|none|off|false)
+				FIND_LIBS=
+				FIND_PAM=
+				FIND_PERL=
+				;;
+			lib)
+				FIND_LIBS=1
+				;;
+			nolib)
+				FIND_LIBS=
+				;;
+			pam)
+				FIND_PAM=1
+				;;
+			nopam)
+				FIND_PAM=
+				;;
+			perl)
+				FIND_PERL=1
+				;;
+			noperl)
+				FIND_PERL=
+				;;
+			all)
+				FIND_LIBS=1
+				FIND_PAM=1
+				FIND_PERL=1
+				;;
+			default|yes|true)
+				ParseMethod $RPM_FINDPROV_DEFAULT_METHOD
+				;;
+			*)
+				echo "Unrecognized find-provides method: $t" >&2
+				exit 1
+				;;
+		esac
+	done
+}
+ParseMethod $RPM_FINDPROV_METHOD
+
+if [ -z "$FIND_LIBS" -a -z "$FIND_PAM" -a -z "$FIND_PERL" ]; then
+	# Nothing to do
+	cat &>/dev/null
+	exit 0
+fi
+
+ulimit -c 0
+
+case "$LD_PRELOAD" in
+	*libfakeroot*)
+		unset LD_PRELOAD
+		;;
+	*libbuildreq.so*)
+		unset LD_PRELOAD
+		;;
+esac
+
+FOUND_PROVS=
+LIST_PERL=
+
+ListScriptProvs()
+{
+	local f="$1"
+	local t="$2"
+	if [ -z "${t##ASCII *text*}" -a -z "${f%%$RPM_BUILD_ROOT/etc/pam.d/*}" ]; then
+		if [ -n "$FIND_PAM" ]; then
+			local r="$(@RPMCONFIGDIR@/pam.prov "$f")"
+			[ -z "$FOUND_PROVS" ] && FOUND_PROVS="$r" || FOUND_PROVS="$FOUND_PROVS
+$r"
+		fi
+	elif [ -z "${t##perl script text*}" -o -z "${f%%*.p[lmh]}" ]; then
+		if [ -n "$FIND_PERL" ]; then
+			[ -z "$LIST_PERL" ] && LIST_PERL="$f" || LIST_PERL="$LIST_PERL
+$f"
+		fi
+	fi
+}
+
+FindPerlProvs()
+{
+	if [ -n "$LIST_PERL" ]; then
+		local r="$(echo "$LIST_PERL" |@RPMCONFIGDIR@/perl.prov)"
+		[ -z "$FOUND_PROVS" ] && FOUND_PROVS="$r" || FOUND_PROVS="$FOUND_PROVS
+$r"
+	fi
+}
+
+# Note this works for both a.out and ELF executables.
+# It also auto-generates provides for scripts.
+
+FindLibProvs()
+{
+	[ -n "$FIND_LIBS" ] || return 0
+	local f="$1"
+	local d
+	if d="$(objdump -p "$f")"; then
+		local soname="$(echo -E "$d" |awk '/SONAME/ {print $2}')"
+		if [ -n "$soname" ]; then
+			if [ ! -L "$f" ]; then
+				# name
+				echo "$soname"
+
+				# version definitions
+	    		echo -E "$d" | awk "-vsoname=$soname" '
+					BEGIN {START=0;}
+					/^Version definitions:$/ {START=1;}
+					/^[0-9]/ && (START==1) && ($4!=soname) {printf("%s(%s)\n",soname,$4);}
+					/^$/ { START=0; }
+				'
+			fi
+		else
+			echo "${f##*/}"
+		fi
+	fi
+}
+
+while IFS= read -r f; do
+	if t="$(file -bL "$f")"; then
+		if [ -z "${t##* text*}" ]; then
+			ListScriptProvs "$f" "$t"
+		elif [ -z "${t##* shared object*}" ]; then
+			r="$(FindLibProvs "$f")"
+			[ -z "$FOUND_PROVS" ] && FOUND_PROVS="$r" || FOUND_PROVS="$FOUND_PROVS
+$r"
+		fi
+	else
+		echo "Not found: $f" >&2
+	fi
+done
+
+# Find provides in listed perl scripts, if any
+FindPerlProvs
+
+# Finally sort and print them.
+echo "$FOUND_PROVS" |sort -u

autodeps/linux.req.in

@@ -0,0 +1,245 @@
+#!/bin/sh -e
+#
+# find-requires - generate list of linux-specific package requires.
+# Inspired by tool with same name from RPM distribution.
+#
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+Exit()
+{
+	RETVAL=$?
+	trap '' EXIT
+	cat &>/dev/null
+	exit $RETVAL
+}
+
+trap "Exit " EXIT
+
+# If using normal root, avoid changing anything.
+if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
+	echo "$PROG: non-/ RPM_BUILD_ROOT expected" >&2
+	exit 1
+fi
+
+FIND_FILES=
+FIND_LIBS=
+FIND_PAM=
+FIND_PERL=
+FIND_SHELL=
+
+ParseMethod()
+{
+	local t
+	for t in "$@"; do
+		case "${t/%,}" in
+			no|none|off|false)
+				FIND_FILES=
+				FIND_LIBS=
+				FIND_PAM=
+				FIND_PERL=
+				FIND_SHELL=
+				;;
+			lib|library)
+				FIND_LIBS=1
+				;;
+			nolib|nolibrary)
+				FIND_LIBS=
+				;;
+			files)
+				FIND_FILES=1
+				;;
+			nofiles)
+				FIND_FILES=
+				;;
+			pam)
+				FIND_PAM=1
+				;;
+			nopam)
+				FIND_PAM=
+				;;
+			perl)
+				FIND_PERL=1
+				;;
+			noperl)
+				FIND_PERL=
+				;;
+			sh|shell)
+				FIND_SHELL=1
+				;;
+			nosh|noshell)
+				FIND_SHELL=
+				;;
+			all)
+				FIND_FILES=1
+				FIND_LIBS=1
+				FIND_PAM=1
+				FIND_PERL=1
+				FIND_SHELL=1
+				;;
+			default|yes|true)
+				ParseMethod $RPM_FINDREQ_DEFAULT_METHOD
+				;;
+			*)
+				echo "Unrecognized find-requires method: $t" >&2
+				exit 1
+				;;
+		esac
+	done
+}
+ParseMethod $RPM_FINDREQ_METHOD
+
+FIND_SCRIPT=
+if [ -n "$FIND_SHELL" -o -n "$FIND_PERL" -o -n "$FIND_PAM" ]; then
+	FIND_SCRIPT=1
+fi
+
+if [ -z "$FIND_LIBS" -a -z "$FIND_SCRIPT" -a -z "$FIND_FILES" ]; then
+	# Nothing to do
+	exit
+fi
+
+if [ -n "$*" ]; then
+	# We do not handle arguments yet...
+	exit
+fi
+
+. @RPMCONFIGDIR@/find-package
+
+ulimit -c 0
+
+case "$LD_PRELOAD" in
+	*libfakeroot*)
+		unset LD_PRELOAD
+		;;
+	*libbuildreq.so*)
+		unset LD_PRELOAD
+		;;
+esac
+
+FOUND_REQS=
+LIST_PERL=
+
+ListScriptReqs()
+{
+	[ -n "$FIND_SCRIPT" ] || return 0
+	local f="$1"
+	local t="$2"
+	if [ -x "$f" ]; then
+		local r="$(FindPackage "$f" "$(head -1 "$f" |sed -n 's|^#![ 	]*\(/[^ 	]\+\).*|\1|p')")"
+		[ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS
+$r"
+	fi
+	if [ -z "${t##Bourne* shell script text*}" ]; then
+		if [ -n "$FIND_SHELL" -a -x "$f" ]; then
+			local r="$(@RPMCONFIGDIR@/shell.req "$f")"
+			[ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS
+$r"
+		fi
+	elif [ -z "${t##ASCII *text*}" -a -z "${f%%$RPM_BUILD_ROOT/etc/pam.d/*}" ]; then
+		if [ -n "$FIND_PAM" ]; then
+			local r="$(@RPMCONFIGDIR@/pam.req "$f")"
+			[ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS
+$r"
+		fi
+	elif [ -z "${t##perl script text*}" -o -z "${f%%*.p[lmh]}" ]; then
+		if [ -n "$FIND_PERL" ]; then
+			[ -z "$LIST_PERL" ] && LIST_PERL="$f" || LIST_PERL="$LIST_PERL
+$f"
+		fi
+	fi
+}
+
+FindPerlReqs()
+{
+	if [ -n "$LIST_PERL" ]; then
+		local r="$(echo "$LIST_PERL" |@RPMCONFIGDIR@/perl.req)"
+		[ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS
+$r"
+	fi
+}
+
+# Note this works for both a.out and ELF executables.
+# It also auto-generates requirements for scripts.
+
+FindLibReqs()
+{
+	[ -n "$FIND_LIBS" ] || return 0
+	local f="$1"
+	local d
+
+	if d="$(objdump -p "$f")"; then 
+		# Shared library dependencies, glibc version references.
+		echo -E "$d" |awk '
+			BEGIN {start_shared=0; start_version=0; lib_name="";}
+			/^Dynamic Section:$/ {start_shared=1;}
+			/^Version References:$/ {start_version=1;}
+			(start_version==1) && /^ *required from/ {sub(/:/, "", $3);	lib_name=$3;}
+			(start_shared==1) && /^ *NEEDED/ {print $2;}
+			(start_version==1) && (lib_name!="") && ($4!="") && ($4~/^(GLIBC|GCC|BZLIB)_*/) {print lib_name "(" $4 ")";}
+			/^$/ {start_shared=0; start_version=0;}
+		'
+	fi
+}
+
+FindExeReqs()
+{
+	if [ -x "$1" ]; then
+		FindLibReqs "$1"
+	fi
+}
+
+while IFS= read -r f; do
+	if [ -n "$FIND_FILES" ]; then
+		if [ -z "${f%%$RPM_BUILD_ROOT/etc/xinetd.d/*}" ]; then
+			[ -z "$FOUND_REQS" ] && FOUND_REQS="xinetd" || FOUND_REQS="$FOUND_REQS
+xinetd"
+		elif [ -z "${f%%$RPM_BUILD_ROOT/etc/logrotate.d/*}" ]; then
+			[ -z "$FOUND_REQS" ] && FOUND_REQS="logrotate" || FOUND_REQS="$FOUND_REQS
+logrotate"
+		elif [ -z "${f%%$RPM_BUILD_ROOT/etc/cron.d/*}" ]; then
+			[ -z "$FOUND_REQS" ] && FOUND_REQS="vixie-cron" || FOUND_REQS="$FOUND_REQS
+vixie-cron"
+		elif [ -z "${f%%$RPM_BUILD_ROOT/etc/chroot.d/*}" ]; then
+			[ -z "$FOUND_REQS" ] && FOUND_REQS="chrooted" || FOUND_REQS="$FOUND_REQS
+chrooted"
+		elif [ -z "${f%%$RPM_BUILD_ROOT/etc/security/console.apps/*}" ]; then
+			[ -z "$FOUND_REQS" ] && FOUND_REQS="consolehelper" || FOUND_REQS="$FOUND_REQS
+consolehelper"
+		fi
+	fi
+	t="$(file -b "$f")"
+	if [ -z "${t##* text*}" ]; then
+		ListScriptReqs "$f" "$t"
+	elif [ -z "${t##* executable*}" ]; then
+		r="$(FindExeReqs "$f")"
+		[ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS
+$r"
+	elif [ -z "${t##* shared object*}" ]; then
+		r="$(FindLibReqs "$f")"
+		[ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS
+$r"
+	fi
+done
+
+# Find requires in listed perl scripts, if any
+FindPerlReqs
+
+# Finally sort and print them.
+echo "$FOUND_REQS" |sort -u

lib/closeall.c

@@ -0,0 +1,33 @@
+#include <unistd.h>
+#include <errno.h>
+
+#ifdef __linux__
+#include <linux/limits.h>
+#endif
+
+int rpm_close_all( void )
+{
+	int fd, max;
+
+	max = sysconf(_SC_OPEN_MAX);
+	if ( max <= 0 )
+		return -1;
+
+#ifdef __linux__
+	if ( max < NR_OPEN )
+		max = NR_OPEN;
+#endif
+
+	for ( fd = STDERR_FILENO + 1; fd < max; ++fd )
+	{
+		if ( close(fd) && errno != EBADF )
+			/*
+			 * Possible errors are:
+			 * EINTR: the close() call was interrupted by a signal;
+			 * EIO: an I/O error occurred.
+			*/
+			return -1;
+	}
+
+	return 0;
+}

scripts/brp-adjust_libraries

@@ -0,0 +1,37 @@
+#!/bin/sh -e
+#
+# brp-adjust_libraries - update symbolic links to shared libraries.
+#
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+# If using normal root, avoid changing anything.
+if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
+	echo "$PROG: non-/ \$RPM_BUILD_ROOT expected" >&2
+	exit 1
+fi
+
+cd "$RPM_BUILD_ROOT"
+
+libs=`find -type d -name lib`
+
+if [ -n "$libs" ]; then
+	echo "Adjusting library links in $RPM_BUILD_ROOT"
+	/sbin/ldconfig -nv $libs
+fi

scripts/brp-alt.in

@@ -0,0 +1,50 @@
+#!/bin/sh -e
+#
+# brp-alt
+# The ALT Linux build root policies invoked
+# at the end of the %install scriptlet.
+#
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+# If using normal root, avoid changing anything.
+if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
+	echo "$PROG: non-/ \$RPM_BUILD_ROOT expected" >&2
+	exit 1
+fi
+
+cd "$RPM_BUILD_ROOT"
+
+# Cleanup files.
+@RPMCONFIGDIR@/brp-cleanup
+
+# Fix file permissions.
+@RPMCONFIGDIR@/brp-fix-perms
+
+# Compress info and man pages.
+@RPMCONFIGDIR@/brp-compress
+
+# Strip ELF binaries.
+@RPMCONFIGDIR@/brp-strip
+
+# Adjust library links.
+@RPMCONFIGDIR@/brp-adjust_libraries
+ 
+# Re-bytecompile python modules.
+@RPMCONFIGDIR@/brp-bytecompile_python

scripts/brp-bytecompile_python

@@ -0,0 +1,37 @@
+#!/bin/sh -e
+#
+# brp-bytecompile_python - compile python modules.
+#
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+# If using normal root, avoid changing anything.
+if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
+	echo "$PROG: non-/ \$RPM_BUILD_ROOT expected" >&2
+	exit 1
+fi
+
+cd "$RPM_BUILD_ROOT"
+
+if [ -n "$RPM_PYTHON" -a `find -type f -name \*.py |wc -l` -gt 0 ]; then
+	echo "Bytecompiling python modules in $PWD using $RPM_PYTHON"
+	$RPM_PYTHON -c "import compileall; compileall.compile_dir( '.', 10, '/', 1 );"
+	echo "Bytecompiling python modules with optimization in $PWD using $RPM_PYTHON -O"
+	$RPM_PYTHON -O -c "import compileall; compileall.compile_dir( '.', 10, '/', 1 );"
+fi

scripts/brp-cleanup

@@ -0,0 +1,64 @@
+#!/bin/sh -e
+#
+# brp-cleanup - cleanup buildroot.
+#
+# Copyright (C) 2000, 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+# If using normal root, avoid changing anything.
+if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
+	echo "$PROG: non-/ \$RPM_BUILD_ROOT expected" >&2
+	exit 1
+fi
+
+cd "$RPM_BUILD_ROOT"
+
+find -type f \(	\
+	-name '#*#'	\
+	-o -name '*~'	\
+	-o -name DEADJOE	\
+	-o -name '*.orig'	\
+	-o -name '*.rej'	\
+	-o -name '*.bak'	\
+	-o -name '.*.orig'	\
+	-o -name '.*.rej'	\
+	-o -name '.*.bak'	\
+	-o -name .SUMS	\
+	-o -name TAGS	\
+	-o -name core	\
+	-o \( -path '*/.deps/*' -a -name '*.P' \)	\
+	\) -print0 |xargs -r0 rm -vf
+
+find -type d -name CVS -print0 |xargs -r0 rm -vrf
+
+cd usr/lib/perl5 &>/dev/null || exit 0
+
+echo "Cleaning in $PWD"
+
+find -type f -name .packlist -print0 |xargs -r0 rm -vf
+
+find -type f -name \*.bs -size 0 -print0 |xargs -r0 rm -vf
+
+f="$(find -type f -name \*.bs)"
+if [ -n "$f" ]; then
+	echo "$PROG: non empty *.bs file(s) found:"
+	echo "$f"
+	echo "$PROG: please contact packager"
+	exit 1
+fi

scripts/brp-compress.in

@@ -0,0 +1,134 @@
+#!/bin/sh
+#
+# brp-compress - compress info and manpages.
+# Copyright (C) 2000, 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+# If using normal root, avoid changing anything.
+if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
+	echo "$PROG: non-/ \$RPM_BUILD_ROOT expected" >&2
+	exit 1
+fi
+
+cd "$RPM_BUILD_ROOT" || exit
+
+StripSuffix()
+{
+	for s in gz bz2 Z; do
+		f="${1%.$s}"
+		if [ "$f" != "$1" ]; then
+			echo -nE "$f"
+			return
+		fi
+	done
+	echo -nE "$1"
+}
+
+cd "$RPM_BUILD_ROOT"
+
+echo "Compressing files in $RPM_BUILD_ROOT ($RPM_COMPRESS_METHOD)"
+
+if [ "$RPM_COMPRESS_METHOD" = "skip" ]; then
+	exit 0
+fi
+
+for d in `find "$RPM_BUILD_ROOT" -type d -name info`; do
+	find "$d" -type f \( -name \*.gz -o -name \*.Z \) -print0 |xargs -r0 gunzip
+	find "$d" -type f -name \*.bz2 -print0 |xargs -r0 bunzip2
+	find "$d" -type f -a \! -name dir -print0 |xargs -r0 @RPMCONFIGDIR@/compress_files
+done
+
+for d in `find "$RPM_BUILD_ROOT" -type d -name man`; do
+	find "$d" -type f -size 0 -print0 |xargs -r0 rm -fv
+	find "$d" -type f -print0 |xargs -r0 chmod a-x
+	# Uncompress everything.
+	find "$d" -type f \( -name \*.gz -o -name \*.Z \) -print0 |xargs -r0 gunzip
+	find "$d" -type f -name \*.bz2 -print0 |xargs -r0 bunzip2
+	# First, compress normal files.
+	for f in `find "$d" -type f -a \! -name whatis -print0 |xargs -r0 file |grep ':[^:]*troff or preprocessor input text' |sed -e 's/:[^:]*troff or preprocessor input text.*//g'`; do
+		[ -f "$f" ] || continue
+		if ! head -1 "$f" |grep -q '^.so '; then
+			@RPMCONFIGDIR@/compress_files "$f"
+		fi
+	done
+	# Second, convert .so links into symlinks.
+	for f in `find "$d" -type f -a \! -name whatis -print0 |xargs -r0 file |grep ':[^:]*troff or preprocessor input text' |sed -e 's/:[^:]*troff or preprocessor input text.*//g'`; do
+		[ -f "$f" ] || continue
+		if head -1 "$f" |grep -q '^.so '; then
+			f_dir="${f%/*}"
+			f_dir_name="${f_dir##*/}"
+			TARGET_orig="$(head -1 "$f" |sed -e 's/^.so\([[:space:]]\)\+//')"
+			TARGET="$TARGET_orig"
+			TARGET_base="${TARGET##*/}"
+			TARGET_dir="$(dirname "$TARGET")"
+			if [ "." = "$TARGET_dir" -o "$f_dir_name" = "$TARGET_dir" ]; then
+				TO="$(basename "$f_dir/$TARGET_base"*)"
+			else
+				if [ -z "${TARGET##/*}" ]; then
+					# TARGET starts with /
+					TARGET_root="/$(relative "$TARGET" "$RPM_BUILD_ROOT/")"
+					if [ -z "${TARGET_root##/../*}" ]; then
+						TARGET_root="$TARGET"
+					fi
+					f_root="/$(relative "$f" "$RPM_BUILD_ROOT/")"
+					TARGET="$(relative "$TARGET_root" "$f_root")"
+					TO="$(cd $f_dir; echo "$TARGET"*)"
+				else
+					TO="../$TARGET_dir/$(basename "$f_dir/../$TARGET"*)"
+				fi
+			fi
+			if [ ! -e "$f_dir/$TO" ]; then
+				# link to nothing
+				echo "$PROG: file $f points to non-existent file $TARGET_orig"
+				exit 1
+			fi
+			FROM="$f${TO##*$TARGET_base}"
+			rm -fv "$f"
+			ln -sv "$TO" "$FROM"
+		fi
+	done
+	# Third, correct symlinks.
+	for f in `find "$d" -type l`; do
+		f_orig="$f"
+		TARGET_orig="$(StripSuffix "$(/bin/ls -l "$f" |awk '{print $11}')")"
+		f="$(StripSuffix "$f")"
+		if [ -z "${TARGET_orig##/*}" ]; then
+			# TARGET_orig starts with /
+			TARGET_root="/$(relative "$TARGET_orig" "$RPM_BUILD_ROOT/")"
+			if [ -z "${TARGET_root##/../*}" ]; then
+				TARGET_root="$TARGET_orig"
+			fi
+		else
+			TARGET_root="$TARGET_orig"
+		fi
+		f_root="/$(relative "$f" "$RPM_BUILD_ROOT/")"
+		TARGET="$(relative "$TARGET_root" "$f_root")"
+		DIR="$(dirname "$f")"
+		TO="$(relative "$(echo "$DIR/$TARGET"*)" "$f")"
+		if [ ! -e "$DIR/$TO" ]; then
+			# Found link to nothing.
+			echo "$PROG: file $f points to non-existent file $TARGET_orig"
+			exit 1
+		fi
+		FROM="$f${TO#$TARGET}"
+		rm -fv "$f_orig"
+		ln -sv "$TO" "$FROM"
+	done
+done
+:

scripts/brp-fix-perms

@@ -0,0 +1,48 @@
+#!/bin/sh -e
+#
+# brp-fix-permsp - try to fix permissions.
+#
+# Copyright (C) 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+# If using normal root, avoid changing anything.
+if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
+	echo "$PROG: non-/ \$RPM_BUILD_ROOT expected" >&2
+	exit 1
+fi
+
+cd "$RPM_BUILD_ROOT"
+
+# Following objects should be world readable.
+for d in usr/{share,include} usr/X11R6/{share,include,man}; do
+	[ ! -d "$d" ] || chmod -R a+rX "$d"
+done
+
+# Following objects should not be group/world writable.
+for d in usr/*; do
+	[ "$d" = "usr/src" -o -L "$d" -o ! -d "$d" ] || chmod -R go-w "$d"
+done
+
+# Following files should not be group/world readable.
+for d in bin sbin lib usr/{bin,sbin,lib} usr/X11R6/bin; do
+	if [ -d "$d" ]; then
+		find "$d" -type f -perm -4100 -print0 |xargs -r0 chmod -R go-rw
+		find "$d" -type f -perm -6100 -print0 |xargs -r0 chmod -R go-rw
+	fi
+done

scripts/brp-strip.in

@@ -0,0 +1,240 @@
+#!/bin/sh -e
+#
+# brp-strip - strip ELF binaries.
+# Inspired by brp-strip script from RPM source code.
+#
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+USAGE()
+{
+	cat <<EOF
+brp-strip - strip ELF binaries.
+
+brp-strip is free software, covered by the GNU General Public License.
+brp-strip comes with ABSOLUTELY NO WARRANTY, see license for details.
+
+Usage: $PROG [options] [files]
+
+Valid options are:
+-h, --help
+	Show a summary of the options to brp-strip and exit.
+-p, --preserve-dates
+	Preserve modified/access timestamps of stripped files.
+-R <name>, --remove-section=<name>
+	Remove the named section from files. This option may be given more than once.
+-s, --strip-all
+	Remove all symbols.
+-g, -S, --strip-debug
+	Remove all debugging symbols.
+--strip-unneeded
+	Remove all symbols not needed by relocations.
+-N, --strip-symbol <name>
+	Do not copy named symbol.
+-K, --keep-symbol <name>
+	Only copy named symbol.
+-x, --discard-all
+	Remove all non-global symbols.
+-X, --discard-locals
+	Remove any compiler-generated symbols.
+-v, --verbose
+	List all object files modified.
+-T <name>, --topdir=<name>
+	Start file lookup at named directory, \$RPM_BUILD_ROOT by default.
+
+files is list of files or directory trees where files to be stripped.
+By default, all files in TOPDIR, specified by \$RPM_STRIP_METHOD, will be stripped.
+EOF
+
+	[ -n "$1" ] && exit "$1" || exit
+}
+
+TEMP=`getopt -n "$PROG" -o hpR:sgSN:K:xXvT: -l help,preserve-dates,remove-section:,strip-all,strip-symbol:,keep-symbol:,discard-all,discard-locals,verbose,topdir: -- "$@"` || USAGE
+eval set -- "$TEMP"
+
+: ${TOPDIR:=$RPM_BUILD_ROOT}
+export STRIP_FORCED=
+export STRIP_FORCED_OPTS=
+
+AddForcedOpts()
+{
+	if [ -z "$STRIP_FORCED_OPTS" ]; then
+		STRIP_FORCED_OPTS="$*"
+	else
+		STRIP_FORCED_OPTS="$STRIP_FORCED_OPTS $*"
+	fi
+}
+
+while :; do
+	case "$1" in
+		-h|--help)
+			USAGE 0
+			;;
+		-p|--preserve-dates)
+			AddForcedOpts -p
+			shift
+			;;
+		-R|--remove-section)
+			shift
+			AddForcedOpts -R "$1"
+			shift
+			STRIP_FORCED=1
+			;;
+		-s|--strip-all)
+			AddForcedOpts -s
+			shift
+			STRIP_FORCED=1
+			;;
+		-g|-S|--strip-debug)
+			AddForcedOpts -g
+			shift
+			STRIP_FORCED=1
+			;;
+		--strip-unneeded)
+			AddForcedOpts --strip-unneeded
+			shift
+			STRIP_FORCED=1
+			;;
+		-N|--strip-symbol)
+			shift
+			AddForcedOpts -N "$1"
+			shift
+			STRIP_FORCED=1
+			;;
+		-K|--keep-symbol)
+			shift
+			AddForcedOpts -K "$1"
+			shift
+			STRIP_FORCED=1
+			;;
+		-x|--discard-all)
+			AddForcedOpts -x
+			shift
+			STRIP_FORCED=1
+			;;
+		-X|--discard-locals)
+			AddForcedOpts -X
+			shift
+			STRIP_FORCED=1
+			;;
+		-v|--verbose)
+			AddForcedOpts -v
+			shift
+			;;
+		-T|--topdir)
+			shift
+			TOPDIR="$1"
+			shift
+			;;
+		--)
+			shift
+			break
+			;;
+		*)
+			echo "$PROG: unrecognized option: $1" >&2
+			exit 1
+			;;
+	esac
+done
+
+cd "$TOPDIR"
+cd "$OLDPWD"
+
+TOPDIR="$(echo "$TOPDIR" |sed '
+s:/\(\./\)\+:/:g
+s:/\+:/:g
+s:/$::
+')"
+
+SHOW_METHODS=
+AddShowMethods()
+{
+	if [ -z "$SHOW_METHODS" ]; then
+		SHOW_METHODS="$*"
+	else
+		SHOW_METHODS="$SHOW_METHODS,$*"
+	fi
+}
+
+export STRIP_EXECUTABLE=
+export STRIP_RELOCATABLE=
+export STRIP_SHARED=
+export STRIP_STATIC=
+for	t in $RPM_STRIP_METHOD; do
+	case "${t/%,}" in
+		no|none|off|false)
+			exit 0
+			;;
+		exec*)
+			STRIP_EXECUTABLE=executable
+			AddShowMethods executable
+			;;
+		reloc*)
+			STRIP_RELOCATABLE=relocatable
+			AddShowMethods relocatable
+			;;
+		share*)
+			STRIP_SHARED=shared
+			AddShowMethods shared
+			;;
+		static*)
+			STRIP_STATIC=static
+			AddShowMethods static
+			;;
+		*)
+			echo "Unrecognized strip method: $t"
+			exit 1
+			;;
+	esac
+done
+
+if [ -z "$STRIP_EXECUTABLE" -a -z "$STRIP_RELOCATABLE" -a -z "$STRIP_SHARED" -a -z "$STRIP_STATIC" ]; then
+	# Nothing to do
+	exit 0
+fi
+
+PERMS=
+if [ -z "$STRIP_RELOCATABLE" -a -z "$STRIP_STATIC" ]; then
+	PERMS='-perm +a=x'
+elif [ -z "$STRIP_EXECUTABLE" -a -z "$STRIP_SHARED" ]; then
+	PERMS='-perm +a=r'
+fi
+
+StripTree()
+{
+	echo "Stripping binaries in $1 ($SHOW_METHODS)"
+	find "$1" -type f $PERMS -print0 |xargs -r0 @RPMCONFIGDIR@/strip_files
+}
+
+if [ -n "$*" ]; then
+	for d in "$@"; do
+		if [ -d "$d" ]; then
+			StripTree "$d"
+		else
+			@RPMCONFIGDIR@/strip_files "$d"
+		fi
+	done
+else
+	if [ -z "$TOPDIR" ]; then
+		echo "$PROG: non-/ TOPDIR expected" >&2
+		exit 1
+	fi
+
+	StripTree "$TOPDIR"
+fi

scripts/compress_files.in

@@ -0,0 +1,45 @@
+#!/bin/sh -e
+#
+# compress_files - compress files helper.
+# Copyright (C) 2000, 2001  Dmitry V. Levin <ldv@fandra.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the te/bin/rms 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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+case "$RPM_COMPRESS_METHOD" in
+	no|none|plain)
+		exit 0
+		;;
+esac
+
+for f in "$@"; do
+	case "$RPM_COMPRESS_METHOD" in
+		gz*)
+			/bin/gzip -9nf "$f"
+			;;
+		bz*)
+			/bin/bzip2 -9f "$f"
+			;;
+		*)
+			/bin/bzip2 -9kf "$f"
+			/bin/gzip -9nf "$f"
+			SIZE_BZIP2=`@RPMCONFIGDIR@/filesize "$f.bz2" 512`
+			SIZE_GZIP=`@RPMCONFIGDIR@/filesize "$f.gz" 512`
+			[ "$SIZE_GZIP" -gt "$SIZE_BZIP2" ] && /bin/rm -f "$f.gz" || /bin/rm -f "$f.bz2"
+			;;
+	esac
+done

scripts/delayed_rebuilddb

@@ -0,0 +1,4 @@
+#!/bin/sh -e
+
+/usr/bin/rpmdb -v --rebuilddb &&
+	/bin/rm -f /etc/rpm/macros.db1

scripts/find-lang

@@ -0,0 +1,174 @@
+#!/bin/sh -e
+#
+# find-lang - generate list of language specific files.
+# Inspired by tool with same name from W. L. Estes <wlestes@uncg.edu>.
+#
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+USAGE()
+{
+	cat <<EOF
+find-lang - generate list of language specific files for inclusion
+            in an rpm spec %files section.
+
+find-lang is free software, covered by the GNU General Public License.
+find-lang comes with ABSOLUTELY NO WARRANTY, see license for details.
+
+Usage: $PROG options PACKAGE_NAME
+
+Valid options are:
+--without-mo        don't find locales files;
+--with-man          find man pages;
+--with-gnome        find GNOME help files;
+--append            don't truncate output file before writing;
+--output=FILENAME   filename where to write output, by default PACKAGE_NAME.lang;
+--topdir=TOPDIR     the top of the tree containing the files to be processed,
+                    by default \$RPM_BUILD_ROOT.
+
+Top directory gets sed'd out of the output list.
+PACKAGE_NAME is usually the %{name} of the package. This should also be
+the basename of the .mo files.
+EOF
+
+	[ -n "$1" ] && exit "$1" || exit
+}
+
+TEMP=`getopt -n "$PROG" -o h -l without-mo,with-man,with-gnome,append,output:,topdir: -- "$@"` || USAGE
+eval set -- "$TEMP"
+
+: ${TOPDIR:=$RPM_BUILD_ROOT}
+FIND_MO=1
+FIND_MAN=
+FIND_GNOME=
+APPEND=
+OUTPUT=
+NAME=
+while :; do
+	case "$1" in
+		--without-mo)
+			FIND_MO=
+			shift
+			;;
+		--with-man)
+			FIND_MAN=1
+			shift
+			;;
+		--with-gnome)
+			FIND_GNOME=1
+			shift
+			;;
+		--append)
+			APPEND=1
+			shift
+			;;
+		--output)
+			shift
+			OUTPUT="$1"
+			shift
+			;;
+		--topdir)
+			shift
+			TOPDIR="$1"
+			shift
+			;;
+		-h|--help)
+			USAGE 0
+			;;
+		--)
+			shift
+			break
+			;;
+		*)
+			echo "$PROG: unrecognized option: $1" >&2
+			exit 1
+			;;
+	esac
+done
+
+[ -n "$(echo "$@")" ] || USAGE
+
+cd "$TOPDIR"
+cd "$OLDPWD"
+
+TOPDIR="$(echo "$TOPDIR" |sed '
+s:/\(\./\)\+:/:g
+s:/\+:/:g
+s:/$::
+')"
+
+if [ -z "$TOPDIR" ]; then
+	echo "$PROG: non-/ TOPDIR expected" >&2
+	exit 1
+fi
+
+#export FIND_MO FIND_MAN FIND_GNOME APPEND OUTPUT NAME TOPDIR
+
+FindLang()
+{
+	# truncate if required
+	[ -n "$APPEND" ] || :>"$OUTFILE"
+
+	echo '%defattr(644,root,root,755)' >>"$OUTFILE"
+
+	if [ -n "$FIND_MO" ]; then
+		find "$TOPDIR" -type f |sed '
+s:'"$TOPDIR"'::
+s:\(.*/share/locale/\)\([^/_]\+\)\(.*'"$NAME"'\.mo$\):%lang(\2) \1\2\3:
+s:^\([^%].*\)::
+		' |grep -v '^$' >> "$OUTFILE" ||:
+	fi
+
+	if [ -n "$FIND_MAN" ]; then
+		find "$TOPDIR" -type f |sed '
+s:'"$TOPDIR"'::
+s:\(.*/share/man/\)\([^/_]\+\)\(.*'"$NAME"'\..\)\(\.[^/]*\)\?$:%lang(\2) \1\2\3*:
+s:^\([^%].*\)::
+s:^%lang(man.*) .*::
+		' |grep -v '^$' >> "$OUTFILE" ||:
+	fi
+
+	if [ -n "$FIND_GNOME" ]; then
+		find $TOPDIR -type d |sed '
+s:'"$TOPDIR"'::
+s:\(.*/gnome/help/'"$NAME"'$\):%dir \1:
+s:\(.*/gnome/help/'"$NAME"'/\)\([^/_]\+\):%dir %lang(\2) \1\2:
+s:^\([^%].*\)::
+s:%lang(C) ::
+		' |grep -v '^$' >> "$OUTFILE" ||:
+		find "$TOPDIR" -type f |sed '
+s:'"$TOPDIR"'::
+s:\(.*/gnome/help/'"$NAME"'/\)\([^/_]\+\):%lang(\2) \1\2:
+s:^\([^%].*\)::
+s:%lang(C) ::
+		' |grep -v '^$' >> "$OUTFILE" ||:
+	fi
+
+}
+
+for NAME in "$@"; do
+	if [ -n "$OUTPUT" ]; then
+		OUTFILE="$OUTPUT"
+		[ "$NAME" = "$1" ] || APPEND=1
+	else
+		OUTFILE="$NAME.lang"
+	fi
+
+	FindLang
+done

scripts/find-package

@@ -0,0 +1,67 @@
+#!/bin/sh -e
+#
+# find-package
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+# If using normal root, avoid changing anything.
+[ -n "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]
+
+FindPackage()
+{
+	local f="$1"
+	shift
+	local r rep package deref
+
+	for r in "$@"; do
+		[ -n "$r" ] || continue
+		if [ -z "${r##/*}" ]; then
+			if ! relative "$r" "$RPM_BUILD_ROOT" |grep -q "^../"; then
+				echo "$f: invalid dependence: $r" >&2
+				return 1
+			fi
+			rep="$r"
+			if [ -e "$RPM_BUILD_ROOT/$rep" ]; then
+				continue
+			fi
+			deref=`LC_TIME=C /bin/ls -l -- "$rep" |/bin/sed -ne 's,^lrwxrwxrwx \+1 .\+ \(/[^ ]\+\) -> /etc/alternatives/.\+$,\1,p'`
+			if [ "$deref" = "$rep" ]; then
+				echo -E "$rep"
+			else
+				if package="$(rpmquery --whatprovides --queryformat='%{NAME}\n' -- "$rep"|LC_COLLATE=C sort -u)"; then
+					echo -E "$package"
+				else
+					echo -E "$rep"
+				fi
+			fi
+		else
+			local RPATH="$(echo "$PATH" |sed -e "s|[^:]\+|$RPM_BUILD_ROOT&|g")"
+			if [ -n "$(PATH="$RPATH" /usr/bin/which -- "$r" 2>/dev/null)" ]; then
+				continue
+			fi
+			if ! rep="$(/usr/bin/which -- "$r" 2>/dev/null)"; then
+				continue
+			fi
+			if [ -e "$RPM_BUILD_ROOT/$rep" ]; then
+				continue
+			fi
+			if package="$(rpmquery --whatprovides --queryformat='%{NAME}\n' -- "$rep"|LC_COLLATE=C sort -u)"; then
+				echo -E "$package"
+			fi
+		fi
+	done
+}

scripts/pam.prov

@@ -0,0 +1,28 @@
+#!/bin/sh -e
+#
+# pam.prov
+# Copyright (C) 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+# If using normal root, avoid changing anything.
+[ -n "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]
+
+file="$1"
+
+head -1 "$file" |grep -qs '^#%PAM' || exit 0
+
+echo "pam(${file##$RPM_BUILD_ROOT/etc/pam.d/})"

scripts/pam.req

@@ -0,0 +1,30 @@
+#!/bin/sh -e
+#
+# pam.req
+# Copyright (C) 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+# If using normal root, avoid changing anything.
+[ -n "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]
+
+file="$1"
+
+head -1 "$file" |grep -qs '^#%PAM' || exit 0
+
+sed -ne 's#^\(account\|auth\|password\|session\)[[:space:]]\+\(requisite\|required\|sufficient\|optional\)[[:space:]]\+\(/lib/security/\)\?\([^[:space:]]\+\).*#\4#pg' <"$file" |sort -u
+
+sed -ne 's#^\(account\|auth\|password\|session\)[[:space:]]\+\(requisite\|required\|sufficient\|optional\)[[:space:]]\+\(/lib/security/\)\?pam_stack\.so[[:space:]]\+service=\([^[:space:]]\+\).*#pam(\4)#pg' <"$file" |sort -u

scripts/shell.req.in

@@ -0,0 +1,64 @@
+#!/bin/sh -e
+#
+# shell.req
+# Copyright (C) 2000  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+# If using normal root, avoid changing anything.
+[ -n "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]
+
+. @RPMCONFIGDIR@/find-package
+
+FIND_REQ="/bin/sh --rpm-requires"
+
+# Make sure that this sh has the rpm-requires feature
+$FIND_REQ </dev/null &>/dev/null
+
+file="$1"
+extra=
+
+if ! reqs="$($FIND_REQ "$file" 2>/dev/null)"; then
+	if egrep -vs '^(#|$)' "$file" 2>/dev/null |head -1 |grep -qs '^[ 	]*exec '; then
+		reqs="$(echo "$reqs" |head -1)"
+		extra="$(echo "$reqs" |sed -e 's/^\(executable\)(\(.*\))$/\2/g')"
+	else
+		reqs="$($FIND_REQ "$file")"
+	fi
+fi
+reqs="$(echo "$reqs" |sed -e 's/^\(sh\|bash\|executable\)(\(.*\))$/\2/g' |sort -u)"
+[ -n "$reqs" ] || exit 0
+
+FindReqs()
+{
+	for r in "$@"; do
+		if [ -z "${r/*\$*}" ]; then
+			continue
+		fi
+		if [ "$(type -t -- "$r")" = "function" ]; then
+			continue
+		fi
+		FindPackage "$file" "$r"
+	done
+}
+
+# Find requires
+found="$(FindReqs $reqs)"
+
+# And print them.
+echo "$found" |sort -u
+
+# TODO: more analysis based on $extra

scripts/strip_files

@@ -0,0 +1,74 @@
+#!/bin/sh -e
+#
+# strip_files - strip files helper.
+#
+# Copyright (C) 2000, 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+
+PROG="${0##*/}"
+
+StripNote()
+{
+	if ! objdump -h "$1" |grep '^[ 	]*[0-9]*[ 	]*\.note[ 	]' -A 1 |fgrep -q ALLOC; then
+		echo -n '-R .note'
+	fi
+}
+
+DoStrip()
+{
+	f="$1"
+	shift
+	local opts=
+	if [ -z "$STRIP_FORCED" ]; then
+		opts="-p -R .comment $(StripNote "$f") $*"
+	fi
+	strip $opts $STRIP_FORCED_OPTS "$f"
+}
+
+for f in "$@"; do
+	[ -f "$f" ]
+
+	t="$(/usr/bin/file -b "$f")"
+
+	if [ -z "${t/*ELF*executable,*/}" ]; then
+		if [ -n "$STRIP_EXECUTABLE" ]; then
+			DoStrip "$f"
+		fi
+		continue
+	fi
+
+	if [ -z "${t/*ELF*relocatable,*/}" ]; then
+		if [ -n "$STRIP_RELOCATABLE" ]; then
+			DoStrip "$f" --strip-unneeded
+		fi
+		continue
+	fi
+	
+	if [ -z "${t/*ELF*shared object,*/}" ]; then
+		if [ -n "$STRIP_SHARED" ]; then
+			DoStrip "$f" --strip-unneeded
+		fi
+		continue
+	fi
+	
+	if [ -z "${t/*current ar archive/}" ]; then
+		if [ -n "$STRIP_STATIC" ]; then
+			DoStrip "$f" --strip-unneeded
+		fi
+		continue
+	fi
+done

tools/filesize.c

@@ -0,0 +1,68 @@
+/*
+  $Id$
+  Copyright (C) 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+*/
+
+#include <errno.h>
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <sys/stat.h>
+
+extern const char *__progname;
+
+__attribute__ ((__noreturn__))
+static void usage( void )
+{
+	fprintf( stderr, "usage: %s filename [blocksize]\n"
+		"\tfilename   - stat this file\n"
+		"\tblocksize  - set size of block to this value, overriding default\n",
+		__progname );
+	exit( EXIT_FAILURE );
+}
+
+int	main( int ac, const char *av[] )
+{
+	const char *fname;
+	unsigned long	bsize = 0;
+	struct stat stb;
+
+	if ( (ac < 2) || (ac > 3) )
+		usage();
+
+	fname = av[1];
+	if ( ac > 2 )
+	{
+		bsize = atol( av[2] );
+		if ( bsize < 1 )
+			usage();
+	}
+
+	if ( stat( fname, &stb ) < 0 )
+	{
+		fprintf( stderr, "%s: %s: %s\n", __progname, fname, strerror(errno) );
+		exit( EXIT_FAILURE );
+	}
+
+	if ( !bsize )
+		bsize = stb.st_blksize;
+
+	printf( "%lu\n", (bsize < 2) ? stb.st_size : ((bsize - 1 + stb.st_size)/bsize) );
+
+	return 0;
+}

tools/pdeath_execute.c

@@ -0,0 +1,95 @@
+/*
+  $Id$
+  Copyright (C) 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+*/
+
+#include <stdio.h>
+#include <errno.h>
+#include <error.h>
+#include <string.h>
+#include <stdlib.h>
+#include <signal.h>
+#include <unistd.h>
+
+extern const char *__progname;
+
+static void
+my_error_print_progname (void)
+{
+	fflush (stdout);
+	fprintf (stderr, "%s: ", __progname);
+}
+
+__attribute__ ((__noreturn__))
+static void usage (void)
+{
+	fprintf (stderr, "usage: %s <pid> <command>\n", __progname);
+	exit (EXIT_FAILURE);
+}
+
+static void
+wait_for_pdeath (pid_t pid)
+{
+	for (;;)
+	{
+		if (kill (pid, 0) < 0)
+		{
+			if (ESRCH == errno)
+				break;
+			else
+				error (EXIT_FAILURE, errno, "kill: %u", pid);
+		}
+		usleep (100000);
+	}
+}
+
+int
+main (int ac, char *const *av)
+{
+	pid_t   pid;
+
+	error_print_progname = my_error_print_progname;
+
+	if (ac < 3)
+		usage ();
+
+	pid = atoi (av[1]);
+
+	/*
+	 *  Check arguments.
+	 */
+
+	if (pid <= 1)
+		usage ();
+
+	if (kill (pid, 0) < 0)
+		error (EXIT_FAILURE, errno, "kill: %u", pid);
+
+	if (access (av[2], X_OK))
+		error (EXIT_FAILURE, errno, "access: %s", av[2]);
+
+	/* Lets parent go on. */
+	if (daemon (1, 1) < 0)
+		error (EXIT_FAILURE, errno, "daemon");
+
+	/* Wait for parent completion. */
+	wait_for_pdeath (pid);
+
+	execv (av[2], av + 2);
+	error (EXIT_FAILURE, errno, "execv: %s", av[2]);
+	return EXIT_FAILURE;
+}

tools/relative.c

@@ -0,0 +1,150 @@
+/*
+  $Id$
+  Copyright (C) 2001  Dmitry V. Levin <ldv@fandra.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, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <sys/param.h>
+
+static	void	result( const char *str ) __attribute__ ((noreturn));
+
+static	const char*	normalize( char *str )
+{
+	char *p;
+	size_t	len = strlen( str );
+
+	for ( p = strstr( str, "//" ); p; p = strstr( str, "//" ) )
+		memmove( p, p + 1, strlen( p ) );
+
+	for ( p = strstr( str, "/./" ); p; p = strstr( str, "/./" ) )
+		memmove( p, p + 2, strlen( p + 1 ) );
+
+	if ( (len >= 2) && ('/' == str[len-2]) && ('.' == str[len-1]) )
+		str[len-1] = '\0';
+
+	return str;
+}
+
+static	void	result( const char *str )
+{
+	puts( str );
+	exit( 0 );
+}
+
+static	void	strip_trailing( char *str, const char sym )
+{
+	char *p;
+	for ( p = strrchr( str, sym ); p && (p >= str) && (sym == *p); --p )
+		*p = '\0';
+}
+
+static	const char*	base_name( const char *name )
+{
+	const char*	p = strrchr( name, '/' );
+	if ( p )
+		return p + 1;
+	else
+		return name;
+}
+
+static	char* lookup_back( const char *str, const char sym, const char *pos )
+{
+	for ( ; pos >= str ; --pos )
+		if ( sym == *pos )
+			return (char *)pos;
+
+	return 0;
+}
+
+extern const char *__progname;
+
+int	main( int ac, char *av[] )
+{
+	if ( ac < 3 )
+	{
+		fprintf( stderr, "Usage: %s <what> <to>\n", __progname );
+		return 1;
+	}
+	else
+	{
+		const char	*orig_what = normalize( av[1] );
+		normalize( av[2] );
+
+		{
+			unsigned	reslen;
+			char	*what_p, *to_p;
+
+			char	what[ 1 + strlen( av[1] ) ],
+					to[ 1 + strlen( av[2] ) ];
+
+			memcpy( what, av[1], sizeof(what) );
+			memcpy( to, av[2], sizeof(to) );
+
+			if ( '/' != *what )
+				result( what );
+
+			if ( '/' != *to )
+			{
+				fputs( "relative: <to> must be absolute filename\n", stderr );
+				return 1;
+			}
+
+			reslen = PATH_MAX + strlen( what ) + strlen( to );
+
+			strip_trailing( what, '/' );
+			strip_trailing( to, '/' );
+
+			for ( what_p = what, to_p = to; *what_p && *to_p ; ++what_p, ++to_p )
+				if ( *what_p != *to_p )
+					break;
+
+			if ( !*what_p && !*to_p )
+				result( base_name( orig_what ) );
+			else
+			{
+				char	res[ reslen ];
+				memset( res, 0, sizeof(res) );
+
+				if ( ('/' == *what_p) && !*to_p )
+					result( orig_what + (++what_p - what) );
+
+				if ( '/' != *to_p || *what_p )
+				{
+					what_p = lookup_back( what, '/', what_p );
+					strcpy( res, ".." );
+				}
+
+				for ( ; *to_p; ++to_p )
+				{
+					if ( '/' == *to_p )
+					{
+						if ( *res )
+							strcat( res, "/.." );
+						else
+							strcpy( res, ".." );
+					}
+				}
+
+				strcat( res, orig_what + (what_p - what) );
+				result( res );
+			}
+		}
+	}
+}

update-alternatives

@@ -0,0 +1,571 @@
+#! /usr/bin/perl --
+
+#use POSIX; &ENOENT;
+sub ENOENT { 2; }
+# Sorry about this, but the errno-part of POSIX.pm isn't in perl-*-base
+
+# Global variables:
+#  $alink            Alternative we are managing (ie the symlink we're making/removing) (install only)
+#  $name             Name of the alternative (the symlink) we are processing
+#  $apath            Path of alternative we are offering
+#  $apriority        Priority of link (only when we are installing an alternative)
+#  $mode             action to perform (display / install / remove / display / auto / config)
+#  $manual           update-mode for alternative (manual / auto)
+#  $state            State of alternative:
+#                       expected: alternative with highest priority is the active alternative
+#                       expected-inprogress: busy selecting alternative with highest priority
+#                       unexpected: alternative another alternative is active / error during readlink
+#                       nonexistent: alternative-symlink does not exist
+#  $link             Link we are working with
+#  @slavenames       List with names of slavelinks
+#  %slavenum         Map from name of slavelink to slave-index (into @slavelinks)
+#  @slavelinks       List of slavelinks (indexed by slave-index)
+#  %versionnum       Map from currently available versions into @versions and @priorities
+#  @versions         List of available versions for alternative
+#  %priorities       Map from @version-index to priority
+#  %slavepath        Map from (@version-index,slavename) to slave-path
+
+$version="1.8.3"; # This line modified by Makefile
+sub usageversion {
+    print(STDERR <<END)
+The update-alternatives $version.  Copyright (C) 1995 Ian Jackson.
+This is free software; see the GNU General Public Licence
+version 2 or later for copying conditions.  There is NO warranty.
+
+Usage: update-alternatives --install <link> <name> <path> <priority>
+                          [--slave <link> <name> <path>] ...
+       update-alternatives --remove <name> <path>
+       update-alternatives --auto <name>
+       update-alternatives --display <name>
+       update-alternatives --config <name>
+<name> is the name in /etc/alternatives.
+<path> is the name referred to.
+<link> is the link pointing to /etc/alternatives/<name>.
+<priority> is an integer; options with higher numbers are chosen.
+
+Options:  --verbose|--quiet  --test  --help  --version
+          --altdir <directory>  --admindir <directory>
+END
+        || &quit("failed to write usage: $!");
+}
+sub quit { print STDERR "update-alternatives: @_\n"; exit(2); }
+sub badusage { print STDERR "update-alternatives: @_\n\n"; &usageversion; exit(2); }
+
+$altdir= '/etc/alternatives';
+$admindir= '/var/lib/rpm/alternatives';
+$testmode= 0;
+$verbosemode= 0;
+$mode='';
+$manual= 'auto';
+$|=1;
+
+sub checkmanymodes {
+    return unless $mode;
+    &badusage("two modes specified: $_ and --$mode");
+}
+
+while (@ARGV) {
+    $_= shift(@ARGV);
+    last if m/^--$/;
+    if (!m/^--/) {
+        &quit("unknown argument \`$_'");
+    } elsif (m/^--(help|version)$/) {
+        &usageversion; exit(0);
+    } elsif (m/^--test$/) {
+        $testmode= 1;
+    } elsif (m/^--verbose$/) {
+        $verbosemode= +1;
+    } elsif (m/^--quiet$/) {
+        $verbosemode= -1;
+    } elsif (m/^--install$/) {
+        &checkmanymodes;
+        @ARGV >= 4 || &badusage("--install needs <link> <name> <path> <priority>");
+        ($alink,$name,$apath,$apriority,@ARGV) = @ARGV;
+        $apriority =~ m/^[-+]?\d+/ || &badusage("priority must be an integer");
+        $mode= 'install';
+    } elsif (m/^--remove$/) {
+        &checkmanymodes;
+        @ARGV >= 2 || &badusage("--remove needs <name> <path>");
+        ($name,$apath,@ARGV) = @ARGV;
+        $mode= 'remove';
+    } elsif (m/^--(display|auto|config)$/) {
+        &checkmanymodes;
+        @ARGV || &badusage("--$1 needs <name>");
+        $mode= $1;
+        $name= shift(@ARGV);
+    } elsif (m/^--slave$/) {
+        @ARGV >= 3 || &badusage("--slave needs <link> <name> <path>");
+        ($slink,$sname,$spath,@ARGV) = @ARGV;
+        defined($aslavelink{$sname}) && &badusage("slave name $sname duplicated");
+        $aslavelinkcount{$slink}++ && &badusage("slave link $slink duplicated");
+        $aslavelink{$sname}= $slink;
+        $aslavepath{$sname}= $spath;
+    } elsif (m/^--altdir$/) {
+        @ARGV || &badusage("--altdir needs a <directory> argument");
+        $altdir= shift(@ARGV);
+    } elsif (m/^--admindir$/) {
+        @ARGV || &badusage("--admindir needs a <directory> argument");
+        $admindir= shift(@ARGV);
+    } else {
+        &badusage("unknown option \`$_'");
+    }
+}
+
+defined($aslavelink{$name}) && &badusage("name $name is both primary and slave");
+$aslavelinkcount{$alink} && &badusage("link $link is both primary and slave");
+
+$mode || &badusage("need --display, --config, --install, --remove or --auto");
+$mode eq 'install' || !%slavelink || &badusage("--slave only allowed with --install");
+
+if (open(AF,"$admindir/$name")) {
+    $manual= &gl("manflag");
+    $manual eq 'auto' || $manual eq 'manual' || &badfmt("manflag");
+    $link= &gl("link");
+    while (($sname= &gl("sname")) ne '') {
+        push(@slavenames,$sname);
+        defined($slavenum{$sname}) && &badfmt("duplicate slave $tsname");
+        $slavenum{$sname}= $#slavenames;
+        $slink= &gl("slink");
+        $slink eq $link && &badfmt("slave link same as main link $link");
+        $slavelinkcount{$slink}++ && &badfmt("duplicate slave link $slink");
+        push(@slavelinks,$slink);
+    }
+    while (($version= &gl("version")) ne '') {
+        defined($versionnum{$version}) && &badfmt("duplicate path $tver");
+       if ( -e $version ) {
+           push(@versions,$version);
+           $versionnum{$version}= $i= $#versions;
+           $priority= &gl("priority");
+           $priority =~ m/^[-+]?\d+$/ || &badfmt("priority $version $priority");
+           $priorities[$i]= $priority;
+           for ($j=0; $j<=$#slavenames; $j++) {
+               $slavepath{$i,$j}= &gl("spath");
+           }
+       } else {
+           # File not found - remove
+           &pr("Alternative for $name points to $version - which wasn't found.  Removing from list of alternatives.")
+             if $verbosemode > 0;
+           &gl("priority");
+           for ($j=0; $j<=$#slavenames; $j++) {
+               &gl("spath");
+           }
+       }
+    }
+    close(AF);
+    $dataread=1;
+} elsif ($! != &ENOENT) {
+    &quit("failed to open $admindir/$name: $!");
+}
+
+if ($mode eq 'display') {
+    if (!$dataread) {
+        &pr("No alternatives for $name.");
+    } else {
+        &pr("$name - status is $manual.");
+        if (defined($linkname= readlink("$altdir/$name"))) {
+            &pr(" link currently points to $linkname");
+        } elsif ($! == &ENOENT) {
+            &pr(" link currently absent");
+        } else {
+            &pr(" link unreadable - $!");
+        }
+        $best= '';
+        for ($i=0; $i<=$#versions; $i++) {
+            if ($best eq '' || $priorities[$i] > $bestpri) {
+                $best= $versions[$i]; $bestpri= $priorities[$i];
+            }
+            &pr("$versions[$i] - priority $priorities[$i]");
+            for ($j=0; $j<=$#slavenames; $j++) {
+                next unless length($tspath= $slavepath{$i,$j});
+                &pr(" slave $slavenames[$j]: $tspath");
+            }
+        }
+        if ($best eq '') {
+            &pr("No versions available.");
+        } else {
+            &pr("Current \`best' version is $best.");
+        }
+    }
+    exit 0;
+}
+
+$best= '';
+for ($i=0; $i<=$#versions; $i++) {
+    if ($best eq '' || $priorities[$i] > $bestpri) {
+        $best= $versions[$i]; $bestpri= $priorities[$i];
+    }
+}
+
+if ($mode eq 'config') {
+    if (!$dataread) {
+	&pr("No alternatives for $name.");
+    } else {
+	&config_alternatives($name);
+    }
+}
+
+if (defined($linkname= readlink("$altdir/$name"))) {
+    if ($linkname eq $best) {
+        $state= 'expected';
+    } elsif (defined($linkname2= readlink("$altdir/$name.rpm-tmp"))) {
+        $state= 'expected-inprogress';
+    } else {
+        $state= 'unexpected';
+    }
+} elsif ($! == &ENOENT) {
+    $state= 'nonexistent';
+} else {
+    $state= 'unexpected';
+}
+
+# Possible values for:
+#   $manual      manual, auto
+#   $state       expected, expected-inprogress, unexpected, nonexistent
+#   $mode        auto, install, remove
+# all independent
+
+if ($mode eq 'auto') {
+    &pr("Setting up automatic selection of $name.")
+      if $verbosemode > 0;
+    unlink("$altdir/$name.rpm-tmp") || $! == &ENOENT ||
+        &quit("unable to remove $altdir/$name.rpm-tmp: $!");
+    unlink("$altdir/$name") || $! == &ENOENT ||
+        &quit("unable to remove $altdir/$name.rpm-tmp: $!");
+    $state= 'nonexistent';
+    $manual= 'auto';
+} elsif ($state eq 'nonexistent') {
+    if ($manual eq 'manual') {
+        &pr("$altdir/$name has been deleted, returning to automatic selection.")
+          if $verbosemode > 0;
+        $manual= 'auto';
+    }
+}
+
+#   $manual      manual, auto
+#   $state       expected, expected-inprogress, unexpected, nonexistent
+#   $mode        auto, install, remove
+# mode=auto <=> state=nonexistent
+
+if ($state eq 'unexpected' && $manual eq 'auto') {
+    &pr("$altdir/$name has been changed (manually or by a script).\n".
+        "Switching to manual updates only.")
+      if $verbosemode > 0;
+    $manual= 'manual';
+}
+
+#   $manual      manual, auto
+#   $state       expected, expected-inprogress, unexpected, nonexistent
+#   $mode        auto, install, remove
+# mode=auto <=> state=nonexistent
+# state=unexpected => manual=manual
+
+&pr("Checking available versions of $name, updating links in $altdir ...\n".
+    "(You may modify the symlinks there yourself if desired - see \`man ln'.)")
+  if $verbosemode > 0;
+
+if ($mode eq 'install') {
+    if ($link ne $alink && $link ne '') {
+        &pr("Renaming $name link from $link to $alink.")
+          if $verbosemode > 0;
+        rename_mv($link,$alink) || $! == &ENOENT ||
+            &quit("unable to rename $link to $alink: $!");
+    }
+    $link= $alink;
+    if (!defined($i= $versionnum{$apath})) {
+        push(@versions,$apath);
+        $versionnum{$apath}= $i= $#versions;
+    }
+    $priorities[$i]= $apriority;
+    for $sname (keys %aslavelink) {
+        if (!defined($j= $slavenum{$sname})) {
+            push(@slavenames,$sname);
+            $slavenum{$sname}= $j= $#slavenames;
+        }
+        $oldslavelink= $slavelinks[$j];
+        $newslavelink= $aslavelink{$sname};
+        $slavelinkcount{$oldslavelink}-- if $oldslavelink ne '';
+        $slavelinkcount{$newslavelink}++ &&
+            &quit("slave link name $newslavelink duplicated");
+        if ($newslavelink ne $oldslavelink && $oldslavelink ne '') {
+            &pr("Renaming $sname slave link from $oldslavelink to $newslavelink.")
+              if $verbosemode > 0;
+            rename_mv($oldslavelink,$newslavelink) || $! == &ENOENT ||
+                &quit("unable to rename $oldslavelink to $newslavelink: $!");
+        }
+        $slavelinks[$j]= $newslavelink;
+    }
+    for ($j=0; $j<=$#slavenames; $j++) {
+        $slavepath{$i,$j}= $aslavepath{$slavenames[$j]};
+    }
+}
+
+if ($mode eq 'remove') {
+    if ($manual eq "manual" and $state eq "expected") {
+    	&pr("Removing manually selected alternative - switching to auto mode");
+	$manual= "auto";
+    }
+    if (defined($i= $versionnum{$apath})) {
+        $k= $#versions;
+        $versionnum{$versions[$k]}= $i;
+        delete $versionnum{$versions[$i]};
+        $versions[$i]= $versions[$k]; $#versions--;
+        $priorities[$i]= $priorities[$k]; $#priorities--;
+        for ($j=0; $j<=$#slavenames; $j++) {
+            $slavepath{$i,$j}= $slavepath{$k,$j};
+            delete $slavepath{$k,$j};
+        }
+    } else {
+        &pr("Alternative $apath for $name not registered, not removing.")
+          if $verbosemode > 0;
+    }
+}
+
+for ($j=0; $j<=$#slavenames; $j++) {
+    for ($i=0; $i<=$#versions; $i++) {
+        last if $slavepath{$i,$j} ne '';
+    }
+    if ($i > $#versions) {
+        &pr("Discarding obsolete slave link $slavenames[$j] ($slavelinks[$j]).")
+          if $verbosemode > 0;
+        unlink("$altdir/$slavenames[$j]") || $! == &ENOENT ||
+            &quit("unable to remove $slavenames[$j]: $!");
+        unlink($slavelinks[$j]) || $! == &ENOENT ||
+            &quit("unable to remove $slavelinks[$j]: $!");
+        $k= $#slavenames;
+        $slavenum{$slavenames[$k]}= $j;
+        delete $slavenum{$slavenames[$j]};
+        $slavelinkcount{$slavelinks[$j]}--;
+        $slavenames[$j]= $slavenames[$k]; $#slavenames--;
+        $slavelinks[$j]= $slavelinks[$k]; $#slavelinks--;
+        for ($i=0; $i<=$#versions; $i++) {
+            $slavepath{$i,$j}= $slavepath{$i,$k};
+            delete $slavepath{$i,$k};
+        }
+        $j--;
+    }
+}
+
+if ($manual eq 'manual') {
+    &pr("Automatic updates of $altdir/$name are disabled, leaving it alone.")
+      if $verbosemode > 0;
+    &pr("To return to automatic updates use \`update-alternatives --auto $name'.")
+      if $verbosemode > 0;
+} else {
+    if ($state eq 'expected-inprogress') {
+        &pr("Recovering from previous failed update of $name ...");
+        rename_mv("$altdir/$name.rpm-tmp","$altdir/$name") ||
+            &quit("unable to rename $altdir/$name.rpm-tmp to $altdir/$name: $!");
+        $state= 'expected';
+    }
+}
+
+#   $manual      manual, auto
+#   $state       expected, expected-inprogress, unexpected, nonexistent
+#   $mode        auto, install, remove
+# mode=auto <=> state=nonexistent
+# state=unexpected => manual=manual
+# manual=auto => state!=expected-inprogress && state!=unexpected
+
+open(AF,">$admindir/$name.rpm-new") ||
+    &quit("unable to open $admindir/$name.rpm-new for write: $!");
+&paf($manual);
+&paf($link);
+for ($j=0; $j<=$#slavenames; $j++) {
+    &paf($slavenames[$j]);
+    &paf($slavelinks[$j]);
+}
+&paf('');
+$best= '';
+for ($i=0; $i<=$#versions; $i++) {
+    if ($best eq '' || $priorities[$i] > $bestpri) {
+        $best= $versions[$i]; $bestpri= $priorities[$i]; $bestnum= $i;
+    }
+    &paf($versions[$i]);
+    &paf($priorities[$i]);
+    for ($j=0; $j<=$#slavenames; $j++) {
+        &paf($slavepath{$i,$j});
+    }
+}
+&paf('');
+close(AF) || &quit("unable to close $admindir/$name.rpm-new: $!");
+
+if ($manual eq 'auto') {
+    if ($best eq '') {
+        &pr("Last package providing $name ($link) removed, deleting it.")
+          if $verbosemode > 0;
+        unlink("$altdir/$name") || $! == &ENOENT ||
+            &quit("unable to remove $altdir/$name: $!");
+        unlink("$link") || $! == &ENOENT ||
+            &quit("unable to remove $altdir/$name: $!");
+        unlink("$admindir/$name.rpm-new") ||
+            &quit("unable to remove $admindir/$name.rpm-new: $!");
+        unlink("$admindir/$name") || $! == &ENOENT ||
+            &quit("unable to remove $admindir/$name: $!");
+        exit(0);
+    } else {
+        if (!defined($linkname= readlink($link)) && $! != &ENOENT) {
+            &pr("warning: $link is supposed to be a symlink to $altdir/$name\n".
+                " (or nonexistent); however, readlink failed: $!")
+              if $verbosemode > 0;
+        } elsif ($linkname ne "$altdir/$name") {
+            unlink("$link.rpm-tmp") || $! == &ENOENT ||
+                &quit("unable to ensure $link.rpm-tmp nonexistent: $!");
+            my_symlink("$altdir/$name","$link.rpm-tmp");
+            rename_mv("$link.rpm-tmp",$link) ||
+                &quit("unable to install $link.rpm-tmp as $link: $!");
+        }
+        if (defined($linkname= readlink("$altdir/$name")) && $linkname eq $best) {
+            &pr("Leaving $name ($link) pointing to $best.")
+              if $verbosemode > 0;
+        } else {
+            &pr("Updating $name ($link) to point to $best.")
+              if $verbosemode > 0;
+        }
+        unlink("$altdir/$name.rpm-tmp") || $! == &ENOENT ||
+            &quit("unable to ensure $altdir/$name.rpm-tmp nonexistent: $!");
+        my_symlink($best,"$altdir/$name.rpm-tmp");
+    }
+}
+
+rename_mv("$admindir/$name.rpm-new","$admindir/$name") ||
+    &quit("unable to rename $admindir/$name.rpm-new to $admindir/$name: $!");
+
+if ($manual eq 'auto') {
+    rename_mv("$altdir/$name.rpm-tmp","$altdir/$name") ||
+        &quit("unable to install $altdir/$name.rpm-tmp as $altdir/$name");
+    for ($j=0; $j<=$#slavenames; $j++) {
+        $sname= $slavenames[$j];
+        $slink= $slavelinks[$j];
+        if (!defined($linkname= readlink($slink)) && $! != &ENOENT) {
+            &pr("warning: $slink is supposed to be a slave symlink to\n".
+                " $altdir/$sname, or nonexistent; however, readlink failed: $!")
+              if $verbosemode > 0;
+        } elsif ($linkname ne "$altdir/$sname") {
+            unlink("$slink.rpm-tmp") || $! == &ENOENT ||
+                &quit("unable to ensure $slink.rpm-tmp nonexistent: $!");
+            my_symlink("$altdir/$sname","$slink.rpm-tmp");
+            rename_mv("$slink.rpm-tmp",$slink) ||
+                &quit("unable to install $slink.rpm-tmp as $slink: $!");
+        }
+        $spath= $slavepath{$bestnum,$j};
+        unlink("$altdir/$sname.rpm-tmp") || $! == &ENOENT ||
+            &quit("unable to ensure $altdir/$sname.rpm-tmp nonexistent: $!");
+        if ($spath eq '') {
+            &pr("Removing $sname ($slink), not appropriate with $best.")
+              if $verbosemode > 0;
+            unlink("$altdir/$sname") || $! == &ENOENT ||
+                &quit("unable to remove $altdir/$sname: $!");
+	    unlink("$slink") || $! == &ENOENT ||
+	        &quit("unable to remove $slink: $!");
+        } else {
+            if (defined($linkname= readlink("$altdir/$sname")) && $linkname eq $spath) {
+                &pr("Leaving $sname ($slink) pointing to $spath.")
+                  if $verbosemode > 0;
+            } else {
+                &pr("Updating $sname ($slink) to point to $spath.")
+                  if $verbosemode > 0;
+            }
+            my_symlink("$spath","$altdir/$sname.rpm-tmp");
+            rename_mv("$altdir/$sname.rpm-tmp","$altdir/$sname") ||
+                &quit("unable to install $altdir/$sname.rpm-tmp as $altdir/$sname: $!");
+        }
+    }
+}
+
+sub config_message {
+    if ($#versions == 0) {
+	print "\nThere is only 1 program which provides $name\n";
+	print "($versions[0]). Nothing to configure.\n";
+	return;
+    }
+    printf(STDOUT "\nThere are %s programs which provide \`$name'.\n\n", $#versions+1);
+    printf(STDOUT "  Selection    Command\n");
+    printf(STDOUT "-----------------------------------------------\n");
+    for ($i=0; $i<=$#versions; $i++) {
+	printf(STDOUT "%s%s    %s        %s\n",
+	    (readlink("$altdir/$name") eq $versions[$i]) ? '*' : ' ',
+	    ($best eq $versions[$i]) ? '+' : ' ',
+	    $i+1, $versions[$i]);
+    }
+    printf(STDOUT "\nEnter to keep the default[*], or type selection number: ");
+}
+
+sub config_alternatives {
+    do {
+	&config_message;
+	if ($#versions == 0) { return; }
+	$preferred=<STDIN>;
+	chop($preferred);
+    } until $preferred eq '' || $preferred>=1 && $preferred<=$#versions+1 &&
+	($preferred =~ m/[0-9]*/);
+    if ($preferred ne '') {
+    	$manual = "manual";
+	$preferred--;
+	print STDOUT "Using \`$versions[$preferred]' to provide \`$name'.\n";
+	my $spath = $versions[$preferred];
+	my_symlink("$spath","$altdir/$name.rpm-tmp");
+	rename_mv("$altdir/$name.rpm-tmp","$altdir/$name") ||
+	    &quit("unable to install $altdir/$name.rpm-tmp as $altdir/$name: $!");
+	# Link slaves...
+	for( my $slnum = 0; $slnum < @slavenames; $slnum++ ) {
+	    my $slave = $slavenames[$slnum];
+	    if ($slavepath{$preferred,$slnum} ne '') {
+		checked_symlink($slavepath{$preferred,$slnum},
+			"$altdir/$slave.rpm-tmp");
+		checked_mv("$altdir/$slave.rpm-tmp", "$altdir/$slave");
+	    } else {
+		&pr("Removing $slave ($slavelinks[$slnum]), not appropriate with $versions[$preferred].")
+		    if $verbosemode > 0;
+		unlink("$altdir/$slave") || $! == &ENOENT ||
+		    &quit("unable to remove $altdir/$slave: $!");
+	    }
+	}
+
+    }
+}
+
+sub pr { print(STDOUT "@_\n") || &quit("error writing stdout: $!"); }
+sub paf {
+    $_[0] =~ m/\n/ && &quit("newlines prohibited in update-alternatives files ($_[0])");
+    print(AF "$_[0]\n") || &quit("error writing stdout: $!");
+}
+sub gl {
+    $!=0; $_= <AF>;
+    length($_) || &quit("error or eof reading $admindir/$name for $_[0] ($!)");
+    s/\n$// || &badfmt("missing newline after $_[0]");
+    $_;
+}
+sub badfmt {
+    &quit("internal error: $admindir/$name corrupt: $_[0]");
+}
+sub rename_mv {
+    return (rename($_[0], $_[1]) || (system(("mv", $_[0], $_[1])) == 0));
+}
+sub checked_symlink {
+    my ($filename, $linkname) = @_;
+    my_symlink($filename, $linkname);
+}
+
+sub my_symlink {
+	my ($filename, $linkname) = @_;
+	local $_ = $linkname;
+	s|//|/|g;
+	if ( $_ == "/" ) {
+		my $relative = $_;
+	}
+	else {
+		my $relative = join('/', ("..") x (split(m|/|) - 2));
+	}
+	symlink($relative.$filename,$linkname) ||
+	&quit("unable to make $linkname a symlink to $relative.$filename: $!");
+}
+
+sub checked_mv {
+    my ($source, $dest) = @_;
+    rename_mv($source, $dest) ||
+	&quit("unable to install $source as $dest: $!");
+}
+
+exit(0);
+
+# vim: nowrap ts=8 sw=4

update-alternatives.8

@@ -0,0 +1,362 @@
+.\" update-alternatives.8
+.\" This man page is copyright 1997 Charles Briscoe-Smith
+.\" This is free documentation; 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.  There is NO WARRANTY.
+.TH UPDATE-ALTERNATIVES 8 "27 January 2001" "ALT Linux Team" "Linux-Mandrake RE"
+.SH NAME
+update-alternatives \- maintain symbolic links determining default commands
+.SH SYNOPSIS
+.B update-alternatives
+.RI [ options ]
+.B --install
+.I link name path priority
+.RB [ --slave
+.I link name
+.IR path ]...
+.PP
+.B update-alternatives
+.RI [ options ]
+.B --remove
+.I name path
+.PP
+.B update-alternatives
+.RI [ options ]
+.B --auto
+.I name
+.PP
+.B update-alternatives
+.RI [ options ]
+.B --display
+.I name
+.PP
+.B update-alternatives
+.RI [ options ]
+.B --config
+.I name
+.SH DESCRIPTION
+.B update-alternatives
+creates, removes, maintains and displays information about the symbolic
+links comprising the Linux-Mandrake RE alternatives system.
+.PP
+It is possible for several programs fulfilling the same or similar
+functions to be installed on a single system at the same time.
+For example, many systems have several text editors installed at once.
+This gives choice to the users of a system, allowing each to use a
+different editor, if desired, but makes it difficult for a program
+to make a good choice of editor to invoke if the
+user has not specified a particular preference.
+.PP
+The alternatives system aims to solve this problem.
+A generic name in the filesystem is
+shared by all files providing interchangeable functionality.
+The alternatives system and the system administrator
+together determine which actual file is referenced by this generic name.
+For example, if the text editors
+.BR ed (1)
+and
+.BR nvi (1)
+are both installed on the system, the alternatives system will cause
+the generic name
+.I /usr/bin/editor
+to refer to
+.I /usr/bin/nvi
+by default.  The system administrator can override this and cause
+it
+to refer to
+.I /usr/bin/ed
+instead,
+and the alternatives system will not alter this setting until explicitly
+requested to do so.
+.PP
+The generic name is not a direct symbolic link to the selected alternative.
+Instead, it is a symbolic link to a name in the
+.I alternatives
+.IR directory ,
+which in turn is a symbolic link to the actual file referenced.
+This is done so that the system administrator's changes can be confined
+within the
+.I /etc
+directory: the FHS (q.v.) gives reasons why this is a Good Thing.
+.PP
+When each package
+providing a file with a particular functionality is
+installed, changed or removed,
+.B update-alternatives
+is called to update information about that file in the alternatives system.
+.B update-alternatives
+is usually called from the
+.B post-install
+or
+.B pre-uninstall
+scripts in RPM packages.
+.PP
+It is often useful for a number of alternatives to be synchronised,
+so that they are changed as a group; for example, when several versions
+of the
+.BR vi (1)
+editor are installed, the man page referenced by
+.I /usr/share/man/man1/vi.1
+should correspond to the executable referenced by
+.IR /usr/bin/vi .
+.B update-alternatives
+handles this by means of
+.I master
+and
+.I slave
+links; when the master is changed, any associated slaves are changed
+too.
+A master link and its associated slaves make up a
+.I link
+.IR group .
+.PP
+Each link group is, at any given time,
+in one of two modes: automatic or manual.
+When a group is in automatic mode, the alternatives system will
+automatically decide, as packages are installed and removed,
+whether and how to update the links.
+In manual mode, the alternatives system will not change the links;
+it will leave all the decisions to the system administrator.
+.PP
+Link groups are in automatic mode when they are first introduced to
+the system.
+If the system administrator makes changes to the system's
+automatic settings,
+this will be noticed the next time
+.B update-alternatives
+is run on the changed link's group,
+and the group will automatically be switched to manual mode.
+.PP
+Each alternative has a
+.I priority
+associated with it.
+When a link group is in automatic mode,
+the alternatives pointed to by members of the group
+will be those which have the highest priority.
+.PP
+When using the
+.I --config
+option,
+.B update-alternatives
+will list all of the choices for the link group
+of which given
+.I name
+is the master link.
+You will then be prompted for which of the choices to use
+for the link group. Once you make a change, the link group will no
+longer be in
+.I auto
+mode. You will need to use the
+.I --auto
+option in order to return to the automatic state.
+.SH TERMINOLOGY
+Since the activities of
+.B update-alternatives
+are quite involved, some specific terms will help to explain its
+operation.
+.TP
+generic name
+A name, like
+.IR /usr/bin/editor ,
+which refers, via the alternatives system, to one of a number of
+files of similar function.
+.TP
+symlink
+Without any further qualification, this means a symbolic link in the
+alternatives directory: one which the system administrator is expected
+to adjust.
+.TP
+alternative
+The name of a specific file in the filesystem, which may be made
+accessible via a generic name using the alternatives system.
+.TP
+alternatives directory
+A directory, by default
+.IR /etc/alternatives ,
+containing the symlinks.
+.TP
+administrative directory
+A directory, by default
+.IR /var/lib/rpm/alternatives ,
+containing
+.BR update-alternatives '
+state information.
+.TP
+link group
+A set of related symlinks, intended to be updated as a group.
+.TP
+master link
+The link in a link group which determines how the other links in the
+group are configured.
+.TP
+slave link
+A link in a link group which is controlled by the setting of
+the master link.
+.TP
+automatic mode
+When a link group is in automatic mode,
+the alternatives system ensures that the links in the group
+point to the highest priority alternatives
+appropriate for the group.
+.TP
+manual mode
+When a link group is in manual mode,
+the alternatives system will not make any changes
+to the system administrator's settings.
+.SH OPTIONS
+Exactly one action must be specified if
+.B update-alternatives
+is to perform any meaningful task.
+Any number of the common options may be specified together with any action.
+.SS "COMMON OPTIONS"
+.TP
+.B --verbose
+Generate more comments about what
+.B update-alternatives
+is doing.
+.TP
+.B --quiet
+Don't generate any comments unless errors occur.
+This option is not yet implemented.
+.TP
+.B --test
+Don't actually do anything, just say what would be done.
+This option is not yet implemented.
+.TP
+.B --help
+Give some usage information (and say which version of
+.B update-alternatives
+this is).
+.TP
+.B --version
+Tell which version of
+.B update-alternatives
+this is (and give some usage information).
+.TP
+\fB--altdir\fR \fIdirectory\fR
+Specifies the alternatives directory, when this is to be
+different from the default.
+.TP
+\fB--admindir\fR \fIdirectory\fR
+Specifies the administrative directory, when this is to be
+different from the default.
+.SS ACTIONS
+.\" The names of the arguments should be identical with the ones
+.\" in SYNOPSIS section.
+.TP
+\fB--install\fR \fIlink gen path pri\fR [\fB--slave\fR \fIslink sgen spath\fR] ...
+Add a group of alternatives to the system.
+.I gen
+is the generic name for the master link,
+.I link
+is the name of its symlink, and
+.I path
+is the alternative being introduced for the master link.
+.IR sgen ,
+.I slink
+and
+.I spath
+are the generic name, symlink name and alternative
+for a slave link.
+Zero or more
+.B --slave
+options, each followed by three arguments,
+may be specified.
+.IP
+If the master symlink specified exists already
+in the alternatives system's records,
+the information supplied will be added as a new
+set of alternatives for the group.
+Otherwise, a new group, set to automatic mode,
+will be added with this information.
+If the group is in automatic mode,
+and the newly added alternatives' priority is higher than
+any other installed alternatives for this group,
+the symlinks will be updated to point to the newly added alternatives.
+.TP
+\fB--remove\fR \fIname path\fR
+Remove an alternative and all of its associated slave links.
+.I name
+is a name in the alternatives directory, and
+.I path
+is an absolute filename to which
+.I name
+could be linked.  If
+.I name
+is indeed linked to
+.IR path ,
+.I name
+will be updated to point to another appropriate alternative, or
+removed if there is no such alternative left.
+Associated slave links will be updated or removed, correspondingly.
+If the link is not currently pointing to
+.IR path ,
+no links are changed;
+only the information about the alternative is removed.
+.TP
+\fB--auto\fR \fIlink\fR
+Switch the master symlink
+.I link
+to automatic mode.
+In the process, this symlink and its slaves are updated
+to point to the highest priority installed alternatives.
+.TP
+\fB--display\fR \fIlink\fR
+Display information about the link group of which
+.I link
+is the master link.
+Information displayed includes the group's mode
+(auto or manual),
+which alternative the symlink currently points to,
+what other alternatives are available
+(and their corresponding slave alternatives),
+and the highest priority alternative currently installed.
+.SH FILES
+.TP
+.I /etc/alternatives/
+The default alternatives directory.
+Can be overridden by the
+.B --altdir
+option.
+.TP
+.I /var/lib/rpm/alternatives/
+The default administration directory.
+Can be overridden by the
+.B --admindir
+option.
+.SH "EXIT STATUS"
+.IP 0
+The requested action was successfully performed.
+.IP 2
+Problems were encountered whilst parsing the command line
+or performing the action.
+.SH DIAGNOSTICS
+.B update-alternatives
+chatters incessantly about its activities on its standard output channel.
+If problems occur,
+.B update-alternatives
+outputs error messages on its standard error channel and
+returns an exit status of 2.
+These diagnostics should be self-explanatory;
+if you do not find them so, please report this as a bug.
+.SH BUGS
+If you find a bug, please report it using the Linux-Mandrake RE bug-tracking system,
+or, if that is not possible, email the author directly.
+.PP
+If you find any discrepancy between the operation of
+.B update-alternatives
+and this manual page, it is a bug,
+either in the implementation or the documentation; please report it.
+.SH AUTHOR
+The update-alternatives system, based on Debian update-alternatives,
+is copyright 1995 Ian Jackson.
+It is free software; see the GNU General Public Licence
+version 2 or later for copying conditions.  There is NO warranty.
+.PP
+This manual page is copyright 1997/98 Charles Briscoe-Smith.
+This is free documentation; see the GNU General Public Licence
+version 2 or later for copying conditions.  There is NO WARRANTY.
+.SH "SEE ALSO"
+.BR ln (1),
+FHS, the Filesystem Hierarchy Standard.