| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311 | 
							- #!/usr/bin/env sh
 
- INWX_Api="https://api.domrobot.com/xmlrpc/"
 
- dns_inwx_add() {
 
-   fulldomain=$1
 
-   txtvalue=$2
 
-   INWX_User="${INWX_User:-$(_readaccountconf_mutable INWX_User)}"
 
-   INWX_Password="${INWX_Password:-$(_readaccountconf_mutable INWX_Password)}"
 
-   if [ -z "$INWX_User" ] || [ -z "$INWX_Password" ]; then
 
-     INWX_User=""
 
-     INWX_Password=""
 
-     _err "You don't specify inwx user and password yet."
 
-     _err "Please create you key and try again."
 
-     return 1
 
-   fi
 
-   
 
-   _saveaccountconf_mutable INWX_User "$INWX_User"
 
-   _saveaccountconf_mutable INWX_Password "$INWX_Password"
 
-   _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 record"
 
-   _inwx_add_record "$_domain" "$_sub_domain" "$txtvalue"
 
- }
 
- dns_inwx_rm() {
 
-   fulldomain=$1
 
-   txtvalue=$2
 
-   INWX_User="${INWX_User:-$(_readaccountconf_mutable INWX_User)}"
 
-   INWX_Password="${INWX_Password:-$(_readaccountconf_mutable INWX_Password)}"
 
-   if [ -z "$INWX_User" ] || [ -z "$INWX_Password" ]; then
 
-     INWX_User=""
 
-     INWX_Password=""
 
-     _err "You don't specify inwx user and password yet."
 
-     _err "Please create you key and try again."
 
-     return 1
 
-   fi
 
-   
 
-   _saveaccountconf_mutable INWX_User "$INWX_User"
 
-   _saveaccountconf_mutable INWX_Password "$INWX_Password"
 
-   _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"
 
-   _debug "Getting txt records"
 
-   xml_content=$(printf '<?xml version="1.0" encoding="UTF-8"?>
 
-   <methodCall>
 
-   <methodName>nameserver.info</methodName>
 
-   <params>
 
-    <param>
 
-     <value>
 
-      <struct>
 
-       <member>
 
-        <name>domain</name>
 
-        <value>
 
-         <string>%s</string>
 
-        </value>
 
-       </member>
 
-       <member>
 
-        <name>type</name>
 
-        <value>
 
-         <string>TXT</string>
 
-        </value>
 
-       </member>
 
-       <member>
 
-        <name>name</name>
 
-        <value>
 
-         <string>%s</string>
 
-        </value>
 
-       </member>
 
-      </struct>
 
-     </value>
 
-    </param>
 
-   </params>
 
-   </methodCall>' "$_domain" "$_sub_domain")
 
-   response="$(_post "$xml_content" "$INWX_Api" "" "POST")"
 
-   if ! _contains "$response" "Command completed successfully"; then
 
-     _err "Error could not get txt records"
 
-     return 1
 
-   fi
 
-   if ! printf "%s" "$response" | grep "count" >/dev/null; then
 
-     _info "Do not need to delete record"
 
-   else
 
-     _record_id=$(printf '%s' "$response" | _egrep_o '.*(<member><name>record){1}(.*)([0-9]+){1}' | _egrep_o '<name>id<\/name><value><int>[0-9]+' | _egrep_o '[0-9]+')
 
-     _info "Deleting record"
 
-     _inwx_delete_record "$_record_id"
 
-   fi
 
- }
 
- _inwx_login() {
 
-   xml_content=$(printf '<?xml version="1.0" encoding="UTF-8"?>
 
-   <methodCall>
 
-   <methodName>account.login</methodName>
 
-   <params>
 
-    <param>
 
-     <value>
 
-      <struct>
 
-       <member>
 
-        <name>user</name>
 
-        <value>
 
-         <string>%s</string>
 
-        </value>
 
-       </member>
 
-       <member>
 
-        <name>pass</name>
 
-        <value>
 
-         <string>%s</string>
 
-        </value>
 
-       </member>
 
-      </struct>
 
-     </value>
 
-    </param>
 
-   </params>
 
-   </methodCall>' $INWX_User $INWX_Password)
 
-   response="$(_post "$xml_content" "$INWX_Api" "" "POST")"
 
-   printf "Cookie: %s" "$(grep "domrobot=" "$HTTP_HEADER" | grep "^Set-Cookie:" | _tail_n 1 | _egrep_o 'domrobot=[^;]*;' | tr -d ';')"
 
- }
 
- _get_root() {
 
-   domain=$1
 
-   _debug "get root"
 
-   domain=$1
 
-   i=2
 
-   p=1
 
-   _H1=$(_inwx_login)
 
-   export _H1
 
-   xml_content='<?xml version="1.0" encoding="UTF-8"?>
 
-   <methodCall>
 
-   <methodName>nameserver.list</methodName>
 
-   </methodCall>'
 
-   response="$(_post "$xml_content" "$INWX_Api" "" "POST")"
 
-   while true; do
 
-     h=$(printf "%s" "$domain" | cut -d . -f $i-100)
 
-     _debug h "$h"
 
-     if [ -z "$h" ]; then
 
-       
 
-       return 1
 
-     fi
 
-     if _contains "$response" "$h"; then
 
-       _sub_domain=$(printf "%s" "$domain" | cut -d . -f 1-$p)
 
-       _domain="$h"
 
-       return 0
 
-     fi
 
-     p=$i
 
-     i=$(_math "$i" + 1)
 
-   done
 
-   return 1
 
- }
 
- _inwx_delete_record() {
 
-   record_id=$1
 
-   xml_content=$(printf '<?xml version="1.0" encoding="UTF-8"?>
 
-   <methodCall>
 
-   <methodName>nameserver.deleteRecord</methodName>
 
-   <params>
 
-    <param>
 
-     <value>
 
-      <struct>
 
-       <member>
 
-        <name>id</name>
 
-        <value>
 
-         <int>%s</int>
 
-        </value>
 
-       </member>
 
-      </struct>
 
-     </value>
 
-    </param>
 
-   </params>
 
-   </methodCall>' "$record_id")
 
-   response="$(_post "$xml_content" "$INWX_Api" "" "POST")"
 
-   if ! printf "%s" "$response" | grep "Command completed successfully" >/dev/null; then
 
-     _err "Error"
 
-     return 1
 
-   fi
 
-   return 0
 
- }
 
- _inwx_update_record() {
 
-   record_id=$1
 
-   txtval=$2
 
-   xml_content=$(printf '<?xml version="1.0" encoding="UTF-8"?>
 
-   <methodCall>
 
-   <methodName>nameserver.updateRecord</methodName>
 
-   <params>
 
-    <param>
 
-     <value>
 
-      <struct>
 
-       <member>
 
-        <name>content</name>
 
-        <value>
 
-         <string>%s</string>
 
-        </value>
 
-       </member>
 
-       <member>
 
-        <name>id</name>
 
-        <value>
 
-         <int>%s</int>
 
-        </value>
 
-       </member>
 
-      </struct>
 
-     </value>
 
-    </param>
 
-   </params>
 
-   </methodCall>' "$txtval" "$record_id")
 
-   response="$(_post "$xml_content" "$INWX_Api" "" "POST")"
 
-   if ! printf "%s" "$response" | grep "Command completed successfully" >/dev/null; then
 
-     _err "Error"
 
-     return 1
 
-   fi
 
-   return 0
 
- }
 
- _inwx_add_record() {
 
-   domain=$1
 
-   sub_domain=$2
 
-   txtval=$3
 
-   xml_content=$(printf '<?xml version="1.0" encoding="UTF-8"?>
 
-   <methodCall>
 
-   <methodName>nameserver.createRecord</methodName>
 
-   <params>
 
-    <param>
 
-     <value>
 
-      <struct>
 
-       <member>
 
-        <name>domain</name>
 
-        <value>
 
-         <string>%s</string>
 
-        </value>
 
-       </member>
 
-       <member>
 
-        <name>type</name>
 
-        <value>
 
-         <string>TXT</string>
 
-        </value>
 
-       </member>
 
-       <member>
 
-        <name>content</name>
 
-        <value>
 
-         <string>%s</string>
 
-        </value>
 
-       </member>
 
-       <member>
 
-        <name>name</name>
 
-        <value>
 
-         <string>%s</string>
 
-        </value>
 
-       </member>
 
-      </struct>
 
-     </value>
 
-    </param>
 
-   </params>
 
-   </methodCall>' "$domain" "$txtval" "$sub_domain")
 
-   response="$(_post "$xml_content" "$INWX_Api" "" "POST")"
 
-   if ! printf "%s" "$response" | grep "Command completed successfully" >/dev/null; then
 
-     _err "Error"
 
-     return 1
 
-   fi
 
-   return 0
 
- }
 
 
  |