#
# Library Interface:
#
# http_multipart_post_head <host> <url> <length>
# http_multipart_post_body <name> <value> <type>
# https_multipart_post <socket> <host> <url> <content file>
# https_check_server_cert <socket>

UAG="MolDynSub_CLI/${VERSION}"
FORM_BOUNDARY="------------------MolDynSubCLI"
X509_CERT_DIR=${X509_CERT_DIR:-/etc/grid-security/certificates}

http_multipart_post_head () {
    local host=$1
    local url=$2
    local clen=$3
cat <<END
POST $url HTTP/1.1
Host: $host
User-Agent: $UAG
Accept: */*
Content-type: multipart/form-data; boundary=${FORM_BOUNDARY}
Content-length: $clen

--${FORM_BOUNDARY}
END
}

http_multipart_post_body () {
    local name=$1
    local value=$2
    local ctype=$3
    if [ "$ctype" == "var" ]; then
cat <<END
Content-Disposition: form-data; name="$name"

$value
--${FORM_BOUNDARY}
END
    else
cat <<END
Content-disposition: form-data; name="$name"; filename="$value"
Content-type: application/x-$ctype-file

`cat $value`
--${FORM_BOUNDARY}
END
    fi
}

https_multipart_post () {
    local connect=$1
    local host=$2
    local url=$3
    local body_f=$4
    body_len=$( stat -c%s $body_f )
    cat <<END | openssl s_client -connect $connect -CApath ${X509_CERT_DIR} -quiet 2>/dev/null
$( http_multipart_post_head $host $url $body_len )
$( cat $body_f )
END
    return $?
}

https_check_server_cert () {
    local connect=$1
    echo '' | openssl s_client -connect $connect -CApath ${X509_CERT_DIR} 2>/dev/null | grep 'Verify return code' | sed 's/^[^:]\+:\s\([0-9]\+\).*/\1/'
}