path: root/src/php.eselect.in

# Copyright 2010-2015 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2

inherit config multilib

DESCRIPTION="Manage php installations"
MAINTAINER="php-bugs@gentoo.org"

MODULES="cli apache2 fpm cgi phpdbg"


# Each SAPI provides at least one "active" link in a predictable
# location.  For example, the "cgi" SAPI has its active symlink at
# /usr/bin/php-cgi. Given a SAPI name we return the path to that link.
#
# Note that the "cli" SAPI actually provides three executables -- we
# return the path for only one. This is an API wart, not by design.
#
# INPUT:
#
# The name of a SAPI.
#
# OUTPUT:
#
# The path of the main symlink provided by the active version of the
# given SAPI. An error is raised if the given SAPI is not valid.
#
sapi_active_link_path() {
	local sapi="${1}"
	local bin_dir="${EROOT}/usr/bin/"
	case "${sapi}" in
		apache2)
			 echo "${EROOT}$(get_active_libdir)/apache2/modules/mod_php.so" ;;
		cli) echo "${bin_dir}/php"     ;;
		fpm) echo "${bin_dir}/php-fpm" ;;
		cgi) echo "${bin_dir}/php-cgi" ;;
		dbg) echo "${bin_dir}/phpdbg"  ;;
        *)   die "invalid SAPI name: ${sapi}" ;;
	esac
}


# Parse and return the major version from a target name. For example,
# the "php5.6" target has a major version of "5".
#
# INPUT:
#
# The name of a valid PHP target, like php5.6 or php7.0.
#
# OUTPUT:
#
# A major version number. An error is raised if the given target is
# not valid.
#
parse_target_major_version() {
	local target="${1}"
	local major="${target:3:1}"
	case "${major}" in
		5|7) echo "${major}" ;;
		*)   die "invalid PHP target name: ${target}" ;;
	esac
}

cleanup_sapis() {
	local m
	local link
	for m in $MODULES ; do
		cleanup_sapi $m
	done
}

cleanup_sapi() {
	local l=${1}_link
	local link=${!l}
	if [[ -L $link && ! -e $link ]] ; then
		echo -n "Broken link for $1"
		if update_sapi $1 ; then
			echo ", updated version to $(get_active_$1)"
			return
		else
			rm $link || die "failed to remove ${link}"

			return
		fi
	fi

	if [[ "${1}" == "apache2" ]]; then
		rm -f "${EROOT}$(get_active_libdir)/apache2/modules/libphp[57].so" \
		   || die "failed to remove old libphp.so symlink"
	fi

	return 1
}

update_sapi() {
	local target=$(find_sapi_targets $1 | tail -n 1)
	local current=$(get_active_$1)
	[[ -z $target ]] && return 1
	[[ $current = $target ]] && return 1
	set_$1 $target
}

get_libdirs() {
	local dir libdirs
	for dir in $(list_libdirs); do
		[[ -L ${EROOT}/usr/${dir} ]] && continue
		ls "${EROOT}"/usr/${dir}/php*.* > /dev/null 2>&1 || continue

		libdirs+=' '/usr/${dir}
	done
	echo ${libdirs:-/usr/lib}
}

get_active_libdir() {
	local dir
	for dir in $(get_libdirs); do
		echo ${dir}
		return
	done
	echo /usr/lib
}

find_targets() {
	local dir dirs libdir
	for libdir in $(get_libdirs); do
		for dir in "${EROOT}"${libdir}/php*.*; do
			t=$(basename $dir)
			has $t $dirs || dirs="${dirs} $t"
		done
	done
  echo $dirs
}

