Add Abion.com DNS API

dnsapi/dns_abion.sh

@@ -0,0 +1,91 @@
+#!/usr/bin/env sh
+# shellcheck disable=SC2034
+dns_abion_info='abion.com
+Site: abion.com
+Options:
+ ABION_API_KEY key
+'
+
+ABION_Api_Endpoint="https://api.abion.com/v1"
+
+#####################  Public functions #####################
+
+# Usage: dns_abion_add <domain> <txt record>
+# Example: dns_abion_add www.domain.com "XKrxpRBosdIKFzxW_CT3KLZNf6q0HG9i01zxXp5CPBs"
+dns_abion_add() {
+  fulldomain=$1
+  txtvalue=$2
+
+  _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"
+
+  ABION_API_KEY="${ABION_API_KEY:-$(_readaccountconf_mutable ABION_API_KEY)}"
+
+  if [ -z "$ABION_API_KEY" ]; then
+    ABION_API_KEY=""
+    _err "You need to spesify ABION_API_KEY."
+    return 1
+  fi
+
+  _saveaccountconf_mutable ABION_API_KEY "$ABION_API_KEY"
+
+  _abion_rest PATCH "zones/$_domain" "{\"data\":{\"type\":\"zone\",\"id\":\"$_domain\",\"attributes\":{\"records\":{\"$_sub_domain\":{\"TXT\":[{\"rdata\":\"$txtvalue\",\"ttl\":300}]}}}}}"
+}
+
+#####################  Private functions #####################
+
+_get_root() {
+  domain=$1
+
+  if ! _abion_rest GET "zones" "" >/dev/null; then
+    return 1
+  fi
+
+  zones=$(echo "$response" | jq -r ".data | map(.id) | .[]")
+
+  num_labels=$(echo "$domain" | tr '.' '\n' | wc -l)
+  i=2
+  while [ "$i" -le "$num_labels" ]; do
+    candidate=$(echo "$domain" | cut -d'.' -f${i}-)
+
+    for zone in $zones; do
+      if [ "$zone" = "$candidate" ]; then
+        _sub_domain=$(echo "$domain" | cut -d'.' -f1-$((i - 1)))
+        _domain="$candidate"
+        return 0
+      fi
+    done
+
+    i=$((i + 1))
+  done
+
+  return 1
+}
+
+_abion_rest() {
+  method=$1
+  endpoint=$2
+  data=$3
+
+  export _H1="X-API-KEY: $ABION_API_KEY"
+  export _H2="Content-Type: application/json"
+
+if [ "$method" == "GET" ]; then
+    response="$(_get "$ABION_Api_Endpoint/$endpoint")"
+  else
+    response="$(_post "$data" "$ABION_Api_Endpoint/$endpoint" "" "$method")"
+  fi
+
+  if [ "$?" != "0" ]; then
+    _err "error $endpoint"
+    return 1
+  fi
+
+  return 0
+}