Add paging to record list

domain/zone/record/record.go

@@ -1,6 +1,8 @@
 package record
 
-import "github.com/prasmussen/gandi-api/client"
+import (
+	"github.com/prasmussen/gandi-api/client"
+)
 
 type Record struct {
 	*client.Client
@@ -22,16 +24,25 @@ func (self *Record) Count(zoneId, version int64) (int64, error) {
 
 // List records of a version of a DNS zone
 func (self *Record) List(zoneId, version int64) ([]*RecordInfo, error) {
-	var res []interface{}
-	params := []interface{}{self.Key, zoneId, version}
-	if err := self.Call("domain.zone.record.list", params, &res); err != nil {
-		return nil, err
-	}
-
+	opts := &struct {
+		Page int `xmlrpc:"page"`
+	}{0}
+	const perPage = 100
+	params := []interface{}{self.Key, zoneId, version, opts}
 	records := make([]*RecordInfo, 0)
-	for _, r := range res {
-		record := ToRecordInfo(r.(map[string]interface{}))
-		records = append(records, record)
+	for {
+		var res []interface{}
+		if err := self.Call("domain.zone.record.list", params, &res); err != nil {
+			return nil, err
+		}
+		for _, r := range res {
+			record := ToRecordInfo(r.(map[string]interface{}))
+			records = append(records, record)
+		}
+		if len(res) < perPage {
+			break
+		}
+		opts.Page++
 	}
 	return records, nil
 }