|
@@ -75,17 +75,19 @@ dns_he_rm() {
|
|
|
body="$body&hosted_dns_zoneid=$_zone_id"
|
|
|
body="$body&menu=edit_zone"
|
|
|
body="$body&hosted_dns_editzone="
|
|
|
- domain_regex="$(echo "$_full_domain" | sed 's/\./\\./g')" # escape dots
|
|
|
- _record_id=$(_post "$body" "https://dns.he.net/" \
|
|
|
- | tr -d '\n' \
|
|
|
- | _egrep_o "data=\""${_txt_value}"([^>]+>){6}[^<]+<[^;]+;deleteRecord\('[0-9]+','${domain_regex}','TXT'\)" \
|
|
|
- | _egrep_o "[0-9]+','${domain_regex}','TXT'\)$" \
|
|
|
- | _egrep_o "^[0-9]+"
|
|
|
- )
|
|
|
- # The series of egreps above could have been done a bit shorter but
|
|
|
- # I wanted to double-check whether it's the correct record (in case
|
|
|
- # HE changes their website somehow).
|
|
|
|
|
|
+ response="$(_post "$body" "https://dns.he.net/")"
|
|
|
+ _debug2 "response" "$response"
|
|
|
+ if ! _contains "$response" "$_txt_value"; then
|
|
|
+ _debug "The txt record is not found, just skip"
|
|
|
+ return 0
|
|
|
+ fi
|
|
|
+ _record_id="$(echo "$response" | tr -d "#" | sed "s/<tr/#<tr/g" | tr -d "\n" | tr "#" "\n" | grep "$_full_domain" | grep '"dns_tr"' | grep "$_txt_value" | cut -d '"' -f 4)"
|
|
|
+ _debug2 _record_id "$_record_id"
|
|
|
+ if [ -z "$_record_id" ]; then
|
|
|
+ _err "Can not find record id"
|
|
|
+ return 1
|
|
|
+ fi
|
|
|
# Remove the record
|
|
|
body="email=${HE_Username}&pass=${HE_Password}"
|
|
|
body="$body&menu=edit_zone"
|
|
@@ -108,41 +110,26 @@ dns_he_rm() {
|
|
|
|
|
|
########################## PRIVATE FUNCTIONS ###########################
|
|
|
|
|
|
-#-- _find_zone() -------------------------------------------------------
|
|
|
-# Returns the most specific zone found in administration interface.
|
|
|
-#
|
|
|
-# Example:
|
|
|
-#
|
|
|
-# _find_zone first.second.third.co.uk
|
|
|
-#
|
|
|
-# ... will return the first zone that exists in admin out of these:
|
|
|
-# - "first.second.third.co.uk"
|
|
|
-# - "second.third.co.uk"
|
|
|
-# - "third.co.uk"
|
|
|
-# - "co.uk" <-- unlikely
|
|
|
-# - "uk" <-'
|
|
|
-#
|
|
|
-# (another approach would be something like this:
|
|
|
-# https://github.com/hlandau/acme/blob/master/_doc/dns.hook
|
|
|
-# - that's better if there are multiple pages. It's so much simpler.
|
|
|
-# )
|
|
|
-
|
|
|
_find_zone() {
|
|
|
-
|
|
|
_domain="$1"
|
|
|
-
|
|
|
body="email=${HE_Username}&pass=${HE_Password}"
|
|
|
- _matches=$(_post "$body" "https://dns.he.net/" \
|
|
|
- | _egrep_o "delete_dom.*name=\"[^\"]+\" value=\"[0-9]+"
|
|
|
- )
|
|
|
+ response="$(_post "$body" "https://dns.he.net/")"
|
|
|
+ _debug2 response "$response"
|
|
|
+ _table="$(echo "$response" | tr -d "#" | sed "s/<table/#<table/g" | tr -d "\n" | tr "#" "\n" | grep 'id="domains_table"')"
|
|
|
+ _debug2 _table "$_table"
|
|
|
+ _matches="$(echo "$_table" | sed "s/<tr/#<tr/g" | tr "#" "\n" | grep 'alt="edit"' | tr -d " " | sed "s/<td/#<td/g" | tr "#" "\n" | sed -n 3p)"
|
|
|
+ _debug2 _matches "$_matches"
|
|
|
# Zone names and zone IDs are in same order
|
|
|
- _zone_ids=$(echo "$_matches" | cut -d '"' -f 5)
|
|
|
- _zone_names=$(echo "$_matches" | cut -d '"' -f 3)
|
|
|
+ _zone_ids=$(echo "$_matches" | _egrep_o "hosted_dns_zoneid=[0-9]*&" | cut -d = -f 2 | tr -d '&')
|
|
|
+ _zone_names=$(echo "$_matches" | _egrep_o "name=.*onclick" | cut -d '"' -f 2)
|
|
|
_debug2 "These are the zones on this HE account:"
|
|
|
_debug2 "$_zone_names"
|
|
|
_debug2 "And these are their respective IDs:"
|
|
|
_debug2 "$_zone_ids"
|
|
|
-
|
|
|
+ if [ -z "$_zone_names" ] || [ -z "$_zone_ids" ]; then
|
|
|
+ _err "Can not get zone names."
|
|
|
+ return 1
|
|
|
+ fi
|
|
|
# Walk through all possible zone names
|
|
|
_strip_counter=1
|
|
|
while true; do
|
|
@@ -156,17 +143,10 @@ _find_zone() {
|
|
|
|
|
|
_debug "Looking for zone \"${_attempted_zone}\""
|
|
|
|
|
|
- # Take care of "." and only match whole lines. Note that grep -F
|
|
|
- # cannot be used because there's no way to make it match whole
|
|
|
- # lines.
|
|
|
- regex="^$(echo "$_attempted_zone" | sed 's/\./\\./g')$"
|
|
|
- line_num=$(echo "$_zone_names" \
|
|
|
- | grep -n "$regex" \
|
|
|
- | cut -d : -f 1
|
|
|
- )
|
|
|
-
|
|
|
- if [ -n "$line_num" ]; then
|
|
|
- _zone_id=$(echo "$_zone_ids" | sed "${line_num}q;d")
|
|
|
+ line_num="$(echo "$_zone_names" | grep -n "$_attempted_zone" | cut -d : -f 1)"
|
|
|
+
|
|
|
+ if [ "$line_num" ]; then
|
|
|
+ _zone_id=$(echo "$_zone_ids" | sed -n "${line_num}p")
|
|
|
_debug "Found relevant zone \"$_attempted_zone\" with id \"$_zone_id\" - will be used for domain \"$_domain\"."
|
|
|
return 0
|
|
|
fi
|