#! /bin/bash

. /usr/src/k_framework/main.sh


VERSION="1.0.1"
SCRIPT_NAME="sendEmail check"

k_config_details

k_start


if ! rpm --quiet -q perl || ! rpm --quiet -q perl-CPAN || ! rpm --quiet -q perl-Net-SSLeay || ! rpm --quiet -q perl-IO-Socket-SSL; then
    report "Necessary packets are not installed" 1
    report "  /usr/src/k_framework/helpers/sendEmail/sendEmail_install.sh" fix
else
    report "Necessary packets installed" 0
fi

script="/usr/src/k_framework/helpers/sendEmail/sendEmail"
scripts_dir="/usr/local/$SYSTEM_CONFIG_DIR"

if [ ! -f "${scripts_dir}/sendEmail" ]; then
    report "$scripts_dir/sendEmail not present" 1
    report "  /usr/src/k_framework/helpers/sendEmail/sendEmail_install.sh" fix
    EXIT_CODE=1
else
    report "sendEmail present in $scripts_dir" 0
    k_permission_check "${scripts_dir}/sendEmail" 0777
fi

if [ ! -f "/bin/sendEmail" ]; then
    report "/bin/sendEmail not present" 1
    report "  /usr/src/k_framework/helpers/sendEmail/sendEmail_install.sh" fix
    EXIT_CODE=1
else
    report "sendEmail present in /bin" 0
    k_permission_check "/bin/sendEmail" 0755
fi



CFG="/usr/share/perl5/vendor_perl/IO/Socket/SSL.pm"

if [[ ! -f $CFG ]]; then
    report "$CFG not present. Fix manually" 1
    EXIT_CODE=1
else

    if cat $CFG | grep -q "SSL_verify_mode => SSL_VERIFY_NONE,"; then
        report "Perl SSL_verify_mode != SSL_VERIFY_PEER" 1
        report "  /usr/src/k_framework/maintenance/system_preparation/perl_ssl_fix.sh" fix
        EXIT_CODE=1
    else
        report "Perl SSL_verify_mode = SSL_VERIFY_PEER" 0
    fi

fi


k_exit $EXIT_CODE