#! /bin/bash

# Rocky 9 compatible

# Script fixes Perl SSL option for sendEmail

. /usr/src/k_framework/main.sh

VERSION="1.0.1"
SCRIPT_NAME="Perl SSL fix"

k_start
k_detect_os

if [[ "$centos_version" == "7" || $ROCKY9 == 1 ]]; then
    :
else
    report "Centos 7 / Rocky 9 required"
    EXIT_CODE=1
    k_exit 1
fi

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

if [ ! -f $CFG ]; then
    report "$CFG not found" 1
    EXIT_CODE=1
    k_exit 1
fi


if cat $CFG | grep -q "SSL_verify_mode => SSL_VERIFY_NONE,"; then
    report "Changing SSL value to SSL_VERIFY_PEER" 3
    sed -i 's/=> SSL_VERIFY_NONE,/=> SSL_VERIFY_PEER,/' $CFG
    if cat $CFG | grep -q "SSL_verify_mode => SSL_VERIFY_PEER,"; then
        report "SSL value changed" 0
    else
        report "Failed to change SSL value. Fix manually" 1
        EXIT_CODE=1
    fi
else
    report "Perl SSL_verify_mode option already changed to SSL_VERIFY_PEER" 3
fi


k_exit $EXIT_CODE