diff options
Diffstat (limited to 'subr/pre_check.subr')
-rw-r--r-- | subr/pre_check.subr | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/subr/pre_check.subr b/subr/pre_check.subr new file mode 100644 index 00000000..28e229e9 --- /dev/null +++ b/subr/pre_check.subr @@ -0,0 +1,38 @@ +# +# set -o errexit -o noglob are assumed. +# + +pre_check() { + local __ _exit; + for __ in ${CHECK_PATH_VARS}; do + if [ -z "${___:=$(get_var_unsafe "${__}")}" ]; then + log_msg failexit "Error: variable \`${__}' is empty or unset."; + elif [ "${___#* *}" != "${___}" ]; then + log_msg failexit "Error: variable \`${__}' contains one or more whitespace characters."; + fi; + done; + for __ in ${CHECK_PREREQ_CMDS} $(eval echo ${CHECK_PREREQ_FILES_DYNAMIC}) ${CHECK_PREREQ_FILES}; do + if [ "${__#/}" != "${__}" ]; then + if [ ! -e "${__}" ]; then + log_msg fail "Error: missing prerequisite file \`${__}'."; + _exit=1; + fi; + else + if ! test_cmd "${__}"; then + log_msg fail "Error: missing prerequisite command \`${__}'."; + _exit=1; + fi; + fi; + done; + for __ in ${CHECK_PREREQ_PERL_MODULES}; do + if ! perl -M"${__}" -e "" 2>/dev/null; then + log_msg fail "Error: missing prerequisite Perl module \`${__}'."; + _exit=1; + fi; + done; + if [ ${_exit:-0} = 1 ]; then + exit 1; + fi; +}; + +# vim:filetype=sh |