#!/usr/bin/env sh

#
# Hosteurope API
#
# Author: Peter Postmann
# Report Bugs here: https://github.com/peterpostmann/acme.sh
# --
#
# Pass credentials before "acme.sh --issue --dns dns_hosteurope ..."
# --
# export HOSTEUROPE_Username="username"
# export HOSTEUROPE_Password="password"
# --

HOSTEUROPE_Sso="https://sso.hosteurope.de/api/app/v1/login"
HOSTEUROPE_Api="https://kis.hosteurope.de/administration/domainservices/index.php?menu=2&mode=autodns"

########  Public functions #####################

# Usage: add  _acme-challenge.www.domain.com   "XKrxpRBosdIKFzxW_CT3KLZNf6q0HG9i01zxXp5CPBs"
dns_hosteurope_add() {
  fulldomain="$1"
  txtvalue="$2"

  HOSTEUROPE_Username="${HOSTEUROPE_Username:-$(_readaccountconf_mutable HOSTEUROPE_Username)}"
  HOSTEUROPE_Password="${HOSTEUROPE_Password:-$(_readaccountconf_mutable HOSTEUROPE_Password)}"
  if [ -z "$HOSTEUROPE_Username" ] || [ -z "$HOSTEUROPE_Password" ]; then
    HOSTEUROPE_Username=""
    HOSTEUROPE_Password=""
    _err "You don't specify hosteurope username and password."
    return 1
  fi

  #save the credentials to the account conf file.
  _saveaccountconf_mutable HOSTEUROPE_Username "$HOSTEUROPE_Username"
  _saveaccountconf_mutable HOSTEUROPE_Password "$HOSTEUROPE_Password"

  _debug "detect the root zone"
  if ! _get_root "$fulldomain"; then
    return 1
  fi

  _debug _sub_domain "$_sub_domain"
  _debug _domain "$_domain"

  _debug "add txt record"
  _hosteurope_get "&submode=edit&domain=$_domain&hostadd=$_sub_domain&record=11&pointeradd=$txtvalue&truemode=host&action=add&submit=Neu+anlegen&dubnachfrage=1"
}

# Usage: fulldomain txtvalue
dns_hosteurope_rm() {
  fulldomain="$1"
  txtvalue="$2"

  HOSTEUROPE_Username="${HOSTEUROPE_Username:-$(_readaccountconf_mutable HOSTEUROPE_Username)}"
  HOSTEUROPE_Password="${HOSTEUROPE_Password:-$(_readaccountconf_mutable HOSTEUROPE_Password)}"
  if [ -z "$HOSTEUROPE_Username" ] || [ -z "$HOSTEUROPE_Password" ]; then
    HOSTEUROPE_Username=""
    HOSTEUROPE_Password=""
    _err "You don't specify hosteurope username and password."
    return 1
  fi

  _debug "detect the root zone"
  if ! _get_root "$fulldomain"; then
    return 1
  fi

  _debug _sub_domain "$_sub_domain"
  _debug _domain "$_domain"

  _debug "get records"

  _hosteurope_get "&submode=edit&domain=$_domain"
  _hostid="$(echo "$response" | grep -a -A 50 "$txtvalue" | grep -m 1 "hostid" | grep -o 'value="[^"]*' | grep -o '[^"]*$')"
  _debug _hostid "$_hostid"

  if [ -z "$_hostid" ]; then
    _err "record not found"
    return 1
  fi

  _debug "rm txt record"
  _hosteurope_get "&submode=edit&domain=$_domain&hostadd=$_sub_domain&record=11&pointer=$txtvalue&submit=L%F6schen&truemode=host&hostid=$_hostid&nachfrage=1"
}

####################  Private functions below ##################################

