#!/usr/bin/env sh
# shellcheck disable=SC2034
dns_nanelo_info='Nanelo.com
Site: Nanelo.com
Docs: github.com/acmesh-official/acme.sh/wiki/dnsapi2#dns_nanelo
Options:
 NANELO_TOKEN API Token
Issues: github.com/acmesh-official/acme.sh/issues/4519
'

NANELO_API="https://api.nanelo.com/v1/"

########  Public functions #####################

# Usage: add  _acme-challenge.www.domain.com   "XKrxpRBosdIKFzxW_CT3KLZNf6q0HG9i01zxXp5CPBs"
dns_nanelo_add() {
  fulldomain=$1
  txtvalue=$2

  NANELO_TOKEN="${NANELO_TOKEN:-$(_readaccountconf_mutable NANELO_TOKEN)}"
  if [ -z "$NANELO_TOKEN" ]; then
    NANELO_TOKEN=""
    _err "You didn't configure a Nanelo API Key yet."
    _err "Please set NANELO_TOKEN and try again."
    _err "Login to Nanelo.com and go to Settings > API Keys to get a Key"
    return 1
  fi
  _saveaccountconf_mutable NANELO_TOKEN "$NANELO_TOKEN"

  _debug "First detect the root zone"
  if ! _get_root "$fulldomain"; then
    _err "invalid domain"
    return 1
  fi
  _debug _sub_domain "$_sub_domain"
  _debug _domain "$_domain"

  _info "Adding TXT record to ${fulldomain}"
  response="$(_post "" "$NANELO_API$NANELO_TOKEN/dns/addrecord?domain=${_domain}&type=TXT&ttl=60&name=${_sub_domain}&value=${txtvalue}" "" "" "")"
  if _contains "${response}" 'success'; then
    return 0
  fi
  _err "Could not create resource record, please check the logs"
  _err "${response}"
  return 1
}

dns_nanelo_rm() {
  fulldomain=$1
  txtvalue=$2

  NANELO_TOKEN="${NANELO_TOKEN:-$(_readaccountconf_mutable NANELO_TOKEN)}"
  if [ -z "$NANELO_TOKEN" ]; then
    NANELO_TOKEN=""
    _err "You didn't configure a Nanelo API Key yet."
    _err "Please set NANELO_TOKEN and try again."
    _err "Login to Nanelo.com and go to Settings > API Keys to get a Key"
    return 1
  fi
  _saveaccountconf_mutable NANELO_TOKEN "$NANELO_TOKEN"

  _debug "First, let's detect the root zone:"
  if ! _get_root "$fulldomain"; then
    _err "invalid domain"
    return 1
  fi
  _debug _sub_domain "$_sub_domain"
  _debug _domain "$_domain"

  _info "Deleting resource record $fulldomain"
  response="$(_post "" "$NANELO_API$NANELO_TOKEN/dns/deleterecord?domain=${_domain}&type=TXT&ttl=60&name=${_sub_domain}&value=${txtvalue}" "" "" "")"
  if _contains "${response}" 'success'; then
    return 0
  fi
  _err "Could not delete resource record, please check the logs"
  _err "${response}"
  return 1
}

####################  Private functions below ##################################
#_acme-challenge.www.domain.com
#returns
# _sub_domain=_acme-challenge.www
# _domain=domain.com

_get_root() {
  fulldomain=$1

  # Fetch all zones from Nanelo
  response="$(_get "$NANELO_API$NANELO_TOKEN/dns/getzones")" || return 1

  # Extract "zones" array into space-separated list
  zones=$(echo "$response" |
    tr -d ' \n' |
    sed -n 's/.*"zones":\[\([^]]*\)\].*/\1/p' |
    tr -d '"' |
    tr , ' ')
  _debug zones "$zones"

  bestzone=""
  for z in $zones; do
    case "$fulldomain" in
    *."$z" | "$z")
      if [ ${#z} -gt ${#bestzone} ]; then
        bestzone=$z
      fi
      ;;
    esac
  done

  if [ -z "$bestzone" ]; then
    _err "No matching zone found for $fulldomain"
    return 1
  fi

  _domain="$bestzone"
  _sub_domain=$(printf "%s" "$fulldomain" | sed "s/\\.$_domain\$//")

  return 0
}