add ddns_strato.sh

add ddns_strato.sh

dnsapi/dns_strato.sh

@@ -0,0 +1,103 @@
+#!/bin/sh
+
+dns_strato_add() {
+  fulldomain=$1
+  txtvalue=$2
+
+
+  STRATO_Username="${STRATO_Username:-$(_readaccountconf_mutable STRATO_Username)}"
+  STRATO_Password="${STRATO_Password:-$(_readaccountconf_mutable STRATO_Password)}"
+  if [ -z "$STRATO_Username" ] || [ -z "$STRATO_Password" ]; then
+    STRATO_Username=""
+    STRATO_Password=""
+    _err "You don't specify Strato account number and password yet."
+    return 1
+  fi
+
+  #save the credentials to the account conf file.
+  _saveaccountconf_mutable STRATO_Username "$STRATO_Username"
+  _saveaccountconf_mutable STRATO_Password "$STRATO_Password"
+  
+  login="identifier=$STRATO_Username&passwd=$STRATO_Password&action_customer_login.x=Login"
+  #Save Cookie
+  res=$(wget --keep-session-cookies --save-cookies cookies.txt --post-data $login https://www.strato.de/apps/CustomerService -O - 2>&1 )
+  code=$(echo $res | grep -Eo 'response... ([[:digit:]]{3})' | sed 's/response... //')
+  if [[ $code -ne "200" ]]; then
+	 _err "Can't save cookie"
+    return 1
+  fi
+  echo "dns_strato: login"
+
+  #Login with Cookie
+  res=$(wget --keep-session-cookies --load-cookies cookies.txt --post-data $login https://www.strato.de/apps/CustomerService -O - 2>&1 )
+  codes=$(echo $res | grep -Eo 'response... ([[:digit:]]{3})' | sed 's/response... //')
+  if [[ $(echo $codes | cut -d ' ' -f1) != "302" ]] || [[ $(echo $codes | cut -d ' ' -f2) != "200" ]];then
+	 _err "Login error $login"
+    return 1
+  fi
+  echo "dns_strato: logged in successfully"
+  
+  sessionUrl=$(echo $res | sed -n 's/.*Location: \(\S*\)&.*/\1/p' | cut -d '&' -f1)
+  
+  #for each domain of full domain
+  vhost=$(echo $fulldomain | sed -e 's/_acme-challenge.//')
+  echo "dns_strato: changing _acme-challenge for $vhost"
+  
+  txtUrl=$sessionUrl"&cID=1&node=ManageDomains&action_show_txt_records&vhost="$vhost
+  
+  res=$(wget --keep-session-cookies --load-cookies cookies.txt $txtUrl -O - 2>&1 )
+  code=$(echo $res | grep -Eo 'response... ([[:digit:]]{3})' | sed 's/response... //')
+  if [[ $code -ne "200" ]]; then
+	 _err "Can't load txt page"
+    return 1
+  fi
+  echo "dns_strato: fetching existing TXT data"
+  
+  sessionID=$(echo $res | sed -n 's/.*sessionID : "\(\S*\)".*$/\1/p')
+  cID=$(echo $res | sed -n 's/.*cID : "\(\S*\)".*$/\1/p')
+  node=$(echo $res | sed -n 's/.*node : "\(\S*\)".*$/\1/p')
+  vhost=$(echo $res | sed -n 's/.*vhost. value="\(\S*\)".*$/\1/p')
+  spf_type=$(echo $res | sed -n 's/.*spf_type. value="\(\S*\)" checked.*$/\1/p')
+
+  postBody="sessionID=$sessionID&cID=$cID&node=$node&vhost=$vhost&spf_type=$spf_type"
+  
+  prefix=$(echo $res | grep -Eo 'value="(\S+)" name="prefix"' | sed -n 's/value="\(\S*\)".*$/\1/p')
+  type=$(echo $res | grep -Eo 'name="type"> <option value="(\S*)"' | sed -n 's/.*value="\(\S*\)".*$/\1/p')
+  value=$(echo $res | grep -Eo 'name="value".{0,60}">\S+<' | sed -n 's/.*>\(\S*\)<.*$/\1/p')
+  i=1;
+  for j in $prefix
+	do
+		tPrefix=$j
+		tType=$(echo $type | cut -d ' ' -f$i)
+		tValue=$(echo $value | cut -d ' ' -f$i)
+		
+		if [[ $tPrefix == "_acme-challenge" ]];then
+			tValue=$txtvalue
+			echo "dns_strato: changing _acme-challenge for $vhost to $tValue"
+		fi
+		postBody=$postBody"&prefix=$tPrefix&type=$tType&value=$tValue"
+		i=`expr $i + 1`
+  done
+  
+  postBody=$postBody"&action_change_txt_records=Einstellung+übernehmen"
+  #!/bin/sh
+  
+  res=$(wget --keep-session-cookies --load-cookies cookies.txt --post-data $postBody $txtUrl -O - 2>&1 )
+  code=$(echo $res | grep -Eo 'response... ([[:digit:]]{3})' | sed 's/response... //')
+  if [[ $code -ne "200" ]]; then
+	  _err "Can't change TXT settings"
+    return 1
+  fi
+  
+  success=$(echo $res | grep -Eo '<div class="sf-status success">[a-zA-Z0-9.[:space:]]*')
+   if [[ -z "$success" ]]; then
+	  _err "Can't change TXT settings"
+    return 1
+  fi
+  echo "dns_strato: TXT change successful: "$(echo $success | sed -n 's/.*> \(.*\)/\1/p')
+  rm cookies.txt
+}
+
+
+
+