source: branches/help/SH/arb_macro_compatibility.sh

#!/bin/bash
#
# called from arb after startup.
# tests if perl code works.
# if not -> signal problem via arb_message.

show_error() {
    local TEXT=$*
    arb_message "${TEXT}"
    false
}

something_wrong_with_perl() {
    show_error "Incompatibility detected between installed arb build and perl version:\n" \
               "* arb macro playback will not work and\n" \
               "* other arb perl scripts wont work either."
}

main() {
    if [ -d "${ARBHOME}" ]; then
        # -> ../PERL_SCRIPTS/ARBTOOLS/TESTS/automatic.pl
        local TESTSCRIPT=${ARBHOME}/PERL_SCRIPTS/ARBTOOLS/TESTS/automatic.pl
        if [ -x ${TESTSCRIPT} ]; then
            local TESTCALL="${TESTSCRIPT} -db ${ARBHOME}/demo.arb -client arb"
            ${TESTCALL} || something_wrong_with_perl
        else
            show_error "not executable: '${TESTSCRIPT}'"
        fi
    else
        echo "incorrect value: \$ARBHOME (='${ARBHOME}')"
        false
    fi
}

main