Paginate ListHostedZones when listing hosted zones

listHostedZones called ListHostedZones once with no pagination. The AWS
API returns at most 100 zones per page, so accounts with more than 100
hosted zones silently dropped zones beyond the first page. GetHostedZoneID
then reported "no hosted zone found" for valid domains whose parent zone
landed on a later page.

Loop over pages using IsTruncated/NextMarker until all zones are listed.

Fixes #4832

Signed-off-by: Shashank Varma <324153016+shashankvarma499@users.noreply.github.com>

Author: shashankvarma499

pkg/aws/services/route53.go

@@ -89,12 +89,23 @@ func (c *route53Client) listHostedZones(ctx context.Context) ([]types.HostedZone
 		return nil, err
 	}
 
-	reqList := &route53.ListHostedZonesInput{}
-	respList, err := client.ListHostedZones(ctx, reqList)
-	if err != nil {
-		return nil, err
+	// ListHostedZones returns at most 100 zones per page. Paginate so zones
+	// beyond the first page are not silently dropped.
+	var zones []types.HostedZone
+	var marker *string
+	for {
+		reqList := &route53.ListHostedZonesInput{Marker: marker}
+		respList, err := client.ListHostedZones(ctx, reqList)
+		if err != nil {
+			return nil, err
+		}
+		zones = append(zones, respList.HostedZones...)
+		if !respList.IsTruncated {
+			break
+		}
+		marker = respList.NextMarker
 	}
 
-	c.hostedZonesCache.Set(hostedZonesCacheKey, respList.HostedZones, c.hostedZonesCacheTTL)
-	return respList.HostedZones, nil
+	c.hostedZonesCache.Set(hostedZonesCacheKey, zones, c.hostedZonesCacheTTL)
+	return zones, nil
 }