| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128 | 
							- #!/usr/bin/env sh
 
- DuckDNS_API="https://www.duckdns.org/update"
 
- dns_duckdns_add() {
 
-   fulldomain=$1
 
-   txtvalue=$2
 
-   DuckDNS_Token="${DuckDNS_Token:-$(_readaccountconf_mutable DuckDNS_Token)}"
 
-   if [ -z "$DuckDNS_Token" ]; then
 
-     _err "You must export variable: DuckDNS_Token"
 
-     _err "The token for your DuckDNS account is necessary."
 
-     _err "You can look it up in your DuckDNS account."
 
-     return 1
 
-   fi
 
-   
 
-   _saveaccountconf_mutable DuckDNS_Token "$DuckDNS_Token"
 
-   
 
-   
 
-   
 
-   if ! _duckdns_get_domain; then
 
-     return 1
 
-   fi
 
-   
 
-   _info "Trying to add TXT record"
 
-   if _duckdns_rest GET "domains=$_duckdns_domain&token=$DuckDNS_Token&txt=$txtvalue"; then
 
-     if [ "$response" = "OK" ]; then
 
-       _info "TXT record has been successfully added to your DuckDNS domain."
 
-       _info "Note that all subdomains under this domain uses the same TXT record."
 
-       return 0
 
-     else
 
-       _err "Errors happened during adding the TXT record, response=$response"
 
-       return 1
 
-     fi
 
-   else
 
-     _err "Errors happened during adding the TXT record."
 
-     return 1
 
-   fi
 
- }
 
- dns_duckdns_rm() {
 
-   fulldomain=$1
 
-   txtvalue=$2
 
-   DuckDNS_Token="${DuckDNS_Token:-$(_readaccountconf_mutable DuckDNS_Token)}"
 
-   if [ -z "$DuckDNS_Token" ]; then
 
-     _err "You must export variable: DuckDNS_Token"
 
-     _err "The token for your DuckDNS account is necessary."
 
-     _err "You can look it up in your DuckDNS account."
 
-     return 1
 
-   fi
 
-   if ! _duckdns_get_domain; then
 
-     return 1
 
-   fi
 
-   
 
-   _info "Trying to remove TXT record"
 
-   if _duckdns_rest GET "domains=$_duckdns_domain&token=$DuckDNS_Token&txt=&clear=true"; then
 
-     if [ "$response" = "OK" ]; then
 
-       _info "TXT record has been successfully removed from your DuckDNS domain."
 
-       return 0
 
-     else
 
-       _err "Errors happened during removing the TXT record, response=$response"
 
-       return 1
 
-     fi
 
-   else
 
-     _err "Errors happened during removing the TXT record."
 
-     return 1
 
-   fi
 
- }
 
- _duckdns_get_domain() {
 
-   
 
-   _duckdns_domain="$(printf "%s" "$fulldomain" | _lower_case | _egrep_o '[.][^.][^.]*[.]duckdns.org' | cut -d . -f 2)"
 
-   if [ -z "$_duckdns_domain" ]; then
 
-     _err "Error extracting the domain."
 
-     return 1
 
-   fi
 
-   return 0
 
- }
 
- _duckdns_rest() {
 
-   method=$1
 
-   param="$2"
 
-   _debug param "$param"
 
-   url="$DuckDNS_API?$param"
 
-   _debug url "$url"
 
-   
 
-   if [ "$method" = "GET" ]; then
 
-     response="$(_get "$url")"
 
-   else
 
-     _err "Unsupported method"
 
-     return 1
 
-   fi
 
-   _debug2 response "$response"
 
-   return 0
 
- }
 
 
  |