R/domain-records.R

In sckott/analogsea: Interface to 'DigitalOcean'

domain_record_url <- function(domain, record = NULL) {
  url("domains", domain, "records", record)
}

#' @export
#' @rdname domain_records
as.domain_record <- function(x, domain) UseMethod("as.domain_record")
#' @export
#' @rdname domain_records
as.domain_record.list <- function(x, domain) {
  x <- list_to_object(x, "domain_record", name = NULL)
  if (inherits(x, "domain_record")) {
    x$domain <- domain
    x
  } else {
    lapply(x, function(y) {
      y$domain <- domain
      y
    })
  }
}
#' @export
#' @rdname domain_records
as.domain_record.domain_record <- function(x, domain) x

#' @export
print.domain_record <- function(x, ...) {
  cat("<domain_record> ", x$id, "\n", sep = "")
  cat("  ", x$type, " ", x$data, "\n", sep = "")
}

#' @export
#' @rdname domain_records
as.url.domain_record <- function(x, ...) {
  domain_record_url(x$domain$name, x$id)
}

#' List, create, update, and delete domain records.
#'
#' @export
#' @param domain (domain) Required. Domain Name (e.g. domain.com), specifies
#'   the domain for which to create a record.
#' @param type (character) Required. The type of record you would like to
#'   create. 'A', 'CNAME', 'NS', 'TXT', 'MX' or 'SRV'
#' @param name (character) The host name, alias, or service being defined by
#'   the record. Required for 'A', 'CNAME', 'TXT' and 'SRV' records
#' @param data (character) Variable data depending on record type. Required
#'   for 'A', 'AAAA', 'CNAME', 'MX', 'TXT', 'SRV', and 'NS' records
#' @param priority (integer) Required for 'SRV' and 'MX' records
#' @param port (integer) Required for 'SRV' records
#' @param ttl (numeric/integer) Time to live for the record, in seconds. This
#' defines the time frame that clients can cache queried information before
#' a refresh should be requested. If not set, default is 1800
#' @param weight (integer) Required for 'SRV' records
#' @param flags (integer) An unsigned integer between 0-255 used for
#' CAA records
#' @param tag (character) The parameter tag for CAA records. Valid values are
#' "issue", "wildissue", or "iodef"
#' @param domain_record A domain record, or anything coercible to one
#' @param domain_record_id (numeric/integer) A domain record ID
#' @param x Domain record.
#' @param ... Further args passed on the curl call to the web.
#' @examples \dontrun{
#' # list domains, then get domain records
#' (d <- domains()[[1]])
#' (rec <- domain_records(d))
#'
#' # create a domain
#' dom <- domain_create('tablesandchairsbunnies.info', '107.170.220.59')
#' ## list domain records
#' domain_records(dom)
#'
#' # create a domain record
#' dr <- domain_record_create(dom, "CNAME", name = "helloworld", data = "@@")
#' domain_record(dom, dr$id)
#'
#' # update a domain record
#' dru <- domain_record_update(domain_record = dr, name = "blog")
#'
#' # delete a domain record
#' domain_record_delete(dr)
#' }
domain_records <- function(domain, ...) {
  domain <- as.domain(domain)
  as.domain_record(do_GET(domain_record_url(domain$name)), domain)
}

#' @export
#' @rdname domain_records
domain_record <- function(domain, domain_record_id, ...) {
  url <- domain_record_url(domain$name, domain_record_id)
  as.domain_record(do_GET(url), domain)
}

#' @export
#' @rdname domain_records
domain_record_create <- function(domain, type, name = NULL, data = NULL,
                                 priority = NULL, port = NULL, ttl = NULL,
                                 weight = NULL, flags = NULL, tag = NULL, ...) {
  domain <- as.domain(domain)

  res <- do_POST(domain_record_url(domain$name),
    body = list(type = type, data = data, name = name, priority = priority,
      port = port, ttl = ttl, weight = weight, flags = flags, tag = tag),
    encode = "multipart",
    ...)
  as.domain_record(res, domain = domain)
}

#' @export
#' @rdname domain_records
domain_record_update <- function(domain_record, type = NULL, name = NULL,
                                 data = NULL, priority = NULL, port = NULL,
                                 ttl = NULL, weight = NULL, flags = NULL,
                                 tag = NULL, ...) {
  domain_record <- as.domain_record(domain_record)

  res <- do_PUT(domain_record_url(domain_record$domain$name, domain_record$id),
                body = list(type = type, data = data, name = name,
                            priority = priority, port = port, ttl = ttl,
                            weight = weight, flags = flags, tag = tag),
                encode = "multipart", ...)
  as.domain_record(res, domain = domain)
}

#' @export
#' @rdname domain_records
domain_record_delete <- function(domain_record, ...) {
  domain_record <- as.domain_record(domain_record)
  do_DELETE(domain_record, ...)
}