yacloud/acme.sh
1
0
Fork 0
mirror of https://github.com/acmesh-official/acme.sh.git synced 2025-05-10 21:42:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

rename local function

Browse Source
This commit is contained in:
stilez 2018-08-14 06:11:58 +00:00 committed by GitHub
parent f6c7a621ff
commit ebf57ba546
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 132 additions and 132 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

264
dnsapi/dns_pleskxml.sh
View File

@ -56,18 +56,18 @@
############ Before anything else, define dedug functions to be sure they are detected even if while testing ##################### ############ Before anything else, define dedug functions to be sure they are detected even if while testing #####################
_DBG_EARLY_CHECK_MODE() { _pleskxml_DBG_EARLY_CHECK_MODE() {
if printf '%s' "${pleskxml_debug_min_level:-0}" | grep -qE '^[0-3]$'; then if printf '%s' "${pleskxml_debug_min_level:-0}" | grep -qE '^[0-3]$'; then
_pleskxml_DBG_LEVEL="${pleskxml_debug_min_level:-0}" _pleskxml_pleskxml_DBG_LEVEL="${pleskxml_debug_min_level:-0}"
_pleskxml_DBG_COUNT=0 _pleskxml_pleskxml_DBG_COUNT=0
else else
_err "Invalid debug level, exiting. \$pleskxml_debug_min_level = '${pleskxml_debug_min_level}' " _err "Invalid debug level, exiting. \$pleskxml_debug_min_level = '${pleskxml_debug_min_level}' "
return 1 return 1
fi fi
if [ "$_pleskxml_DBG_LEVEL" -gt 0 ]; then if [ "$_pleskxml_pleskxml_DBG_LEVEL" -gt 0 ]; then
_info "plesk XML running in debug mode. Debug level = '${_pleskxml_DBG_LEVEL}' " _info "plesk XML running in debug mode. Debug level = '${_pleskxml_pleskxml_DBG_LEVEL}' "
# This won't display if DBG level was set to zero. # This won't display if DBG level was set to zero.
fi fi
} }
@ -75,25 +75,25 @@ _DBG_EARLY_CHECK_MODE() {
# arg1 = severity level (1=least serious, 3=most serious) # arg1 = severity level (1=least serious, 3=most serious)
# By design if DBG level is 9 for a MESSAGE, the message is ALWAYS shown, this is used for _info and _err # By design if DBG level is 9 for a MESSAGE, the message is ALWAYS shown, this is used for _info and _err
# arg2 = message # arg2 = message
_DBG() { _pleskxml_DBG() {
if [ "$1" -eq 9 ] || ([ "$_pleskxml_DBG_LEVEL" -gt 0 ] && [ "$1" -ge "$_pleskxml_DBG_LEVEL" ]); then if [ "$1" -eq 9 ] || ([ "$_pleskxml_pleskxml_DBG_LEVEL" -gt 0 ] && [ "$1" -ge "$_pleskxml_pleskxml_DBG_LEVEL" ]); then
case $1 in case $1 in
1) _pleskxml_severity='MAX_DETAIL' ;; 1) _pleskxml_severity='MAX_DETAIL' ;;
2) _pleskxml_severity='DETAIL' ;; 2) _pleskxml_severity='DETAIL' ;;
3) _pleskxml_severity='INFO' ;; 3) _pleskxml_severity='INFO' ;;
9) _pleskxml_severity='ACME.SH' ;; 9) _pleskxml_severity='ACME.SH' ;;
esac esac
_pleskxml_DBG_COUNT=$((_pleskxml_DBG_COUNT + 1)) _pleskxml_pleskxml_DBG_COUNT=$((_pleskxml_pleskxml_DBG_COUNT + 1))
printf '%04d DEBUG [%s/%d]:\n%s\n\n' "$_pleskxml_DBG_COUNT" "$_pleskxml_severity" "$1" "$2" printf '%04d DEBUG [%s/%d]:\n%s\n\n' "$_pleskxml_pleskxml_DBG_COUNT" "$_pleskxml_severity" "$1" "$2"
fi fi
} }
# arg1 = severity level (1=least serious, 3=most serious) # arg1 = severity level (1=least serious, 3=most serious)
_DBG_VARDUMP() { _pleskxml_DBG_VARDUMP() {
_DBG "$1" "$(printf '1st lines of current defined variables are now:\n%s\n\n' "$(set | grep '_pleskxml' | sort)")" _pleskxml_DBG "$1" "$(printf '1st lines of current defined variables are now:\n%s\n\n' "$(set | grep '_pleskxml' | sort)")"
} }
_DBG_ERR_TRAP() { _pleskxml_DBG_ERR_TRAP() {
echo "Error on line $1" echo "Error on line $1"
} }
@ -103,9 +103,9 @@ _DBG_ERR_TRAP() {
# Traps currently ignored # Traps currently ignored
# set -e # set -e
# trap '_DBG_ERR_TRAP ${LINENO:-NO_LINE}' ..... # trap '_pleskxml_DBG_ERR_TRAP ${LINENO:-NO_LINE}' .....
_DBG_EARLY_CHECK_MODE _pleskxml_DBG_EARLY_CHECK_MODE
############ Set up static/private variables ##################### ############ Set up static/private variables #####################
@ -146,7 +146,7 @@ _pleskxml_tplt_get_dns_records="<packet><dns><get_rec><filter><site-id>%s</site-
dns_pleskxml_add() { dns_pleskxml_add() {
_DBG 3 "Entered dns_pleskxml_add($*)..." _pleskxml_DBG 3 "Entered dns_pleskxml_add($*)..."
_pleskxml_FQDN="$1" _pleskxml_FQDN="$1"
_pleskxml_TXT_string="$2" _pleskxml_TXT_string="$2"
@ -161,8 +161,8 @@ dns_pleskxml_add() {
_pleskxml_get_variables _pleskxml_get_variables
_pleskxml_retcode=$? _pleskxml_retcode=$?
_DBG 3 'Returned from _pleskxml_get_variables(). Back in dns_pleskxml_add().' _pleskxml_DBG 3 'Returned from _pleskxml_get_variables(). Back in dns_pleskxml_add().'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ]; then
_err "$_pleskxml_errors" _err "$_pleskxml_errors"
@ -178,13 +178,13 @@ dns_pleskxml_add() {
_info "Plesk XML: Variables are valid and loaded." _info "Plesk XML: Variables are valid and loaded."
_info "Trying to connect to Plesk ($_pleskxml_uri), and request Plesk's internal reference ID for domain '${_pleskxml_domain}'" _info "Trying to connect to Plesk ($_pleskxml_uri), and request Plesk's internal reference ID for domain '${_pleskxml_domain}'"
_DBG 3 "Calling API to get domain ID for $_pleskxml_domain" _pleskxml_DBG 3 "Calling API to get domain ID for $_pleskxml_domain"
_pleskxml_get_domain_ID "$_pleskxml_domain" _pleskxml_get_domain_ID "$_pleskxml_domain"
_pleskxml_retcode=$? _pleskxml_retcode=$?
_DBG 3 'Returned from API call. Back in dns_pleskxml_add().' _pleskxml_DBG 3 'Returned from API call. Back in dns_pleskxml_add().'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -197,15 +197,15 @@ dns_pleskxml_add() {
# Try to add the TXT record # Try to add the TXT record
_DBG 3 "Calling API to add TXT record to domain ID #$_pleskxml_domain_id ('$_pleskxml_domain')" _pleskxml_DBG 3 "Calling API to add TXT record to domain ID #$_pleskxml_domain_id ('$_pleskxml_domain')"
_info "Plesk XML: Got ID for domain. Trying to add TXT record to domain ID $_pleskxml_domain_id ('$_pleskxml_domain'), host '$_pleskxml_host'. The TXT string is: '$_pleskxml_TXT_string'." _info "Plesk XML: Got ID for domain. Trying to add TXT record to domain ID $_pleskxml_domain_id ('$_pleskxml_domain'), host '$_pleskxml_host'. The TXT string is: '$_pleskxml_TXT_string'."
_pleskxml_add_txt_record "$_pleskxml_domain_id" "$_pleskxml_host" "$_pleskxml_TXT_string" _pleskxml_add_txt_record "$_pleskxml_domain_id" "$_pleskxml_host" "$_pleskxml_TXT_string"
_pleskxml_retcode=$? _pleskxml_retcode=$?
_DBG 3 'Call has returned. dns_pleskxml_add().' _pleskxml_DBG 3 'Call has returned. dns_pleskxml_add().'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -215,7 +215,7 @@ dns_pleskxml_add() {
_info 'An ACME Challenge TXT record for '"$_pleskxml_domain"' was added to Plesk. Plesk returned a successful response.\nThe TXT field was: '"'$_pleskxml_TXT_string'" _info 'An ACME Challenge TXT record for '"$_pleskxml_domain"' was added to Plesk. Plesk returned a successful response.\nThe TXT field was: '"'$_pleskxml_TXT_string'"
_DBG 2 "SUCCESSFULLY exiting dns_pleskxml_add()..." _pleskxml_DBG 2 "SUCCESSFULLY exiting dns_pleskxml_add()..."
return 0 return 0
} }
@ -225,7 +225,7 @@ dns_pleskxml_add() {
dns_pleskxml_rm() { dns_pleskxml_rm() {
_DBG 2 "Entered dns_pleskxml_rm($*)..." _pleskxml_DBG 2 "Entered dns_pleskxml_rm($*)..."
_pleskxml_FQDN="$1" _pleskxml_FQDN="$1"
_pleskxml_TXT_string="$2" _pleskxml_TXT_string="$2"
@ -240,8 +240,8 @@ dns_pleskxml_rm() {
_pleskxml_get_variables _pleskxml_get_variables
_pleskxml_retcode=$? _pleskxml_retcode=$?
_DBG 2 'Called _pleskxml_get_variables()' _pleskxml_DBG 2 'Called _pleskxml_get_variables()'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ]; then
_err "$_pleskxml_errors" _err "$_pleskxml_errors"
@ -257,13 +257,13 @@ dns_pleskxml_rm() {
_info "Plesk XML: Variables are valid and loaded." _info "Plesk XML: Variables are valid and loaded."
_info "Trying to connect to Plesk ($_pleskxml_uri), and request Plesk's internal reference ID for domain '${_pleskxml_domain}'" _info "Trying to connect to Plesk ($_pleskxml_uri), and request Plesk's internal reference ID for domain '${_pleskxml_domain}'"
_DBG 2 "Calling API to get domain ID for $_pleskxml_domain" _pleskxml_DBG 2 "Calling API to get domain ID for $_pleskxml_domain"
_pleskxml_get_domain_ID "$_pleskxml_domain" _pleskxml_get_domain_ID "$_pleskxml_domain"
_pleskxml_retcode=$? _pleskxml_retcode=$?
_DBG 2 'Call has returned' _pleskxml_DBG 2 'Call has returned'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -278,13 +278,13 @@ dns_pleskxml_rm() {
_info "Plesk XML: Got ID for domain. Trying to remove TXT record from domain ID $_pleskxml_domain_id ('$_pleskxml_domain'), host '$_pleskxml_host'." _info "Plesk XML: Got ID for domain. Trying to remove TXT record from domain ID $_pleskxml_domain_id ('$_pleskxml_domain'), host '$_pleskxml_host'."
_DBG 2 "Calling API to remove TXT record from domain ID #$_pleskxml_domain_id ('$_pleskxml_domain')" _pleskxml_DBG 2 "Calling API to remove TXT record from domain ID #$_pleskxml_domain_id ('$_pleskxml_domain')"
_pleskxml_rmv_txt_record "$_pleskxml_domain_id" "$_pleskxml_host" "$_pleskxml_TXT_string" _pleskxml_rmv_txt_record "$_pleskxml_domain_id" "$_pleskxml_host" "$_pleskxml_TXT_string"
_pleskxml_retcode=$? _pleskxml_retcode=$?
_DBG 2 'Call has returned' _pleskxml_DBG 2 'Call has returned'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -294,7 +294,7 @@ dns_pleskxml_rm() {
_info 'A TXT record for '"$_pleskxml_domain"' was removed from Plesk. Plesk returned a successful response.\nThe TXT field was: '"'$_pleskxml_TXT_string'" _info 'A TXT record for '"$_pleskxml_domain"' was removed from Plesk. Plesk returned a successful response.\nThe TXT field was: '"'$_pleskxml_TXT_string'"
_DBG 2 "SUCCESSFULLY exiting dns_pleskxml_rm()..." _pleskxml_DBG 2 "SUCCESSFULLY exiting dns_pleskxml_rm()..."
return 0 return 0
} }
@ -305,8 +305,8 @@ dns_pleskxml_rm() {
_pleskxml_get_variables() { _pleskxml_get_variables() {
_DBG 2 'Entered _pleskxml_get_variables()' _pleskxml_DBG 2 'Entered _pleskxml_get_variables()'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
_pleskxml_errors='' _pleskxml_errors=''
@ -364,13 +364,13 @@ _pleskxml_get_variables() {
_pleskxml_optional_curl_args="${pleskxml_optional_curl_args:-}" _pleskxml_optional_curl_args="${pleskxml_optional_curl_args:-}"
if [ "$_pleskxml_errors" != '' ]; then if [ "$_pleskxml_errors" != '' ]; then
_DBG 2 "UNSUCCESSFULLY exiting _pleskxml_get_variables() (UNSUCCESSFUL CALL!)" _pleskxml_DBG 2 "UNSUCCESSFULLY exiting _pleskxml_get_variables() (UNSUCCESSFUL CALL!)"
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
_err 'Can'\''t parse user-defined variables. Exiting.' _err 'Can'\''t parse user-defined variables. Exiting.'
return 1 return 1
else else
_DBG 2 "SUCCESSFULLY exiting _pleskxml_get_variables()" _pleskxml_DBG 2 "SUCCESSFULLY exiting _pleskxml_get_variables()"
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
return 0 return 0
fi fi
} }
@ -381,7 +381,7 @@ _pleskxml_get_variables() {
_pleskxml_api_request() { _pleskxml_api_request() {
_DBG 2 "Entered _pleskxml_api_request($*), to make an XML request.${_pleskxml_newline} arg1=^$1^${_pleskxml_newline} arg2=^$2^${_pleskxml_newline} arg3=^$3^${_pleskxml_newline} arg4=^$4^" _pleskxml_DBG 2 "Entered _pleskxml_api_request($*), to make an XML request.${_pleskxml_newline} arg1=^$1^${_pleskxml_newline} arg2=^$2^${_pleskxml_newline} arg3=^$3^${_pleskxml_newline} arg4=^$4^"
_pleskxml_errors='' _pleskxml_errors=''
_pleskxml_result='' _pleskxml_result=''
@ -415,14 +415,14 @@ _pleskxml_api_request() {
-d '${_pleskxml_APICMD}' \ -d '${_pleskxml_APICMD}' \
${_pleskxml_optional_curl_args}" ${_pleskxml_optional_curl_args}"
_DBG 2 'About to call Plesk via cURL' _pleskxml_DBG 2 'About to call Plesk via cURL'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
_DBG 2 "$(printf 'cURL command: %s %s %s' "$_pleskxml_curlpath" "$_pleskxml_curlargs" "$_pleskxml_uri")" _pleskxml_DBG 2 "$(printf 'cURL command: %s %s %s' "$_pleskxml_curlpath" "$_pleskxml_curlargs" "$_pleskxml_uri")"
_pleskxml_prettyprint_result="$(eval "$_pleskxml_curlpath" "$_pleskxml_curlargs" "$_pleskxml_uri" 2>/dev/null)" _pleskxml_prettyprint_result="$(eval "$_pleskxml_curlpath" "$_pleskxml_curlargs" "$_pleskxml_uri" 2>/dev/null)"
_pleskxml_retcode="$?" _pleskxml_retcode="$?"
_DBG 1 "_pleskxml_prettyprint_result =${_pleskxml_newline}'$_pleskxml_prettyprint_result' " _pleskxml_DBG 1 "_pleskxml_prettyprint_result =${_pleskxml_newline}'$_pleskxml_prettyprint_result' "
_DBG 2 "retcode = $_pleskxml_retcode" _pleskxml_DBG 2 "retcode = $_pleskxml_retcode"
# BUGFIX TO CHECK - WILL RETCODE FROM cURL BE AVAILABLE HERE? # BUGFIX TO CHECK - WILL RETCODE FROM cURL BE AVAILABLE HERE?
@ -446,15 +446,15 @@ _pleskxml_api_request() {
| tr -d '\n' | tr -d '\n'
)" )"
_DBG 2 'cURL succeeded, valid cURL response obtained' _pleskxml_DBG 2 'cURL succeeded, valid cURL response obtained'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
# Now we need to check item by item if it's OK. # Now we need to check item by item if it's OK.
# As we go, we will strip out "known OK" stuff to leave the core reply. # As we go, we will strip out "known OK" stuff to leave the core reply.
# XML header and packet version? # XML header and packet version?
_DBG 2 'Checking <?xml> and <packet> tags exist...' _pleskxml_DBG 2 'Checking <?xml> and <packet> tags exist...'
if printf '%s' "$_pleskxml_result" | grep -qiEv '^<\?xml version=[^>]+><packet version=[^>]+>.*</packet>$'; then if printf '%s' "$_pleskxml_result" | grep -qiEv '^<\?xml version=[^>]+><packet version=[^>]+>.*</packet>$'; then
# Error - should have <?xml><packet>...</packet>. Abort # Error - should have <?xml><packet>...</packet>. Abort
@ -468,7 +468,7 @@ _pleskxml_api_request() {
)" )"
fi fi
_DBG 2 "Checking <system> tags don't exist..." _pleskxml_DBG 2 "Checking <system> tags don't exist..."
# <system> section found anywhere in response? # <system> section found anywhere in response?
# This usually means some kind of basic API error such as login failure, bad XML request, etc # This usually means some kind of basic API error such as login failure, bad XML request, etc
@ -480,7 +480,7 @@ _pleskxml_api_request() {
return 1 return 1
fi fi
_DBG 2 'Checking 1 or >=1 <result> tag (or tags) found, each containing 'status:ok'...' _pleskxml_DBG 2 'Checking 1 or >=1 <result> tag (or tags) found, each containing 'status:ok'...'
# Check results section. Most commands only have one results section. # Check results section. Most commands only have one results section.
# But some (i.e., get all DNS records for a domain) have many results sections, # But some (i.e., get all DNS records for a domain) have many results sections,
@ -499,7 +499,7 @@ _pleskxml_api_request() {
return 1 return 1
fi fi
_DBG 2 'Found at least 1 <result> section. Splitting each result section to a separate line' _pleskxml_DBG 2 'Found at least 1 <result> section. Splitting each result section to a separate line'
_pleskxml_result="$(printf '%s' "$_pleskxml_result" \ _pleskxml_result="$(printf '%s' "$_pleskxml_result" \
| sed "s/<result>/\\${_pleskxml_newline}<result>/g" \ | sed "s/<result>/\\${_pleskxml_newline}<result>/g" \
@ -511,10 +511,10 @@ _pleskxml_api_request() {
_pleskxml_linecount=$(printf '%s\n' "$_pleskxml_result" | wc -l) _pleskxml_linecount=$(printf '%s\n' "$_pleskxml_result" | wc -l)
_DBG 2 "Result is: '$_pleskxml_result' (${_pleskxml_linecount} line(s))" _pleskxml_DBG 2 "Result is: '$_pleskxml_result' (${_pleskxml_linecount} line(s))"
_DBG 2 'Testing <result> section linecount is OK (1 or >=1 as required)' _pleskxml_DBG 2 'Testing <result> section linecount is OK (1 or >=1 as required)'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
if [ $_pleskxml_multiple_results_allowed -eq 0 ] && [ "$_pleskxml_linecount" -gt 1 ]; then if [ $_pleskxml_multiple_results_allowed -eq 0 ] && [ "$_pleskxml_linecount" -gt 1 ]; then
# Error - contains multiple <result> sections. Abort # Error - contains multiple <result> sections. Abort
@ -523,7 +523,7 @@ _pleskxml_api_request() {
return 1 return 1
fi fi
_DBG 2 "Found ${_pleskxml_linecount} <result> section(s), checking each has status:ok..." _pleskxml_DBG 2 "Found ${_pleskxml_linecount} <result> section(s), checking each has status:ok..."
# Loop through each <result> section, checking every line has exactly one result section, # Loop through each <result> section, checking every line has exactly one result section,
# containing exactly one status section, which contains <status>ok</status> # containing exactly one status section, which contains <status>ok</status>
@ -533,7 +533,7 @@ _pleskxml_api_request() {
# _pleskxml_line *should* contain a single result section. # _pleskxml_line *should* contain a single result section.
# Check this is correct. # Check this is correct.
# _DBG "Checking a <result> section... content is ${_pleskxml_line}" # _pleskxml_DBG "Checking a <result> section... content is ${_pleskxml_line}"
if printf '%s' "$_pleskxml_line" | grep -qiEv '^<result>.*</result>$'; then if printf '%s' "$_pleskxml_line" | grep -qiEv '^<result>.*</result>$'; then
# Error - doesn't contain <result>...</result>. Abort # Error - doesn't contain <result>...</result>. Abort
@ -549,12 +549,12 @@ _pleskxml_api_request() {
if printf '%s' "$_pleskxml_line" | grep -qiEv '<status>.*</status>'; then if printf '%s' "$_pleskxml_line" | grep -qiEv '<status>.*</status>'; then
# Error - doesn't contain <status>...</status>. Abort # Error - doesn't contain <status>...</status>. Abort
_pleskxml_errors='Error when querying Plesk XML API. A <result> section did not contain a <status> section.\nThis is unexpected: something has gone wrong. Please raise this as a bug/issue in the module. The response was:\n'"$_pleskxml_prettyprint_result"'\n' _pleskxml_errors='Error when querying Plesk XML API. A <result> section did not contain a <status> section.\nThis is unexpected: something has gone wrong. Please raise this as a bug/issue in the module. The response was:\n'"$_pleskxml_prettyprint_result"'\n'
_DBG 2 "$_pleskxml_errors" _pleskxml_DBG 2 "$_pleskxml_errors"
return 1 return 1
elif printf '%s' "$_pleskxml_line" | grep -qiE '<status>.*</status>.*<status>'; then elif printf '%s' "$_pleskxml_line" | grep -qiE '<status>.*</status>.*<status>'; then
# Error - contains <status>...</status>...<status>. Abort # Error - contains <status>...</status>...<status>. Abort
_pleskxml_errors='Error when querying Plesk XML API. A <result> section contained more than one <status> section.\nThis is unexpected: something has gone wrong. Please raise this as a bug/issue in the module. The response was:\n'"$_pleskxml_prettyprint_result"'\n' _pleskxml_errors='Error when querying Plesk XML API. A <result> section contained more than one <status> section.\nThis is unexpected: something has gone wrong. Please raise this as a bug/issue in the module. The response was:\n'"$_pleskxml_prettyprint_result"'\n'
_DBG 2 "$_pleskxml_errors" _pleskxml_DBG 2 "$_pleskxml_errors"
return 1 return 1
elif printf '%s' "$_pleskxml_line" | grep -qiEv '<status>ok</status>'; then elif printf '%s' "$_pleskxml_line" | grep -qiEv '<status>ok</status>'; then
# Error - doesn't contain <status>ok</status>. Abort # Error - doesn't contain <status>ok</status>. Abort
@ -563,7 +563,7 @@ _pleskxml_api_request() {
return 1 return 1
fi fi
# _DBG "Line is OK. Looping to next line or exiting..." # _pleskxml_DBG "Line is OK. Looping to next line or exiting..."
done <<EOL done <<EOL
$_pleskxml_result $_pleskxml_result
@ -571,7 +571,7 @@ EOL
# So far so good. Remove all <status>ok</status> sections as they're checked now. # So far so good. Remove all <status>ok</status> sections as they're checked now.
_DBG 2 "All results lines had status:ok. Exiting loop, and removing all <status>ok</status> tags now they've been checked" _pleskxml_DBG 2 "All results lines had status:ok. Exiting loop, and removing all <status>ok</status> tags now they've been checked"
_pleskxml_result="$(printf '%s' "$_pleskxml_result" \ _pleskxml_result="$(printf '%s' "$_pleskxml_result" \
| sed -E 's/<status>ok<\/status>//g' | sed -E 's/<status>ok<\/status>//g'
@ -579,16 +579,16 @@ EOL
# Result is OK. Remove any redundant self-closing tags, and <data> or </data> tags, and exit # Result is OK. Remove any redundant self-closing tags, and <data> or </data> tags, and exit
_DBG 2 'Now removing any self-closing tags, or <data>...</data> tags' _pleskxml_DBG 2 'Now removing any self-closing tags, or <data>...</data> tags'
_pleskxml_result="$(printf '%s' "$_pleskxml_result" \ _pleskxml_result="$(printf '%s' "$_pleskxml_result" \
| sed -E 's/(<[a-zA-Z0-9._-]+[[:space:]]*\/>|<\/?data\/?>)//g' | sed -E 's/(<[a-zA-Z0-9._-]+[[:space:]]*\/>|<\/?data\/?>)//g'
)" )"
_DBG 2 "About to exit API function. Result = ${_pleskxml_newline}'${_pleskxml_result}' " _pleskxml_DBG 2 "About to exit API function. Result = ${_pleskxml_newline}'${_pleskxml_result}' "
_DBG 2 'Successfully exiting Plesk XML API function' _pleskxml_DBG 2 'Successfully exiting Plesk XML API function'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
return 0 return 0
@ -596,17 +596,17 @@ EOL
_pleskxml_get_domain_ID() { _pleskxml_get_domain_ID() {
_DBG 2 "Entered Plesk get_domain_ID($*), to get the domain's Plesk ID." _pleskxml_DBG 2 "Entered Plesk get_domain_ID($*), to get the domain's Plesk ID."
# Call cURL to convert a domain name to a plesk domain ID. # Call cURL to convert a domain name to a plesk domain ID.
_DBG 2 'About to make API request (domain name -> domain ID)' _pleskxml_DBG 2 'About to make API request (domain name -> domain ID)'
_pleskxml_api_request "$_pleskxml_tplt_get_domain_id" "$1" _pleskxml_api_request "$_pleskxml_tplt_get_domain_id" "$1"
_pleskxml_retcode=$? _pleskxml_retcode=$?
# $1 is the domain name we wish to convert to a Plesk domain ID # $1 is the domain name we wish to convert to a Plesk domain ID
_DBG 2 'Returned from API request, now back in get_domain_ID()' _pleskxml_DBG 2 'Returned from API request, now back in get_domain_ID()'
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -618,7 +618,7 @@ _pleskxml_get_domain_ID() {
# Result should comprise precisely one <result> section # Result should comprise precisely one <result> section
_DBG 2 'Testing API return data for one <result> and removing if so' _pleskxml_DBG 2 'Testing API return data for one <result> and removing if so'
if printf '%s' "$_pleskxml_result" | grep -qiEv '^<result>.*</result>$'; then if printf '%s' "$_pleskxml_result" | grep -qiEv '^<result>.*</result>$'; then
# Error - doesn't comprise <result>DOMAINNAME</result>. Something's wrong. Abort # Error - doesn't comprise <result>DOMAINNAME</result>. Something's wrong. Abort
@ -639,7 +639,7 @@ _pleskxml_get_domain_ID() {
# Result should contain precisely one <filter-id> section, containing the domain name inquired. # Result should contain precisely one <filter-id> section, containing the domain name inquired.
_DBG 2 'Testing API return data for one <filter-id> and removing if so' _pleskxml_DBG 2 'Testing API return data for one <filter-id> and removing if so'
if printf '%s' "$_pleskxml_result" | grep -qiv "<filter-id>$1</filter-id>"; then if printf '%s' "$_pleskxml_result" | grep -qiv "<filter-id>$1</filter-id>"; then
# Error - doesn't contain <filter-id>DOMAINNAME</filter-id>. Something's wrong. Abort # Error - doesn't contain <filter-id>DOMAINNAME</filter-id>. Something's wrong. Abort
@ -660,7 +660,7 @@ _pleskxml_get_domain_ID() {
# All that should be left is one section, containing <id>DOMAIN_ID</id> # All that should be left is one section, containing <id>DOMAIN_ID</id>
_DBG 2 "Remaining part of result is now: '$_pleskxml_result' " _pleskxml_DBG 2 "Remaining part of result is now: '$_pleskxml_result' "
if printf '%s' "$_pleskxml_result" | grep -qiEv '^<id>[0-9]+</id>$'; then if printf '%s' "$_pleskxml_result" | grep -qiEv '^<id>[0-9]+</id>$'; then
# Error - doesn't contain just <id>NUMBERS</id>. Something's wrong. Abort # Error - doesn't contain just <id>NUMBERS</id>. Something's wrong. Abort
@ -677,8 +677,8 @@ _pleskxml_get_domain_ID() {
_pleskxml_domain_id="$_pleskxml_result" _pleskxml_domain_id="$_pleskxml_result"
_DBG 2 'SUCCESSFULLY exiting Plesk get_domain_ID' _pleskxml_DBG 2 'SUCCESSFULLY exiting Plesk get_domain_ID'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
return 0 return 0
@ -690,17 +690,17 @@ _pleskxml_get_domain_ID() {
_pleskxml_get_dns_records() { _pleskxml_get_dns_records() {
_DBG 2 "Entered Plesk _pleskxml_get_dns_records($*)" _pleskxml_DBG 2 "Entered Plesk _pleskxml_get_dns_records($*)"
# First, we need to get all DNS records, and check the list is valid # First, we need to get all DNS records, and check the list is valid
_DBG 2 'About to make API request (get DNS records)' _pleskxml_DBG 2 'About to make API request (get DNS records)'
_pleskxml_api_request "$_pleskxml_tplt_get_dns_records" "$1" _pleskxml_api_request "$_pleskxml_tplt_get_dns_records" "$1"
_pleskxml_retcode=$? _pleskxml_retcode=$?
# $1 is the Plesk internal domain ID for the domain # $1 is the Plesk internal domain ID for the domain
_DBG 2 'Returned from API request, now back in get_txt_records()' _pleskxml_DBG 2 'Returned from API request, now back in get_txt_records()'
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -711,26 +711,26 @@ _pleskxml_get_dns_records() {
# OK, we should have a <result> section containing a list of DNS records. # OK, we should have a <result> section containing a list of DNS records.
# Now keep only the TXT records # Now keep only the TXT records
_DBG 2 "Full DNS records were:${_pleskxml_newline}${_pleskxml_newline}'${_pleskxml_result}' " _pleskxml_DBG 2 "Full DNS records were:${_pleskxml_newline}${_pleskxml_newline}'${_pleskxml_result}' "
if [ -n "${2:-}" ]; then if [ -n "${2:-}" ]; then
_pleskxml_result="$(printf '%s' "$_pleskxml_result" \ _pleskxml_result="$(printf '%s' "$_pleskxml_result" \
| grep "<type>$2</type>" | grep "<type>$2</type>"
)" )"
_DBG 2 "Filtered relevant DNS records. Records to be returned are:${_pleskxml_newline}${_pleskxml_newline}'${_pleskxml_result}' " _pleskxml_DBG 2 "Filtered relevant DNS records. Records to be returned are:${_pleskxml_newline}${_pleskxml_newline}'${_pleskxml_result}' "
else else
_DBG 2 'Not filtering DNS records. All records will be returned.' _pleskxml_DBG 2 'Not filtering DNS records. All records will be returned.'
fi fi
_DBG 2 "SUCCESSFULLY exiting _pleskxml_get_dns_records" _pleskxml_DBG 2 "SUCCESSFULLY exiting _pleskxml_get_dns_records"
return 0 return 0
} }
_pleskxml_add_txt_record() { _pleskxml_add_txt_record() {
_DBG 2 "Entered Plesk _pleskxml_add_txt_record($*)" _pleskxml_DBG 2 "Entered Plesk _pleskxml_add_txt_record($*)"
_DBG 2 'About to make API request (add TXT record)' _pleskxml_DBG 2 'About to make API request (add TXT record)'
_pleskxml_api_request "$_pleskxml_tplt_add_txt_record" "$1" "$2" "$3" _pleskxml_api_request "$_pleskxml_tplt_add_txt_record" "$1" "$2" "$3"
_pleskxml_retcode=$? _pleskxml_retcode=$?
@ -739,7 +739,7 @@ _pleskxml_add_txt_record() {
# $2 is the "host" entry within the domain, to add this to (eg '_acme_challenge') # $2 is the "host" entry within the domain, to add this to (eg '_acme_challenge')
# $3 is the TXT record value # $3 is the TXT record value
_DBG 2 'Returned from API request, now back in add_txt_record()' _pleskxml_DBG 2 'Returned from API request, now back in add_txt_record()'
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -764,24 +764,24 @@ _pleskxml_add_txt_record() {
| sed -E "s/^<result><id>([0-9]+)<\/id><\/result>$/\1/" | sed -E "s/^<result><id>([0-9]+)<\/id><\/result>$/\1/"
)" )"
_DBG 2 'SUCCESSFULLY exiting Plesk _pleskxml_add_txt_record' _pleskxml_DBG 2 'SUCCESSFULLY exiting Plesk _pleskxml_add_txt_record'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
return 0 return 0
} }
_pleskxml_rmv_dns_record() { _pleskxml_rmv_dns_record() {
_DBG 2 "Entered Plesk _pleskxml_rmv_dns_record($*)" _pleskxml_DBG 2 "Entered Plesk _pleskxml_rmv_dns_record($*)"
_DBG 2 'About to make API request (rmv TXT record)' _pleskxml_DBG 2 'About to make API request (rmv TXT record)'
_pleskxml_api_request "$_pleskxml_tplt_rmv_dns_record" "$1" _pleskxml_api_request "$_pleskxml_tplt_rmv_dns_record" "$1"
_pleskxml_retcode=$? _pleskxml_retcode=$?
# $1 is the Plesk internal domain ID for the TXT record # $1 is the Plesk internal domain ID for the TXT record
_DBG 2 'Returned from API request, now back in rmv_dns_record()' _pleskxml_DBG 2 'Returned from API request, now back in rmv_dns_record()'
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -791,8 +791,8 @@ _pleskxml_rmv_dns_record() {
# OK, we should have removed a TXT record. If it failed, there wouldn't have been a "status:ok" above # OK, we should have removed a TXT record. If it failed, there wouldn't have been a "status:ok" above
_DBG 2 'SUCCESSFULLY exiting Plesk _pleskxml_rmv_dns_record' _pleskxml_DBG 2 'SUCCESSFULLY exiting Plesk _pleskxml_rmv_dns_record'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
return 0 return 0
} }
@ -802,13 +802,13 @@ _pleskxml_rmv_dns_record() {
# 3rd arg = value of TXT record string to be found and removed # 3rd arg = value of TXT record string to be found and removed
_pleskxml_rmv_txt_record() { _pleskxml_rmv_txt_record() {
_DBG 2 "Entered Plesk _pleskxml_rmv_dns_TXT_record($*). Getting DNS TXT records for the domain ID" _pleskxml_DBG 2 "Entered Plesk _pleskxml_rmv_dns_TXT_record($*). Getting DNS TXT records for the domain ID"
_pleskxml_get_dns_records "$1" 'TXT' _pleskxml_get_dns_records "$1" 'TXT'
_pleskxml_retcode=$? _pleskxml_retcode=$?
# $1 is the Plesk internal domain ID for the domain # $1 is the Plesk internal domain ID for the domain
_DBG 2 'Returned from API request, now back in rmv_txt_record()' _pleskxml_DBG 2 'Returned from API request, now back in rmv_txt_record()'
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -820,7 +820,7 @@ _pleskxml_rmv_txt_record() {
# Now we need to find our desired record in it (if it exists). # Now we need to find our desired record in it (if it exists).
# and might as well collapse any successful matches to a single line for line-count purposes at the same time # and might as well collapse any successful matches to a single line for line-count purposes at the same time
_DBG 2 "Filters to apply (as literal strings):${_pleskxml_newline}'<host>${2:-<NON_MATCHING_GARBAGE>}.'${_pleskxml_newline}'<value>${3:-<NON_MATCHING_GARBAGE>}</value>' " _pleskxml_DBG 2 "Filters to apply (as literal strings):${_pleskxml_newline}'<host>${2:-<NON_MATCHING_GARBAGE>}.'${_pleskxml_newline}'<value>${3:-<NON_MATCHING_GARBAGE>}</value>' "
_pleskxml_result="$(printf '%s' "$_pleskxml_result" \ _pleskxml_result="$(printf '%s' "$_pleskxml_result" \
| grep -F "<host>${2:-<NON_MATCHING_GARBAGE>}." \ | grep -F "<host>${2:-<NON_MATCHING_GARBAGE>}." \
@ -832,7 +832,7 @@ _pleskxml_rmv_txt_record() {
# ands this avoids regex and escaping which is easier # ands this avoids regex and escaping which is easier
# NOTE: the returned "host" field is actually the FQDN, not just the host ID, hence the grep match on that field. # NOTE: the returned "host" field is actually the FQDN, not just the host ID, hence the grep match on that field.
_DBG 2 "Filtered result:${_pleskxml_newline}'$_pleskxml_result' " _pleskxml_DBG 2 "Filtered result:${_pleskxml_newline}'$_pleskxml_result' "
if printf '%s' "$_pleskxml_result" | grep -qiE "<result>.*<result>"; then if printf '%s' "$_pleskxml_result" | grep -qiE "<result>.*<result>"; then
# Error - contains <result>...</result>...<result>. Abort # Error - contains <result>...</result>...<result>. Abort
@ -844,7 +844,7 @@ _pleskxml_rmv_txt_record() {
if printf '%s\n' "$_pleskxml_result" | grep -qiv "<result>"; then if printf '%s\n' "$_pleskxml_result" | grep -qiv "<result>"; then
# No matching TXT records, so we're done. # No matching TXT records, so we're done.
_info "Couldn't find a TXT record matching the requested host/value. Not an error, but a concern..." _info "Couldn't find a TXT record matching the requested host/value. Not an error, but a concern..."
_DBG 2 "Exiting Plesk _pleskxml_rmv_txt_record (without raising an error), as nothing more to do: the record requested for deletion doesn't exist" _pleskxml_DBG 2 "Exiting Plesk _pleskxml_rmv_txt_record (without raising an error), as nothing more to do: the record requested for deletion doesn't exist"
_pleskxml_result='' _pleskxml_result=''
return 0 return 0
fi fi
@ -855,12 +855,12 @@ _pleskxml_rmv_txt_record() {
| sed -E 's/^.*<id>([0-9]+)<\/id>.*$/\1/' | sed -E 's/^.*<id>([0-9]+)<\/id>.*$/\1/'
)" )"
_DBG 2 "A unique matching DNS TXT record was found, with Plesk record ID = '$_pleskxml_result'. Calling API to delete this record." _pleskxml_DBG 2 "A unique matching DNS TXT record was found, with Plesk record ID = '$_pleskxml_result'. Calling API to delete this record."
_pleskxml_rmv_dns_record "$_pleskxml_result" _pleskxml_rmv_dns_record "$_pleskxml_result"
_pleskxml_retcode=$? _pleskxml_retcode=$?
_DBG 2 'Returned from API request, now back in rmv_txt_record()' _pleskxml_DBG 2 'Returned from API request, now back in rmv_txt_record()'
if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then if [ $_pleskxml_retcode -ne 0 ] || [ "$_pleskxml_errors" != '' ] || [ "$_pleskxml_result" = '' ]; then
# Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned # Really, just testing return code should be enough, based on above code, but let's go "all-in" and test all variables returned
@ -868,8 +868,8 @@ _pleskxml_rmv_txt_record() {
return 1 return 1
fi fi
_DBG 2 'SUCCESSFULLY exiting Plesk _pleskxml_rmv_txt_record' _pleskxml_DBG 2 'SUCCESSFULLY exiting Plesk _pleskxml_rmv_txt_record'
_DBG_VARDUMP 2 _pleskxml_DBG_VARDUMP 2
return 0 return 0
} }
@ -892,72 +892,72 @@ if false; then
_info 'Checking debug mode...' _info 'Checking debug mode...'
_DBG_EARLY_CHECK_MODE _pleskxml_DBG_EARLY_CHECK_MODE
_DBG 3 'Debug mode done. Now testing _pleskxml_get_variables()' _pleskxml_DBG 3 'Debug mode done. Now testing _pleskxml_get_variables()'
_pleskxml_get_variables _pleskxml_get_variables
_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")" _pleskxml_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")"
_DBG_VARDUMP 3 _pleskxml_DBG_VARDUMP 3
_DBG 3 '===============================================================' _pleskxml_DBG 3 '==============================================================='
_DBG 3 'Testing _pleskxml_get_domain_ID()' _pleskxml_DBG 3 'Testing _pleskxml_get_domain_ID()'
_pleskxml_get_domain_ID "atticflat.uk" _pleskxml_get_domain_ID "atticflat.uk"
_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")" _pleskxml_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")"
_DBG_VARDUMP 3 _pleskxml_DBG_VARDUMP 3
_DBG 3 '===============================================================' _pleskxml_DBG 3 '==============================================================='
test_string="TEST STRING ADDED @ $(date)" test_string="TEST STRING ADDED @ $(date)"
_DBG 3 "Testing add a TXT string: '$test_string' " _pleskxml_DBG 3 "Testing add a TXT string: '$test_string' "
_pleskxml_add_txt_record 874 '_test_subdomain' "$test_string" _pleskxml_add_txt_record 874 '_test_subdomain' "$test_string"
_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")" _pleskxml_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")"
_DBG_VARDUMP 3 _pleskxml_DBG_VARDUMP 3
_DBG 3 '===============================================================' _pleskxml_DBG 3 '==============================================================='
_DBG 3 'Testing get DNS records (ALL)' _pleskxml_DBG 3 'Testing get DNS records (ALL)'
_pleskxml_get_dns_records 874 _pleskxml_get_dns_records 874
_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")" _pleskxml_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")"
_DBG_VARDUMP 3 _pleskxml_DBG_VARDUMP 3
_DBG 3 '===============================================================' _pleskxml_DBG 3 '==============================================================='
_DBG 3 'Testing get DNS records (TXT ONLY)' _pleskxml_DBG 3 'Testing get DNS records (TXT ONLY)'
_pleskxml_get_dns_records 874 TXT _pleskxml_get_dns_records 874 TXT
_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")" _pleskxml_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")"
_DBG_VARDUMP 3 _pleskxml_DBG_VARDUMP 3
_DBG 3 '===============================================================' _pleskxml_DBG 3 '==============================================================='
_DBG 3 'Testing rmv a TXT string' _pleskxml_DBG 3 'Testing rmv a TXT string'
_pleskxml_rmv_txt_record 874 '_test_subdomain' "$test_string" _pleskxml_rmv_txt_record 874 '_test_subdomain' "$test_string"
_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")" _pleskxml_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")"
_DBG_VARDUMP 3 _pleskxml_DBG_VARDUMP 3
_DBG 3 '===============================================================' _pleskxml_DBG 3 '==============================================================='
_DBG 3 'Re-testing get DNS records (TXT ONLY) after TXT string removal' _pleskxml_DBG 3 'Re-testing get DNS records (TXT ONLY) after TXT string removal'
_pleskxml_get_dns_records 874 TXT _pleskxml_get_dns_records 874 TXT
_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")" _pleskxml_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")"
_DBG_VARDUMP 3 _pleskxml_DBG_VARDUMP 3
_DBG 3 '===============================================================' _pleskxml_DBG 3 '==============================================================='
_DBG 3 'Testing rmv a TXT string, with a non-matching string' _pleskxml_DBG 3 'Testing rmv a TXT string, with a non-matching string'
_pleskxml_rmv_txt_record 874 '_test_subdomain' 'JUNKegqw4bw4bb2' _pleskxml_rmv_txt_record 874 '_test_subdomain' 'JUNKegqw4bw4bb2'
_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")" _pleskxml_DBG 3 "$(printf 'RESULT:\n _pleskxml_errors: "%s"\n _pleskxml_retcode: "%s"\n _pleskxml_result: "%s"\n\n' "$_pleskxml_errors" "$_pleskxml_retcode" "$_pleskxml_result")"
_DBG_VARDUMP 3 _pleskxml_DBG_VARDUMP 3
_DBG 3 '=============================================================== END OF RUN' _pleskxml_DBG 3 '=============================================================== END OF RUN'
fi fi