#_acme-challenge.www.domain.com
#returns
# _sub_domain=_acme-challenge.www
# _domain=domain.com
_get_root() {
  domain=$1

  if ! _hosteurope_get ''; then
    return 1
  fi

  _domains=$(echo "$response" | grep -a -o 'value="edit"><input type="hidden" name="domain" value="[^"]*' | grep -o '[^"]*$')
  _debug2 domains "$_domains"

  for _d in $_domains; do
    if echo "$domain" | grep "$_d$" >/dev/null; then
      _domain="$_d"
      _sub_domain="$(echo "$domain" | sed "s/$_d$//g" | sed "s/\\.$//g")"
      return 0
    fi
  done

  _err "invalid domain"

  return 1
}

_hosteurope_login() {

  _readaccountconf_mutable HOSTEUROPE_Cookie "$HOSTEUROPE_Cookie"
  _readaccountconf_mutable HOSTEUROPE_Expires "$HOSTEUROPE_Expires"

  if [ -n "$HOSTEUROPE_Cookie" ] && [ -n "$HOSTEUROPE_Expires" ] && [ "$HOSTEUROPE_Expires" -gt "$(date "+%s")" ]; then
    return 0
  fi

  # a call to _inithttp is needed to set HTTP_HEADER correctly (see https://github.com/Neilpang/acme.sh/issues/1859)
  _inithttp

  response="$(_post "{\"identifier\":\"$1\",\"password\":\"$2\",\"brandId\":\"b9c8f0f0-60dd-4cab-9da8-512b352d9c1a\"}" "${HOSTEUROPE_Sso}" "" "POST" "application/json")"

  if [ "$response" != '{"success":true}' ]; then
    _err "error $response"
    _debug2 response "$response"
    return 1
  fi

  if ! headers=$(cat "$HTTP_HEADER"); then
    _err "error headers not found"
    _debug2 HTTP_HEADER "$HTTP_HEADER"
    return 1
  fi

  if ! cookies=$(echo "$headers" | sed -n -e 's/^Set-Cookie: //p'); then
    _err "error authidp cookie not found"
    _debug2 headers "$headers"
    _debug2 cookies "$cookies"
    return 1
  fi

  if ! authidp=$(echo "$cookies" | grep "auth_idp="); then
    _err "error authidp cookie not found"
    _debug2 cookies "$cookies"
    return 1
  fi

  if ! HOSTEUROPE_Cookie=$(echo "$cookies" | awk '{print $1}' | tr -d '\n'); then
    _err "error parsing cookie"
    _debug2 cookies "$cookies"
    return 1
  fi

  if ! expires=$(echo "$authidp" | sed -n -e 's/.*Expires=//p' | sed -n -e 's/;.*//p'); then
    _err "error parsing cookie expiration date"
    _debug2 authidp "$authidp"
    return 1
  fi

  HOSTEUROPE_Expires=$(date -d "$expires" "+%s")

  _saveaccountconf_mutable HOSTEUROPE_Cookie "$HOSTEUROPE_Cookie"
  _saveaccountconf_mutable HOSTEUROPE_Expires "$HOSTEUROPE_Expires"

  return 0
}

_hosteurope_get() {
  ep="$1"
  _debug "$ep"

  _hosteurope_login "$HOSTEUROPE_Username" "$HOSTEUROPE_Password"
  _H1="Cookie: $HOSTEUROPE_Cookie"
  _debug2 Cookie "$_H1"

  response="$(_get "${HOSTEUROPE_Api}${ep}")"
  res="$?"
  _debug2 response "$response"

  if [ "$res" != "0" ]; then
    _err "error $ep"
    return 1
  fi

  if echo "$response" | grep "<title>KIS Login</title>" >/dev/null; then
    _err "Invalid Credentials"
    return 1
  fi

  if echo "$response" | grep "FEHLER" >/dev/null; then
    _err "$(_hosteurope_result "$response" "FEHLER")"
    return 1
  fi

  if echo "$response" | grep "INFO" >/dev/null; then
    _info "$(_hosteurope_result "$response" "INFO")"
  fi

  return 0
}

_hosteurope_result() {
  echo "$1" | awk '/INFO/ {for(i=1; i<=10; i++) {getline; print}}' | grep -a "<li>" | sed 's/^\s*<li>//g' | sed 's/<\/li>*$//g'
}