issue1771: allow dns_aws to get all hosted zones instead of only first 100

dnsapi/dns_aws.sh

@@ -154,25 +154,31 @@ _get_root() {
   domain=$1
   i=2
   p=1
+  response_prev=''
 
   if aws_rest GET "2013-04-01/hostedzone"; then
     while true; do
-      h=$(printf "%s" "$domain" | cut -d . -f $i-100)
-      _debug2 "Checking domain: $h"
-      if [ -z "$h" ]; then
       if _contains "$response" "<IsTruncated>true</IsTruncated>" && _contains "$response" "<NextMarker>"; then
         _debug "IsTruncated"
         _nextMarker="$(echo "$response" | _egrep_o "<NextMarker>.*</NextMarker>" | cut -d '>' -f 2 | cut -d '<' -f 1)"
         _debug "NextMarker" "$_nextMarker"
+        response_prev="$response$response_prev"
         if aws_rest GET "2013-04-01/hostedzone" "marker=$_nextMarker"; then
           _debug "Truncated request OK"
-            i=2
-            p=1
           continue
         else
           _err "Truncated request error."
+          response="$response_prev"
+          break
         fi
       fi
+      response="$response$response_prev"
+      break
+    done
+    while true; do
+      h=$(printf "%s" "$domain" | cut -d . -f $i-100)
+      _debug2 "Checking domain: $h"
+      if [ -z "$h" ]; then
         #not valid
         _err "Invalid domain"
         return 1