$(INSTALL_DATA) ./files/usr/share/ddns/services/* \
$(1)/usr/share/ddns/services/
- $(INSTALL_DIR) $(1)/usr/lib/ddns
- $(INSTALL_BIN) $(1)/files/dynamic_dns_*.sh $(1)/usr/lib/ddns
+ $(INSTALL_DIR) $(1)/usr/lib/ddns
+ $(INSTALL_DATA) ./files/usr/lib/ddns/dynamic_dns_functions.sh \
+ $(1)/usr/lib/ddns
+ $(INSTALL_BIN) ./files/usr/lib/ddns/dynamic_dns_lucihelper.sh \
+ $(1)/usr/lib/ddns
+ $(INSTALL_BIN) ./files/usr/lib/ddns/dynamic_dns_updater.sh \
+ $(1)/usr/lib/ddns
endef
define Package/ddns-scripts/postinst
+++ /dev/null
-#!/bin/sh
-# /usr/lib/ddns/dynamic_dns_functions.sh
-#
-#.Distributed under the terms of the GNU General Public License (GPL) version 2.0
-# Original written by Eric Paul Bishop, January 2008
-# (Loosely) based on the script on the one posted by exobyte in the forums here:
-# http://forum.openwrt.org/viewtopic.php?id=14040
-# extended and partial rewritten
-#.2014-2018 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
-#
-# function timeout
-# copied from http://www.ict.griffith.edu.au/anthony/software/timeout.sh
-# @author Anthony Thyssen 6 April 2011
-#
-# variables in small chars are read from /etc/config/ddns
-# variables in big chars are defined inside these scripts as global vars
-# variables in big chars beginning with "__" are local defined inside functions only
-# set -vx #script debugger
-
-. /lib/functions.sh
-. /lib/functions/network.sh
-
-# GLOBAL VARIABLES #
-if [ -f "/usr/share/ddns/version" ]; then
- VERSION="$(cat "/usr/share/ddns/version")"
-else
- VERSION="unknown"
-fi
-SECTION_ID="" # hold config's section name
-VERBOSE=0 # default mode is log to console, but easily changed with parameter
-MYPROG=$(basename $0) # my program call name
-
-LOGFILE="" # logfile - all files are set in dynamic_dns_updater.sh
-PIDFILE="" # pid file
-UPDFILE="" # store UPTIME of last update
-DATFILE="" # save stdout data of WGet and other external programs called
-ERRFILE="" # save stderr output of WGet and other external programs called
-IPFILE="" # store registered IP for read by LuCI status
-TLDFILE=/usr/share/public_suffix_list.dat.gz # TLD file used by split_FQDN
-
-CHECK_SECONDS=0 # calculated seconds out of given
-FORCE_SECONDS=0 # interval and unit
-RETRY_SECONDS=0 # in configuration
-
-LAST_TIME=0 # holds the uptime of last successful update
-CURR_TIME=0 # holds the current uptime
-NEXT_TIME=0 # calculated time for next FORCED update
-EPOCH_TIME=0 # seconds since 1.1.1970 00:00:00
-
-REGISTERED_IP="" # holds the IP read from DNS
-LOCAL_IP="" # holds the local IP read from the box
-
-URL_USER="" # url encoded $username from config file
-URL_PASS="" # url encoded $password from config file
-URL_PENC="" # url encoded $param_enc from config file
-
-UPD_ANSWER="" # Answer given by service on success
-
-ERR_LAST=0 # used to save $? return code of program and function calls
-ERR_UPDATE=0 # error counter on different local and registered ip
-
-PID_SLEEP=0 # ProcessID of current background "sleep"
-
-# regular expression to detect IPv4 / IPv6
-# IPv4 0-9 1-3x "." 0-9 1-3x "." 0-9 1-3x "." 0-9 1-3x
-IPV4_REGEX="[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}"
-# IPv6 ( ( 0-9a-f 1-4char ":") min 1x) ( ( 0-9a-f 1-4char )optional) ( (":" 0-9a-f 1-4char ) min 1x)
-IPV6_REGEX="\(\([0-9A-Fa-f]\{1,4\}:\)\{1,\}\)\(\([0-9A-Fa-f]\{1,4\}\)\{0,1\}\)\(\(:[0-9A-Fa-f]\{1,4\}\)\{1,\}\)"
-
-# characters that are dangerous to pass to a shell command line
-SHELL_ESCAPE="[\"\'\`\$\!();><{}?|\[\]\*\\\\]"
-
-# dns character set
-DNS_CHARSET="[@a-zA-Z0-9._-]"
-
-# detect if called by ddns-lucihelper.sh script, disable retrys (empty variable == false)
-LUCI_HELPER=$(printf %s "$MYPROG" | grep -i "luci")
-
-# Name Server Lookup Programs
-BIND_HOST=$(command -v host)
-KNOT_HOST=$(command -v khost)
-DRILL=$(command -v drill)
-HOSTIP=$(command -v hostip)
-NSLOOKUP=$(command -v nslookup)
-
-# Transfer Programs
-WGET=$(command -v wget)
-WGET_SSL=$(command -v wget-ssl)
-
-CURL=$(command -v curl)
-# CURL_SSL not empty then SSL support available
-CURL_SSL=$($CURL -V 2>/dev/null | grep -F "https")
-# CURL_PROXY not empty then Proxy support available
-CURL_PROXY=$(find /lib /usr/lib -name libcurl.so* -exec strings {} 2>/dev/null \; | grep -im1 "all_proxy")
-
-UCLIENT_FETCH=$(command -v uclient-fetch)
-
-# Global configuration settings
-# allow NON-public IP's
-upd_privateip=$(uci -q get ddns.global.upd_privateip) || upd_privateip=0
-
-# directory to store run information to.
-ddns_rundir=$(uci -q get ddns.global.ddns_rundir) || ddns_rundir="/var/run/ddns"
-[ -d $ddns_rundir ] || mkdir -p -m755 $ddns_rundir
-
-# directory to store log files
-ddns_logdir=$(uci -q get ddns.global.ddns_logdir) || ddns_logdir="/var/log/ddns"
-[ -d $ddns_logdir ] || mkdir -p -m755 $ddns_logdir
-
-# number of lines to before rotate logfile
-ddns_loglines=$(uci -q get ddns.global.ddns_loglines) || ddns_loglines=250
-ddns_loglines=$((ddns_loglines + 1)) # correct sed handling
-
-# format to show date information in log and luci-app-ddns default ISO 8601 format
-ddns_dateformat=$(uci -q get ddns.global.ddns_dateformat) || ddns_dateformat="%F %R"
-DATE_PROG="date +'$ddns_dateformat'"
-
-# USE_CURL if GNU Wget and cURL installed normally Wget is used by do_transfer()
-# to change this use global option use_curl '1'
-USE_CURL=$(uci -q get ddns.global.use_curl) || USE_CURL=0 # read config
-[ -n "$CURL" ] || USE_CURL=0 # check for cURL
-
-# loads all options for a given package and section
-# also, sets all_option_variables to a list of the variable names
-# $1 = ddns, $2 = SECTION_ID
-load_all_config_options()
-{
- local __PKGNAME="$1"
- local __SECTIONID="$2"
- local __VAR
- local __ALL_OPTION_VARIABLES=""
-
- # this callback loads all the variables in the __SECTIONID section when we do
- # config_load. We need to redefine the option_cb for different sections
- # so that the active one isn't still active after we're done with it. For reference
- # the $1 variable is the name of the option and $2 is the name of the section
- config_cb()
- {
- if [ ."$2" = ."$__SECTIONID" ]; then
- option_cb()
- {
- __ALL_OPTION_VARIABLES="$__ALL_OPTION_VARIABLES $1"
- }
- else
- option_cb() { return 0; }
- fi
- }
-
- config_load "$__PKGNAME"
-
- # Given SECTION_ID not found so no data, so return 1
- [ -z "$__ALL_OPTION_VARIABLES" ] && return 1
-
- for __VAR in $__ALL_OPTION_VARIABLES
- do
- config_get "$__VAR" "$__SECTIONID" "$__VAR"
- done
- return 0
-}
-
-# read's all service sections from ddns config
-# $1 = Name of variable to store
-load_all_service_sections() {
- local __DATA=""
- config_cb()
- {
- # only look for section type "service", ignore everything else
- [ "$1" = "service" ] && __DATA="$__DATA $2"
- }
- config_load "ddns"
-
- eval "$1=\"$__DATA\""
- return
-}
-
-# starts updater script for all given sections or only for the one given
-# $1 = interface (Optional: when given only scripts are started
-# configured for that interface)
-# used by /etc/hotplug.d/iface/95-ddns on IFUP
-# and by /etc/init.d/ddns start
-start_daemon_for_all_ddns_sections()
-{
- local __EVENTIF="$1"
- local __SECTIONS=""
- local __SECTIONID=""
- local __IFACE=""
-
- load_all_service_sections __SECTIONS
- for __SECTIONID in $__SECTIONS; do
- config_get __IFACE "$__SECTIONID" interface "wan"
- [ -z "$__EVENTIF" -o "$__IFACE" = "$__EVENTIF" ] || continue
- if [ $VERBOSE -eq 0 ]; then # start in background
- /usr/lib/ddns/dynamic_dns_updater.sh -v 0 -S "$__SECTIONID" -- start &
- else
- /usr/lib/ddns/dynamic_dns_updater.sh -v "$VERBOSE" -S "$__SECTIONID" -- start
- fi
- done
-}
-
-# stop sections process incl. childs (sleeps)
-# $1 = section
-stop_section_processes() {
- local __PID=0
- local __PIDFILE="$ddns_rundir/$1.pid"
- [ $# -ne 1 ] && write_log 12 "Error calling 'stop_section_processes()' - wrong number of parameters"
-
- [ -e "$__PIDFILE" ] && {
- __PID=$(cat $__PIDFILE)
- ps | grep "^[\t ]*$__PID" >/dev/null 2>&1 && kill $__PID || __PID=0 # terminate it
- }
- [ $__PID -eq 0 ] # report if process was running
-}
-
-# stop updater script for all defines sections or only for one given
-# $1 = interface (optional)
-# used by /etc/hotplug.d/iface/95-ddns on 'ifdown'
-# and by /etc/init.d/ddns stop
-# needed because we also need to kill "sleep" child processes
-stop_daemon_for_all_ddns_sections() {
- local __EVENTIF="$1"
- local __SECTIONS=""
- local __SECTIONID=""
- local __IFACE=""
-
- load_all_service_sections __SECTIONS
- for __SECTIONID in $__SECTIONS; do
- config_get __IFACE "$__SECTIONID" interface "wan"
- [ -z "$__EVENTIF" -o "$__IFACE" = "$__EVENTIF" ] || continue
- stop_section_processes "$__SECTIONID"
- done
-}
-
-# reports to console, logfile, syslog
-# $1 loglevel 7 == Debug to 0 == EMERG
-# value +10 will exit the scripts
-# $2..n text to report
-write_log() {
- local __LEVEL __EXIT __CMD __MSG __MSE
- local __TIME=$(date +%H%M%S)
- [ $1 -ge 10 ] && {
- __LEVEL=$(($1-10))
- __EXIT=1
- } || {
- __LEVEL=$1
- __EXIT=0
- }
- shift # remove loglevel
- [ $__EXIT -eq 0 ] && __MSG="$*" || __MSG="$* - TERMINATE"
- case $__LEVEL in # create log message and command depending on loglevel
- 0) __CMD="logger -p user.emerg -t ddns-scripts[$$] $SECTION_ID: $__MSG"
- __MSG=" $__TIME EMERG : $__MSG" ;;
- 1) __CMD="logger -p user.alert -t ddns-scripts[$$] $SECTION_ID: $__MSG"
- __MSG=" $__TIME ALERT : $__MSG" ;;
- 2) __CMD="logger -p user.crit -t ddns-scripts[$$] $SECTION_ID: $__MSG"
- __MSG=" $__TIME CRIT : $__MSG" ;;
- 3) __CMD="logger -p user.err -t ddns-scripts[$$] $SECTION_ID: $__MSG"
- __MSG=" $__TIME ERROR : $__MSG" ;;
- 4) __CMD="logger -p user.warn -t ddns-scripts[$$] $SECTION_ID: $__MSG"
- __MSG=" $__TIME WARN : $__MSG" ;;
- 5) __CMD="logger -p user.notice -t ddns-scripts[$$] $SECTION_ID: $__MSG"
- __MSG=" $__TIME note : $__MSG" ;;
- 6) __CMD="logger -p user.info -t ddns-scripts[$$] $SECTION_ID: $__MSG"
- __MSG=" $__TIME info : $__MSG" ;;
- 7) __MSG=" $__TIME : $__MSG";;
- *) return;;
- esac
-
- # verbose echo
- [ $VERBOSE -gt 0 -o $__EXIT -gt 0 ] && echo -e "$__MSG"
- # write to logfile
- if [ ${use_logfile:-1} -eq 1 -o $VERBOSE -gt 1 ]; then
- if [ -n "$password" ]; then
- # url encode __MSG, password already done
- urlencode __MSE "$__MSG"
- # replace encoded password inside encoded message
- # and url decode (newline was encoded as %00)
- __MSG=$( echo -e "$__MSE" \
- | sed -e "s/$URL_PASS/***PW***/g" \
- | sed -e "s/+/ /g; s/%00/\n/g; s/%/\\\\x/g" | xargs -0 printf "%b" )
- fi
- printf "%s\n" "$__MSG" >> $LOGFILE
- # VERBOSE > 1 then NO loop so NO truncate log to $ddns_loglines lines
- [ $VERBOSE -gt 1 ] || sed -i -e :a -e '$q;N;'$ddns_loglines',$D;ba' $LOGFILE
- fi
- [ -n "$LUCI_HELPER" ] && return # nothing else todo when running LuCI helper script
- [ $__LEVEL -eq 7 ] && return # no syslog for debug messages
- __CMD=$(echo -e "$__CMD" | tr -d '\n' | tr '\t' ' ') # remove \n \t chars
- [ $__EXIT -eq 1 ] && {
- eval '$__CMD' # force syslog before exit
- exit 1
- }
- [ $use_syslog -eq 0 ] && return
- [ $((use_syslog + __LEVEL)) -le 7 ] && eval '$__CMD'
-
- return
-}
-
-# replace all special chars to their %hex value
-# used for USERNAME and PASSWORD in update_url
-# unchanged: "-"(minus) "_"(underscore) "."(dot) "~"(tilde)
-# to verify: "'"(single quote) '"'(double quote) # because shell delimiter
-# "$"(Dollar) # because used as variable output
-# tested with the following string stored via Luci Application as password / username
-# A B!"#AA$1BB%&'()*+,-./:;<=>?@[\]^_`{|}~ without problems at Dollar or quotes
-urlencode() {
- # $1 Name of Variable to store encoded string to
- # $2 string to encode
- local __ENC
-
- [ $# -ne 2 ] && write_log 12 "Error calling 'urlencode()' - wrong number of parameters"
-
- __ENC="$(awk -v str="$2" 'BEGIN{ORS="";for(i=32;i<=127;i++)lookup[sprintf("%c",i)]=i
- for(k=1;k<=length(str);++k){enc=substr(str,k,1);if(enc!~"[-_.~a-zA-Z0-9]")enc=sprintf("%%%02x", lookup[enc]);print enc}}')"
-
- eval "$1=\"$__ENC\"" # transfer back to variable
- return 0
-}
-
-# extract url or script for given DDNS Provider from
-# directory /usr/share/ddns/services/ipv4/ for IPv4
-# or from
-# directory /usr/share/ddns/services/ipv6/ for IPv6
-# $1 Name of the provider
-# $1 Name of Variable to store url to
-# $2 Name of Variable to store script to
-# $3 Name of Variable to store service answer to
-get_service_data() {
- local provider="$1"
- shift
-
- . /usr/share/libubox/jshn.sh
- local dir="/usr/share/ddns/services"
- local name data url answer script
-
- [ $# -ne 3 ] && write_log 12 "Error calling 'get_service_data()' - wrong number of parameters"
-
- [ -f "${dir}/${provider}.json" ] || {
- eval "$1=\"\""
- eval "$2=\"\""
- eval "$3=\"\""
- return 1
- }
-
- json_load_file "${dir}/${provider}.json"
- json_get_var name "name"
- if [ "$use_ipv6" -eq "1" ]; then
- json_select "ipv6"
- else
- json_select "ipv4"
- fi
- json_get_var data "url"
- json_get_var answer "answer"
- json_select ".."
- json_cleanup
-
- # check if URL or SCRIPT is given
- url=$(echo "$data" | grep "^http")
- [ -z "$url" ] && script="/usr/lib/ddns/${data}"
-
- eval "$1=\"$url\""
- eval "$2=\"$script\""
- eval "$3=\"$answer\""
- return 0
-}
-
-# Calculate seconds from interval and unit
-# $1 Name of Variable to store result in
-# $2 Number and
-# $3 Unit of time interval
-get_seconds() {
- [ $# -ne 3 ] && write_log 12 "Error calling 'get_seconds()' - wrong number of parameters"
- case "$3" in
- "days" ) eval "$1=$(( $2 * 86400 ))";;
- "hours" ) eval "$1=$(( $2 * 3600 ))";;
- "minutes" ) eval "$1=$(( $2 * 60 ))";;
- * ) eval "$1=$2";;
- esac
- return 0
-}
-
-timeout() {
- #.copied from http://www.ict.griffith.edu.au/anthony/software/timeout.sh
- # only did the following changes
- # - commented out "#!/bin/bash" and usage section
- # - replace exit by return for usage as function
- # - some reformatting
- #
- # timeout [-SIG] time [--] command args...
- #
- # Run the given command until completion, but kill it if it runs too long.
- # Specifically designed to exit immediately (no sleep interval) and clean up
- # nicely without messages or leaving any extra processes when finished.
- #
- # Example use
- # timeout 5 countdown
- #
- # Based on notes in my "Shell Script Hints", section "Command Timeout"
- # http://www.ict.griffith.edu.au/~anthony/info/shell/script.hints
- #
- # This script uses a lot of tricks to terminate both the background command,
- # the timeout script, and even the sleep process. It also includes trap
- # commands to prevent sub-shells reporting expected "Termination Errors".
- #
- # It took years of occasional trials, errors and testing to get a pure bash
- # timeout command working as well as this does.
- #
- #.Anthony Thyssen 6 April 2011
- #
-# PROGNAME=$(type $0 | awk '{print $3}') # search for executable on path
-# PROGDIR=$(dirname $PROGNAME) # extract directory of program
-# PROGNAME=$(basename $PROGNAME) # base name of program
-
- # output the script comments as docs
-# Usage() {
-# echo >&2 "$PROGNAME:" "$@"
-# sed >&2 -n '/^###/q; /^#/!q; s/^#//; s/^ //; 3s/^/Usage: /; 2,$ p' "$PROGDIR/$PROGNAME"
-# exit 10;
-# }
-
- SIG=-TERM
-
- while [ $# -gt 0 ]; do
- case "$1" in
- --)
- # forced end of user options
- shift;
- break ;;
-# -\?|--help|--doc*)
-# Usage ;;
- [0-9]*)
- TIMEOUT="$1" ;;
- -*)
- SIG="$1" ;;
- *)
- # unforced end of user options
- break ;;
- esac
- shift # next option
- done
-
- # run main command in backgrounds and get its pid
- "$@" &
- command_pid=$!
-
- # timeout sub-process abort countdown after ABORT seconds! also backgrounded
- sleep_pid=0
- (
- # cleanup sleep process
- trap 'kill -TERM $sleep_pid; return 1' 1 2 3 15
- # sleep timeout period in background
- sleep $TIMEOUT &
- sleep_pid=$!
- wait $sleep_pid
- # Abort the command
- kill $SIG $command_pid >/dev/null 2>&1
- return 1
- ) &
- timeout_pid=$!
-
- # Wait for main command to finished or be timed out
- wait $command_pid
- status=$?
-
- # Clean up timeout sub-shell - if it is still running!
- kill $timeout_pid 2>/dev/null
- wait $timeout_pid 2>/dev/null
-
- # Uncomment to check if a LONG sleep still running (no sleep should be)
- # sleep 1
- # echo "-----------"
- # /bin/ps j # uncomment to show if abort "sleep" is still sleeping
-
- return $status
-}
-
-# sanitize a variable
-# $1 variable name
-# $2 allowed shell pattern
-# $3 disallowed shell pattern
-sanitize_variable() {
- local __VAR=$1
- eval __VALUE=\$$__VAR
- local __ALLOWED=$2
- local __REJECT=$3
-
- # removing all allowed should give empty string
- if [ -n "$__ALLOWED" ]; then
- [ -z "${__VALUE//$__ALLOWED}" ] || write_log 12 "sanitize on $__VAR found characters outside allowed subset"
- fi
-
- # removing rejected pattern should give the same string as the input
- if [ -n "$__REJECT" ]; then
- [ "$__VALUE" = "${__VALUE//$__REJECT}" ] || write_log 12 "sanitize on $__VAR found rejected characters"
- fi
-}
-
-# verify given host and port is connectable
-# $1 Host/IP to verify
-# $2 Port to verify
-verify_host_port() {
- local __HOST=$1
- local __PORT=$2
- local __NC=$(command -v nc)
- local __NCEXT=$($(command -v nc) --help 2>&1 | grep "\-w" 2>/dev/null) # busybox nc compiled with extensions
- local __IP __IPV4 __IPV6 __RUNPROG __PROG __ERR
- # return codes
- # 1 system specific error
- # 2 nslookup/host error
- # 3 nc (netcat) error
- # 4 unmatched IP version
-
- [ $# -ne 2 ] && write_log 12 "Error calling 'verify_host_port()' - wrong number of parameters"
-
- # check if ip or FQDN was given
- __IPV4=$(echo $__HOST | grep -m 1 -o "$IPV4_REGEX$") # do not detect ip in 0.0.0.0.example.com
- __IPV6=$(echo $__HOST | grep -m 1 -o "$IPV6_REGEX")
- # if FQDN given get IP address
- [ -z "$__IPV4" -a -z "$__IPV6" ] && {
- if [ -n "$BIND_HOST" ]; then # use BIND host if installed
- __PROG="BIND host"
- __RUNPROG="$BIND_HOST $__HOST >$DATFILE 2>$ERRFILE"
- elif [ -n "$KNOT_HOST" ]; then # use Knot host if installed
- __PROG="Knot host"
- __RUNPROG="$KNOT_HOST $__HOST >$DATFILE 2>$ERRFILE"
- elif [ -n "$DRILL" ]; then # use drill if installed
- __PROG="drill"
- __RUNPROG="$DRILL -V0 $__HOST A >$DATFILE 2>$ERRFILE" # IPv4
- __RUNPROG="$__RUNPROG; $DRILL -V0 $__HOST AAAA >>$DATFILE 2>>$ERRFILE" # IPv6
- elif [ -n "$HOSTIP" ]; then # use hostip if installed
- __PROG="hostip"
- __RUNPROG="$HOSTIP $__HOST >$DATFILE 2>$ERRFILE" # IPv4
- __RUNPROG="$__RUNPROG; $HOSTIP -6 $__HOST >>$DATFILE 2>>$ERRFILE" # IPv6
- else # use BusyBox nslookup
- __PROG="BusyBox nslookup"
- __RUNPROG="$NSLOOKUP $__HOST >$DATFILE 2>$ERRFILE"
- fi
- write_log 7 "#> $__RUNPROG"
- eval $__RUNPROG
- __ERR=$?
- # command error
- [ $__ERR -gt 0 ] && {
- write_log 3 "DNS Resolver Error - $__PROG Error '$__ERR'"
- write_log 7 "$(cat $ERRFILE)"
- return 2
- }
- # extract IP address
- if [ -n "$BIND_HOST" -o -n "$KNOT_HOST" ]; then # use BIND host or Knot host if installed
- __IPV4="$(awk -F "address " '/has address/ {print $2; exit}' "$DATFILE")"
- __IPV6="$(awk -F "address " '/has IPv6/ {print $2; exit}' "$DATFILE")"
- elif [ -n "$DRILL" ]; then # use drill if installed
- __IPV4="$(awk '/^'"$__HOST"'/ {print $5}' "$DATFILE" | grep -m 1 -o "$IPV4_REGEX")"
- __IPV6="$(awk '/^'"$__HOST"'/ {print $5}' "$DATFILE" | grep -m 1 -o "$IPV6_REGEX")"
- elif [ -n "$HOSTIP" ]; then # use hostip if installed
- __IPV4="$(grep -m 1 -o "$IPV4_REGEX" "$DATFILE")"
- __IPV6="$(grep -m 1 -o "$IPV6_REGEX" "$DATFILE")"
- else # use BusyBox nslookup
- __IPV4="$(sed -ne "/^Name:/,\$ { s/^Address[0-9 ]\{0,\}: \($IPV4_REGEX\).*$/\\1/p }" "$DATFILE")"
- __IPV6="$(sed -ne "/^Name:/,\$ { s/^Address[0-9 ]\{0,\}: \($IPV6_REGEX\).*$/\\1/p }" "$DATFILE")"
- fi
- }
-
- # check IP version if forced
- if [ $force_ipversion -ne 0 ]; then
- __ERR=0
- [ $use_ipv6 -eq 0 -a -z "$__IPV4" ] && __ERR=4
- [ $use_ipv6 -eq 1 -a -z "$__IPV6" ] && __ERR=6
- [ $__ERR -gt 0 ] && {
- [ -n "$LUCI_HELPER" ] && return 4
- write_log 14 "Verify host Error '4' - Forced IP Version IPv$__ERR don't match"
- }
- fi
-
- # verify nc command
- # busybox nc compiled without -l option "NO OPT l!" -> critical error
- $__NC --help 2>&1 | grep -i "NO OPT l!" >/dev/null 2>&1 && \
- write_log 12 "Busybox nc (netcat) compiled without '-l' option, error 'NO OPT l!'"
- # busybox nc compiled with extensions
- $__NC --help 2>&1 | grep "\-w" >/dev/null 2>&1 && __NCEXT="TRUE"
-
- # connectivity test
- # run busybox nc to HOST PORT
- # busybox might be compiled with "FEATURE_PREFER_IPV4_ADDRESS=n"
- # then nc will try to connect via IPv6 if there is any IPv6 available on any host interface
- # not worrying, if there is an IPv6 wan address
- # so if not "force_ipversion" to use_ipv6 then connect test via ipv4, if available
- [ $force_ipversion -ne 0 -a $use_ipv6 -ne 0 -o -z "$__IPV4" ] && __IP=$__IPV6 || __IP=$__IPV4
-
- if [ -n "$__NCEXT" ]; then # BusyBox nc compiled with extensions (timeout support)
- __RUNPROG="$__NC -w 1 $__IP $__PORT </dev/null >$DATFILE 2>$ERRFILE"
- write_log 7 "#> $__RUNPROG"
- eval $__RUNPROG
- __ERR=$?
- [ $__ERR -eq 0 ] && return 0
- write_log 3 "Connect error - BusyBox nc (netcat) Error '$__ERR'"
- write_log 7 "$(cat $ERRFILE)"
- return 3
- else # nc compiled without extensions (no timeout support)
- __RUNPROG="timeout 2 -- $__NC $__IP $__PORT </dev/null >$DATFILE 2>$ERRFILE"
- write_log 7 "#> $__RUNPROG"
- eval $__RUNPROG
- __ERR=$?
- [ $__ERR -eq 0 ] && return 0
- write_log 3 "Connect error - BusyBox nc (netcat) timeout Error '$__ERR'"
- return 3
- fi
-}
-
-# verify given DNS server if connectable
-# $1 DNS server to verify
-verify_dns() {
- local __ERR=255 # last error buffer
- local __CNT=0 # error counter
-
- [ $# -ne 1 ] && write_log 12 "Error calling 'verify_dns()' - wrong number of parameters"
- write_log 7 "Verify DNS server '$1'"
-
- while [ $__ERR -ne 0 ]; do
- # DNS uses port 53
- verify_host_port "$1" "53"
- __ERR=$?
- if [ -n "$LUCI_HELPER" ]; then # no retry if called by LuCI helper script
- return $__ERR
- elif [ $__ERR -ne 0 -a $VERBOSE -gt 1 ]; then # VERBOSE > 1 then NO retry
- write_log 4 "Verify DNS server '$1' failed - Verbose Mode: $VERBOSE - NO retry on error"
- return $__ERR
- elif [ $__ERR -ne 0 ]; then
- __CNT=$(( $__CNT + 1 )) # increment error counter
- # if error count > retry_count leave here
- [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
- write_log 14 "Verify DNS server '$1' failed after $retry_count retries"
-
- write_log 4 "Verify DNS server '$1' failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
- sleep $RETRY_SECONDS &
- PID_SLEEP=$!
- wait $PID_SLEEP # enable trap-handler
- PID_SLEEP=0
- fi
- done
- return 0
-}
-
-# analyze and verify given proxy string
-# $1 Proxy-String to verify
-verify_proxy() {
- # complete entry user:password@host:port
- # inside user and password NO '@' of ":" allowed
- # host and port only host:port
- # host only host ERROR unsupported
- # IPv4 address instead of host 123.234.234.123
- # IPv6 address instead of host [xxxx:....:xxxx] in square bracket
- local __TMP __HOST __PORT
- local __ERR=255 # last error buffer
- local __CNT=0 # error counter
-
- [ $# -ne 1 ] && write_log 12 "Error calling 'verify_proxy()' - wrong number of parameters"
- write_log 7 "Verify Proxy server 'http://$1'"
-
- # try to split user:password "@" host:port
- __TMP=$(echo $1 | awk -F "@" '{print $2}')
- # no "@" found - only host:port is given
- [ -z "$__TMP" ] && __TMP="$1"
- # now lets check for IPv6 address
- __HOST=$(echo $__TMP | grep -m 1 -o "$IPV6_REGEX")
- # IPv6 host address found read port
- if [ -n "$__HOST" ]; then
- # IPv6 split at "]:"
- __PORT=$(echo $__TMP | awk -F "]:" '{print $2}')
- else
- __HOST=$(echo $__TMP | awk -F ":" '{print $1}')
- __PORT=$(echo $__TMP | awk -F ":" '{print $2}')
- fi
- # No Port detected - EXITING
- [ -z "$__PORT" ] && {
- [ -n "$LUCI_HELPER" ] && return 5
- write_log 14 "Invalid Proxy server Error '5' - proxy port missing"
- }
-
- while [ $__ERR -gt 0 ]; do
- verify_host_port "$__HOST" "$__PORT"
- __ERR=$?
- if [ -n "$LUCI_HELPER" ]; then # no retry if called by LuCI helper script
- return $__ERR
- elif [ $__ERR -gt 0 -a $VERBOSE -gt 1 ]; then # VERBOSE > 1 then NO retry
- write_log 4 "Verify Proxy server '$1' failed - Verbose Mode: $VERBOSE - NO retry on error"
- return $__ERR
- elif [ $__ERR -gt 0 ]; then
- __CNT=$(( $__CNT + 1 )) # increment error counter
- # if error count > retry_count leave here
- [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
- write_log 14 "Verify Proxy server '$1' failed after $retry_count retries"
-
- write_log 4 "Verify Proxy server '$1' failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
- sleep $RETRY_SECONDS &
- PID_SLEEP=$!
- wait $PID_SLEEP # enable trap-handler
- PID_SLEEP=0
- fi
- done
- return 0
-}
-
-do_transfer() {
- # $1 # URL to use
- local __URL="$1"
- local __ERR=0
- local __CNT=0 # error counter
- local __PROG __RUNPROG
-
- [ $# -ne 1 ] && write_log 12 "Error in 'do_transfer()' - wrong number of parameters"
-
- # lets prefer GNU Wget because it does all for us - IPv4/IPv6/HTTPS/PROXY/force IP version
- if [ -n "$WGET_SSL" -a $USE_CURL -eq 0 ]; then # except global option use_curl is set to "1"
- __PROG="$WGET_SSL --hsts-file=/tmp/.wget-hsts -nv -t 1 -O $DATFILE -o $ERRFILE" # non_verbose no_retry outfile errfile
- # force network/ip to use for communication
- if [ -n "$bind_network" ]; then
- local __BINDIP
- # set correct program to detect IP
- [ $use_ipv6 -eq 0 ] && __RUNPROG="network_get_ipaddr" || __RUNPROG="network_get_ipaddr6"
- eval "$__RUNPROG __BINDIP $bind_network" || \
- write_log 13 "Can not detect local IP using '$__RUNPROG $bind_network' - Error: '$?'"
- write_log 7 "Force communication via IP '$__BINDIP'"
- __PROG="$__PROG --bind-address=$__BINDIP"
- fi
- # force ip version to use
- if [ $force_ipversion -eq 1 ]; then
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6" # force IPv4/IPv6
- fi
- # set certificate parameters
- if [ $use_https -eq 1 ]; then
- if [ "$cacert" = "IGNORE" ]; then # idea from Ticket #15327 to ignore server cert
- __PROG="$__PROG --no-check-certificate"
- elif [ -f "$cacert" ]; then
- __PROG="$__PROG --ca-certificate=${cacert}"
- elif [ -d "$cacert" ]; then
- __PROG="$__PROG --ca-directory=${cacert}"
- elif [ -n "$cacert" ]; then # it's not a file and not a directory but given
- write_log 14 "No valid certificate(s) found at '$cacert' for HTTPS communication"
- fi
- fi
- # disable proxy if no set (there might be .wgetrc or .curlrc or wrong environment set)
- [ -z "$proxy" ] && __PROG="$__PROG --no-proxy"
-
- __RUNPROG="$__PROG '$__URL'" # build final command
- __PROG="GNU Wget" # reuse for error logging
-
- # 2nd choice is cURL IPv4/IPv6/HTTPS
- # libcurl might be compiled without Proxy or HTTPS Support
- elif [ -n "$CURL" ]; then
- __PROG="$CURL -RsS -o $DATFILE --stderr $ERRFILE"
- # check HTTPS support
- [ -z "$CURL_SSL" -a $use_https -eq 1 ] && \
- write_log 13 "cURL: libcurl compiled without https support"
- # force network/interface-device to use for communication
- if [ -n "$bind_network" ]; then
- local __DEVICE
- network_get_physdev __DEVICE $bind_network || \
- write_log 13 "Can not detect local device using 'network_get_physdev $bind_network' - Error: '$?'"
- write_log 7 "Force communication via device '$__DEVICE'"
- __PROG="$__PROG --interface $__DEVICE"
- fi
- # force ip version to use
- if [ $force_ipversion -eq 1 ]; then
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6" # force IPv4/IPv6
- fi
- # set certificate parameters
- if [ $use_https -eq 1 ]; then
- if [ "$cacert" = "IGNORE" ]; then # idea from Ticket #15327 to ignore server cert
- __PROG="$__PROG --insecure" # but not empty better to use "IGNORE"
- elif [ -f "$cacert" ]; then
- __PROG="$__PROG --cacert $cacert"
- elif [ -d "$cacert" ]; then
- __PROG="$__PROG --capath $cacert"
- elif [ -n "$cacert" ]; then # it's not a file and not a directory but given
- write_log 14 "No valid certificate(s) found at '$cacert' for HTTPS communication"
- fi
- fi
- # disable proxy if no set (there might be .wgetrc or .curlrc or wrong environment set)
- # or check if libcurl compiled with proxy support
- if [ -z "$proxy" ]; then
- __PROG="$__PROG --noproxy '*'"
- elif [ -z "$CURL_PROXY" ]; then
- # if libcurl has no proxy support and proxy should be used then force ERROR
- write_log 13 "cURL: libcurl compiled without Proxy support"
- fi
-
- __RUNPROG="$__PROG '$__URL'" # build final command
- __PROG="cURL" # reuse for error logging
-
- # uclient-fetch possibly with ssl support if /lib/libustream-ssl.so installed
- elif [ -n "$UCLIENT_FETCH" ]; then
- # UCLIENT_FETCH_SSL not empty then SSL support available
- UCLIENT_FETCH_SSL=$(find /lib /usr/lib -name libustream-ssl.so* 2>/dev/null)
- __PROG="$UCLIENT_FETCH -q -O $DATFILE"
- # force network/ip not supported
- [ -n "$__BINDIP" ] && \
- write_log 14 "uclient-fetch: FORCE binding to specific address not supported"
- # force ip version to use
- if [ $force_ipversion -eq 1 ]; then
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6" # force IPv4/IPv6
- fi
- # https possibly not supported
- [ $use_https -eq 1 -a -z "$UCLIENT_FETCH_SSL" ] && \
- write_log 14 "uclient-fetch: no HTTPS support! Additional install one of ustream-ssl packages"
- # proxy support
- [ -z "$proxy" ] && __PROG="$__PROG -Y off" || __PROG="$__PROG -Y on"
- # https & certificates
- if [ $use_https -eq 1 ]; then
- if [ "$cacert" = "IGNORE" ]; then
- __PROG="$__PROG --no-check-certificate"
- elif [ -f "$cacert" ]; then
- __PROG="$__PROG --ca-certificate=$cacert"
- elif [ -n "$cacert" ]; then # it's not a file; nothing else supported
- write_log 14 "No valid certificate file '$cacert' for HTTPS communication"
- fi
- fi
- __RUNPROG="$__PROG '$__URL' 2>$ERRFILE" # build final command
- __PROG="uclient-fetch" # reuse for error logging
-
- # Busybox Wget or any other wget in search $PATH (did not support neither IPv6 nor HTTPS)
- elif [ -n "$WGET" ]; then
- __PROG="$WGET -q -O $DATFILE"
- # force network/ip not supported
- [ -n "$__BINDIP" ] && \
- write_log 14 "BusyBox Wget: FORCE binding to specific address not supported"
- # force ip version not supported
- [ $force_ipversion -eq 1 ] && \
- write_log 14 "BusyBox Wget: Force connecting to IPv4 or IPv6 addresses not supported"
- # https not supported
- [ $use_https -eq 1 ] && \
- write_log 14 "BusyBox Wget: no HTTPS support"
- # disable proxy if no set (there might be .wgetrc or .curlrc or wrong environment set)
- [ -z "$proxy" ] && __PROG="$__PROG -Y off"
-
- __RUNPROG="$__PROG '$__URL' 2>$ERRFILE" # build final command
- __PROG="Busybox Wget" # reuse for error logging
-
- else
- write_log 13 "Neither 'Wget' nor 'cURL' nor 'uclient-fetch' installed or executable"
- fi
-
- while : ; do
- write_log 7 "#> $__RUNPROG"
- eval $__RUNPROG # DO transfer
- __ERR=$? # save error code
- [ $__ERR -eq 0 ] && return 0 # no error leave
- [ -n "$LUCI_HELPER" ] && return 1 # no retry if called by LuCI helper script
-
- write_log 3 "$__PROG Error: '$__ERR'"
- write_log 7 "$(cat $ERRFILE)" # report error
-
- [ $VERBOSE -gt 1 ] && {
- # VERBOSE > 1 then NO retry
- write_log 4 "Transfer failed - Verbose Mode: $VERBOSE - NO retry on error"
- return 1
- }
-
- __CNT=$(( $__CNT + 1 )) # increment error counter
- # if error count > retry_count leave here
- [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
- write_log 14 "Transfer failed after $retry_count retries"
-
- write_log 4 "Transfer failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
- sleep $RETRY_SECONDS &
- PID_SLEEP=$!
- wait $PID_SLEEP # enable trap-handler
- PID_SLEEP=0
- done
- # we should never come here there must be a programming error
- write_log 12 "Error in 'do_transfer()' - program coding error"
-}
-
-send_update() {
- # $1 # IP to set at DDNS service provider
- local __IP
-
- [ $# -ne 1 ] && write_log 12 "Error calling 'send_update()' - wrong number of parameters"
-
- if [ $upd_privateip -eq 0 ]; then
- # verify given IP / no private IPv4's / no IPv6 addr starting with fxxx of with ":"
- [ $use_ipv6 -eq 0 ] && __IP=$(echo $1 | grep -v -E "(^0|^10\.|^100\.6[4-9]\.|^100\.[7-9][0-9]\.|^100\.1[0-1][0-9]\.|^100\.12[0-7]\.|^127|^169\.254|^172\.1[6-9]\.|^172\.2[0-9]\.|^172\.3[0-1]\.|^192\.168)")
- [ $use_ipv6 -eq 1 ] && __IP=$(echo $1 | grep "^[0-9a-eA-E]")
- else
- __IP=$(echo $1 | grep -m 1 -o "$IPV4_REGEX") # valid IPv4 or
- [ -z "$__IP" ] && __IP=$(echo $1 | grep -m 1 -o "$IPV6_REGEX") # IPv6
- fi
- [ -z "$__IP" ] && {
- write_log 3 "No or private or invalid IP '$1' given! Please check your configuration"
- return 127
- }
-
- if [ -n "$update_script" ]; then
- write_log 7 "parsing script '$update_script'"
- . $update_script
- else
- local __URL __ERR
-
- # do replaces in URL
- __URL=$(echo $update_url | sed -e "s#\[USERNAME\]#$URL_USER#g" -e "s#\[PASSWORD\]#$URL_PASS#g" \
- -e "s#\[PARAMENC\]#$URL_PENC#g" -e "s#\[PARAMOPT\]#$param_opt#g" \
- -e "s#\[DOMAIN\]#$domain#g" -e "s#\[IP\]#$__IP#g")
- [ $use_https -ne 0 ] && __URL=$(echo $__URL | sed -e 's#^http:#https:#')
-
- do_transfer "$__URL" || return 1
-
- write_log 7 "DDNS Provider answered:${N}$(cat $DATFILE)"
-
- [ -z "$UPD_ANSWER" ] && return 0 # not set then ignore
-
- grep -i -E "$UPD_ANSWER" $DATFILE >/dev/null 2>&1
- return $? # "0" if found
- fi
-}
-
-get_local_ip () {
- # $1 Name of Variable to store local IP (LOCAL_IP)
- local __CNT=0 # error counter
- local __RUNPROG __DATA __URL __ERR
-
- [ $# -ne 1 ] && write_log 12 "Error calling 'get_local_ip()' - wrong number of parameters"
- write_log 7 "Detect local IP on '$ip_source'"
-
- while : ; do
- if [ -n "$ip_network" -a "$ip_source" = "network" ]; then
- # set correct program
- network_flush_cache # force re-read data from ubus
- [ $use_ipv6 -eq 0 ] && __RUNPROG="network_get_ipaddr" \
- || __RUNPROG="network_get_ipaddr6"
- eval "$__RUNPROG __DATA $ip_network" || \
- write_log 13 "Can not detect local IP using $__RUNPROG '$ip_network' - Error: '$?'"
- [ -n "$__DATA" ] && write_log 7 "Local IP '$__DATA' detected on network '$ip_network'"
- elif [ -n "$ip_interface" -a "$ip_source" = "interface" ]; then
- local __DATA4=""; local __DATA6=""
- if [ -n "$(command -v ip)" ]; then # ip program installed
- write_log 7 "#> ip -o addr show dev $ip_interface scope global >$DATFILE 2>$ERRFILE"
- ip -o addr show dev $ip_interface scope global >$DATFILE 2>$ERRFILE
- __ERR=$?
- if [ $__ERR -eq 0 ]; then
- # DATFILE (sample)
- # 10: l2tp-inet: <POINTOPOINT,MULTICAST,NOARP,UP,LOWER_UP> mtu 1456 qdisc fq_codel state UNKNOWN qlen 3\ link/ppp
- # 10: l2tp-inet inet 95.30.176.51 peer 95.30.176.1/32 scope global l2tp-inet\ valid_lft forever preferred_lft forever
- # 5: eth1: <BROADCAST,MULTICAST,UP,LOWER_UP> mtu 1500 qdisc fq_codel state UP qlen 1000\ link/ether 08:00:27:d0:10:32 brd ff:ff:ff:ff:ff:ff
- # 5: eth1 inet 172.27.10.128/24 brd 172.27.10.255 scope global eth1\ valid_lft forever preferred_lft forever
- # 5: eth1 inet 172.55.55.155/24 brd 172.27.10.255 scope global eth1\ valid_lft 12345sec preferred_lft 12345sec
- # 5: eth1 inet6 2002:b0c7:f326::806b:c629:b8b9:433/128 scope global dynamic \ valid_lft 8026sec preferred_lft 8026sec
- # 5: eth1 inet6 fd43:5368:6f6d:6500:806b:c629:b8b9:433/128 scope global dynamic \ valid_lft 8026sec preferred_lft 8026sec
- # 5: eth1 inet6 fd43:5368:6f6d:6500:a00:27ff:fed0:1032/64 scope global dynamic \ valid_lft 14352sec preferred_lft 14352sec
- # 5: eth1 inet6 2002:b0c7:f326::a00:27ff:fed0:1032/64 scope global dynamic \ valid_lft 14352sec preferred_lft 14352sec
-
- # remove remove remove replace replace
- # link inet6 fxxx sec forever=>-1 / => ' ' to separate subnet from ip
- sed "/link/d; /inet6 f/d; s/sec//g; s/forever/-1/g; s/\// /g" $DATFILE | \
- awk '{ print $3" "$4" "$NF }' > $ERRFILE # temp reuse ERRFILE
- # we only need inet? IP prefered time
-
- local __TIME4=0; local __TIME6=0
- local __TYP __ADR __TIME
- while read __TYP __ADR __TIME; do
- __TIME=${__TIME:-0} # supress shell errors on last (empty) line of DATFILE
- # IPversion no "-1" record stored - now "-1" record or new time > oldtime
- [ "$__TYP" = "inet6" -a $__TIME6 -ge 0 -a \( $__TIME -lt 0 -o $__TIME -gt $__TIME6 \) ] && {
- __DATA6="$__ADR"
- __TIME6="$__TIME"
- }
- [ "$__TYP" = "inet" -a $__TIME4 -ge 0 -a \( $__TIME -lt 0 -o $__TIME -gt $__TIME4 \) ] && {
- __DATA4="$__ADR"
- __TIME4="$__TIME"
- }
- done < $ERRFILE
- else
- write_log 3 "ip Error: '$__ERR'"
- write_log 7 "$(cat $ERRFILE)" # report error
- fi
- else # use deprecated ifconfig
- write_log 7 "#> ifconfig $ip_interface >$DATFILE 2>$ERRFILE"
- ifconfig $ip_interface >$DATFILE 2>$ERRFILE
- __ERR=$?
- if [ $__ERR -eq 0 ]; then
- __DATA4=$(awk '
- /inet addr:/ { # Filter IPv4
- # inet addr:192.168.1.1 Bcast:192.168.1.255 Mask:255.255.255.0
- $1=""; # remove inet
- $3=""; # remove Bcast: ...
- $4=""; # remove Mask: ...
- FS=":"; # separator ":"
- $0=$0; # reread to activate separator
- $1=""; # remove addr
- FS=" "; # set back separator to default " "
- $0=$0; # reread to activate separator (remove whitespaces)
- print $1; # print IPv4 addr
- }' $DATFILE
- )
- __DATA6=$(awk '
- /inet6/ && /: [0-9a-eA-E]/ { # Filter IPv6 exclude fxxx
- # inet6 addr: 2001:db8::xxxx:xxxx/32 Scope:Global
- FS="/"; # separator "/"
- $0=$0; # reread to activate separator
- $2=""; # remove everything behind "/"
- FS=" "; # set back separator to default " "
- $0=$0; # reread to activate separator
- print $3; # print IPv6 addr
- }' $DATFILE
- )
- else
- write_log 3 "ifconfig Error: '$__ERR'"
- write_log 7 "$(cat $ERRFILE)" # report error
- fi
- fi
- [ $use_ipv6 -eq 0 ] && __DATA="$__DATA4" || __DATA="$__DATA6"
- [ -n "$__DATA" ] && write_log 7 "Local IP '$__DATA' detected on interface '$ip_interface'"
- elif [ -n "$ip_script" -a "$ip_source" = "script" ]; then
- write_log 7 "#> $ip_script >$DATFILE 2>$ERRFILE"
- eval $ip_script >$DATFILE 2>$ERRFILE
- __ERR=$?
- if [ $__ERR -eq 0 ]; then
- __DATA=$(cat $DATFILE)
- [ -n "$__DATA" ] && write_log 7 "Local IP '$__DATA' detected via script '$ip_script'"
- else
- write_log 3 "$ip_script Error: '$__ERR'"
- write_log 7 "$(cat $ERRFILE)" # report error
- fi
- elif [ -n "$ip_url" -a "$ip_source" = "web" ]; then
- do_transfer "$ip_url"
- # use correct regular expression
- [ $use_ipv6 -eq 0 ] \
- && __DATA=$(grep -m 1 -o "$IPV4_REGEX" $DATFILE) \
- || __DATA=$(grep -m 1 -o "$IPV6_REGEX" $DATFILE)
- [ -n "$__DATA" ] && write_log 7 "Local IP '$__DATA' detected on web at '$ip_url'"
- else
- write_log 12 "Error in 'get_local_ip()' - unhandled ip_source '$ip_source'"
- fi
- # valid data found return here
- [ -n "$__DATA" ] && {
- eval "$1=\"$__DATA\""
- return 0
- }
-
- [ -n "$LUCI_HELPER" ] && return 1 # no retry if called by LuCI helper script
-
- write_log 7 "Data detected:"
- write_log 7 "$(cat $DATFILE)"
-
- [ $VERBOSE -gt 1 ] && {
- # VERBOSE > 1 then NO retry
- write_log 4 "Get local IP via '$ip_source' failed - Verbose Mode: $VERBOSE - NO retry on error"
- return 1
- }
-
- __CNT=$(( $__CNT + 1 )) # increment error counter
- # if error count > retry_count leave here
- [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
- write_log 14 "Get local IP via '$ip_source' failed after $retry_count retries"
- write_log 4 "Get local IP via '$ip_source' failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
- sleep $RETRY_SECONDS &
- PID_SLEEP=$!
- wait $PID_SLEEP # enable trap-handler
- PID_SLEEP=0
- done
- # we should never come here there must be a programming error
- write_log 12 "Error in 'get_local_ip()' - program coding error"
-}
-
-get_registered_ip() {
- # $1 Name of Variable to store public IP (REGISTERED_IP)
- # $2 (optional) if set, do not retry on error
- local __CNT=0 # error counter
- local __ERR=255
- local __REGEX __PROG __RUNPROG __DATA __IP
- # return codes
- # 1 no IP detected
-
- [ $# -lt 1 -o $# -gt 2 ] && write_log 12 "Error calling 'get_registered_ip()' - wrong number of parameters"
- [ $is_glue -eq 1 -a -z "$BIND_HOST" ] && write_log 14 "Lookup of glue records is only supported using BIND host"
- write_log 7 "Detect registered/public IP"
-
- # set correct regular expression
- [ $use_ipv6 -eq 0 ] && __REGEX="$IPV4_REGEX" || __REGEX="$IPV6_REGEX"
-
- if [ -n "$BIND_HOST" ]; then
- __PROG="$BIND_HOST"
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -t A" || __PROG="$__PROG -t AAAA"
- if [ $force_ipversion -eq 1 ]; then # force IP version
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6"
- fi
- [ $force_dnstcp -eq 1 ] && __PROG="$__PROG -T" # force TCP
- [ $is_glue -eq 1 ] && __PROG="$__PROG -v" # use verbose output to get additional section
-
- __RUNPROG="$__PROG $lookup_host $dns_server >$DATFILE 2>$ERRFILE"
- __PROG="BIND host"
- elif [ -n "$KNOT_HOST" ]; then
- __PROG="$KNOT_HOST"
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -t A" || __PROG="$__PROG -t AAAA"
- if [ $force_ipversion -eq 1 ]; then # force IP version
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6"
- fi
- [ $force_dnstcp -eq 1 ] && __PROG="$__PROG -T" # force TCP
-
- __RUNPROG="$__PROG $lookup_host $dns_server >$DATFILE 2>$ERRFILE"
- __PROG="Knot host"
- elif [ -n "$DRILL" ]; then
- __PROG="$DRILL -V0" # drill options name @server type
- if [ $force_ipversion -eq 1 ]; then # force IP version
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6"
- fi
- [ $force_dnstcp -eq 1 ] && __PROG="$__PROG -t" || __PROG="$__PROG -u" # force TCP
- __PROG="$__PROG $lookup_host"
- [ -n "$dns_server" ] && __PROG="$__PROG @$dns_server"
- [ $use_ipv6 -eq 0 ] && __PROG="$__PROG A" || __PROG="$__PROG AAAA"
-
- __RUNPROG="$__PROG >$DATFILE 2>$ERRFILE"
- __PROG="drill"
- elif [ -n "$HOSTIP" ]; then # hostip package installed
- __PROG="$HOSTIP"
- [ $force_dnstcp -ne 0 ] && \
- write_log 14 "hostip - no support for 'DNS over TCP'"
-
- # is IP given as dns_server ?
- __IP=$(echo $dns_server | grep -m 1 -o "$IPV4_REGEX")
- [ -z "$__IP" ] && __IP=$(echo $dns_server | grep -m 1 -o "$IPV6_REGEX")
-
- # we got NO ip for dns_server, so build command
- [ -z "$__IP" -a -n "$dns_server" ] && {
- __IP="\`$HOSTIP"
- [ $use_ipv6 -eq 1 -a $force_ipversion -eq 1 ] && __IP="$__IP -6"
- __IP="$__IP $dns_server | grep -m 1 -o"
- [ $use_ipv6 -eq 1 -a $force_ipversion -eq 1 ] \
- && __IP="$__IP '$IPV6_REGEX'" \
- || __IP="$__IP '$IPV4_REGEX'"
- __IP="$__IP \`"
- }
-
- [ $use_ipv6 -eq 1 ] && __PROG="$__PROG -6"
- [ -n "$dns_server" ] && __PROG="$__PROG -r $__IP"
- __RUNPROG="$__PROG $lookup_host >$DATFILE 2>$ERRFILE"
- __PROG="hostip"
- elif [ -n "$NSLOOKUP" ]; then # last use BusyBox nslookup
- NSLOOKUP_MUSL=$($(command -v nslookup) localhost 2>&1 | grep -F "(null)") # not empty busybox compiled with musl
- [ $force_dnstcp -ne 0 ] && \
- write_log 14 "Busybox nslookup - no support for 'DNS over TCP'"
- [ -n "$NSLOOKUP_MUSL" -a -n "$dns_server" ] && \
- write_log 14 "Busybox compiled with musl - nslookup don't support the use of DNS Server"
- [ $force_ipversion -ne 0 ] && \
- write_log 5 "Busybox nslookup - no support to 'force IP Version' (ignored)"
-
- __RUNPROG="$NSLOOKUP $lookup_host $dns_server >$DATFILE 2>$ERRFILE"
- __PROG="BusyBox nslookup"
- else # there must be an error
- write_log 12 "Error in 'get_registered_ip()' - no supported Name Server lookup software accessible"
- fi
-
- while : ; do
- write_log 7 "#> $__RUNPROG"
- eval $__RUNPROG
- __ERR=$?
- if [ $__ERR -ne 0 ]; then
- write_log 3 "$__PROG error: '$__ERR'"
- write_log 7 "$(cat $ERRFILE)"
- else
- if [ -n "$BIND_HOST" -o -n "$KNOT_HOST" ]; then
- if [ $is_glue -eq 1 ]; then
- __DATA=$(cat $DATFILE | grep "^$lookup_host" | grep -om1 "$__REGEX" )
- else
- __DATA=$(cat $DATFILE | awk -F "address " '/has/ {print $2; exit}' )
- fi
- elif [ -n "$DRILL" ]; then
- __DATA=$(cat $DATFILE | awk '/^'"$lookup_host"'/ {print $5; exit}' )
- elif [ -n "$HOSTIP" ]; then
- __DATA=$(cat $DATFILE | grep -om1 "$__REGEX")
- elif [ -n "$NSLOOKUP" ]; then
- __DATA=$(cat $DATFILE | sed -ne "/^Name:/,\$ { s/^Address[0-9 ]\{0,\}: \($__REGEX\).*$/\\1/p }" )
- fi
- [ -n "$__DATA" ] && {
- write_log 7 "Registered IP '$__DATA' detected"
- [ -z "$IPFILE" ] || echo "$__DATA" > $IPFILE
- eval "$1=\"$__DATA\"" # valid data found
- return 0 # leave here
- }
- write_log 4 "NO valid IP found"
- __ERR=127
- fi
- [ -z "$IPFILE" ] || echo "" > $IPFILE
-
- [ -n "$LUCI_HELPER" ] && return $__ERR # no retry if called by LuCI helper script
- [ -n "$2" ] && return $__ERR # $2 is given -> no retry
- [ $VERBOSE -gt 1 ] && {
- # VERBOSE > 1 then NO retry
- write_log 4 "Get registered/public IP for '$lookup_host' failed - Verbose Mode: $VERBOSE - NO retry on error"
- return $__ERR
- }
-
- __CNT=$(( $__CNT + 1 )) # increment error counter
- # if error count > retry_count leave here
- [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
- write_log 14 "Get registered/public IP for '$lookup_host' failed after $retry_count retries"
-
- write_log 4 "Get registered/public IP for '$lookup_host' failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
- sleep $RETRY_SECONDS &
- PID_SLEEP=$!
- wait $PID_SLEEP # enable trap-handler
- PID_SLEEP=0
- done
- # we should never come here there must be a programming error
- write_log 12 "Error in 'get_registered_ip()' - program coding error"
-}
-
-get_uptime() {
- # $1 Variable to store result in
- [ $# -ne 1 ] && write_log 12 "Error calling 'verify_host_port()' - wrong number of parameters"
- local __UPTIME=$(cat /proc/uptime)
- eval "$1=\"${__UPTIME%%.*}\""
-}
-
-trap_handler() {
- # $1 trap signal
- # $2 optional (exit status)
- local __PIDS __PID
- local __ERR=${2:-0}
- local __OLD_IFS=$IFS
- local __NEWLINE_IFS='
-' # __NEWLINE_IFS
-
- [ $PID_SLEEP -ne 0 ] && kill -$1 $PID_SLEEP 2>/dev/null # kill pending sleep if exist
-
- case $1 in
- 0) if [ $__ERR -eq 0 ]; then
- write_log 5 "PID '$$' exit normal at $(eval $DATE_PROG)${N}"
- else
- write_log 4 "PID '$$' exit WITH ERROR '$__ERR' at $(eval $DATE_PROG)${N}"
- fi ;;
- 1) write_log 6 "PID '$$' received 'SIGHUP' at $(eval $DATE_PROG)"
- # reload config via starting the script again
- /usr/lib/ddns/dynamic_dns_updater.sh -v "0" -S "$__SECTIONID" -- start || true
- exit 0 ;; # and leave this one
- 2) write_log 5 "PID '$$' terminated by 'SIGINT' at $(eval $DATE_PROG)${N}";;
- 3) write_log 5 "PID '$$' terminated by 'SIGQUIT' at $(eval $DATE_PROG)${N}";;
- 15) write_log 5 "PID '$$' terminated by 'SIGTERM' at $(eval $DATE_PROG)${N}";;
- *) write_log 13 "Unhandled signal '$1' in 'trap_handler()'";;
- esac
-
- __PIDS=$(pgrep -P $$) # get my childs (pgrep prints with "newline")
- IFS=$__NEWLINE_IFS
- for __PID in $__PIDS; do
- kill -$1 $__PID # terminate it
- done
- IFS=$__OLD_IFS
-
- # remove out and err file
- [ -f $DATFILE ] && rm -f $DATFILE
- [ -f $ERRFILE ] && rm -f $ERRFILE
-
- # exit with correct handling:
- # remove trap handling settings and send kill to myself
- trap - 0 1 2 3 15
- [ $1 -gt 0 ] && kill -$1 $$
-}
-
-split_FQDN() {
- # $1 FQDN to split
- # $2 name of variable to store TLD
- # $3 name of variable to store (reg)Domain
- # $4 name of variable to store Host/Subdomain
-
- [ $# -ne 4 ] && write_log 12 "Error calling 'split_FQDN()' - wrong number of parameters"
- [ -z "$1" ] && write_log 12 "Error calling 'split_FQDN()' - missing FQDN to split"
- [ -f $TLDFILE ] || write_log 12 "Error calling 'split_FQDN()' - missing file '$TLDFILE'"
-
- local _HOST _FDOM _CTLD _FTLD
- local _SET="$@" # save given function parameters
-
- local _PAR=$(echo "$1" | tr [A-Z] [a-z] | tr "." " ") # to lower and replace DOT with SPACE
- set -- $_PAR # set new as function parameters
- _PAR="" # clear variable for later reuse
- while [ -n "$1" ] ; do # as long we have parameters
- _PAR="$1 $_PAR" # invert order of parameters
- shift
- done
- set -- $_PAR # use new as function parameters
- _PAR="" # clear variable
-
- while [ -n "$1" ] ; do # as long we have parameters
- if [ -z "$_CTLD" ]; then # first loop
- _CTLD="$1" # CURRENT TLD to look at
- shift
- else
- _CTLD="$1.$_CTLD" # Next TLD to look at
- shift
- fi
- # check if TLD exact match in tld_names.dat, save TLD
- zcat $TLDFILE | grep -E "^$_CTLD$" >/dev/null 2>&1 && {
- _FTLD="$_CTLD" # save found
- _FDOM="$1" # save domain next step might be invalid
- continue
- }
- # check if match any "*" in tld_names.dat,
- zcat $TLDFILE | grep -E "^\*.$_CTLD$" >/dev/null 2>&1 && {
- [ -z "$1" ] && break # no more data break
- # check if next level TLD match excludes "!" in tld_names.dat
- if zcat $TLDFILE | grep -E "^!$1.$_CTLD$" >/dev/null 2>&1 ; then
- _FTLD="$_CTLD" # Yes
- else
- _FTLD="$1.$_CTLD"
- shift
- fi
- _FDOM="$1"; shift
- }
- [ -n "$_FTLD" ] && break # we have something valid, break
- done
-
- # the leftover parameters are the HOST/SUBDOMAIN
- while [ -n "$1" ]; do
- _HOST="$1 $_HOST" # remember we need to invert
- shift
- done
- _HOST=$(echo $_HOST | tr " " ".") # insert DOT
-
- set -- $_SET # set back parameters from function call
- [ -n "$_FTLD" ] && {
- eval "$2=$_FTLD" # set TLD
- eval "$3=$_FDOM" # set registrable domain
- eval "$4=$_HOST" # set HOST/SUBDOMAIN
- return 0
- }
- eval "$2=''" # clear TLD
- eval "$3=''" # clear registrable domain
- eval "$4=''" # clear HOST/SUBDOMAIN
- return 1
-}
-
-expand_ipv6() {
- # Original written for bash by
- #.Author: Florian Streibelt <florian@f-streibelt.de>
- # Date: 08.04.2012
- # License: Public Domain, but please be fair and
- # attribute the original author(s) and provide
- # a link to the original source for corrections:
- #. https://github.com/mutax/IPv6-Address-checks
-
- # $1 IPv6 to expand
- # $2 name of variable to store expanded IPv6
- [ $# -ne 2 ] && write_log 12 "Error calling 'expand_ipv6()' - wrong number of parameters"
-
- INPUT="$(echo "$1" | tr 'A-F' 'a-f')"
- [ "$INPUT" = "::" ] && INPUT="::0" # special case ::
-
- O=""
-
- while [ "$O" != "$INPUT" ]; do
- O="$INPUT"
-
- # fill all words with zeroes
- INPUT=$( echo "$INPUT" | sed -e 's|:\([0-9a-f]\{3\}\):|:0\1:|g' \
- -e 's|:\([0-9a-f]\{3\}\)$|:0\1|g' \
- -e 's|^\([0-9a-f]\{3\}\):|0\1:|g' \
- -e 's|:\([0-9a-f]\{2\}\):|:00\1:|g' \
- -e 's|:\([0-9a-f]\{2\}\)$|:00\1|g' \
- -e 's|^\([0-9a-f]\{2\}\):|00\1:|g' \
- -e 's|:\([0-9a-f]\):|:000\1:|g' \
- -e 's|:\([0-9a-f]\)$|:000\1|g' \
- -e 's|^\([0-9a-f]\):|000\1:|g' )
-
- done
-
- # now expand the ::
- ZEROES=""
-
- echo "$INPUT" | grep -qs "::"
- if [ "$?" -eq 0 ]; then
- GRPS="$( echo "$INPUT" | sed 's|[0-9a-f]||g' | wc -m )"
- GRPS=$(( GRPS-1 )) # remove carriage return
- MISSING=$(( 8-GRPS ))
- while [ $MISSING -gt 0 ]; do
- ZEROES="$ZEROES:0000"
- MISSING=$(( MISSING-1 ))
- done
-
- # be careful where to place the :
- INPUT=$( echo "$INPUT" | sed -e 's|\(.\)::\(.\)|\1'$ZEROES':\2|g' \
- -e 's|\(.\)::$|\1'$ZEROES':0000|g' \
- -e 's|^::\(.\)|'$ZEROES':0000:\1|g;s|^:||g' )
- fi
-
- # an expanded address has 39 chars + CR
- if [ $(echo $INPUT | wc -m) != 40 ]; then
- write_log 4 "Error in 'expand_ipv6()' - invalid IPv6 found: '$1' expanded: '$INPUT'"
- eval "$2='invalid'"
- return 1
- fi
-
- # echo the fully expanded version of the address
- eval "$2=$INPUT"
- return 0
-}
+++ /dev/null
-#!/bin/sh
-# /usr/lib/ddns/dynamic_dns_lucihelper.sh
-#
-#.Distributed under the terms of the GNU General Public License (GPL) version 2.0
-#.2014-2018 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
-# This script is used by luci-app-ddns
-#
-# variables in small chars are read from /etc/config/ddns as parameter given here
-# variables in big chars are defined inside these scripts as gloval vars
-# variables in big chars beginning with "__" are local defined inside functions only
-# set -vx #script debugger
-
-. /usr/lib/ddns/dynamic_dns_functions.sh # global vars are also defined here
-
-usage() {
- cat << EOF
-
-Usage:
- $MYPROG [options] -- command
-
-Commands:
- get_local_ip using given INTERFACE or NETWORK or SCRIPT or URL
- get_registered_ip for given FQDN
- verify_dns given DNS-SERVER
- verify_proxy given PROXY
- start start given SECTION
- reload force running ddns processes to reload changed configuration
- restart restart all ddns processes
-
-Parameters:
- -6 => use_ipv6=1 (default 0)
- -d DNS-SERVER => dns_server=SERVER[:PORT]
- -f => force_ipversion=1 (default 0)
- -g => is_glue=1 (default 0)
- -i INTERFACE => ip_interface=INTERFACE; ip_source="interface"
- -l FQDN => lookup_host=FQDN
- -n NETWORK => ip_network=NETWORK; ip_source="network"
- -p PROXY => proxy=[USER:PASS@]PROXY:PORT
- -s SCRIPT => ip_script=SCRIPT; ip_source="script"
- -t => force_dnstcp=1 (default 0)
- -u URL => ip_url=URL; ip_source="web"
- -S SECTION SECTION to start
-
- -h => show this help and exit
- -L => use_logfile=1 (default 0)
- -v LEVEL => VERBOSE=LEVEL (default 0)
- -V => show version and exit
-
-EOF
-}
-
-usage_err() {
- printf %s\\n "$MYPROG: $@" >&2
- usage >&2
- exit 255
-}
-
-# preset some variables, wrong or not set in ddns-functions.sh
-SECTION_ID="lucihelper"
-LOGFILE="$ddns_logdir/$SECTION_ID.log"
-DATFILE="$ddns_rundir/$SECTION_ID.$$.dat" # save stdout data of WGet and other extern programs called
-ERRFILE="$ddns_rundir/$SECTION_ID.$$.err" # save stderr output of WGet and other extern programs called
-DDNSPRG="/usr/lib/ddns/dynamic_dns_updater.sh"
-VERBOSE=0 # no console logging
-# global variables normally set by reading DDNS UCI configuration
-use_syslog=0 # no syslog
-use_logfile=0 # no logfile
-
-use_ipv6=0 # Use IPv6 - default IPv4
-force_ipversion=0 # Force IP Version - default 0 - No
-force_dnstcp=0 # Force TCP on DNS - default 0 - No
-is_glue=0 # Is glue record - default 0 - No
-use_https=0 # not needed but must be set
-
-while getopts ":6d:fghi:l:n:p:s:S:tu:Lv:V" OPT; do
- case "$OPT" in
- 6) use_ipv6=1;;
- d) dns_server="$OPTARG";;
- f) force_ipversion=1;;
- g) is_glue=1;;
- i) ip_interface="$OPTARG"; ip_source="interface";;
- l) lookup_host="$OPTARG";;
- n) ip_network="$OPTARG"; ip_source="network";;
- p) proxy="$OPTARG";;
- s) ip_script="$OPTARG"; ip_source="script";;
- t) force_dnstcp=1;;
- u) ip_url="$OPTARG"; ip_source="web";;
- h) usage; exit 255;;
- L) use_logfile=1;;
- v) VERBOSE=$OPTARG;;
- S) SECTION=$OPTARG;;
- V) printf %s\\n "ddns-scripts $VERSION"; exit 255;;
- :) usage_err "option -$OPTARG missing argument";;
- \?) usage_err "invalid option -$OPTARG";;
- *) usage_err "unhandled option -$OPT $OPTARG";;
- esac
-done
-shift $((OPTIND - 1 )) # OPTIND is 1 based
-
-[ $# -eq 0 ] && usage_err "missing command"
-
-__RET=0
-case "$1" in
- get_registered_ip)
- [ -z "$lookup_host" ] && usage_err "command 'get_registered_ip': 'lookup_host' not set"
- write_log 7 "-----> get_registered_ip IP"
- [ -z "$SECTION" ] || IPFILE="$ddns_rundir/$SECTION.ip"
- IP=""
- get_registered_ip IP
- __RET=$?
- [ $__RET -ne 0 ] && IP=""
- printf "%s" "$IP"
- ;;
- verify_dns)
- [ -z "$dns_server" ] && usage_err "command 'verify_dns': 'dns_server' not set"
- write_log 7 "-----> verify_dns '$dns_server'"
- verify_dns "$dns_server"
- __RET=$?
- ;;
- verify_proxy)
- [ -z "$proxy" ] && usage_err "command 'verify_proxy': 'proxy' not set"
- write_log 7 "-----> verify_proxy '$proxy'"
- verify_proxy "$proxy"
- __RET=$?
- ;;
- get_local_ip)
- [ -z "$ip_source" ] && usage_err "command 'get_local_ip': 'ip_source' not set"
- [ -n "$proxy" -a "$ip_source" = "web" ] && {
- # proxy defined, used for ip_source=web
- export HTTP_PROXY="http://$proxy"
- export HTTPS_PROXY="http://$proxy"
- export http_proxy="http://$proxy"
- export https_proxy="http://$proxy"
- }
- # don't need IP only the return code
- IP=""
- if [ "$ip_source" = "web" -o "$ip_source" = "script" ]; then
- # we wait only 3 seconds for an
- # answer from "web" or "script"
- write_log 7 "-----> timeout 3 -- get_local_ip IP"
- timeout 3 -- get_local_ip IP
- else
- write_log 7 "-----> get_local_ip IP"
- get_local_ip IP
- fi
- __RET=$?
- ;;
- start)
- [ -z "$SECTION" ] && usage_err "command 'start': 'SECTION' not set"
- if [ $VERBOSE -eq 0 ]; then # start in background
- $DDNSPRG -v 0 -S $SECTION -- start &
- else
- $DDNSPRG -v $VERBOSE -S $SECTION -- start
- fi
- ;;
- reload)
- $DDNSPRG -- reload
- ;;
- restart)
- $DDNSPRG -- stop
- sleep 1
- $DDNSPRG -- start
- ;;
- *)
- __RET=255
- ;;
-esac
-
-# remove out and err file
-[ -f $DATFILE ] && rm -f $DATFILE
-[ -f $ERRFILE ] && rm -f $ERRFILE
-return $__RET
+++ /dev/null
-#!/bin/sh
-# /usr/lib/ddns/dynamic_dns_updater.sh
-#
-#.Distributed under the terms of the GNU General Public License (GPL) version 2.0
-# Original written by Eric Paul Bishop, January 2008
-# (Loosely) based on the script on the one posted by exobyte in the forums here:
-# http://forum.openwrt.org/viewtopic.php?id=14040
-# extended and partial rewritten
-#.2014-2018 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
-#
-# variables in small chars are read from /etc/config/ddns
-# variables in big chars are defined inside these scripts as global vars
-# variables in big chars beginning with "__" are local defined inside functions only
-# set -vx #script debugger
-
-. $(dirname $0)/dynamic_dns_functions.sh # global vars are also defined here
-
-usage() {
- cat << EOF
-
-Usage:
- $MYPROG [options] -- command
-
-Commands:
-start Start SECTION or NETWORK or all
-stop Stop NETWORK or all
-
-Parameters:
- -n NETWORK Start/Stop sections in background monitoring NETWORK, force VERBOSE=0
- -S SECTION SECTION to start
- use either -N NETWORK or -S SECTION
-
- -h show this help and exit
- -V show version and exit
- -v LEVEL VERBOSE=LEVEL (default 1)
- '0' NO output to console
- '1' output to console
- '2' output to console AND logfile
- + run once WITHOUT retry on error
- '3' output to console AND logfile
- + run once WITHOUT retry on error
- + NOT sending update to DDNS service
-
-EOF
-}
-
-usage_err() {
- printf %s\\n "$MYPROG: $@" >&2
- usage >&2
- exit 1
-}
-
-while getopts ":hv:n:S:V" OPT; do
- case "$OPT" in
- h) usage; exit 0;;
- v) VERBOSE=$OPTARG;;
- n) NETWORK=$OPTARG;;
- S) SECTION_ID=$OPTARG;;
- V) printf %s\\n "ddns-scripts $VERSION"; exit 0;;
- :) usage_err "option -$OPTARG missing argument";;
- \?) usage_err "invalid option -$OPTARG";;
- *) usage_err "unhandled option -$OPT $OPTARG";;
- esac
-done
-shift $((OPTIND - 1 )) # OPTIND is 1 based
-
-[ -n "$NETWORK" -a -n "$SECTION_ID" ] && usage_err "use either option '-N' or '-S' not both"
-[ $# -eq 0 ] && usage_err "missing command"
-[ $# -gt 1 ] && usage_err "to much commands"
-
-case "$1" in
- start)
- if [ -n "$NETWORK" ]; then
- start_daemon_for_all_ddns_sections "$NETWORK"
- exit 0
- fi
- if [ -z "$SECTION_ID" ]; then
- start_daemon_for_all_ddns_sections
- exit 0
- fi
- ;;
- stop)
- if [ -n "$INTERFACE" ]; then
- stop_daemon_for_all_ddns_sections "$NETWORK"
- exit 0
- else
- stop_daemon_for_all_ddns_sections
- exit 0
- fi
- exit 1
- ;;
- reload)
- killall -1 dynamic_dns_updater.sh 2>/dev/null
- exit $?
- ;;
- *) usage_err "unknown command - $1";;
-esac
-
-# set file names
-PIDFILE="$ddns_rundir/$SECTION_ID.pid" # Process ID file
-UPDFILE="$ddns_rundir/$SECTION_ID.update" # last update successful send (system uptime)
-DATFILE="$ddns_rundir/$SECTION_ID.dat" # save stdout data of WGet and other extern programs called
-ERRFILE="$ddns_rundir/$SECTION_ID.err" # save stderr output of WGet and other extern programs called
-IPFILE="$ddns_rundir/$SECTION_ID.ip" #
-LOGFILE="$ddns_logdir/$SECTION_ID.log" # log file
-
-# VERBOSE > 1 delete logfile if exist to create an empty one
-# only with this data of this run for easier diagnostic
-# new one created by write_log function
-[ $VERBOSE -gt 1 -a -f $LOGFILE ] && rm -f $LOGFILE
-
-# TRAP handler
-trap "trap_handler 0 \$?" 0 # handle script exit with exit status
-trap "trap_handler 1" 1 # SIGHUP Hangup / reload config
-trap "trap_handler 2" 2 # SIGINT Terminal interrupt
-trap "trap_handler 3" 3 # SIGQUIT Terminal quit
-# trap "trap_handler 9" 9 # SIGKILL no chance to trap
-trap "trap_handler 15" 15 # SIGTERM Termination
-
-################################################################################
-# Leave this comment here, to clearly document variable names that are expected/possible
-# Use load_all_config_options to load config options, which is a much more flexible solution.
-#
-# config_load "ddns"
-# config_get <variable> $SECTION_ID <option>
-#
-# defined options (also used as variable):
-#
-# enabled self-explanatory
-# interface network interface used by hotplug.d i.e. 'wan' or 'wan6'
-#
-# service_name Which DDNS service do you use or "custom"
-# update_url URL to use to update your "custom" DDNS service
-# update_script SCRIPT to use to update your "custom" DDNS service
-#
-# lookup_host FQDN of ONE of your at DDNS service defined host / required to validate if IP update happen/necessary
-# domain Nomally your DDNS hostname / replace [DOMAIN] in update_url
-# username Username of your DDNS service account / urlenceded and replace [USERNAME] in update_url
-# password Password of your DDNS service account / urlencoded and replace [PASSWORD] in update_url
-# param_enc Optional parameter for (later) usage / urlencoded and replace [PARAMENC] in update_url
-# param_opt Optional parameter for (later) usage / replace [PARAMOPT] in update_url
-#
-# use_https use HTTPS to update DDNS service
-# cacert file or directory where HTTPS can find certificates to verify server; 'IGNORE' ignore check of server certificate
-#
-# use_syslog log activity to syslog
-#
-# ip_source source to detect current local IP ('network' or 'web' or 'script' or 'interface')
-# ip_network local defined network to read IP from i.e. 'wan' or 'wan6'
-# ip_url URL to read local address from i.e. http://checkip.dyndns.com/ or http://checkipv6.dyndns.com/
-# ip_script full path and name of your script to detect local IP
-# ip_interface physical interface to use for detecting
-#
-# check_interval check for changes every !!! checks below 10 minutes make no sense because the Internet
-# check_unit 'days' 'hours' 'minutes' !!! needs about 5-10 minutes to sync an IP-change for an DNS entry
-#
-# force_interval force to send an update to your service if no change was detected
-# force_unit 'days' 'hours' 'minutes' !!! force_interval="0" runs this script once for use i.e. with cron
-#
-# retry_interval if error was detected retry in
-# retry_unit 'days' 'hours' 'minutes' 'seconds'
-# retry_count number of retries before scripts stops
-#
-# use_ipv6 detecting/sending IPv6 address
-# force_ipversion force usage of IPv4 or IPv6 for the whole detection and update communication
-# dns_server using a non default dns server to get Registered IP from Internet
-# force_dnstcp force communication with DNS server via TCP instead of default UDP
-# proxy using a proxy for communication !!! ALSO used to detect local IP via web => return proxy's IP !!!
-# use_logfile self-explanatory "/var/log/ddns/$SECTION_ID.log"
-# is_glue the record that should be updated is a glue record
-#
-# some functionality needs
-# - GNU Wget or cURL installed for sending updates to DDNS service
-# - BIND host installed to detect Registered IP
-#
-################################################################################
-
-load_all_config_options "ddns" "$SECTION_ID"
-ERR_LAST=$? # save return code - equal 0 if SECTION_ID found
-
-# set defaults if not defined
-[ -z "$enabled" ] && enabled=0
-[ -z "$retry_count" ] && retry_count=0 # endless retry
-[ -z "$use_syslog" ] && use_syslog=2 # syslog "Notice"
-[ -z "$use_https" ] && use_https=0 # not use https
-[ -z "$use_logfile" ] && use_logfile=1 # use logfile by default
-[ -z "$use_ipv6" ] && use_ipv6=0 # use IPv4 by default
-[ -z "$force_ipversion" ] && force_ipversion=0 # default let system decide
-[ -z "$force_dnstcp" ] && force_dnstcp=0 # default UDP
-[ -z "$ip_source" ] && ip_source="network"
-[ -z "$is_glue" ] && is_glue=0 # default the ddns record is not a glue record
-[ "$ip_source" = "network" -a -z "$ip_network" -a $use_ipv6 -eq 0 ] && ip_network="wan" # IPv4: default wan
-[ "$ip_source" = "network" -a -z "$ip_network" -a $use_ipv6 -eq 1 ] && ip_network="wan6" # IPv6: default wan6
-[ "$ip_source" = "web" -a -z "$ip_url" -a $use_ipv6 -eq 0 ] && ip_url="http://checkip.dyndns.com"
-[ "$ip_source" = "web" -a -z "$ip_url" -a $use_ipv6 -eq 1 ] && ip_url="http://checkipv6.dyndns.com"
-[ "$ip_source" = "interface" -a -z "$ip_interface" ] && ip_interface="eth1"
-
-# url encode username (might be email or something like this)
-# and password (might have special chars for security reason)
-# and optional parameter "param_enc"
-[ -n "$username" ] && urlencode URL_USER "$username"
-[ -n "$password" ] && urlencode URL_PASS "$password"
-[ -n "$param_enc" ] && urlencode URL_PENC "$param_enc"
-
-# SECTION_ID does not exists
-[ $ERR_LAST -ne 0 ] && {
- [ $VERBOSE -le 1 ] && VERBOSE=2 # force console out and logfile output
- [ -f $LOGFILE ] && rm -f $LOGFILE # clear logfile before first entry
- write_log 7 "************ ************** ************** **************"
- write_log 5 "PID '$$' started at $(eval $DATE_PROG)"
- write_log 7 "ddns version : $VERSION"
- write_log 7 "uci configuration:${N}$(uci -q show ddns | grep '=service' | sort)"
- write_log 14 "Service section '$SECTION_ID' not defined"
-}
-
-write_log 7 "************ ************** ************** **************"
-write_log 5 "PID '$$' started at $(eval $DATE_PROG)"
-write_log 7 "ddns version : $VERSION"
-write_log 7 "uci configuration:${N}$(uci -q show ddns.$SECTION_ID | sort)"
-# write_log 7 "ddns version : $(opkg list-installed ddns-scripts | cut -d ' ' -f 3)"
-case $VERBOSE in
- 0) write_log 7 "verbose mode : 0 - run normal, NO console output";;
- 1) write_log 7 "verbose mode : 1 - run normal, console mode";;
- 2) write_log 7 "verbose mode : 2 - run once, NO retry on error";;
- 3) write_log 7 "verbose mode : 3 - run once, NO retry on error, NOT sending update";;
- *) write_log 14 "error detecting VERBOSE '$VERBOSE'";;
-esac
-
-# check enabled state otherwise we don't need to continue
-[ $enabled -eq 0 ] && write_log 14 "Service section disabled!"
-
-# determine what update url we're using if a service_name is supplied
-# otherwise update_url is set inside configuration (custom update url)
-# or update_script is set inside configuration (custom update script)
-[ -n "$service_name" ] && {
- get_service_data "$service_name" update_url update_script UPD_ANSWER
-}
-
-[ -z "$update_url" -a -z "$update_script" ] && write_log 14 "No update_url found/defined or no update_script found/defined!"
-[ -n "$update_script" -a ! -f "$update_script" ] && write_log 14 "Custom update_script not found!"
-
-# temporary needed to convert existing uci settings
-[ -z "$lookup_host" ] && {
- uci -q set ddns.$SECTION_ID.lookup_host="$domain"
- uci -q commit ddns
- lookup_host="$domain"
-}
-# later versions only check if configured correctly
-
-# without lookup host and possibly other required options we can do nothing for you
-[ -z "$lookup_host" ] && write_log 14 "Service section not configured correctly! Missing 'lookup_host'"
-
-# verify validity of variables
-[ -n "$lookup_host" ] && sanitize_variable lookup_host "$DNS_CHARSET" ""
-[ -n "$dns_server" ] && sanitize_variable dns_server "$DNS_CHARSET" ""
-[ -n "$domain" ] && sanitize_variable domain "$DNS_CHARSET" ""
-
-# Filter shell escape characters, if these are required in the URL, they
-# can still be passed url encoded
-[ -n "$param_opt" ] && sanitize_variable param_opt "" "$SHELL_ESCAPE"
-
-[ -n "$update_url" ] && {
- # only check if update_url is given, update_scripts have to check themselves
- [ -z "$domain" ] && $(echo "$update_url" | grep "\[DOMAIN\]" >/dev/null 2>&1) && \
- write_log 14 "Service section not configured correctly! Missing 'domain'"
- [ -z "$username" ] && $(echo "$update_url" | grep "\[USERNAME\]" >/dev/null 2>&1) && \
- write_log 14 "Service section not configured correctly! Missing 'username'"
- [ -z "$password" ] && $(echo "$update_url" | grep "\[PASSWORD\]" >/dev/null 2>&1) && \
- write_log 14 "Service section not configured correctly! Missing 'password'"
- [ -z "$param_enc" ] && $(echo "$update_url" | grep "\[PARAMENC\]" >/dev/null 2>&1) && \
- write_log 14 "Service section not configured correctly! Missing 'param_enc'"
- [ -z "$param_opt" ] && $(echo "$update_url" | grep "\[PARAMOPT\]" >/dev/null 2>&1) && \
- write_log 14 "Service section not configured correctly! Missing 'param_opt'"
-}
-
-# verify ip_source 'script' if script is configured and executable
-if [ "$ip_source" = "script" ]; then
- set -- $ip_script #handling script with parameters, we need a trick
- [ -z "$1" ] && write_log 14 "No script defined to detect local IP!"
- [ -x "$1" ] || write_log 14 "Script to detect local IP not executable!"
-fi
-
-# compute update interval in seconds
-get_seconds CHECK_SECONDS ${check_interval:-10} ${check_unit:-"minutes"} # default 10 min
-get_seconds FORCE_SECONDS ${force_interval:-72} ${force_unit:-"hours"} # default 3 days
-get_seconds RETRY_SECONDS ${retry_interval:-60} ${retry_unit:-"seconds"} # default 60 sec
-[ $CHECK_SECONDS -lt 300 ] && CHECK_SECONDS=300 # minimum 5 minutes
-[ $FORCE_SECONDS -gt 0 -a $FORCE_SECONDS -lt $CHECK_SECONDS ] && FORCE_SECONDS=$CHECK_SECONDS # FORCE_SECONDS >= CHECK_SECONDS or 0
-write_log 7 "check interval: $CHECK_SECONDS seconds"
-write_log 7 "force interval: $FORCE_SECONDS seconds"
-write_log 7 "retry interval: $RETRY_SECONDS seconds"
-write_log 7 "retry counter : $retry_count times"
-
-# kill old process if it exists & set new pid file
-stop_section_processes "$SECTION_ID"
-[ $? -gt 0 ] && write_log 7 "'SIGTERM' was send to old process" || write_log 7 "No old process"
-echo $$ > $PIDFILE
-
-# determine when the last update was
-# the following lines should prevent multiple updates if hotplug fires multiple startups
-# as described in Ticket #7820, but did not function if never an update take place
-# i.e. after a reboot (/var is linked to /tmp)
-# using uptime as reference because date might not be updated via NTP client
-get_uptime CURR_TIME
-[ -e "$UPDFILE" ] && {
- LAST_TIME=$(cat $UPDFILE)
- # check also LAST > CURR because link of /var/run to /tmp might be removed
- # i.e. boxes with larger filesystems
- [ -z "$LAST_TIME" ] && LAST_TIME=0
- [ $LAST_TIME -gt $CURR_TIME ] && LAST_TIME=0
-}
-if [ $LAST_TIME -eq 0 ]; then
- write_log 7 "last update: never"
-else
- EPOCH_TIME=$(( $(date +%s) - $CURR_TIME + $LAST_TIME ))
- EPOCH_TIME="date -d @$EPOCH_TIME +'$ddns_dateformat'"
- write_log 7 "last update: $(eval $EPOCH_TIME)"
-fi
-
-# verify DNS server
-[ -n "$dns_server" ] && verify_dns "$dns_server"
-
-# verify Proxy server and set environment
-[ -n "$proxy" ] && {
- verify_proxy "$proxy" && {
- # everything ok set proxy
- export HTTP_PROXY="http://$proxy"
- export HTTPS_PROXY="http://$proxy"
- export http_proxy="http://$proxy"
- export https_proxy="http://$proxy"
- }
-}
-
-# let's check if there is already an IP registered on the web
-get_registered_ip REGISTERED_IP "NO_RETRY"
-ERR_LAST=$?
-# No error or No IP set otherwise retry
-[ $ERR_LAST -eq 0 -o $ERR_LAST -eq 127 ] || get_registered_ip REGISTERED_IP
-# on IPv6 we use expanded version to be shure when comparing
-[ $use_ipv6 -eq 1 ] && expand_ipv6 "$REGISTERED_IP" REGISTERED_IP
-
-# loop endlessly, checking ip every check_interval and forcing an updating once every force_interval
-write_log 6 "Starting main loop at $(eval $DATE_PROG)"
-while : ; do
-
- get_local_ip LOCAL_IP # read local IP
- [ $use_ipv6 -eq 1 ] && expand_ipv6 "$LOCAL_IP" LOCAL_IP # on IPv6 we use expanded version
-
- # prepare update
- # never updated or forced immediate then NEXT_TIME = 0
- [ $FORCE_SECONDS -eq 0 -o $LAST_TIME -eq 0 ] \
- && NEXT_TIME=0 \
- || NEXT_TIME=$(( $LAST_TIME + $FORCE_SECONDS ))
-
- get_uptime CURR_TIME # get current uptime
-
- # send update when current time > next time or local ip different from registered ip
- if [ $CURR_TIME -ge $NEXT_TIME -o "$LOCAL_IP" != "$REGISTERED_IP" ]; then
- if [ $VERBOSE -gt 2 ]; then
- write_log 7 "Verbose Mode: $VERBOSE - NO UPDATE send"
- elif [ "$LOCAL_IP" != "$REGISTERED_IP" ]; then
- write_log 7 "Update needed - L: '$LOCAL_IP' <> R: '$REGISTERED_IP'"
- else
- write_log 7 "Forced Update - L: '$LOCAL_IP' == R: '$REGISTERED_IP'"
- fi
-
- ERR_LAST=0
- [ $VERBOSE -lt 3 ] && {
- # only send if VERBOSE < 3
- send_update "$LOCAL_IP"
- ERR_LAST=$? # save return value
- }
-
- # error sending local IP to provider
- # we have no communication error (handled inside send_update/do_transfer)
- # but update was not recognized
- # do NOT retry after RETRY_SECONDS, do retry after CHECK_SECONDS
- # to early retrys will block most DDNS provider
- # providers answer is checked inside send_update() function
- if [ $ERR_LAST -eq 0 ]; then
- get_uptime LAST_TIME # we send update, so
- echo $LAST_TIME > $UPDFILE # save LASTTIME to file
- [ "$LOCAL_IP" != "$REGISTERED_IP" ] \
- && write_log 6 "Update successful - IP '$LOCAL_IP' send" \
- || write_log 6 "Forced update successful - IP: '$LOCAL_IP' send"
- elif [ $ERR_LAST -eq 127 ]; then
- write_log 3 "No update send to DDNS Provider"
- else
- write_log 3 "IP update not accepted by DDNS Provider"
- fi
- fi
-
- # now we wait for check interval before testing if update was recognized
- # only sleep if VERBOSE <= 2 because otherwise nothing was send
- [ $VERBOSE -le 2 ] && {
- write_log 7 "Waiting $CHECK_SECONDS seconds (Check Interval)"
- sleep $CHECK_SECONDS &
- PID_SLEEP=$!
- wait $PID_SLEEP # enable trap-handler
- PID_SLEEP=0
- } || write_log 7 "Verbose Mode: $VERBOSE - NO Check Interval waiting"
-
- REGISTERED_IP="" # clear variable
- get_registered_ip REGISTERED_IP # get registered/public IP
- [ $use_ipv6 -eq 1 ] && expand_ipv6 "$REGISTERED_IP" REGISTERED_IP # on IPv6 we use expanded version
-
- # IP's are still different
- if [ "$LOCAL_IP" != "$REGISTERED_IP" ]; then
- if [ $VERBOSE -le 1 ]; then # VERBOSE <=1 then retry
- ERR_UPDATE=$(( $ERR_UPDATE + 1 ))
- [ $retry_count -gt 0 -a $ERR_UPDATE -gt $retry_count ] && \
- write_log 14 "Updating IP at DDNS provider failed after $retry_count retries"
- write_log 4 "Updating IP at DDNS provider failed - starting retry $ERR_UPDATE/$retry_count"
- continue # loop to beginning
- else
- write_log 4 "Updating IP at DDNS provider failed"
- write_log 7 "Verbose Mode: $VERBOSE - NO retry"; exit 1
- fi
- else
- # we checked successful the last update
- ERR_UPDATE=0 # reset error counter
- fi
-
- # force_update=0 or VERBOSE > 1 - leave here
- [ $VERBOSE -gt 1 ] && write_log 7 "Verbose Mode: $VERBOSE - NO reloop"
- [ $FORCE_SECONDS -eq 0 ] && write_log 6 "Configured to run once"
- [ $VERBOSE -gt 1 -o $FORCE_SECONDS -eq 0 ] && exit 0
-
- write_log 6 "Rerun IP check at $(eval $DATE_PROG)"
-done
-# we should never come here there must be a programming error
-write_log 12 "Error in 'dynamic_dns_updater.sh - program coding error"
--- /dev/null
+#!/bin/sh
+# /usr/lib/ddns/dynamic_dns_functions.sh
+#
+#.Distributed under the terms of the GNU General Public License (GPL) version 2.0
+# Original written by Eric Paul Bishop, January 2008
+# (Loosely) based on the script on the one posted by exobyte in the forums here:
+# http://forum.openwrt.org/viewtopic.php?id=14040
+# extended and partial rewritten
+#.2014-2018 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
+#
+# function timeout
+# copied from http://www.ict.griffith.edu.au/anthony/software/timeout.sh
+# @author Anthony Thyssen 6 April 2011
+#
+# variables in small chars are read from /etc/config/ddns
+# variables in big chars are defined inside these scripts as global vars
+# variables in big chars beginning with "__" are local defined inside functions only
+# set -vx #script debugger
+
+. /lib/functions.sh
+. /lib/functions/network.sh
+
+# GLOBAL VARIABLES #
+if [ -f "/usr/share/ddns/version" ]; then
+ VERSION="$(cat "/usr/share/ddns/version")"
+else
+ VERSION="unknown"
+fi
+SECTION_ID="" # hold config's section name
+VERBOSE=0 # default mode is log to console, but easily changed with parameter
+MYPROG=$(basename $0) # my program call name
+
+LOGFILE="" # logfile - all files are set in dynamic_dns_updater.sh
+PIDFILE="" # pid file
+UPDFILE="" # store UPTIME of last update
+DATFILE="" # save stdout data of WGet and other external programs called
+ERRFILE="" # save stderr output of WGet and other external programs called
+IPFILE="" # store registered IP for read by LuCI status
+TLDFILE=/usr/share/public_suffix_list.dat.gz # TLD file used by split_FQDN
+
+CHECK_SECONDS=0 # calculated seconds out of given
+FORCE_SECONDS=0 # interval and unit
+RETRY_SECONDS=0 # in configuration
+
+LAST_TIME=0 # holds the uptime of last successful update
+CURR_TIME=0 # holds the current uptime
+NEXT_TIME=0 # calculated time for next FORCED update
+EPOCH_TIME=0 # seconds since 1.1.1970 00:00:00
+
+REGISTERED_IP="" # holds the IP read from DNS
+LOCAL_IP="" # holds the local IP read from the box
+
+URL_USER="" # url encoded $username from config file
+URL_PASS="" # url encoded $password from config file
+URL_PENC="" # url encoded $param_enc from config file
+
+UPD_ANSWER="" # Answer given by service on success
+
+ERR_LAST=0 # used to save $? return code of program and function calls
+ERR_UPDATE=0 # error counter on different local and registered ip
+
+PID_SLEEP=0 # ProcessID of current background "sleep"
+
+# regular expression to detect IPv4 / IPv6
+# IPv4 0-9 1-3x "." 0-9 1-3x "." 0-9 1-3x "." 0-9 1-3x
+IPV4_REGEX="[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}"
+# IPv6 ( ( 0-9a-f 1-4char ":") min 1x) ( ( 0-9a-f 1-4char )optional) ( (":" 0-9a-f 1-4char ) min 1x)
+IPV6_REGEX="\(\([0-9A-Fa-f]\{1,4\}:\)\{1,\}\)\(\([0-9A-Fa-f]\{1,4\}\)\{0,1\}\)\(\(:[0-9A-Fa-f]\{1,4\}\)\{1,\}\)"
+
+# characters that are dangerous to pass to a shell command line
+SHELL_ESCAPE="[\"\'\`\$\!();><{}?|\[\]\*\\\\]"
+
+# dns character set
+DNS_CHARSET="[@a-zA-Z0-9._-]"
+
+# detect if called by ddns-lucihelper.sh script, disable retrys (empty variable == false)
+LUCI_HELPER=$(printf %s "$MYPROG" | grep -i "luci")
+
+# Name Server Lookup Programs
+BIND_HOST=$(command -v host)
+KNOT_HOST=$(command -v khost)
+DRILL=$(command -v drill)
+HOSTIP=$(command -v hostip)
+NSLOOKUP=$(command -v nslookup)
+
+# Transfer Programs
+WGET=$(command -v wget)
+WGET_SSL=$(command -v wget-ssl)
+
+CURL=$(command -v curl)
+# CURL_SSL not empty then SSL support available
+CURL_SSL=$($CURL -V 2>/dev/null | grep -F "https")
+# CURL_PROXY not empty then Proxy support available
+CURL_PROXY=$(find /lib /usr/lib -name libcurl.so* -exec strings {} 2>/dev/null \; | grep -im1 "all_proxy")
+
+UCLIENT_FETCH=$(command -v uclient-fetch)
+
+# Global configuration settings
+# allow NON-public IP's
+upd_privateip=$(uci -q get ddns.global.upd_privateip) || upd_privateip=0
+
+# directory to store run information to.
+ddns_rundir=$(uci -q get ddns.global.ddns_rundir) || ddns_rundir="/var/run/ddns"
+[ -d $ddns_rundir ] || mkdir -p -m755 $ddns_rundir
+
+# directory to store log files
+ddns_logdir=$(uci -q get ddns.global.ddns_logdir) || ddns_logdir="/var/log/ddns"
+[ -d $ddns_logdir ] || mkdir -p -m755 $ddns_logdir
+
+# number of lines to before rotate logfile
+ddns_loglines=$(uci -q get ddns.global.ddns_loglines) || ddns_loglines=250
+ddns_loglines=$((ddns_loglines + 1)) # correct sed handling
+
+# format to show date information in log and luci-app-ddns default ISO 8601 format
+ddns_dateformat=$(uci -q get ddns.global.ddns_dateformat) || ddns_dateformat="%F %R"
+DATE_PROG="date +'$ddns_dateformat'"
+
+# USE_CURL if GNU Wget and cURL installed normally Wget is used by do_transfer()
+# to change this use global option use_curl '1'
+USE_CURL=$(uci -q get ddns.global.use_curl) || USE_CURL=0 # read config
+[ -n "$CURL" ] || USE_CURL=0 # check for cURL
+
+# loads all options for a given package and section
+# also, sets all_option_variables to a list of the variable names
+# $1 = ddns, $2 = SECTION_ID
+load_all_config_options()
+{
+ local __PKGNAME="$1"
+ local __SECTIONID="$2"
+ local __VAR
+ local __ALL_OPTION_VARIABLES=""
+
+ # this callback loads all the variables in the __SECTIONID section when we do
+ # config_load. We need to redefine the option_cb for different sections
+ # so that the active one isn't still active after we're done with it. For reference
+ # the $1 variable is the name of the option and $2 is the name of the section
+ config_cb()
+ {
+ if [ ."$2" = ."$__SECTIONID" ]; then
+ option_cb()
+ {
+ __ALL_OPTION_VARIABLES="$__ALL_OPTION_VARIABLES $1"
+ }
+ else
+ option_cb() { return 0; }
+ fi
+ }
+
+ config_load "$__PKGNAME"
+
+ # Given SECTION_ID not found so no data, so return 1
+ [ -z "$__ALL_OPTION_VARIABLES" ] && return 1
+
+ for __VAR in $__ALL_OPTION_VARIABLES
+ do
+ config_get "$__VAR" "$__SECTIONID" "$__VAR"
+ done
+ return 0
+}
+
+# read's all service sections from ddns config
+# $1 = Name of variable to store
+load_all_service_sections() {
+ local __DATA=""
+ config_cb()
+ {
+ # only look for section type "service", ignore everything else
+ [ "$1" = "service" ] && __DATA="$__DATA $2"
+ }
+ config_load "ddns"
+
+ eval "$1=\"$__DATA\""
+ return
+}
+
+# starts updater script for all given sections or only for the one given
+# $1 = interface (Optional: when given only scripts are started
+# configured for that interface)
+# used by /etc/hotplug.d/iface/95-ddns on IFUP
+# and by /etc/init.d/ddns start
+start_daemon_for_all_ddns_sections()
+{
+ local __EVENTIF="$1"
+ local __SECTIONS=""
+ local __SECTIONID=""
+ local __IFACE=""
+
+ load_all_service_sections __SECTIONS
+ for __SECTIONID in $__SECTIONS; do
+ config_get __IFACE "$__SECTIONID" interface "wan"
+ [ -z "$__EVENTIF" -o "$__IFACE" = "$__EVENTIF" ] || continue
+ if [ $VERBOSE -eq 0 ]; then # start in background
+ /usr/lib/ddns/dynamic_dns_updater.sh -v 0 -S "$__SECTIONID" -- start &
+ else
+ /usr/lib/ddns/dynamic_dns_updater.sh -v "$VERBOSE" -S "$__SECTIONID" -- start
+ fi
+ done
+}
+
+# stop sections process incl. childs (sleeps)
+# $1 = section
+stop_section_processes() {
+ local __PID=0
+ local __PIDFILE="$ddns_rundir/$1.pid"
+ [ $# -ne 1 ] && write_log 12 "Error calling 'stop_section_processes()' - wrong number of parameters"
+
+ [ -e "$__PIDFILE" ] && {
+ __PID=$(cat $__PIDFILE)
+ ps | grep "^[\t ]*$__PID" >/dev/null 2>&1 && kill $__PID || __PID=0 # terminate it
+ }
+ [ $__PID -eq 0 ] # report if process was running
+}
+
+# stop updater script for all defines sections or only for one given
+# $1 = interface (optional)
+# used by /etc/hotplug.d/iface/95-ddns on 'ifdown'
+# and by /etc/init.d/ddns stop
+# needed because we also need to kill "sleep" child processes
+stop_daemon_for_all_ddns_sections() {
+ local __EVENTIF="$1"
+ local __SECTIONS=""
+ local __SECTIONID=""
+ local __IFACE=""
+
+ load_all_service_sections __SECTIONS
+ for __SECTIONID in $__SECTIONS; do
+ config_get __IFACE "$__SECTIONID" interface "wan"
+ [ -z "$__EVENTIF" -o "$__IFACE" = "$__EVENTIF" ] || continue
+ stop_section_processes "$__SECTIONID"
+ done
+}
+
+# reports to console, logfile, syslog
+# $1 loglevel 7 == Debug to 0 == EMERG
+# value +10 will exit the scripts
+# $2..n text to report
+write_log() {
+ local __LEVEL __EXIT __CMD __MSG __MSE
+ local __TIME=$(date +%H%M%S)
+ [ $1 -ge 10 ] && {
+ __LEVEL=$(($1-10))
+ __EXIT=1
+ } || {
+ __LEVEL=$1
+ __EXIT=0
+ }
+ shift # remove loglevel
+ [ $__EXIT -eq 0 ] && __MSG="$*" || __MSG="$* - TERMINATE"
+ case $__LEVEL in # create log message and command depending on loglevel
+ 0) __CMD="logger -p user.emerg -t ddns-scripts[$$] $SECTION_ID: $__MSG"
+ __MSG=" $__TIME EMERG : $__MSG" ;;
+ 1) __CMD="logger -p user.alert -t ddns-scripts[$$] $SECTION_ID: $__MSG"
+ __MSG=" $__TIME ALERT : $__MSG" ;;
+ 2) __CMD="logger -p user.crit -t ddns-scripts[$$] $SECTION_ID: $__MSG"
+ __MSG=" $__TIME CRIT : $__MSG" ;;
+ 3) __CMD="logger -p user.err -t ddns-scripts[$$] $SECTION_ID: $__MSG"
+ __MSG=" $__TIME ERROR : $__MSG" ;;
+ 4) __CMD="logger -p user.warn -t ddns-scripts[$$] $SECTION_ID: $__MSG"
+ __MSG=" $__TIME WARN : $__MSG" ;;
+ 5) __CMD="logger -p user.notice -t ddns-scripts[$$] $SECTION_ID: $__MSG"
+ __MSG=" $__TIME note : $__MSG" ;;
+ 6) __CMD="logger -p user.info -t ddns-scripts[$$] $SECTION_ID: $__MSG"
+ __MSG=" $__TIME info : $__MSG" ;;
+ 7) __MSG=" $__TIME : $__MSG";;
+ *) return;;
+ esac
+
+ # verbose echo
+ [ $VERBOSE -gt 0 -o $__EXIT -gt 0 ] && echo -e "$__MSG"
+ # write to logfile
+ if [ ${use_logfile:-1} -eq 1 -o $VERBOSE -gt 1 ]; then
+ if [ -n "$password" ]; then
+ # url encode __MSG, password already done
+ urlencode __MSE "$__MSG"
+ # replace encoded password inside encoded message
+ # and url decode (newline was encoded as %00)
+ __MSG=$( echo -e "$__MSE" \
+ | sed -e "s/$URL_PASS/***PW***/g" \
+ | sed -e "s/+/ /g; s/%00/\n/g; s/%/\\\\x/g" | xargs -0 printf "%b" )
+ fi
+ printf "%s\n" "$__MSG" >> $LOGFILE
+ # VERBOSE > 1 then NO loop so NO truncate log to $ddns_loglines lines
+ [ $VERBOSE -gt 1 ] || sed -i -e :a -e '$q;N;'$ddns_loglines',$D;ba' $LOGFILE
+ fi
+ [ -n "$LUCI_HELPER" ] && return # nothing else todo when running LuCI helper script
+ [ $__LEVEL -eq 7 ] && return # no syslog for debug messages
+ __CMD=$(echo -e "$__CMD" | tr -d '\n' | tr '\t' ' ') # remove \n \t chars
+ [ $__EXIT -eq 1 ] && {
+ eval '$__CMD' # force syslog before exit
+ exit 1
+ }
+ [ $use_syslog -eq 0 ] && return
+ [ $((use_syslog + __LEVEL)) -le 7 ] && eval '$__CMD'
+
+ return
+}
+
+# replace all special chars to their %hex value
+# used for USERNAME and PASSWORD in update_url
+# unchanged: "-"(minus) "_"(underscore) "."(dot) "~"(tilde)
+# to verify: "'"(single quote) '"'(double quote) # because shell delimiter
+# "$"(Dollar) # because used as variable output
+# tested with the following string stored via Luci Application as password / username
+# A B!"#AA$1BB%&'()*+,-./:;<=>?@[\]^_`{|}~ without problems at Dollar or quotes
+urlencode() {
+ # $1 Name of Variable to store encoded string to
+ # $2 string to encode
+ local __ENC
+
+ [ $# -ne 2 ] && write_log 12 "Error calling 'urlencode()' - wrong number of parameters"
+
+ __ENC="$(awk -v str="$2" 'BEGIN{ORS="";for(i=32;i<=127;i++)lookup[sprintf("%c",i)]=i
+ for(k=1;k<=length(str);++k){enc=substr(str,k,1);if(enc!~"[-_.~a-zA-Z0-9]")enc=sprintf("%%%02x", lookup[enc]);print enc}}')"
+
+ eval "$1=\"$__ENC\"" # transfer back to variable
+ return 0
+}
+
+# extract url or script for given DDNS Provider from
+# directory /usr/share/ddns/services/ipv4/ for IPv4
+# or from
+# directory /usr/share/ddns/services/ipv6/ for IPv6
+# $1 Name of the provider
+# $1 Name of Variable to store url to
+# $2 Name of Variable to store script to
+# $3 Name of Variable to store service answer to
+get_service_data() {
+ local provider="$1"
+ shift
+
+ . /usr/share/libubox/jshn.sh
+ local dir="/usr/share/ddns/services"
+ local name data url answer script
+
+ [ $# -ne 3 ] && write_log 12 "Error calling 'get_service_data()' - wrong number of parameters"
+
+ [ -f "${dir}/${provider}.json" ] || {
+ eval "$1=\"\""
+ eval "$2=\"\""
+ eval "$3=\"\""
+ return 1
+ }
+
+ json_load_file "${dir}/${provider}.json"
+ json_get_var name "name"
+ if [ "$use_ipv6" -eq "1" ]; then
+ json_select "ipv6"
+ else
+ json_select "ipv4"
+ fi
+ json_get_var data "url"
+ json_get_var answer "answer"
+ json_select ".."
+ json_cleanup
+
+ # check if URL or SCRIPT is given
+ url=$(echo "$data" | grep "^http")
+ [ -z "$url" ] && script="/usr/lib/ddns/${data}"
+
+ eval "$1=\"$url\""
+ eval "$2=\"$script\""
+ eval "$3=\"$answer\""
+ return 0
+}
+
+# Calculate seconds from interval and unit
+# $1 Name of Variable to store result in
+# $2 Number and
+# $3 Unit of time interval
+get_seconds() {
+ [ $# -ne 3 ] && write_log 12 "Error calling 'get_seconds()' - wrong number of parameters"
+ case "$3" in
+ "days" ) eval "$1=$(( $2 * 86400 ))";;
+ "hours" ) eval "$1=$(( $2 * 3600 ))";;
+ "minutes" ) eval "$1=$(( $2 * 60 ))";;
+ * ) eval "$1=$2";;
+ esac
+ return 0
+}
+
+timeout() {
+ #.copied from http://www.ict.griffith.edu.au/anthony/software/timeout.sh
+ # only did the following changes
+ # - commented out "#!/bin/bash" and usage section
+ # - replace exit by return for usage as function
+ # - some reformatting
+ #
+ # timeout [-SIG] time [--] command args...
+ #
+ # Run the given command until completion, but kill it if it runs too long.
+ # Specifically designed to exit immediately (no sleep interval) and clean up
+ # nicely without messages or leaving any extra processes when finished.
+ #
+ # Example use
+ # timeout 5 countdown
+ #
+ # Based on notes in my "Shell Script Hints", section "Command Timeout"
+ # http://www.ict.griffith.edu.au/~anthony/info/shell/script.hints
+ #
+ # This script uses a lot of tricks to terminate both the background command,
+ # the timeout script, and even the sleep process. It also includes trap
+ # commands to prevent sub-shells reporting expected "Termination Errors".
+ #
+ # It took years of occasional trials, errors and testing to get a pure bash
+ # timeout command working as well as this does.
+ #
+ #.Anthony Thyssen 6 April 2011
+ #
+# PROGNAME=$(type $0 | awk '{print $3}') # search for executable on path
+# PROGDIR=$(dirname $PROGNAME) # extract directory of program
+# PROGNAME=$(basename $PROGNAME) # base name of program
+
+ # output the script comments as docs
+# Usage() {
+# echo >&2 "$PROGNAME:" "$@"
+# sed >&2 -n '/^###/q; /^#/!q; s/^#//; s/^ //; 3s/^/Usage: /; 2,$ p' "$PROGDIR/$PROGNAME"
+# exit 10;
+# }
+
+ SIG=-TERM
+
+ while [ $# -gt 0 ]; do
+ case "$1" in
+ --)
+ # forced end of user options
+ shift;
+ break ;;
+# -\?|--help|--doc*)
+# Usage ;;
+ [0-9]*)
+ TIMEOUT="$1" ;;
+ -*)
+ SIG="$1" ;;
+ *)
+ # unforced end of user options
+ break ;;
+ esac
+ shift # next option
+ done
+
+ # run main command in backgrounds and get its pid
+ "$@" &
+ command_pid=$!
+
+ # timeout sub-process abort countdown after ABORT seconds! also backgrounded
+ sleep_pid=0
+ (
+ # cleanup sleep process
+ trap 'kill -TERM $sleep_pid; return 1' 1 2 3 15
+ # sleep timeout period in background
+ sleep $TIMEOUT &
+ sleep_pid=$!
+ wait $sleep_pid
+ # Abort the command
+ kill $SIG $command_pid >/dev/null 2>&1
+ return 1
+ ) &
+ timeout_pid=$!
+
+ # Wait for main command to finished or be timed out
+ wait $command_pid
+ status=$?
+
+ # Clean up timeout sub-shell - if it is still running!
+ kill $timeout_pid 2>/dev/null
+ wait $timeout_pid 2>/dev/null
+
+ # Uncomment to check if a LONG sleep still running (no sleep should be)
+ # sleep 1
+ # echo "-----------"
+ # /bin/ps j # uncomment to show if abort "sleep" is still sleeping
+
+ return $status
+}
+
+# sanitize a variable
+# $1 variable name
+# $2 allowed shell pattern
+# $3 disallowed shell pattern
+sanitize_variable() {
+ local __VAR=$1
+ eval __VALUE=\$$__VAR
+ local __ALLOWED=$2
+ local __REJECT=$3
+
+ # removing all allowed should give empty string
+ if [ -n "$__ALLOWED" ]; then
+ [ -z "${__VALUE//$__ALLOWED}" ] || write_log 12 "sanitize on $__VAR found characters outside allowed subset"
+ fi
+
+ # removing rejected pattern should give the same string as the input
+ if [ -n "$__REJECT" ]; then
+ [ "$__VALUE" = "${__VALUE//$__REJECT}" ] || write_log 12 "sanitize on $__VAR found rejected characters"
+ fi
+}
+
+# verify given host and port is connectable
+# $1 Host/IP to verify
+# $2 Port to verify
+verify_host_port() {
+ local __HOST=$1
+ local __PORT=$2
+ local __NC=$(command -v nc)
+ local __NCEXT=$($(command -v nc) --help 2>&1 | grep "\-w" 2>/dev/null) # busybox nc compiled with extensions
+ local __IP __IPV4 __IPV6 __RUNPROG __PROG __ERR
+ # return codes
+ # 1 system specific error
+ # 2 nslookup/host error
+ # 3 nc (netcat) error
+ # 4 unmatched IP version
+
+ [ $# -ne 2 ] && write_log 12 "Error calling 'verify_host_port()' - wrong number of parameters"
+
+ # check if ip or FQDN was given
+ __IPV4=$(echo $__HOST | grep -m 1 -o "$IPV4_REGEX$") # do not detect ip in 0.0.0.0.example.com
+ __IPV6=$(echo $__HOST | grep -m 1 -o "$IPV6_REGEX")
+ # if FQDN given get IP address
+ [ -z "$__IPV4" -a -z "$__IPV6" ] && {
+ if [ -n "$BIND_HOST" ]; then # use BIND host if installed
+ __PROG="BIND host"
+ __RUNPROG="$BIND_HOST $__HOST >$DATFILE 2>$ERRFILE"
+ elif [ -n "$KNOT_HOST" ]; then # use Knot host if installed
+ __PROG="Knot host"
+ __RUNPROG="$KNOT_HOST $__HOST >$DATFILE 2>$ERRFILE"
+ elif [ -n "$DRILL" ]; then # use drill if installed
+ __PROG="drill"
+ __RUNPROG="$DRILL -V0 $__HOST A >$DATFILE 2>$ERRFILE" # IPv4
+ __RUNPROG="$__RUNPROG; $DRILL -V0 $__HOST AAAA >>$DATFILE 2>>$ERRFILE" # IPv6
+ elif [ -n "$HOSTIP" ]; then # use hostip if installed
+ __PROG="hostip"
+ __RUNPROG="$HOSTIP $__HOST >$DATFILE 2>$ERRFILE" # IPv4
+ __RUNPROG="$__RUNPROG; $HOSTIP -6 $__HOST >>$DATFILE 2>>$ERRFILE" # IPv6
+ else # use BusyBox nslookup
+ __PROG="BusyBox nslookup"
+ __RUNPROG="$NSLOOKUP $__HOST >$DATFILE 2>$ERRFILE"
+ fi
+ write_log 7 "#> $__RUNPROG"
+ eval $__RUNPROG
+ __ERR=$?
+ # command error
+ [ $__ERR -gt 0 ] && {
+ write_log 3 "DNS Resolver Error - $__PROG Error '$__ERR'"
+ write_log 7 "$(cat $ERRFILE)"
+ return 2
+ }
+ # extract IP address
+ if [ -n "$BIND_HOST" -o -n "$KNOT_HOST" ]; then # use BIND host or Knot host if installed
+ __IPV4="$(awk -F "address " '/has address/ {print $2; exit}' "$DATFILE")"
+ __IPV6="$(awk -F "address " '/has IPv6/ {print $2; exit}' "$DATFILE")"
+ elif [ -n "$DRILL" ]; then # use drill if installed
+ __IPV4="$(awk '/^'"$__HOST"'/ {print $5}' "$DATFILE" | grep -m 1 -o "$IPV4_REGEX")"
+ __IPV6="$(awk '/^'"$__HOST"'/ {print $5}' "$DATFILE" | grep -m 1 -o "$IPV6_REGEX")"
+ elif [ -n "$HOSTIP" ]; then # use hostip if installed
+ __IPV4="$(grep -m 1 -o "$IPV4_REGEX" "$DATFILE")"
+ __IPV6="$(grep -m 1 -o "$IPV6_REGEX" "$DATFILE")"
+ else # use BusyBox nslookup
+ __IPV4="$(sed -ne "/^Name:/,\$ { s/^Address[0-9 ]\{0,\}: \($IPV4_REGEX\).*$/\\1/p }" "$DATFILE")"
+ __IPV6="$(sed -ne "/^Name:/,\$ { s/^Address[0-9 ]\{0,\}: \($IPV6_REGEX\).*$/\\1/p }" "$DATFILE")"
+ fi
+ }
+
+ # check IP version if forced
+ if [ $force_ipversion -ne 0 ]; then
+ __ERR=0
+ [ $use_ipv6 -eq 0 -a -z "$__IPV4" ] && __ERR=4
+ [ $use_ipv6 -eq 1 -a -z "$__IPV6" ] && __ERR=6
+ [ $__ERR -gt 0 ] && {
+ [ -n "$LUCI_HELPER" ] && return 4
+ write_log 14 "Verify host Error '4' - Forced IP Version IPv$__ERR don't match"
+ }
+ fi
+
+ # verify nc command
+ # busybox nc compiled without -l option "NO OPT l!" -> critical error
+ $__NC --help 2>&1 | grep -i "NO OPT l!" >/dev/null 2>&1 && \
+ write_log 12 "Busybox nc (netcat) compiled without '-l' option, error 'NO OPT l!'"
+ # busybox nc compiled with extensions
+ $__NC --help 2>&1 | grep "\-w" >/dev/null 2>&1 && __NCEXT="TRUE"
+
+ # connectivity test
+ # run busybox nc to HOST PORT
+ # busybox might be compiled with "FEATURE_PREFER_IPV4_ADDRESS=n"
+ # then nc will try to connect via IPv6 if there is any IPv6 available on any host interface
+ # not worrying, if there is an IPv6 wan address
+ # so if not "force_ipversion" to use_ipv6 then connect test via ipv4, if available
+ [ $force_ipversion -ne 0 -a $use_ipv6 -ne 0 -o -z "$__IPV4" ] && __IP=$__IPV6 || __IP=$__IPV4
+
+ if [ -n "$__NCEXT" ]; then # BusyBox nc compiled with extensions (timeout support)
+ __RUNPROG="$__NC -w 1 $__IP $__PORT </dev/null >$DATFILE 2>$ERRFILE"
+ write_log 7 "#> $__RUNPROG"
+ eval $__RUNPROG
+ __ERR=$?
+ [ $__ERR -eq 0 ] && return 0
+ write_log 3 "Connect error - BusyBox nc (netcat) Error '$__ERR'"
+ write_log 7 "$(cat $ERRFILE)"
+ return 3
+ else # nc compiled without extensions (no timeout support)
+ __RUNPROG="timeout 2 -- $__NC $__IP $__PORT </dev/null >$DATFILE 2>$ERRFILE"
+ write_log 7 "#> $__RUNPROG"
+ eval $__RUNPROG
+ __ERR=$?
+ [ $__ERR -eq 0 ] && return 0
+ write_log 3 "Connect error - BusyBox nc (netcat) timeout Error '$__ERR'"
+ return 3
+ fi
+}
+
+# verify given DNS server if connectable
+# $1 DNS server to verify
+verify_dns() {
+ local __ERR=255 # last error buffer
+ local __CNT=0 # error counter
+
+ [ $# -ne 1 ] && write_log 12 "Error calling 'verify_dns()' - wrong number of parameters"
+ write_log 7 "Verify DNS server '$1'"
+
+ while [ $__ERR -ne 0 ]; do
+ # DNS uses port 53
+ verify_host_port "$1" "53"
+ __ERR=$?
+ if [ -n "$LUCI_HELPER" ]; then # no retry if called by LuCI helper script
+ return $__ERR
+ elif [ $__ERR -ne 0 -a $VERBOSE -gt 1 ]; then # VERBOSE > 1 then NO retry
+ write_log 4 "Verify DNS server '$1' failed - Verbose Mode: $VERBOSE - NO retry on error"
+ return $__ERR
+ elif [ $__ERR -ne 0 ]; then
+ __CNT=$(( $__CNT + 1 )) # increment error counter
+ # if error count > retry_count leave here
+ [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
+ write_log 14 "Verify DNS server '$1' failed after $retry_count retries"
+
+ write_log 4 "Verify DNS server '$1' failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
+ sleep $RETRY_SECONDS &
+ PID_SLEEP=$!
+ wait $PID_SLEEP # enable trap-handler
+ PID_SLEEP=0
+ fi
+ done
+ return 0
+}
+
+# analyze and verify given proxy string
+# $1 Proxy-String to verify
+verify_proxy() {
+ # complete entry user:password@host:port
+ # inside user and password NO '@' of ":" allowed
+ # host and port only host:port
+ # host only host ERROR unsupported
+ # IPv4 address instead of host 123.234.234.123
+ # IPv6 address instead of host [xxxx:....:xxxx] in square bracket
+ local __TMP __HOST __PORT
+ local __ERR=255 # last error buffer
+ local __CNT=0 # error counter
+
+ [ $# -ne 1 ] && write_log 12 "Error calling 'verify_proxy()' - wrong number of parameters"
+ write_log 7 "Verify Proxy server 'http://$1'"
+
+ # try to split user:password "@" host:port
+ __TMP=$(echo $1 | awk -F "@" '{print $2}')
+ # no "@" found - only host:port is given
+ [ -z "$__TMP" ] && __TMP="$1"
+ # now lets check for IPv6 address
+ __HOST=$(echo $__TMP | grep -m 1 -o "$IPV6_REGEX")
+ # IPv6 host address found read port
+ if [ -n "$__HOST" ]; then
+ # IPv6 split at "]:"
+ __PORT=$(echo $__TMP | awk -F "]:" '{print $2}')
+ else
+ __HOST=$(echo $__TMP | awk -F ":" '{print $1}')
+ __PORT=$(echo $__TMP | awk -F ":" '{print $2}')
+ fi
+ # No Port detected - EXITING
+ [ -z "$__PORT" ] && {
+ [ -n "$LUCI_HELPER" ] && return 5
+ write_log 14 "Invalid Proxy server Error '5' - proxy port missing"
+ }
+
+ while [ $__ERR -gt 0 ]; do
+ verify_host_port "$__HOST" "$__PORT"
+ __ERR=$?
+ if [ -n "$LUCI_HELPER" ]; then # no retry if called by LuCI helper script
+ return $__ERR
+ elif [ $__ERR -gt 0 -a $VERBOSE -gt 1 ]; then # VERBOSE > 1 then NO retry
+ write_log 4 "Verify Proxy server '$1' failed - Verbose Mode: $VERBOSE - NO retry on error"
+ return $__ERR
+ elif [ $__ERR -gt 0 ]; then
+ __CNT=$(( $__CNT + 1 )) # increment error counter
+ # if error count > retry_count leave here
+ [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
+ write_log 14 "Verify Proxy server '$1' failed after $retry_count retries"
+
+ write_log 4 "Verify Proxy server '$1' failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
+ sleep $RETRY_SECONDS &
+ PID_SLEEP=$!
+ wait $PID_SLEEP # enable trap-handler
+ PID_SLEEP=0
+ fi
+ done
+ return 0
+}
+
+do_transfer() {
+ # $1 # URL to use
+ local __URL="$1"
+ local __ERR=0
+ local __CNT=0 # error counter
+ local __PROG __RUNPROG
+
+ [ $# -ne 1 ] && write_log 12 "Error in 'do_transfer()' - wrong number of parameters"
+
+ # lets prefer GNU Wget because it does all for us - IPv4/IPv6/HTTPS/PROXY/force IP version
+ if [ -n "$WGET_SSL" -a $USE_CURL -eq 0 ]; then # except global option use_curl is set to "1"
+ __PROG="$WGET_SSL --hsts-file=/tmp/.wget-hsts -nv -t 1 -O $DATFILE -o $ERRFILE" # non_verbose no_retry outfile errfile
+ # force network/ip to use for communication
+ if [ -n "$bind_network" ]; then
+ local __BINDIP
+ # set correct program to detect IP
+ [ $use_ipv6 -eq 0 ] && __RUNPROG="network_get_ipaddr" || __RUNPROG="network_get_ipaddr6"
+ eval "$__RUNPROG __BINDIP $bind_network" || \
+ write_log 13 "Can not detect local IP using '$__RUNPROG $bind_network' - Error: '$?'"
+ write_log 7 "Force communication via IP '$__BINDIP'"
+ __PROG="$__PROG --bind-address=$__BINDIP"
+ fi
+ # force ip version to use
+ if [ $force_ipversion -eq 1 ]; then
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6" # force IPv4/IPv6
+ fi
+ # set certificate parameters
+ if [ $use_https -eq 1 ]; then
+ if [ "$cacert" = "IGNORE" ]; then # idea from Ticket #15327 to ignore server cert
+ __PROG="$__PROG --no-check-certificate"
+ elif [ -f "$cacert" ]; then
+ __PROG="$__PROG --ca-certificate=${cacert}"
+ elif [ -d "$cacert" ]; then
+ __PROG="$__PROG --ca-directory=${cacert}"
+ elif [ -n "$cacert" ]; then # it's not a file and not a directory but given
+ write_log 14 "No valid certificate(s) found at '$cacert' for HTTPS communication"
+ fi
+ fi
+ # disable proxy if no set (there might be .wgetrc or .curlrc or wrong environment set)
+ [ -z "$proxy" ] && __PROG="$__PROG --no-proxy"
+
+ __RUNPROG="$__PROG '$__URL'" # build final command
+ __PROG="GNU Wget" # reuse for error logging
+
+ # 2nd choice is cURL IPv4/IPv6/HTTPS
+ # libcurl might be compiled without Proxy or HTTPS Support
+ elif [ -n "$CURL" ]; then
+ __PROG="$CURL -RsS -o $DATFILE --stderr $ERRFILE"
+ # check HTTPS support
+ [ -z "$CURL_SSL" -a $use_https -eq 1 ] && \
+ write_log 13 "cURL: libcurl compiled without https support"
+ # force network/interface-device to use for communication
+ if [ -n "$bind_network" ]; then
+ local __DEVICE
+ network_get_physdev __DEVICE $bind_network || \
+ write_log 13 "Can not detect local device using 'network_get_physdev $bind_network' - Error: '$?'"
+ write_log 7 "Force communication via device '$__DEVICE'"
+ __PROG="$__PROG --interface $__DEVICE"
+ fi
+ # force ip version to use
+ if [ $force_ipversion -eq 1 ]; then
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6" # force IPv4/IPv6
+ fi
+ # set certificate parameters
+ if [ $use_https -eq 1 ]; then
+ if [ "$cacert" = "IGNORE" ]; then # idea from Ticket #15327 to ignore server cert
+ __PROG="$__PROG --insecure" # but not empty better to use "IGNORE"
+ elif [ -f "$cacert" ]; then
+ __PROG="$__PROG --cacert $cacert"
+ elif [ -d "$cacert" ]; then
+ __PROG="$__PROG --capath $cacert"
+ elif [ -n "$cacert" ]; then # it's not a file and not a directory but given
+ write_log 14 "No valid certificate(s) found at '$cacert' for HTTPS communication"
+ fi
+ fi
+ # disable proxy if no set (there might be .wgetrc or .curlrc or wrong environment set)
+ # or check if libcurl compiled with proxy support
+ if [ -z "$proxy" ]; then
+ __PROG="$__PROG --noproxy '*'"
+ elif [ -z "$CURL_PROXY" ]; then
+ # if libcurl has no proxy support and proxy should be used then force ERROR
+ write_log 13 "cURL: libcurl compiled without Proxy support"
+ fi
+
+ __RUNPROG="$__PROG '$__URL'" # build final command
+ __PROG="cURL" # reuse for error logging
+
+ # uclient-fetch possibly with ssl support if /lib/libustream-ssl.so installed
+ elif [ -n "$UCLIENT_FETCH" ]; then
+ # UCLIENT_FETCH_SSL not empty then SSL support available
+ UCLIENT_FETCH_SSL=$(find /lib /usr/lib -name libustream-ssl.so* 2>/dev/null)
+ __PROG="$UCLIENT_FETCH -q -O $DATFILE"
+ # force network/ip not supported
+ [ -n "$__BINDIP" ] && \
+ write_log 14 "uclient-fetch: FORCE binding to specific address not supported"
+ # force ip version to use
+ if [ $force_ipversion -eq 1 ]; then
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6" # force IPv4/IPv6
+ fi
+ # https possibly not supported
+ [ $use_https -eq 1 -a -z "$UCLIENT_FETCH_SSL" ] && \
+ write_log 14 "uclient-fetch: no HTTPS support! Additional install one of ustream-ssl packages"
+ # proxy support
+ [ -z "$proxy" ] && __PROG="$__PROG -Y off" || __PROG="$__PROG -Y on"
+ # https & certificates
+ if [ $use_https -eq 1 ]; then
+ if [ "$cacert" = "IGNORE" ]; then
+ __PROG="$__PROG --no-check-certificate"
+ elif [ -f "$cacert" ]; then
+ __PROG="$__PROG --ca-certificate=$cacert"
+ elif [ -n "$cacert" ]; then # it's not a file; nothing else supported
+ write_log 14 "No valid certificate file '$cacert' for HTTPS communication"
+ fi
+ fi
+ __RUNPROG="$__PROG '$__URL' 2>$ERRFILE" # build final command
+ __PROG="uclient-fetch" # reuse for error logging
+
+ # Busybox Wget or any other wget in search $PATH (did not support neither IPv6 nor HTTPS)
+ elif [ -n "$WGET" ]; then
+ __PROG="$WGET -q -O $DATFILE"
+ # force network/ip not supported
+ [ -n "$__BINDIP" ] && \
+ write_log 14 "BusyBox Wget: FORCE binding to specific address not supported"
+ # force ip version not supported
+ [ $force_ipversion -eq 1 ] && \
+ write_log 14 "BusyBox Wget: Force connecting to IPv4 or IPv6 addresses not supported"
+ # https not supported
+ [ $use_https -eq 1 ] && \
+ write_log 14 "BusyBox Wget: no HTTPS support"
+ # disable proxy if no set (there might be .wgetrc or .curlrc or wrong environment set)
+ [ -z "$proxy" ] && __PROG="$__PROG -Y off"
+
+ __RUNPROG="$__PROG '$__URL' 2>$ERRFILE" # build final command
+ __PROG="Busybox Wget" # reuse for error logging
+
+ else
+ write_log 13 "Neither 'Wget' nor 'cURL' nor 'uclient-fetch' installed or executable"
+ fi
+
+ while : ; do
+ write_log 7 "#> $__RUNPROG"
+ eval $__RUNPROG # DO transfer
+ __ERR=$? # save error code
+ [ $__ERR -eq 0 ] && return 0 # no error leave
+ [ -n "$LUCI_HELPER" ] && return 1 # no retry if called by LuCI helper script
+
+ write_log 3 "$__PROG Error: '$__ERR'"
+ write_log 7 "$(cat $ERRFILE)" # report error
+
+ [ $VERBOSE -gt 1 ] && {
+ # VERBOSE > 1 then NO retry
+ write_log 4 "Transfer failed - Verbose Mode: $VERBOSE - NO retry on error"
+ return 1
+ }
+
+ __CNT=$(( $__CNT + 1 )) # increment error counter
+ # if error count > retry_count leave here
+ [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
+ write_log 14 "Transfer failed after $retry_count retries"
+
+ write_log 4 "Transfer failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
+ sleep $RETRY_SECONDS &
+ PID_SLEEP=$!
+ wait $PID_SLEEP # enable trap-handler
+ PID_SLEEP=0
+ done
+ # we should never come here there must be a programming error
+ write_log 12 "Error in 'do_transfer()' - program coding error"
+}
+
+send_update() {
+ # $1 # IP to set at DDNS service provider
+ local __IP
+
+ [ $# -ne 1 ] && write_log 12 "Error calling 'send_update()' - wrong number of parameters"
+
+ if [ $upd_privateip -eq 0 ]; then
+ # verify given IP / no private IPv4's / no IPv6 addr starting with fxxx of with ":"
+ [ $use_ipv6 -eq 0 ] && __IP=$(echo $1 | grep -v -E "(^0|^10\.|^100\.6[4-9]\.|^100\.[7-9][0-9]\.|^100\.1[0-1][0-9]\.|^100\.12[0-7]\.|^127|^169\.254|^172\.1[6-9]\.|^172\.2[0-9]\.|^172\.3[0-1]\.|^192\.168)")
+ [ $use_ipv6 -eq 1 ] && __IP=$(echo $1 | grep "^[0-9a-eA-E]")
+ else
+ __IP=$(echo $1 | grep -m 1 -o "$IPV4_REGEX") # valid IPv4 or
+ [ -z "$__IP" ] && __IP=$(echo $1 | grep -m 1 -o "$IPV6_REGEX") # IPv6
+ fi
+ [ -z "$__IP" ] && {
+ write_log 3 "No or private or invalid IP '$1' given! Please check your configuration"
+ return 127
+ }
+
+ if [ -n "$update_script" ]; then
+ write_log 7 "parsing script '$update_script'"
+ . $update_script
+ else
+ local __URL __ERR
+
+ # do replaces in URL
+ __URL=$(echo $update_url | sed -e "s#\[USERNAME\]#$URL_USER#g" -e "s#\[PASSWORD\]#$URL_PASS#g" \
+ -e "s#\[PARAMENC\]#$URL_PENC#g" -e "s#\[PARAMOPT\]#$param_opt#g" \
+ -e "s#\[DOMAIN\]#$domain#g" -e "s#\[IP\]#$__IP#g")
+ [ $use_https -ne 0 ] && __URL=$(echo $__URL | sed -e 's#^http:#https:#')
+
+ do_transfer "$__URL" || return 1
+
+ write_log 7 "DDNS Provider answered:${N}$(cat $DATFILE)"
+
+ [ -z "$UPD_ANSWER" ] && return 0 # not set then ignore
+
+ grep -i -E "$UPD_ANSWER" $DATFILE >/dev/null 2>&1
+ return $? # "0" if found
+ fi
+}
+
+get_local_ip () {
+ # $1 Name of Variable to store local IP (LOCAL_IP)
+ local __CNT=0 # error counter
+ local __RUNPROG __DATA __URL __ERR
+
+ [ $# -ne 1 ] && write_log 12 "Error calling 'get_local_ip()' - wrong number of parameters"
+ write_log 7 "Detect local IP on '$ip_source'"
+
+ while : ; do
+ if [ -n "$ip_network" -a "$ip_source" = "network" ]; then
+ # set correct program
+ network_flush_cache # force re-read data from ubus
+ [ $use_ipv6 -eq 0 ] && __RUNPROG="network_get_ipaddr" \
+ || __RUNPROG="network_get_ipaddr6"
+ eval "$__RUNPROG __DATA $ip_network" || \
+ write_log 13 "Can not detect local IP using $__RUNPROG '$ip_network' - Error: '$?'"
+ [ -n "$__DATA" ] && write_log 7 "Local IP '$__DATA' detected on network '$ip_network'"
+ elif [ -n "$ip_interface" -a "$ip_source" = "interface" ]; then
+ local __DATA4=""; local __DATA6=""
+ if [ -n "$(command -v ip)" ]; then # ip program installed
+ write_log 7 "#> ip -o addr show dev $ip_interface scope global >$DATFILE 2>$ERRFILE"
+ ip -o addr show dev $ip_interface scope global >$DATFILE 2>$ERRFILE
+ __ERR=$?
+ if [ $__ERR -eq 0 ]; then
+ # DATFILE (sample)
+ # 10: l2tp-inet: <POINTOPOINT,MULTICAST,NOARP,UP,LOWER_UP> mtu 1456 qdisc fq_codel state UNKNOWN qlen 3\ link/ppp
+ # 10: l2tp-inet inet 95.30.176.51 peer 95.30.176.1/32 scope global l2tp-inet\ valid_lft forever preferred_lft forever
+ # 5: eth1: <BROADCAST,MULTICAST,UP,LOWER_UP> mtu 1500 qdisc fq_codel state UP qlen 1000\ link/ether 08:00:27:d0:10:32 brd ff:ff:ff:ff:ff:ff
+ # 5: eth1 inet 172.27.10.128/24 brd 172.27.10.255 scope global eth1\ valid_lft forever preferred_lft forever
+ # 5: eth1 inet 172.55.55.155/24 brd 172.27.10.255 scope global eth1\ valid_lft 12345sec preferred_lft 12345sec
+ # 5: eth1 inet6 2002:b0c7:f326::806b:c629:b8b9:433/128 scope global dynamic \ valid_lft 8026sec preferred_lft 8026sec
+ # 5: eth1 inet6 fd43:5368:6f6d:6500:806b:c629:b8b9:433/128 scope global dynamic \ valid_lft 8026sec preferred_lft 8026sec
+ # 5: eth1 inet6 fd43:5368:6f6d:6500:a00:27ff:fed0:1032/64 scope global dynamic \ valid_lft 14352sec preferred_lft 14352sec
+ # 5: eth1 inet6 2002:b0c7:f326::a00:27ff:fed0:1032/64 scope global dynamic \ valid_lft 14352sec preferred_lft 14352sec
+
+ # remove remove remove replace replace
+ # link inet6 fxxx sec forever=>-1 / => ' ' to separate subnet from ip
+ sed "/link/d; /inet6 f/d; s/sec//g; s/forever/-1/g; s/\// /g" $DATFILE | \
+ awk '{ print $3" "$4" "$NF }' > $ERRFILE # temp reuse ERRFILE
+ # we only need inet? IP prefered time
+
+ local __TIME4=0; local __TIME6=0
+ local __TYP __ADR __TIME
+ while read __TYP __ADR __TIME; do
+ __TIME=${__TIME:-0} # supress shell errors on last (empty) line of DATFILE
+ # IPversion no "-1" record stored - now "-1" record or new time > oldtime
+ [ "$__TYP" = "inet6" -a $__TIME6 -ge 0 -a \( $__TIME -lt 0 -o $__TIME -gt $__TIME6 \) ] && {
+ __DATA6="$__ADR"
+ __TIME6="$__TIME"
+ }
+ [ "$__TYP" = "inet" -a $__TIME4 -ge 0 -a \( $__TIME -lt 0 -o $__TIME -gt $__TIME4 \) ] && {
+ __DATA4="$__ADR"
+ __TIME4="$__TIME"
+ }
+ done < $ERRFILE
+ else
+ write_log 3 "ip Error: '$__ERR'"
+ write_log 7 "$(cat $ERRFILE)" # report error
+ fi
+ else # use deprecated ifconfig
+ write_log 7 "#> ifconfig $ip_interface >$DATFILE 2>$ERRFILE"
+ ifconfig $ip_interface >$DATFILE 2>$ERRFILE
+ __ERR=$?
+ if [ $__ERR -eq 0 ]; then
+ __DATA4=$(awk '
+ /inet addr:/ { # Filter IPv4
+ # inet addr:192.168.1.1 Bcast:192.168.1.255 Mask:255.255.255.0
+ $1=""; # remove inet
+ $3=""; # remove Bcast: ...
+ $4=""; # remove Mask: ...
+ FS=":"; # separator ":"
+ $0=$0; # reread to activate separator
+ $1=""; # remove addr
+ FS=" "; # set back separator to default " "
+ $0=$0; # reread to activate separator (remove whitespaces)
+ print $1; # print IPv4 addr
+ }' $DATFILE
+ )
+ __DATA6=$(awk '
+ /inet6/ && /: [0-9a-eA-E]/ { # Filter IPv6 exclude fxxx
+ # inet6 addr: 2001:db8::xxxx:xxxx/32 Scope:Global
+ FS="/"; # separator "/"
+ $0=$0; # reread to activate separator
+ $2=""; # remove everything behind "/"
+ FS=" "; # set back separator to default " "
+ $0=$0; # reread to activate separator
+ print $3; # print IPv6 addr
+ }' $DATFILE
+ )
+ else
+ write_log 3 "ifconfig Error: '$__ERR'"
+ write_log 7 "$(cat $ERRFILE)" # report error
+ fi
+ fi
+ [ $use_ipv6 -eq 0 ] && __DATA="$__DATA4" || __DATA="$__DATA6"
+ [ -n "$__DATA" ] && write_log 7 "Local IP '$__DATA' detected on interface '$ip_interface'"
+ elif [ -n "$ip_script" -a "$ip_source" = "script" ]; then
+ write_log 7 "#> $ip_script >$DATFILE 2>$ERRFILE"
+ eval $ip_script >$DATFILE 2>$ERRFILE
+ __ERR=$?
+ if [ $__ERR -eq 0 ]; then
+ __DATA=$(cat $DATFILE)
+ [ -n "$__DATA" ] && write_log 7 "Local IP '$__DATA' detected via script '$ip_script'"
+ else
+ write_log 3 "$ip_script Error: '$__ERR'"
+ write_log 7 "$(cat $ERRFILE)" # report error
+ fi
+ elif [ -n "$ip_url" -a "$ip_source" = "web" ]; then
+ do_transfer "$ip_url"
+ # use correct regular expression
+ [ $use_ipv6 -eq 0 ] \
+ && __DATA=$(grep -m 1 -o "$IPV4_REGEX" $DATFILE) \
+ || __DATA=$(grep -m 1 -o "$IPV6_REGEX" $DATFILE)
+ [ -n "$__DATA" ] && write_log 7 "Local IP '$__DATA' detected on web at '$ip_url'"
+ else
+ write_log 12 "Error in 'get_local_ip()' - unhandled ip_source '$ip_source'"
+ fi
+ # valid data found return here
+ [ -n "$__DATA" ] && {
+ eval "$1=\"$__DATA\""
+ return 0
+ }
+
+ [ -n "$LUCI_HELPER" ] && return 1 # no retry if called by LuCI helper script
+
+ write_log 7 "Data detected:"
+ write_log 7 "$(cat $DATFILE)"
+
+ [ $VERBOSE -gt 1 ] && {
+ # VERBOSE > 1 then NO retry
+ write_log 4 "Get local IP via '$ip_source' failed - Verbose Mode: $VERBOSE - NO retry on error"
+ return 1
+ }
+
+ __CNT=$(( $__CNT + 1 )) # increment error counter
+ # if error count > retry_count leave here
+ [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
+ write_log 14 "Get local IP via '$ip_source' failed after $retry_count retries"
+ write_log 4 "Get local IP via '$ip_source' failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
+ sleep $RETRY_SECONDS &
+ PID_SLEEP=$!
+ wait $PID_SLEEP # enable trap-handler
+ PID_SLEEP=0
+ done
+ # we should never come here there must be a programming error
+ write_log 12 "Error in 'get_local_ip()' - program coding error"
+}
+
+get_registered_ip() {
+ # $1 Name of Variable to store public IP (REGISTERED_IP)
+ # $2 (optional) if set, do not retry on error
+ local __CNT=0 # error counter
+ local __ERR=255
+ local __REGEX __PROG __RUNPROG __DATA __IP
+ # return codes
+ # 1 no IP detected
+
+ [ $# -lt 1 -o $# -gt 2 ] && write_log 12 "Error calling 'get_registered_ip()' - wrong number of parameters"
+ [ $is_glue -eq 1 -a -z "$BIND_HOST" ] && write_log 14 "Lookup of glue records is only supported using BIND host"
+ write_log 7 "Detect registered/public IP"
+
+ # set correct regular expression
+ [ $use_ipv6 -eq 0 ] && __REGEX="$IPV4_REGEX" || __REGEX="$IPV6_REGEX"
+
+ if [ -n "$BIND_HOST" ]; then
+ __PROG="$BIND_HOST"
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -t A" || __PROG="$__PROG -t AAAA"
+ if [ $force_ipversion -eq 1 ]; then # force IP version
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6"
+ fi
+ [ $force_dnstcp -eq 1 ] && __PROG="$__PROG -T" # force TCP
+ [ $is_glue -eq 1 ] && __PROG="$__PROG -v" # use verbose output to get additional section
+
+ __RUNPROG="$__PROG $lookup_host $dns_server >$DATFILE 2>$ERRFILE"
+ __PROG="BIND host"
+ elif [ -n "$KNOT_HOST" ]; then
+ __PROG="$KNOT_HOST"
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -t A" || __PROG="$__PROG -t AAAA"
+ if [ $force_ipversion -eq 1 ]; then # force IP version
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6"
+ fi
+ [ $force_dnstcp -eq 1 ] && __PROG="$__PROG -T" # force TCP
+
+ __RUNPROG="$__PROG $lookup_host $dns_server >$DATFILE 2>$ERRFILE"
+ __PROG="Knot host"
+ elif [ -n "$DRILL" ]; then
+ __PROG="$DRILL -V0" # drill options name @server type
+ if [ $force_ipversion -eq 1 ]; then # force IP version
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG -4" || __PROG="$__PROG -6"
+ fi
+ [ $force_dnstcp -eq 1 ] && __PROG="$__PROG -t" || __PROG="$__PROG -u" # force TCP
+ __PROG="$__PROG $lookup_host"
+ [ -n "$dns_server" ] && __PROG="$__PROG @$dns_server"
+ [ $use_ipv6 -eq 0 ] && __PROG="$__PROG A" || __PROG="$__PROG AAAA"
+
+ __RUNPROG="$__PROG >$DATFILE 2>$ERRFILE"
+ __PROG="drill"
+ elif [ -n "$HOSTIP" ]; then # hostip package installed
+ __PROG="$HOSTIP"
+ [ $force_dnstcp -ne 0 ] && \
+ write_log 14 "hostip - no support for 'DNS over TCP'"
+
+ # is IP given as dns_server ?
+ __IP=$(echo $dns_server | grep -m 1 -o "$IPV4_REGEX")
+ [ -z "$__IP" ] && __IP=$(echo $dns_server | grep -m 1 -o "$IPV6_REGEX")
+
+ # we got NO ip for dns_server, so build command
+ [ -z "$__IP" -a -n "$dns_server" ] && {
+ __IP="\`$HOSTIP"
+ [ $use_ipv6 -eq 1 -a $force_ipversion -eq 1 ] && __IP="$__IP -6"
+ __IP="$__IP $dns_server | grep -m 1 -o"
+ [ $use_ipv6 -eq 1 -a $force_ipversion -eq 1 ] \
+ && __IP="$__IP '$IPV6_REGEX'" \
+ || __IP="$__IP '$IPV4_REGEX'"
+ __IP="$__IP \`"
+ }
+
+ [ $use_ipv6 -eq 1 ] && __PROG="$__PROG -6"
+ [ -n "$dns_server" ] && __PROG="$__PROG -r $__IP"
+ __RUNPROG="$__PROG $lookup_host >$DATFILE 2>$ERRFILE"
+ __PROG="hostip"
+ elif [ -n "$NSLOOKUP" ]; then # last use BusyBox nslookup
+ NSLOOKUP_MUSL=$($(command -v nslookup) localhost 2>&1 | grep -F "(null)") # not empty busybox compiled with musl
+ [ $force_dnstcp -ne 0 ] && \
+ write_log 14 "Busybox nslookup - no support for 'DNS over TCP'"
+ [ -n "$NSLOOKUP_MUSL" -a -n "$dns_server" ] && \
+ write_log 14 "Busybox compiled with musl - nslookup don't support the use of DNS Server"
+ [ $force_ipversion -ne 0 ] && \
+ write_log 5 "Busybox nslookup - no support to 'force IP Version' (ignored)"
+
+ __RUNPROG="$NSLOOKUP $lookup_host $dns_server >$DATFILE 2>$ERRFILE"
+ __PROG="BusyBox nslookup"
+ else # there must be an error
+ write_log 12 "Error in 'get_registered_ip()' - no supported Name Server lookup software accessible"
+ fi
+
+ while : ; do
+ write_log 7 "#> $__RUNPROG"
+ eval $__RUNPROG
+ __ERR=$?
+ if [ $__ERR -ne 0 ]; then
+ write_log 3 "$__PROG error: '$__ERR'"
+ write_log 7 "$(cat $ERRFILE)"
+ else
+ if [ -n "$BIND_HOST" -o -n "$KNOT_HOST" ]; then
+ if [ $is_glue -eq 1 ]; then
+ __DATA=$(cat $DATFILE | grep "^$lookup_host" | grep -om1 "$__REGEX" )
+ else
+ __DATA=$(cat $DATFILE | awk -F "address " '/has/ {print $2; exit}' )
+ fi
+ elif [ -n "$DRILL" ]; then
+ __DATA=$(cat $DATFILE | awk '/^'"$lookup_host"'/ {print $5; exit}' )
+ elif [ -n "$HOSTIP" ]; then
+ __DATA=$(cat $DATFILE | grep -om1 "$__REGEX")
+ elif [ -n "$NSLOOKUP" ]; then
+ __DATA=$(cat $DATFILE | sed -ne "/^Name:/,\$ { s/^Address[0-9 ]\{0,\}: \($__REGEX\).*$/\\1/p }" )
+ fi
+ [ -n "$__DATA" ] && {
+ write_log 7 "Registered IP '$__DATA' detected"
+ [ -z "$IPFILE" ] || echo "$__DATA" > $IPFILE
+ eval "$1=\"$__DATA\"" # valid data found
+ return 0 # leave here
+ }
+ write_log 4 "NO valid IP found"
+ __ERR=127
+ fi
+ [ -z "$IPFILE" ] || echo "" > $IPFILE
+
+ [ -n "$LUCI_HELPER" ] && return $__ERR # no retry if called by LuCI helper script
+ [ -n "$2" ] && return $__ERR # $2 is given -> no retry
+ [ $VERBOSE -gt 1 ] && {
+ # VERBOSE > 1 then NO retry
+ write_log 4 "Get registered/public IP for '$lookup_host' failed - Verbose Mode: $VERBOSE - NO retry on error"
+ return $__ERR
+ }
+
+ __CNT=$(( $__CNT + 1 )) # increment error counter
+ # if error count > retry_count leave here
+ [ $retry_count -gt 0 -a $__CNT -gt $retry_count ] && \
+ write_log 14 "Get registered/public IP for '$lookup_host' failed after $retry_count retries"
+
+ write_log 4 "Get registered/public IP for '$lookup_host' failed - retry $__CNT/$retry_count in $RETRY_SECONDS seconds"
+ sleep $RETRY_SECONDS &
+ PID_SLEEP=$!
+ wait $PID_SLEEP # enable trap-handler
+ PID_SLEEP=0
+ done
+ # we should never come here there must be a programming error
+ write_log 12 "Error in 'get_registered_ip()' - program coding error"
+}
+
+get_uptime() {
+ # $1 Variable to store result in
+ [ $# -ne 1 ] && write_log 12 "Error calling 'verify_host_port()' - wrong number of parameters"
+ local __UPTIME=$(cat /proc/uptime)
+ eval "$1=\"${__UPTIME%%.*}\""
+}
+
+trap_handler() {
+ # $1 trap signal
+ # $2 optional (exit status)
+ local __PIDS __PID
+ local __ERR=${2:-0}
+ local __OLD_IFS=$IFS
+ local __NEWLINE_IFS='
+' # __NEWLINE_IFS
+
+ [ $PID_SLEEP -ne 0 ] && kill -$1 $PID_SLEEP 2>/dev/null # kill pending sleep if exist
+
+ case $1 in
+ 0) if [ $__ERR -eq 0 ]; then
+ write_log 5 "PID '$$' exit normal at $(eval $DATE_PROG)${N}"
+ else
+ write_log 4 "PID '$$' exit WITH ERROR '$__ERR' at $(eval $DATE_PROG)${N}"
+ fi ;;
+ 1) write_log 6 "PID '$$' received 'SIGHUP' at $(eval $DATE_PROG)"
+ # reload config via starting the script again
+ /usr/lib/ddns/dynamic_dns_updater.sh -v "0" -S "$__SECTIONID" -- start || true
+ exit 0 ;; # and leave this one
+ 2) write_log 5 "PID '$$' terminated by 'SIGINT' at $(eval $DATE_PROG)${N}";;
+ 3) write_log 5 "PID '$$' terminated by 'SIGQUIT' at $(eval $DATE_PROG)${N}";;
+ 15) write_log 5 "PID '$$' terminated by 'SIGTERM' at $(eval $DATE_PROG)${N}";;
+ *) write_log 13 "Unhandled signal '$1' in 'trap_handler()'";;
+ esac
+
+ __PIDS=$(pgrep -P $$) # get my childs (pgrep prints with "newline")
+ IFS=$__NEWLINE_IFS
+ for __PID in $__PIDS; do
+ kill -$1 $__PID # terminate it
+ done
+ IFS=$__OLD_IFS
+
+ # remove out and err file
+ [ -f $DATFILE ] && rm -f $DATFILE
+ [ -f $ERRFILE ] && rm -f $ERRFILE
+
+ # exit with correct handling:
+ # remove trap handling settings and send kill to myself
+ trap - 0 1 2 3 15
+ [ $1 -gt 0 ] && kill -$1 $$
+}
+
+split_FQDN() {
+ # $1 FQDN to split
+ # $2 name of variable to store TLD
+ # $3 name of variable to store (reg)Domain
+ # $4 name of variable to store Host/Subdomain
+
+ [ $# -ne 4 ] && write_log 12 "Error calling 'split_FQDN()' - wrong number of parameters"
+ [ -z "$1" ] && write_log 12 "Error calling 'split_FQDN()' - missing FQDN to split"
+ [ -f $TLDFILE ] || write_log 12 "Error calling 'split_FQDN()' - missing file '$TLDFILE'"
+
+ local _HOST _FDOM _CTLD _FTLD
+ local _SET="$@" # save given function parameters
+
+ local _PAR=$(echo "$1" | tr [A-Z] [a-z] | tr "." " ") # to lower and replace DOT with SPACE
+ set -- $_PAR # set new as function parameters
+ _PAR="" # clear variable for later reuse
+ while [ -n "$1" ] ; do # as long we have parameters
+ _PAR="$1 $_PAR" # invert order of parameters
+ shift
+ done
+ set -- $_PAR # use new as function parameters
+ _PAR="" # clear variable
+
+ while [ -n "$1" ] ; do # as long we have parameters
+ if [ -z "$_CTLD" ]; then # first loop
+ _CTLD="$1" # CURRENT TLD to look at
+ shift
+ else
+ _CTLD="$1.$_CTLD" # Next TLD to look at
+ shift
+ fi
+ # check if TLD exact match in tld_names.dat, save TLD
+ zcat $TLDFILE | grep -E "^$_CTLD$" >/dev/null 2>&1 && {
+ _FTLD="$_CTLD" # save found
+ _FDOM="$1" # save domain next step might be invalid
+ continue
+ }
+ # check if match any "*" in tld_names.dat,
+ zcat $TLDFILE | grep -E "^\*.$_CTLD$" >/dev/null 2>&1 && {
+ [ -z "$1" ] && break # no more data break
+ # check if next level TLD match excludes "!" in tld_names.dat
+ if zcat $TLDFILE | grep -E "^!$1.$_CTLD$" >/dev/null 2>&1 ; then
+ _FTLD="$_CTLD" # Yes
+ else
+ _FTLD="$1.$_CTLD"
+ shift
+ fi
+ _FDOM="$1"; shift
+ }
+ [ -n "$_FTLD" ] && break # we have something valid, break
+ done
+
+ # the leftover parameters are the HOST/SUBDOMAIN
+ while [ -n "$1" ]; do
+ _HOST="$1 $_HOST" # remember we need to invert
+ shift
+ done
+ _HOST=$(echo $_HOST | tr " " ".") # insert DOT
+
+ set -- $_SET # set back parameters from function call
+ [ -n "$_FTLD" ] && {
+ eval "$2=$_FTLD" # set TLD
+ eval "$3=$_FDOM" # set registrable domain
+ eval "$4=$_HOST" # set HOST/SUBDOMAIN
+ return 0
+ }
+ eval "$2=''" # clear TLD
+ eval "$3=''" # clear registrable domain
+ eval "$4=''" # clear HOST/SUBDOMAIN
+ return 1
+}
+
+expand_ipv6() {
+ # Original written for bash by
+ #.Author: Florian Streibelt <florian@f-streibelt.de>
+ # Date: 08.04.2012
+ # License: Public Domain, but please be fair and
+ # attribute the original author(s) and provide
+ # a link to the original source for corrections:
+ #. https://github.com/mutax/IPv6-Address-checks
+
+ # $1 IPv6 to expand
+ # $2 name of variable to store expanded IPv6
+ [ $# -ne 2 ] && write_log 12 "Error calling 'expand_ipv6()' - wrong number of parameters"
+
+ INPUT="$(echo "$1" | tr 'A-F' 'a-f')"
+ [ "$INPUT" = "::" ] && INPUT="::0" # special case ::
+
+ O=""
+
+ while [ "$O" != "$INPUT" ]; do
+ O="$INPUT"
+
+ # fill all words with zeroes
+ INPUT=$( echo "$INPUT" | sed -e 's|:\([0-9a-f]\{3\}\):|:0\1:|g' \
+ -e 's|:\([0-9a-f]\{3\}\)$|:0\1|g' \
+ -e 's|^\([0-9a-f]\{3\}\):|0\1:|g' \
+ -e 's|:\([0-9a-f]\{2\}\):|:00\1:|g' \
+ -e 's|:\([0-9a-f]\{2\}\)$|:00\1|g' \
+ -e 's|^\([0-9a-f]\{2\}\):|00\1:|g' \
+ -e 's|:\([0-9a-f]\):|:000\1:|g' \
+ -e 's|:\([0-9a-f]\)$|:000\1|g' \
+ -e 's|^\([0-9a-f]\):|000\1:|g' )
+
+ done
+
+ # now expand the ::
+ ZEROES=""
+
+ echo "$INPUT" | grep -qs "::"
+ if [ "$?" -eq 0 ]; then
+ GRPS="$( echo "$INPUT" | sed 's|[0-9a-f]||g' | wc -m )"
+ GRPS=$(( GRPS-1 )) # remove carriage return
+ MISSING=$(( 8-GRPS ))
+ while [ $MISSING -gt 0 ]; do
+ ZEROES="$ZEROES:0000"
+ MISSING=$(( MISSING-1 ))
+ done
+
+ # be careful where to place the :
+ INPUT=$( echo "$INPUT" | sed -e 's|\(.\)::\(.\)|\1'$ZEROES':\2|g' \
+ -e 's|\(.\)::$|\1'$ZEROES':0000|g' \
+ -e 's|^::\(.\)|'$ZEROES':0000:\1|g;s|^:||g' )
+ fi
+
+ # an expanded address has 39 chars + CR
+ if [ $(echo $INPUT | wc -m) != 40 ]; then
+ write_log 4 "Error in 'expand_ipv6()' - invalid IPv6 found: '$1' expanded: '$INPUT'"
+ eval "$2='invalid'"
+ return 1
+ fi
+
+ # echo the fully expanded version of the address
+ eval "$2=$INPUT"
+ return 0
+}
--- /dev/null
+#!/bin/sh
+# /usr/lib/ddns/dynamic_dns_lucihelper.sh
+#
+#.Distributed under the terms of the GNU General Public License (GPL) version 2.0
+#.2014-2018 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
+# This script is used by luci-app-ddns
+#
+# variables in small chars are read from /etc/config/ddns as parameter given here
+# variables in big chars are defined inside these scripts as gloval vars
+# variables in big chars beginning with "__" are local defined inside functions only
+# set -vx #script debugger
+
+. /usr/lib/ddns/dynamic_dns_functions.sh # global vars are also defined here
+
+usage() {
+ cat << EOF
+
+Usage:
+ $MYPROG [options] -- command
+
+Commands:
+ get_local_ip using given INTERFACE or NETWORK or SCRIPT or URL
+ get_registered_ip for given FQDN
+ verify_dns given DNS-SERVER
+ verify_proxy given PROXY
+ start start given SECTION
+ reload force running ddns processes to reload changed configuration
+ restart restart all ddns processes
+
+Parameters:
+ -6 => use_ipv6=1 (default 0)
+ -d DNS-SERVER => dns_server=SERVER[:PORT]
+ -f => force_ipversion=1 (default 0)
+ -g => is_glue=1 (default 0)
+ -i INTERFACE => ip_interface=INTERFACE; ip_source="interface"
+ -l FQDN => lookup_host=FQDN
+ -n NETWORK => ip_network=NETWORK; ip_source="network"
+ -p PROXY => proxy=[USER:PASS@]PROXY:PORT
+ -s SCRIPT => ip_script=SCRIPT; ip_source="script"
+ -t => force_dnstcp=1 (default 0)
+ -u URL => ip_url=URL; ip_source="web"
+ -S SECTION SECTION to start
+
+ -h => show this help and exit
+ -L => use_logfile=1 (default 0)
+ -v LEVEL => VERBOSE=LEVEL (default 0)
+ -V => show version and exit
+
+EOF
+}
+
+usage_err() {
+ printf %s\\n "$MYPROG: $@" >&2
+ usage >&2
+ exit 255
+}
+
+# preset some variables, wrong or not set in ddns-functions.sh
+SECTION_ID="lucihelper"
+LOGFILE="$ddns_logdir/$SECTION_ID.log"
+DATFILE="$ddns_rundir/$SECTION_ID.$$.dat" # save stdout data of WGet and other extern programs called
+ERRFILE="$ddns_rundir/$SECTION_ID.$$.err" # save stderr output of WGet and other extern programs called
+DDNSPRG="/usr/lib/ddns/dynamic_dns_updater.sh"
+VERBOSE=0 # no console logging
+# global variables normally set by reading DDNS UCI configuration
+use_syslog=0 # no syslog
+use_logfile=0 # no logfile
+
+use_ipv6=0 # Use IPv6 - default IPv4
+force_ipversion=0 # Force IP Version - default 0 - No
+force_dnstcp=0 # Force TCP on DNS - default 0 - No
+is_glue=0 # Is glue record - default 0 - No
+use_https=0 # not needed but must be set
+
+while getopts ":6d:fghi:l:n:p:s:S:tu:Lv:V" OPT; do
+ case "$OPT" in
+ 6) use_ipv6=1;;
+ d) dns_server="$OPTARG";;
+ f) force_ipversion=1;;
+ g) is_glue=1;;
+ i) ip_interface="$OPTARG"; ip_source="interface";;
+ l) lookup_host="$OPTARG";;
+ n) ip_network="$OPTARG"; ip_source="network";;
+ p) proxy="$OPTARG";;
+ s) ip_script="$OPTARG"; ip_source="script";;
+ t) force_dnstcp=1;;
+ u) ip_url="$OPTARG"; ip_source="web";;
+ h) usage; exit 255;;
+ L) use_logfile=1;;
+ v) VERBOSE=$OPTARG;;
+ S) SECTION=$OPTARG;;
+ V) printf %s\\n "ddns-scripts $VERSION"; exit 255;;
+ :) usage_err "option -$OPTARG missing argument";;
+ \?) usage_err "invalid option -$OPTARG";;
+ *) usage_err "unhandled option -$OPT $OPTARG";;
+ esac
+done
+shift $((OPTIND - 1 )) # OPTIND is 1 based
+
+[ $# -eq 0 ] && usage_err "missing command"
+
+__RET=0
+case "$1" in
+ get_registered_ip)
+ [ -z "$lookup_host" ] && usage_err "command 'get_registered_ip': 'lookup_host' not set"
+ write_log 7 "-----> get_registered_ip IP"
+ [ -z "$SECTION" ] || IPFILE="$ddns_rundir/$SECTION.ip"
+ IP=""
+ get_registered_ip IP
+ __RET=$?
+ [ $__RET -ne 0 ] && IP=""
+ printf "%s" "$IP"
+ ;;
+ verify_dns)
+ [ -z "$dns_server" ] && usage_err "command 'verify_dns': 'dns_server' not set"
+ write_log 7 "-----> verify_dns '$dns_server'"
+ verify_dns "$dns_server"
+ __RET=$?
+ ;;
+ verify_proxy)
+ [ -z "$proxy" ] && usage_err "command 'verify_proxy': 'proxy' not set"
+ write_log 7 "-----> verify_proxy '$proxy'"
+ verify_proxy "$proxy"
+ __RET=$?
+ ;;
+ get_local_ip)
+ [ -z "$ip_source" ] && usage_err "command 'get_local_ip': 'ip_source' not set"
+ [ -n "$proxy" -a "$ip_source" = "web" ] && {
+ # proxy defined, used for ip_source=web
+ export HTTP_PROXY="http://$proxy"
+ export HTTPS_PROXY="http://$proxy"
+ export http_proxy="http://$proxy"
+ export https_proxy="http://$proxy"
+ }
+ # don't need IP only the return code
+ IP=""
+ if [ "$ip_source" = "web" -o "$ip_source" = "script" ]; then
+ # we wait only 3 seconds for an
+ # answer from "web" or "script"
+ write_log 7 "-----> timeout 3 -- get_local_ip IP"
+ timeout 3 -- get_local_ip IP
+ else
+ write_log 7 "-----> get_local_ip IP"
+ get_local_ip IP
+ fi
+ __RET=$?
+ ;;
+ start)
+ [ -z "$SECTION" ] && usage_err "command 'start': 'SECTION' not set"
+ if [ $VERBOSE -eq 0 ]; then # start in background
+ $DDNSPRG -v 0 -S $SECTION -- start &
+ else
+ $DDNSPRG -v $VERBOSE -S $SECTION -- start
+ fi
+ ;;
+ reload)
+ $DDNSPRG -- reload
+ ;;
+ restart)
+ $DDNSPRG -- stop
+ sleep 1
+ $DDNSPRG -- start
+ ;;
+ *)
+ __RET=255
+ ;;
+esac
+
+# remove out and err file
+[ -f $DATFILE ] && rm -f $DATFILE
+[ -f $ERRFILE ] && rm -f $ERRFILE
+return $__RET
--- /dev/null
+#!/bin/sh
+# /usr/lib/ddns/dynamic_dns_updater.sh
+#
+#.Distributed under the terms of the GNU General Public License (GPL) version 2.0
+# Original written by Eric Paul Bishop, January 2008
+# (Loosely) based on the script on the one posted by exobyte in the forums here:
+# http://forum.openwrt.org/viewtopic.php?id=14040
+# extended and partial rewritten
+#.2014-2018 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
+#
+# variables in small chars are read from /etc/config/ddns
+# variables in big chars are defined inside these scripts as global vars
+# variables in big chars beginning with "__" are local defined inside functions only
+# set -vx #script debugger
+
+. $(dirname $0)/dynamic_dns_functions.sh # global vars are also defined here
+
+usage() {
+ cat << EOF
+
+Usage:
+ $MYPROG [options] -- command
+
+Commands:
+start Start SECTION or NETWORK or all
+stop Stop NETWORK or all
+
+Parameters:
+ -n NETWORK Start/Stop sections in background monitoring NETWORK, force VERBOSE=0
+ -S SECTION SECTION to start
+ use either -N NETWORK or -S SECTION
+
+ -h show this help and exit
+ -V show version and exit
+ -v LEVEL VERBOSE=LEVEL (default 1)
+ '0' NO output to console
+ '1' output to console
+ '2' output to console AND logfile
+ + run once WITHOUT retry on error
+ '3' output to console AND logfile
+ + run once WITHOUT retry on error
+ + NOT sending update to DDNS service
+
+EOF
+}
+
+usage_err() {
+ printf %s\\n "$MYPROG: $@" >&2
+ usage >&2
+ exit 1
+}
+
+while getopts ":hv:n:S:V" OPT; do
+ case "$OPT" in
+ h) usage; exit 0;;
+ v) VERBOSE=$OPTARG;;
+ n) NETWORK=$OPTARG;;
+ S) SECTION_ID=$OPTARG;;
+ V) printf %s\\n "ddns-scripts $VERSION"; exit 0;;
+ :) usage_err "option -$OPTARG missing argument";;
+ \?) usage_err "invalid option -$OPTARG";;
+ *) usage_err "unhandled option -$OPT $OPTARG";;
+ esac
+done
+shift $((OPTIND - 1 )) # OPTIND is 1 based
+
+[ -n "$NETWORK" -a -n "$SECTION_ID" ] && usage_err "use either option '-N' or '-S' not both"
+[ $# -eq 0 ] && usage_err "missing command"
+[ $# -gt 1 ] && usage_err "to much commands"
+
+case "$1" in
+ start)
+ if [ -n "$NETWORK" ]; then
+ start_daemon_for_all_ddns_sections "$NETWORK"
+ exit 0
+ fi
+ if [ -z "$SECTION_ID" ]; then
+ start_daemon_for_all_ddns_sections
+ exit 0
+ fi
+ ;;
+ stop)
+ if [ -n "$INTERFACE" ]; then
+ stop_daemon_for_all_ddns_sections "$NETWORK"
+ exit 0
+ else
+ stop_daemon_for_all_ddns_sections
+ exit 0
+ fi
+ exit 1
+ ;;
+ reload)
+ killall -1 dynamic_dns_updater.sh 2>/dev/null
+ exit $?
+ ;;
+ *) usage_err "unknown command - $1";;
+esac
+
+# set file names
+PIDFILE="$ddns_rundir/$SECTION_ID.pid" # Process ID file
+UPDFILE="$ddns_rundir/$SECTION_ID.update" # last update successful send (system uptime)
+DATFILE="$ddns_rundir/$SECTION_ID.dat" # save stdout data of WGet and other extern programs called
+ERRFILE="$ddns_rundir/$SECTION_ID.err" # save stderr output of WGet and other extern programs called
+IPFILE="$ddns_rundir/$SECTION_ID.ip" #
+LOGFILE="$ddns_logdir/$SECTION_ID.log" # log file
+
+# VERBOSE > 1 delete logfile if exist to create an empty one
+# only with this data of this run for easier diagnostic
+# new one created by write_log function
+[ $VERBOSE -gt 1 -a -f $LOGFILE ] && rm -f $LOGFILE
+
+# TRAP handler
+trap "trap_handler 0 \$?" 0 # handle script exit with exit status
+trap "trap_handler 1" 1 # SIGHUP Hangup / reload config
+trap "trap_handler 2" 2 # SIGINT Terminal interrupt
+trap "trap_handler 3" 3 # SIGQUIT Terminal quit
+# trap "trap_handler 9" 9 # SIGKILL no chance to trap
+trap "trap_handler 15" 15 # SIGTERM Termination
+
+################################################################################
+# Leave this comment here, to clearly document variable names that are expected/possible
+# Use load_all_config_options to load config options, which is a much more flexible solution.
+#
+# config_load "ddns"
+# config_get <variable> $SECTION_ID <option>
+#
+# defined options (also used as variable):
+#
+# enabled self-explanatory
+# interface network interface used by hotplug.d i.e. 'wan' or 'wan6'
+#
+# service_name Which DDNS service do you use or "custom"
+# update_url URL to use to update your "custom" DDNS service
+# update_script SCRIPT to use to update your "custom" DDNS service
+#
+# lookup_host FQDN of ONE of your at DDNS service defined host / required to validate if IP update happen/necessary
+# domain Nomally your DDNS hostname / replace [DOMAIN] in update_url
+# username Username of your DDNS service account / urlenceded and replace [USERNAME] in update_url
+# password Password of your DDNS service account / urlencoded and replace [PASSWORD] in update_url
+# param_enc Optional parameter for (later) usage / urlencoded and replace [PARAMENC] in update_url
+# param_opt Optional parameter for (later) usage / replace [PARAMOPT] in update_url
+#
+# use_https use HTTPS to update DDNS service
+# cacert file or directory where HTTPS can find certificates to verify server; 'IGNORE' ignore check of server certificate
+#
+# use_syslog log activity to syslog
+#
+# ip_source source to detect current local IP ('network' or 'web' or 'script' or 'interface')
+# ip_network local defined network to read IP from i.e. 'wan' or 'wan6'
+# ip_url URL to read local address from i.e. http://checkip.dyndns.com/ or http://checkipv6.dyndns.com/
+# ip_script full path and name of your script to detect local IP
+# ip_interface physical interface to use for detecting
+#
+# check_interval check for changes every !!! checks below 10 minutes make no sense because the Internet
+# check_unit 'days' 'hours' 'minutes' !!! needs about 5-10 minutes to sync an IP-change for an DNS entry
+#
+# force_interval force to send an update to your service if no change was detected
+# force_unit 'days' 'hours' 'minutes' !!! force_interval="0" runs this script once for use i.e. with cron
+#
+# retry_interval if error was detected retry in
+# retry_unit 'days' 'hours' 'minutes' 'seconds'
+# retry_count number of retries before scripts stops
+#
+# use_ipv6 detecting/sending IPv6 address
+# force_ipversion force usage of IPv4 or IPv6 for the whole detection and update communication
+# dns_server using a non default dns server to get Registered IP from Internet
+# force_dnstcp force communication with DNS server via TCP instead of default UDP
+# proxy using a proxy for communication !!! ALSO used to detect local IP via web => return proxy's IP !!!
+# use_logfile self-explanatory "/var/log/ddns/$SECTION_ID.log"
+# is_glue the record that should be updated is a glue record
+#
+# some functionality needs
+# - GNU Wget or cURL installed for sending updates to DDNS service
+# - BIND host installed to detect Registered IP
+#
+################################################################################
+
+load_all_config_options "ddns" "$SECTION_ID"
+ERR_LAST=$? # save return code - equal 0 if SECTION_ID found
+
+# set defaults if not defined
+[ -z "$enabled" ] && enabled=0
+[ -z "$retry_count" ] && retry_count=0 # endless retry
+[ -z "$use_syslog" ] && use_syslog=2 # syslog "Notice"
+[ -z "$use_https" ] && use_https=0 # not use https
+[ -z "$use_logfile" ] && use_logfile=1 # use logfile by default
+[ -z "$use_ipv6" ] && use_ipv6=0 # use IPv4 by default
+[ -z "$force_ipversion" ] && force_ipversion=0 # default let system decide
+[ -z "$force_dnstcp" ] && force_dnstcp=0 # default UDP
+[ -z "$ip_source" ] && ip_source="network"
+[ -z "$is_glue" ] && is_glue=0 # default the ddns record is not a glue record
+[ "$ip_source" = "network" -a -z "$ip_network" -a $use_ipv6 -eq 0 ] && ip_network="wan" # IPv4: default wan
+[ "$ip_source" = "network" -a -z "$ip_network" -a $use_ipv6 -eq 1 ] && ip_network="wan6" # IPv6: default wan6
+[ "$ip_source" = "web" -a -z "$ip_url" -a $use_ipv6 -eq 0 ] && ip_url="http://checkip.dyndns.com"
+[ "$ip_source" = "web" -a -z "$ip_url" -a $use_ipv6 -eq 1 ] && ip_url="http://checkipv6.dyndns.com"
+[ "$ip_source" = "interface" -a -z "$ip_interface" ] && ip_interface="eth1"
+
+# url encode username (might be email or something like this)
+# and password (might have special chars for security reason)
+# and optional parameter "param_enc"
+[ -n "$username" ] && urlencode URL_USER "$username"
+[ -n "$password" ] && urlencode URL_PASS "$password"
+[ -n "$param_enc" ] && urlencode URL_PENC "$param_enc"
+
+# SECTION_ID does not exists
+[ $ERR_LAST -ne 0 ] && {
+ [ $VERBOSE -le 1 ] && VERBOSE=2 # force console out and logfile output
+ [ -f $LOGFILE ] && rm -f $LOGFILE # clear logfile before first entry
+ write_log 7 "************ ************** ************** **************"
+ write_log 5 "PID '$$' started at $(eval $DATE_PROG)"
+ write_log 7 "ddns version : $VERSION"
+ write_log 7 "uci configuration:${N}$(uci -q show ddns | grep '=service' | sort)"
+ write_log 14 "Service section '$SECTION_ID' not defined"
+}
+
+write_log 7 "************ ************** ************** **************"
+write_log 5 "PID '$$' started at $(eval $DATE_PROG)"
+write_log 7 "ddns version : $VERSION"
+write_log 7 "uci configuration:${N}$(uci -q show ddns.$SECTION_ID | sort)"
+# write_log 7 "ddns version : $(opkg list-installed ddns-scripts | cut -d ' ' -f 3)"
+case $VERBOSE in
+ 0) write_log 7 "verbose mode : 0 - run normal, NO console output";;
+ 1) write_log 7 "verbose mode : 1 - run normal, console mode";;
+ 2) write_log 7 "verbose mode : 2 - run once, NO retry on error";;
+ 3) write_log 7 "verbose mode : 3 - run once, NO retry on error, NOT sending update";;
+ *) write_log 14 "error detecting VERBOSE '$VERBOSE'";;
+esac
+
+# check enabled state otherwise we don't need to continue
+[ $enabled -eq 0 ] && write_log 14 "Service section disabled!"
+
+# determine what update url we're using if a service_name is supplied
+# otherwise update_url is set inside configuration (custom update url)
+# or update_script is set inside configuration (custom update script)
+[ -n "$service_name" ] && {
+ get_service_data "$service_name" update_url update_script UPD_ANSWER
+}
+
+[ -z "$update_url" -a -z "$update_script" ] && write_log 14 "No update_url found/defined or no update_script found/defined!"
+[ -n "$update_script" -a ! -f "$update_script" ] && write_log 14 "Custom update_script not found!"
+
+# temporary needed to convert existing uci settings
+[ -z "$lookup_host" ] && {
+ uci -q set ddns.$SECTION_ID.lookup_host="$domain"
+ uci -q commit ddns
+ lookup_host="$domain"
+}
+# later versions only check if configured correctly
+
+# without lookup host and possibly other required options we can do nothing for you
+[ -z "$lookup_host" ] && write_log 14 "Service section not configured correctly! Missing 'lookup_host'"
+
+# verify validity of variables
+[ -n "$lookup_host" ] && sanitize_variable lookup_host "$DNS_CHARSET" ""
+[ -n "$dns_server" ] && sanitize_variable dns_server "$DNS_CHARSET" ""
+[ -n "$domain" ] && sanitize_variable domain "$DNS_CHARSET" ""
+
+# Filter shell escape characters, if these are required in the URL, they
+# can still be passed url encoded
+[ -n "$param_opt" ] && sanitize_variable param_opt "" "$SHELL_ESCAPE"
+
+[ -n "$update_url" ] && {
+ # only check if update_url is given, update_scripts have to check themselves
+ [ -z "$domain" ] && $(echo "$update_url" | grep "\[DOMAIN\]" >/dev/null 2>&1) && \
+ write_log 14 "Service section not configured correctly! Missing 'domain'"
+ [ -z "$username" ] && $(echo "$update_url" | grep "\[USERNAME\]" >/dev/null 2>&1) && \
+ write_log 14 "Service section not configured correctly! Missing 'username'"
+ [ -z "$password" ] && $(echo "$update_url" | grep "\[PASSWORD\]" >/dev/null 2>&1) && \
+ write_log 14 "Service section not configured correctly! Missing 'password'"
+ [ -z "$param_enc" ] && $(echo "$update_url" | grep "\[PARAMENC\]" >/dev/null 2>&1) && \
+ write_log 14 "Service section not configured correctly! Missing 'param_enc'"
+ [ -z "$param_opt" ] && $(echo "$update_url" | grep "\[PARAMOPT\]" >/dev/null 2>&1) && \
+ write_log 14 "Service section not configured correctly! Missing 'param_opt'"
+}
+
+# verify ip_source 'script' if script is configured and executable
+if [ "$ip_source" = "script" ]; then
+ set -- $ip_script #handling script with parameters, we need a trick
+ [ -z "$1" ] && write_log 14 "No script defined to detect local IP!"
+ [ -x "$1" ] || write_log 14 "Script to detect local IP not executable!"
+fi
+
+# compute update interval in seconds
+get_seconds CHECK_SECONDS ${check_interval:-10} ${check_unit:-"minutes"} # default 10 min
+get_seconds FORCE_SECONDS ${force_interval:-72} ${force_unit:-"hours"} # default 3 days
+get_seconds RETRY_SECONDS ${retry_interval:-60} ${retry_unit:-"seconds"} # default 60 sec
+[ $CHECK_SECONDS -lt 300 ] && CHECK_SECONDS=300 # minimum 5 minutes
+[ $FORCE_SECONDS -gt 0 -a $FORCE_SECONDS -lt $CHECK_SECONDS ] && FORCE_SECONDS=$CHECK_SECONDS # FORCE_SECONDS >= CHECK_SECONDS or 0
+write_log 7 "check interval: $CHECK_SECONDS seconds"
+write_log 7 "force interval: $FORCE_SECONDS seconds"
+write_log 7 "retry interval: $RETRY_SECONDS seconds"
+write_log 7 "retry counter : $retry_count times"
+
+# kill old process if it exists & set new pid file
+stop_section_processes "$SECTION_ID"
+[ $? -gt 0 ] && write_log 7 "'SIGTERM' was send to old process" || write_log 7 "No old process"
+echo $$ > $PIDFILE
+
+# determine when the last update was
+# the following lines should prevent multiple updates if hotplug fires multiple startups
+# as described in Ticket #7820, but did not function if never an update take place
+# i.e. after a reboot (/var is linked to /tmp)
+# using uptime as reference because date might not be updated via NTP client
+get_uptime CURR_TIME
+[ -e "$UPDFILE" ] && {
+ LAST_TIME=$(cat $UPDFILE)
+ # check also LAST > CURR because link of /var/run to /tmp might be removed
+ # i.e. boxes with larger filesystems
+ [ -z "$LAST_TIME" ] && LAST_TIME=0
+ [ $LAST_TIME -gt $CURR_TIME ] && LAST_TIME=0
+}
+if [ $LAST_TIME -eq 0 ]; then
+ write_log 7 "last update: never"
+else
+ EPOCH_TIME=$(( $(date +%s) - $CURR_TIME + $LAST_TIME ))
+ EPOCH_TIME="date -d @$EPOCH_TIME +'$ddns_dateformat'"
+ write_log 7 "last update: $(eval $EPOCH_TIME)"
+fi
+
+# verify DNS server
+[ -n "$dns_server" ] && verify_dns "$dns_server"
+
+# verify Proxy server and set environment
+[ -n "$proxy" ] && {
+ verify_proxy "$proxy" && {
+ # everything ok set proxy
+ export HTTP_PROXY="http://$proxy"
+ export HTTPS_PROXY="http://$proxy"
+ export http_proxy="http://$proxy"
+ export https_proxy="http://$proxy"
+ }
+}
+
+# let's check if there is already an IP registered on the web
+get_registered_ip REGISTERED_IP "NO_RETRY"
+ERR_LAST=$?
+# No error or No IP set otherwise retry
+[ $ERR_LAST -eq 0 -o $ERR_LAST -eq 127 ] || get_registered_ip REGISTERED_IP
+# on IPv6 we use expanded version to be shure when comparing
+[ $use_ipv6 -eq 1 ] && expand_ipv6 "$REGISTERED_IP" REGISTERED_IP
+
+# loop endlessly, checking ip every check_interval and forcing an updating once every force_interval
+write_log 6 "Starting main loop at $(eval $DATE_PROG)"
+while : ; do
+
+ get_local_ip LOCAL_IP # read local IP
+ [ $use_ipv6 -eq 1 ] && expand_ipv6 "$LOCAL_IP" LOCAL_IP # on IPv6 we use expanded version
+
+ # prepare update
+ # never updated or forced immediate then NEXT_TIME = 0
+ [ $FORCE_SECONDS -eq 0 -o $LAST_TIME -eq 0 ] \
+ && NEXT_TIME=0 \
+ || NEXT_TIME=$(( $LAST_TIME + $FORCE_SECONDS ))
+
+ get_uptime CURR_TIME # get current uptime
+
+ # send update when current time > next time or local ip different from registered ip
+ if [ $CURR_TIME -ge $NEXT_TIME -o "$LOCAL_IP" != "$REGISTERED_IP" ]; then
+ if [ $VERBOSE -gt 2 ]; then
+ write_log 7 "Verbose Mode: $VERBOSE - NO UPDATE send"
+ elif [ "$LOCAL_IP" != "$REGISTERED_IP" ]; then
+ write_log 7 "Update needed - L: '$LOCAL_IP' <> R: '$REGISTERED_IP'"
+ else
+ write_log 7 "Forced Update - L: '$LOCAL_IP' == R: '$REGISTERED_IP'"
+ fi
+
+ ERR_LAST=0
+ [ $VERBOSE -lt 3 ] && {
+ # only send if VERBOSE < 3
+ send_update "$LOCAL_IP"
+ ERR_LAST=$? # save return value
+ }
+
+ # error sending local IP to provider
+ # we have no communication error (handled inside send_update/do_transfer)
+ # but update was not recognized
+ # do NOT retry after RETRY_SECONDS, do retry after CHECK_SECONDS
+ # to early retrys will block most DDNS provider
+ # providers answer is checked inside send_update() function
+ if [ $ERR_LAST -eq 0 ]; then
+ get_uptime LAST_TIME # we send update, so
+ echo $LAST_TIME > $UPDFILE # save LASTTIME to file
+ [ "$LOCAL_IP" != "$REGISTERED_IP" ] \
+ && write_log 6 "Update successful - IP '$LOCAL_IP' send" \
+ || write_log 6 "Forced update successful - IP: '$LOCAL_IP' send"
+ elif [ $ERR_LAST -eq 127 ]; then
+ write_log 3 "No update send to DDNS Provider"
+ else
+ write_log 3 "IP update not accepted by DDNS Provider"
+ fi
+ fi
+
+ # now we wait for check interval before testing if update was recognized
+ # only sleep if VERBOSE <= 2 because otherwise nothing was send
+ [ $VERBOSE -le 2 ] && {
+ write_log 7 "Waiting $CHECK_SECONDS seconds (Check Interval)"
+ sleep $CHECK_SECONDS &
+ PID_SLEEP=$!
+ wait $PID_SLEEP # enable trap-handler
+ PID_SLEEP=0
+ } || write_log 7 "Verbose Mode: $VERBOSE - NO Check Interval waiting"
+
+ REGISTERED_IP="" # clear variable
+ get_registered_ip REGISTERED_IP # get registered/public IP
+ [ $use_ipv6 -eq 1 ] && expand_ipv6 "$REGISTERED_IP" REGISTERED_IP # on IPv6 we use expanded version
+
+ # IP's are still different
+ if [ "$LOCAL_IP" != "$REGISTERED_IP" ]; then
+ if [ $VERBOSE -le 1 ]; then # VERBOSE <=1 then retry
+ ERR_UPDATE=$(( $ERR_UPDATE + 1 ))
+ [ $retry_count -gt 0 -a $ERR_UPDATE -gt $retry_count ] && \
+ write_log 14 "Updating IP at DDNS provider failed after $retry_count retries"
+ write_log 4 "Updating IP at DDNS provider failed - starting retry $ERR_UPDATE/$retry_count"
+ continue # loop to beginning
+ else
+ write_log 4 "Updating IP at DDNS provider failed"
+ write_log 7 "Verbose Mode: $VERBOSE - NO retry"; exit 1
+ fi
+ else
+ # we checked successful the last update
+ ERR_UPDATE=0 # reset error counter
+ fi
+
+ # force_update=0 or VERBOSE > 1 - leave here
+ [ $VERBOSE -gt 1 ] && write_log 7 "Verbose Mode: $VERBOSE - NO reloop"
+ [ $FORCE_SECONDS -eq 0 ] && write_log 6 "Configured to run once"
+ [ $VERBOSE -gt 1 -o $FORCE_SECONDS -eq 0 ] && exit 0
+
+ write_log 6 "Rerun IP check at $(eval $DATE_PROG)"
+done
+# we should never come here there must be a programming error
+write_log 12 "Error in 'dynamic_dns_updater.sh - program coding error"