# List all valid targets for the given SAPI. The list is obtained by
# searching the filesystem for a particular (SAPI-specific) file in
# locations determined by find_targets(). This list should therefore
# be a subset of find_targets().
#
# INPUT:
#
# The name of a SAPI.
#
# OUTPUT:
#
# The "display name" of every available target for this SAPI, one per
# line. For example,
#
#   php5.6
#   php7.0
#
find_sapi_targets() {
	local sapi="${1}"

	local pattern_suffix
	case "${sapi}" in
		apache2) pattern_suffix="apache2/libphp[57].so" ;;
		cli)     pattern_suffix="bin/php"     ;;
		fpm)     pattern_suffix="bin/php-fpm" ;;
		cgi)     pattern_suffix="bin/php-cgi" ;;
		dbg)     pattern_suffix="bin/phpdbg"  ;;
		*)       die "invalid SAPI name: ${sapi}" ;;
	esac

	for target in $(find_targets); do
		for libdir in $(get_libdirs); do
			local pattern="${EROOT}${libdir}/${target}/${pattern_suffix}"
			for file in $pattern; do
				[[ -f "${file}" ]] && echo "${target}"
			done
		done
	done | @SORT@ | @UNIQ@
}


# Find the active (selected) target for the given SAPI. This is used
# to decorate the output of the `eselect php list <sapi>` command.
#
# INPUT:
#
# The name of a SAPI.
#
# OUTPUT:
#
# The "display name" of the active target for the given SAPI. For
# example, "php5.6" or "php7.0".
#
get_sapi_active_target() {
	local sapi="${1}"
	local active_symlink=$(sapi_active_link_path "${sapi}")

	if [[ -L "${active_symlink}" ]] ; then
		local active_file=$(canonicalise "${active_symlink}")
		if [[ -a "${active_file}" ]] ; then
			# This sed command (regular expression) finds a target name
			# contained in a filesystem path. For example, it parses
			# "php5.6" from "/usr/lib64/php5.6/apache2/libphp5.so".
			# The curly braces are an attempt to avoid '+' which is
			# a GNU extension.
			local sed_cmd='s:.*/\(php[0-9]\.[0-9]\{1,\}\)/.*:\1:p'
			echo "${active_file}" | @SED@ -ne "${sed_cmd}"
		fi
	fi
}

# Write an apache configuration file to load the active version of
# mod_php. The 5.x and 7.x series (at least...) have different module
# names, and so require a different apache configuration when
# switching between the two.
#
# INPUT:
#
# The name of the target (php5.6, php7.0) for which to write the
# configuration file.
#
# OUTPUT:
#
# None.
#
write_mod_php_conf() {
	local target="${1}"
	local conf_dir="${EROOT}"/var/lib/eselect-php
	local conf_path="${conf_dir}/mod_php.conf"

	@MKDIR_P@ "${conf_dir}" || die "failed to create ${conf_dir}"

	local major=$(parse_target_major_version "${target}")
	cat <<-EOF > "${conf_path}" || die "failed to write mod_php.conf"
	<IfModule !php${major}_module>
	    LoadModule php${major}_module modules/mod_php.so
	</IfModule>
	EOF
}

