2016-04-17 11:47:22 +00:00
#!/usr/bin/env sh
2016-01-30 13:00:36 +00:00
#
#CF_Key="sdfsdfsdfljlbjkljlkjsdfoiwje"
#
#CF_Email="xxxx@sss.com"
2016-05-07 15:33:42 +00:00
CF_Api = "https://api.cloudflare.com/client/v4"
2016-01-30 13:00:36 +00:00
2016-01-30 14:34:35 +00:00
######## Public functions #####################
#Usage: add _acme-challenge.www.domain.com "XKrxpRBosdIKFzxW_CT3KLZNf6q0HG9i01zxXp5CPBs"
2016-11-09 11:30:39 +00:00
dns_cf_add( ) {
2016-01-30 13:00:36 +00:00
fulldomain = $1
txtvalue = $2
2016-11-09 11:30:39 +00:00
2017-04-11 14:29:49 +00:00
CF_Key = " ${ CF_Key :- $( _readaccountconf_mutable CF_Key) } "
CF_Email = " ${ CF_Email :- $( _readaccountconf_mutable CF_Email) } "
2016-11-09 11:30:39 +00:00
if [ -z " $CF_Key " ] || [ -z " $CF_Email " ] ; then
2016-11-12 03:05:05 +00:00
CF_Key = ""
CF_Email = ""
2016-01-30 15:15:30 +00:00
_err "You don't specify cloudflare api key and email yet."
_err "Please create you key and try again."
return 1
fi
2016-11-09 11:30:39 +00:00
2016-11-16 16:22:45 +00:00
if ! _contains " $CF_Email " "@" ; then
_err " It seems that the CF_Email= $CF_Email is not a valid email address. "
_err "Please check and retry."
return 1
fi
2016-11-16 16:25:40 +00:00
2016-01-31 08:30:01 +00:00
#save the api key and email to the account conf file.
2017-04-11 13:37:56 +00:00
_saveaccountconf_mutable CF_Key " $CF_Key "
_saveaccountconf_mutable CF_Email " $CF_Email "
2016-11-09 11:30:39 +00:00
2016-01-30 14:11:09 +00:00
_debug "First detect the root zone"
2016-11-11 15:30:14 +00:00
if ! _get_root " $fulldomain " ; then
2016-01-30 13:00:36 +00:00
_err "invalid domain"
return 1
fi
2016-02-29 05:38:40 +00:00
_debug _domain_id " $_domain_id "
_debug _sub_domain " $_sub_domain "
_debug _domain " $_domain "
2016-11-09 11:30:39 +00:00
2016-01-30 14:11:09 +00:00
_debug "Getting txt records"
2016-05-07 15:33:42 +00:00
_cf_rest GET " zones/ ${ _domain_id } /dns_records?type=TXT&name= $fulldomain "
2016-11-09 11:30:39 +00:00
2016-11-11 15:30:14 +00:00
if ! printf "%s" " $response " | grep \" success\" :true >/dev/null; then
2016-01-30 13:00:36 +00:00
_err "Error"
return 1
fi
2016-11-09 11:30:39 +00:00
2018-01-06 11:42:29 +00:00
# For wildcard cert, the main root domain and the wildcard domain have the same txt subdomain name, so
# we can not use updating anymore.
# count=$(printf "%s\n" "$response" | _egrep_o "\"count\":[^,]*" | cut -d : -f 2)
# _debug count "$count"
# if [ "$count" = "0" ]; then
2018-01-06 09:39:15 +00:00
_info "Adding record"
if _cf_rest POST " zones/ $_domain_id /dns_records " " {\"type\":\"TXT\",\"name\":\" $fulldomain \",\"content\":\" $txtvalue \",\"ttl\":120} " ; then
if printf -- "%s" " $response " | grep " $fulldomain " >/dev/null; then
_info "Added, OK"
2016-11-09 11:30:39 +00:00
return 0
2018-01-06 09:39:15 +00:00
else
_err "Add txt record error."
return 1
2016-01-30 13:00:36 +00:00
fi
fi
2018-01-06 09:39:15 +00:00
_err "Add txt record error."
return 1
2018-01-06 11:42:29 +00:00
# else
# _info "Updating record"
# record_id=$(printf "%s\n" "$response" | _egrep_o "\"id\":\"[^\"]*\"" | cut -d : -f 2 | tr -d \" | head -n 1)
# _debug "record_id" "$record_id"
#
# _cf_rest PUT "zones/$_domain_id/dns_records/$record_id" "{\"id\":\"$record_id\",\"type\":\"TXT\",\"name\":\"$fulldomain\",\"content\":\"$txtvalue\",\"zone_id\":\"$_domain_id\",\"zone_name\":\"$_domain\"}"
# if [ "$?" = "0" ]; then
# _info "Updated, OK"
# return 0
# fi
# _err "Update error"
# return 1
# fi
2016-01-30 13:00:36 +00:00
2016-11-09 11:30:39 +00:00
}
2016-01-30 13:00:36 +00:00
2016-12-06 06:58:36 +00:00
#fulldomain txtvalue
2016-10-25 15:08:02 +00:00
dns_cf_rm( ) {
fulldomain = $1
2016-12-06 06:58:36 +00:00
txtvalue = $2
2017-04-16 01:36:59 +00:00
CF_Key = " ${ CF_Key :- $( _readaccountconf_mutable CF_Key) } "
CF_Email = " ${ CF_Email :- $( _readaccountconf_mutable CF_Email) } "
if [ -z " $CF_Key " ] || [ -z " $CF_Email " ] ; then
CF_Key = ""
CF_Email = ""
_err "You don't specify cloudflare api key and email yet."
_err "Please create you key and try again."
return 1
fi
2016-12-06 06:58:36 +00:00
_debug "First detect the root zone"
if ! _get_root " $fulldomain " ; then
_err "invalid domain"
return 1
fi
_debug _domain_id " $_domain_id "
_debug _sub_domain " $_sub_domain "
_debug _domain " $_domain "
_debug "Getting txt records"
_cf_rest GET " zones/ ${ _domain_id } /dns_records?type=TXT&name= $fulldomain &content= $txtvalue "
if ! printf "%s" " $response " | grep \" success\" :true >/dev/null; then
_err "Error"
return 1
fi
2016-12-06 07:18:02 +00:00
2016-12-06 06:58:36 +00:00
count = $( printf "%s\n" " $response " | _egrep_o "\"count\":[^,]*" | cut -d : -f 2)
_debug count " $count "
if [ " $count " = "0" ] ; then
_info "Don't need to remove."
else
record_id = $( printf "%s\n" " $response " | _egrep_o "\"id\":\"[^\"]*\"" | cut -d : -f 2 | tr -d \" | head -n 1)
_debug "record_id" " $record_id "
if [ -z " $record_id " ] ; then
_err "Can not get record id to remove."
return 1
fi
if ! _cf_rest DELETE " zones/ $_domain_id /dns_records/ $record_id " ; then
_err "Delete record error."
return 1
fi
_contains " $response " '"success":true'
fi
2016-01-30 14:34:35 +00:00
2016-10-25 15:08:02 +00:00
}
2016-01-30 14:34:35 +00:00
2016-12-14 20:32:24 +00:00
#################### Private functions below ##################################
2016-01-30 13:00:36 +00:00
#_acme-challenge.www.domain.com
2016-01-30 14:11:09 +00:00
#returns
2016-01-30 13:00:36 +00:00
# _sub_domain=_acme-challenge.www
# _domain=domain.com
# _domain_id=sdjkglgdfewsdfg
_get_root( ) {
domain = $1
i = 2
p = 1
2016-11-11 15:30:14 +00:00
while true; do
h = $( printf "%s" " $domain " | cut -d . -f $i -100)
2016-12-27 12:40:52 +00:00
_debug h " $h "
2016-11-09 11:30:39 +00:00
if [ -z " $h " ] ; then
2016-01-30 13:00:36 +00:00
#not valid
2016-11-09 11:30:39 +00:00
return 1
2016-01-30 13:00:36 +00:00
fi
2016-11-09 11:30:39 +00:00
if ! _cf_rest GET " zones?name= $h " ; then
2016-01-30 13:00:36 +00:00
return 1
fi
2016-11-09 11:30:39 +00:00
2016-12-27 12:40:52 +00:00
if _contains " $response " " \"name\":\" $h \" " >/dev/null; then
_domain_id = $( printf "%s\n" " $response " | _egrep_o "\[.\"id\":\"[^\"]*\"" | head -n 1 | cut -d : -f 2 | tr -d \" )
2016-11-09 11:30:39 +00:00
if [ " $_domain_id " ] ; then
2016-11-11 15:30:14 +00:00
_sub_domain = $( printf "%s" " $domain " | cut -d . -f 1-$p )
2016-01-30 13:00:36 +00:00
_domain = $h
return 0
fi
return 1
fi
p = $i
2016-11-11 15:30:14 +00:00
i = $( _math " $i " + 1)
2016-01-30 13:00:36 +00:00
done
return 1
}
_cf_rest( ) {
m = $1
ep = " $2 "
2016-05-07 15:33:42 +00:00
data = " $3 "
2016-11-11 15:30:14 +00:00
_debug " $ep "
2016-11-09 11:30:39 +00:00
2017-01-09 16:04:09 +00:00
export _H1 = " X-Auth-Email: $CF_Email "
export _H2 = " X-Auth-Key: $CF_Key "
export _H3 = "Content-Type: application/json"
2016-11-09 11:30:39 +00:00
2016-12-06 06:58:36 +00:00
if [ " $m " != "GET" ] ; then
2016-01-30 14:11:09 +00:00
_debug data " $data "
2016-11-11 15:30:14 +00:00
response = " $( _post " $data " " $CF_Api / $ep " "" " $m " ) "
2016-01-30 14:34:35 +00:00
else
2016-05-07 15:33:42 +00:00
response = " $( _get " $CF_Api / $ep " ) "
2016-01-30 13:00:36 +00:00
fi
2016-11-09 11:30:39 +00:00
if [ " $? " != "0" ] ; then
2016-01-30 14:34:35 +00:00
_err " error $ep "
2016-01-30 13:00:36 +00:00
return 1
fi
2016-04-09 15:40:59 +00:00
_debug2 response " $response "
2016-01-30 13:00:36 +00:00
return 0
}