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
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-01-31 08:30:01 +00:00
#save the api key and email to the account conf file.
_saveaccountconf CF_Key " $CF_Key "
_saveaccountconf 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
2016-11-11 16:50:44 +00:00
count = $( printf "%s\n" " $response " | _egrep_o "\"count\":[^,]*" | cut -d : -f 2)
2016-05-07 15:33:42 +00:00
_debug count " $count "
2016-11-09 11:30:39 +00:00
if [ " $count " = "0" ] ; then
2016-01-30 13:00:36 +00:00
_info "Adding record"
2016-11-09 11:30:39 +00:00
if _cf_rest POST " zones/ $_domain_id /dns_records " " {\"type\":\"TXT\",\"name\":\" $fulldomain \",\"content\":\" $txtvalue \",\"ttl\":120} " ; then
2016-11-11 15:30:14 +00:00
if printf -- "%s" " $response " | grep " $fulldomain " >/dev/null; then
2016-01-30 14:34:35 +00:00
_info "Added, sleeping 10 seconds"
2016-01-30 14:47:22 +00:00
sleep 10
#todo: check if the record takes effect
2016-01-30 14:34:35 +00:00
return 0
else
_err "Add txt record error."
return 1
fi
2016-01-30 13:00:36 +00:00
fi
_err "Add txt record error."
else
_info "Updating record"
2016-11-11 16:50:44 +00:00
record_id = $( printf "%s\n" " $response " | _egrep_o "\"id\":\"[^\"]*\"" | cut -d : -f 2 | tr -d \" | head -n 1)
2016-11-11 15:30:14 +00:00
_debug "record_id" " $record_id "
2016-11-09 11:30:39 +00:00
_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 \"} "
2016-05-21 14:59:39 +00:00
if [ " $? " = "0" ] ; then
2016-01-30 13:00:36 +00:00
_info "Updated, sleeping 10 seconds"
sleep 10
2016-01-30 14:47:22 +00:00
#todo: check if the record takes effect
2016-11-09 11:30:39 +00:00
return 0
2016-01-30 13:00:36 +00:00
fi
_err "Update error"
return 1
fi
2016-11-09 11:30:39 +00:00
}
2016-01-30 13:00:36 +00:00
2016-10-25 15:08:02 +00:00
#fulldomain
dns_cf_rm( ) {
fulldomain = $1
2016-01-30 14:34:35 +00:00
2016-10-25 15:08:02 +00:00
}
2016-01-30 14:34:35 +00:00
#################### Private functions bellow ##################################
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-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-11-11 15:30:14 +00:00
if printf "%s" " $response " | grep " \"name\":\" $h \" " >/dev/null; then
2016-11-11 16:50:44 +00:00
_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
2016-05-07 15:33:42 +00:00
_H1 = " X-Auth-Email: $CF_Email "
_H2 = " X-Auth-Key: $CF_Key "
_H3 = "Content-Type: application/json"
2016-11-09 11:30:39 +00:00
if [ " $data " ] ; 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
}