resolv_target() {
	local targets=( $(find_sapi_targets $1) )
	if is_number $2; then
		if [[ $2 -le ${#targets[@]} && $2 -gt 0 ]] ; then
			echo "${targets[ $(( $2 - 1 )) ]}"
		fi
	elif has $2 ${targets[@]}; then
	  echo $2
	fi
}

check_module() {
	has $1 $(echo $MODULES) || \
		die -q "Please choose one of the following modules: ${MODULES}"
}

## Actual actions

# Perform the "list" action for the given SAPI.
#
# INPUT:
#
# The SAPI name.
#
# OUTPUT:
#
# A numbered and decorated list of targets for the given SAPI.
#
list_sapi() {
	local sapi="${1}"
	local targets=( $(find_sapi_targets "${sapi}") )
	local active=$(get_sapi_active_target "${sapi}")

	for (( i = 0; i < ${#targets[@]}; i++ )) ; do
		if [[ $active == ${targets[i]} ]] ; then
			targets[i]=$(highlight_marker "${targets[i]}")
		fi
	done
	write_numbered_list -m "(none found)" "${targets[@]}"
}

list_apache2() {
	list_sapi apache2
}

list_cli() {
	list_sapi cli
}

list_cgi() {
	list_sapi cgi
}

list_fpm() {
	list_sapi fpm
}

list_phpdbg() {
	list_sapi dbg
}

set_apache2() {
	local active_symlink libdir major target=$(resolv_target apache2 $1)
	active_symlink="$(sapi_active_link_path apache2)"
	major=$(parse_target_major_version "${target}")

	[[ -z $target ]] && die -q "invalid target"

	for libdir in $(get_libdirs); do
		rm --force "${active_symlink}" || \
			die "failed to remove active module symlink"

		@LN_S@ --force "../../${target}/apache2/libphp${major}.so" \
			"${active_symlink}" || \
			die -q "failed to create active mod_php symlink"
	done

	write_mod_php_conf "${target}"
	echo "Please restart apache for the changes to take effect."
}

set_cli() {
	local file libdir t=$(resolv_target cli $1)
	[[ -z $t ]] && die -q "invalid target"
	for file in php phpize php-config; do
		@LN_S@ --force "../..$(get_active_libdir)/${t}/bin/${file}" \
			"${EROOT}/usr/bin/${file}" || \
			die -q "failed to create active ${file} symlink"
	done
}

set_cgi() {
	t=$(resolv_target cgi $1)
	[[ -z $t ]] && die -q "invalid target"
	@LN_S@ --force "../..$(get_active_libdir)/${t}/bin/php-cgi" \
		"$(sapi_active_link_path cgi)" || \
		die -q "failed to create active php-cgi symlink"
}

set_phpdbg() {
	t=$(resolv_target dbg $1)
	[[ -z $t ]] && die -q "invalid target"
	@LN_S@ --force "../..$(get_active_libdir)/${t}/bin/phpdbg" \
		"$(sapi_active_link_path dbg)" || \
		die -q "failed to create active phpdbg symlink"
}

set_fpm() {
	local t=$(resolv_target fpm $1)
	[[ -z $t ]] && die -q "invalid target"
	@LN_S@ --force "../..$(get_active_libdir)/${t}/bin/php-fpm" \
		"$(sapi_active_link_path fpm)" || \
		die -q "failed to create symlink for the php-fpm binary"
	echo "Please restart php-fpm for the changes to take effect."
}
## set action

describe_set() {
	echo "Sets the current configuration for a module"
}

describe_set_parameters() {
	echo "<module> <target>"
}

describe_set_options() {
	echo "module:	one of ${MODULES}"
	echo "target:	Target name or number (from the 'list' action)"
}


do_set() {
	check_module $1
	set_$1 $2
}



## List action

describe_list() {
	echo "Lists available php installs for a module"
}

describe_list_parameters() {
	echo "<module>"
}

describe_list_options() {
	echo "module: one of ${MODULES}"
}

do_list() {
	check_module $1
	list_$1
}

## Show action

describe_show() {
	echo "Lists available php installs for a module"
}

describe_show_parameters() {
	echo "<module>"
}

describe_show_options() {
	echo "module: one of ${MODULES}"
}

do_show() {
	check_module $1
	get_active_$1
}

## update action

describe_update() {
	echo "Automatically update the php versions"
}

describe_update_parameters() {
	echo "<module> [ifunset]"
}

describe_update_options() {
	echo "module: one of ${MODULES}"
	echo "ifunset : Do not override existing implementation"
}

do_update() {
    check_module $1
	[[ -z ${2} || ( -z ${3} && ( ${2} == ifunset || ${2} == '--if-unset' ) ) ]] || \
		die -q "Usage error"

	if [[ (${2} == ifunset || ${2} == '--if-unset') && -n $(get_active_$1) ]];
	then
		return
	fi

    update_sapi $1 || echo "Nothing to update"
}

## cleanup action

describe_cleanup() {
	echo "Automatically clean up stale links"
}

describe_cleanup_parameters() {
	echo
}

describe_cleanup_options() {
	echo
}

do_cleanup() {
    cleanup_sapis
}