#!/bin/sh
#
# phpquery - a PHP module manager for Debian
#
# Copyright 2013-2015 Ondřej Surý <ondrej@sury.org>
#
# Permission is hereby granted, free of charge, to any person obtaining a copy of
# this software and associated documentation files (the "Software"), to deal in
# the Software without restriction, including without limitation the rights to
# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
# the Software, and to permit persons to whom the Software is furnished to do so,
# subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in all
# copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
set -ue
SCRIPT_NAME=${0##*/}
QUIET=no
. /usr/lib/php/php-helper
usage() {
[ -n "$@" ] && warning $@
echo "usage: ${SCRIPT_NAME} [ -d ] [ -q ] -v version_name -s sapi_name [ -m module_name ] [ -M ] [ -S ] [ -V ]"
exit 1
}
check_mod() {
local version=$1
local sapi=$2
local modname=$3
if ! module_exists $version $modname; then
output "No module matches $modname"
return 1
fi
local priority=$(get_priority $version $sapi $modname)
local live_link=$(get_live_link $version $sapi $modname $priority)
local live_link_content=$(get_live_link_content $version $sapi $modname $priority)
found=no
local state_dir="$(get_state_dir $version $sapi)"
if [ -e "${live_link}" ] ; then
if [ -h "${live_link}" ] ; then
local content="$(readlink "${live_link}")"
if [ "${content}" = "${live_link_content}" ] ; then
if [ -e "${state_dir}/enabled_by_admin/$modname" ]; then
output "$modname (Enabled for $sapi by local administrator)"
return 0
elif [ -e "${state_dir}/enabled_by_maint/$modname" ]; then
output "$modname (Enabled for $sapi by maintainer script)"
return 0
fi
output "$modname (Enabled for $sapi by unknown)"
return 0
else
output "Module $modname symlink was modified by local administrator."
return 34
fi
fi
else
if [ -e "${state_dir}/disabled_by_admin/$modname" ]; then
output "No module matches $modname (Disabled for $sapi by local administrator)"
return 32
elif [ -e "${state_dir}/disabled_by_maint/$modname" ]; then
output "No module matches $modname (Disabled for $sapi by maintainer script)"
return 33
fi
output "No module matches $modname (Disabled for $sapi by unknown)"
return 1
fi
}
list_mod() {
local _version=$1
local _sapi=$2
local verbose=$3
if [ "$_version" = "ALL" ]; then
versions=$(list_version)
else
versions=$_version
fi
for version in $versions; do
local registry_dir="$(get_registry_dir "$version")"
if [ -d "$registry_dir" ]; then
for mod in $(list_parts "$registry_dir"); do
if [ "$_sapi" = "ALL" ]; then
sapis=$(list_sapi $version)
else
sapis="$_sapi"
fi
if [ "$verbose" = "yes" ]; then
for sapi in $sapis; do
check_mod $version $sapi $mod
done
else
echo $mod
fi
done
fi
done
return 0
}
list_version() {
local version_dir="$(get_version_dir)"
if [ -d "$version_dir" ]; then
local version=
for version in $(list_parts_regex "$version_dir" '.*[0-9]\.[0-9]'); do
echo $version;
done | sort -rn
fi
}
list_sapi() {
local version=$1
local sapi_dir="$(get_sapi_dir $version)"
if [ -d "$sapi_dir" ]; then
for sapi in $(list_parts "$sapi_dir"); do
echo $sapi;
done
fi
}
check_version() {
local version=$1
local version_dir=$(get_version_dir)
if [ -d "$version_dir/$version" ]; then
return 0
fi
return 1
}
check_sapi() {
local version=$1
local sapi=$2
local sapi_dir="$(get_sapi_dir $version)"
if [ -e "$sapi_dir/$sapi" ]; then
return 0
fi
return 1
}
action() {
local action=$1
local version=$2
local sapi=$3
local mod=$4
local verbose=$5
ret=0
case "$action" in
check_mod)
[ -z "$version" -o -z "$sapi" ] && usage "You need to specify version (-v) and sapi (-s)"
check_version "$version" || usage "Invalid PHP version ($version) specified"
check_sapi "$version" "$sapi" || usage "Invalid SAPI ($sapi) specified"
check_mod "$version" "$sapi" "$mod" || ret=$?
;;
check_sapi)
[ -z "$version" ] && usage "You need to specify version (-v)"
check_version "$version" || usage "Invalid PHP version ($version) specified"
check_sapi "$version" "$sapi" || ret=$?
if [ "$ret" -eq 0 ]; then
output "$sapi"
fi
;;
check_version)
check_version $version || ret=$?
if [ "$ret" -eq 0 ]; then
output "$sapi"
fi
;;
list_version) list_version || ret=$?;;
list_mod) list_mod "$version" "$sapi" "$verbose" || ret=$?;;
list_sapi) list_sapi "$version" || ret=$?;;
*) usage "Unknown action $action"; ret=3;;
esac
return $ret
}
verbose=no
action=
version=
sapi=
mod=
double_action() {
usage "Cannot use $1 and $2 at the same time, pick only one mode of operation.";
}
while getopts ds:m:SMqv:V opt; do
case $opt in
v)
version="$OPTARG"
;;
V)
[ -n "$action" ] && double_action $action list_version;
action=list_version
;;
s)
sapi="$OPTARG"
;;
S)
[ -n "$action" ] && double_action $action list_sapi
action="list_sapi"
;;
m)
mod="$OPTARG"
;;
M)
[ -n "$action" ] && double_action $action list_mod
action="list_mod"
;;
q)
QUIET=yes
;;
d)
verbose=yes
;;
\?) usage "Unknown parameter specified";;
esac
done
shift $(expr $OPTIND - 1)
if [ -z "$action" ]; then
if [ -n "$mod" ]; then
action=check_mod
elif [ -n "$sapi" ]; then
action=check_sapi
elif [ -n "$version" ]; then
action=check_version
else
usage "You need to specify at least one action."
fi
fi
action "$action" "$version" "$sapi" "$mod" "$verbose"
exit $?
Mini Shell