#!/bin/bash
# shellcheck disable=SC2016,SC2119

# SC2016 Expressions don't expand in single quotes
# SC2119 Use function "$@" if function's $1 should mean script's $1		(??)

version=2.12.0
date="09/03/2018"
# contact="IRC freenode ##sdeb ou https://framagit.org/kyodev/kyopages/issues/"
script="getIp"

##### license LPRAB/WTFPL
#  auteur: simpledeb
#    contributeurs: kyodev
#####

# shellcheck disable=SC2034
# SC2034 foo appears unused. Verify it or export it.
f__color(){		# 01/03/2018

	if type -p tput &>/dev/null && tput setaf 1 &>/dev/null; then
		  BLACK=$( tput setaf 0 )
			RED=$( tput setaf 1 )		# alerte
		  GREEN=$( tput setaf 2 )		# ok
		 YELLOW=$( tput setaf 3 )		# question
		   BLUE=$( tput setaf 4 )		# info
		   CYAN=$( tput setaf 6 )
		MAGENTA=$( tput setaf 5 )
			STD=$( tput sgr0 )			# retour "normal"
		BOLD=$( tput bold )
		ITAL=$( tput sitm )
		SOUL=$( tput smul )
	else 
		YELLOW=$( echo -n "\033[0;33m" )		# ?
		 GREEN=$( echo -n "\033[0;32m" )		# ok
		  BLUE=$( echo -n "\033[0;34m" )		# info
		   RED=$( echo -n "\033[0;31m" )		# alerte
		 COLOR=$( echo -n "\033[0m" )		# standard
		   STD=$( echo -n "\033[0m" )		# standard
	fi
}

	# $1=-c|-l|-lc, $2 répertoire, [$3] motif exclusion sur nom fichier,  affiche 0|null si répertoire inexistant
	# -c: compte du nombre de fichiers dans un répertoire
	# -l: liste inline des noms de fichiers seuls (sans chemin) (similaire ls)
	# -lc: liste en colonne des noms de fichiers seuls (sans chemin) (similaire ls -1)
	# si joker (*?) sur chemin, le motif d'exclusion ne s'applique pas à un répertoire listé, juste sur le nom du fichier
	# exemple: f__dir -l $dir "lock|partial" ou "\.list"
f__dir(){		 # 05/03/2017
	local i=0 action="-c" stock=''

	[[ "$1" =~ - ]] && action="$1" || action="-c"	# si option en erreur: -c par défaut
	while read -r ; do 
		if [[ ! "$REPLY" =~ $3 ]] || [ -z "$3" ]; then
			REPLY=${REPLY#*:}				# suppression du titre de répertoire listé
			[ -z "$REPLY" ] && continue		# ligne vide, on passe
			((i++))
			stock+="$REPLY "
		fi
	done <<< "$( ls "$2" 2>/dev/null )"
	if [ "$action" == "-c" ]; then
		echo "$i"
	elif [ "$action" == "-l" ]; then
		echo "${stock% }"
	elif [ "$action" == "-lc" ]; then
		stock=${stock% }
		echo -e "${stock// /$'\n'}"
	fi
}

	# affichage $1 en rouge, $1++ optionnels en bleu, sortie script sur erreur, log $1 si $operation=upgrade
f__error(){		# 18/12/2017
	local depart=1 i

	echo -e "\n$RED  $script $version, erreur critique: $1 $STD"
	for (( i=2 ; i<=$# ; i++ )); do
		echo -e "  $BLUE${!i}$STD"
	done
	echo
	[ "$operation" == "upgrade" ] && f__log "$script $version: $1"
	exit 1
}

	# affichage en bleu, si $1=raw pas de ligne vide à la fin, si $1=log alors uniquement $2 logué, combiné: $1="log:raw"
f__info(){		# 05/03/2018
	local depart=1 i

	if [[ "$1" =~ "raw"  ||  "$1" =~ "log" ]]; then
		depart=2
	fi
	if [[ "$1" =~ "log" ]]; then
		f__log "$( sed -E 's/\\t//;s/\\n// ' <<< "$2" | xargs )"
	fi
	for (( i="$depart" ; i<=$# ; i++ )); do
		echo -e "  $BLUE${!i}$STD"
	done
	[[ "$1" =~ raw ]] || echo 
}

	# log spécifique, fichier log limité à 10000 octets, $1 message à loguer
f__log(){		# 05/03/2018

	if [ -w "$script_logs" ];  then 
		if [ "$( stat -c %s  "$script_logs" )" -ge "10000" ]; then
			echo "$(date +%Y%m%d\ %H%M%S) $1"  &>/dev/null > "$script_logs"
		else 
			echo "$(date +%Y%m%d\ %H%M%S) $1"  &>/dev/null >> "$script_logs"
		fi
	fi
}

	# recherche commandes/paquets, $1 liste: cmd1|cmd2[>paquet] (séparées par espaces) ex: "gawk|mawk>gawk wget"
	# si manque, return 1 & affiche commandes manquantes (si debian, ajout proposition paquet à installer)
f__requis(){		# 09/03/2018
	local ENV_DEBIAN ireq table package commands command commandsMissing packagesMissing 

	if type -p dpkg &>/dev/null ; then
		ENV_DEBIAN="oui"							# debian
	fi
	if type -t f__info &>/dev/null; then
		c_echo="f__info"
	else
		c_echo="echo -e"					# f__info existe? sinon echo
	fi
	for ireq in $1; do						# pour tous les composants de la liste $1
		table=( ${ireq//>/ } )				# split sur > évite manip $IFS

		commands=( ${table[0]//|/ } )		# split sur |
		if [ "${table[1]}" ]; then
			package=${table[1]}
		else
			package=${commands[0]}				# pas de packages dans les options, donc idem commands[0]
		fi

		for command in "${commands[@]}"; do	# pour toutes les commandes
			if type -p "$command" &>/dev/null ; then
				unset commandsMissing packagesMissing
				break
			else	# inexistant
				commandsMissing+="$command "
				packagesMissing+="$package "
			fi
		done
	done

		# dédoublonnage & triage
	commandsMissing=$( echo "$commandsMissing" | tr ' ' '\n' | sort --unique | tr '\n' ' ' )
	packagesMissing=$( echo "$packagesMissing" | tr ' ' '\n' | sort --unique | tr '\n' ' ' )
		# suppression éventuel espace final
	commandsMissing=${commandsMissing% }
	packagesMissing=${packagesMissing% }
		# affichage final
	if [ "$commandsMissing" ] && [ "$ENV_DEBIAN" ]; then
		$c_echo "${RED}erreur critique, manquant: $STD$BOLD$commandsMissing" \
						"vous devriez exécuter:$GREEN apt install $packagesMissing"
	elif [ "$commandsMissing" ]; then
		$c_echo "${RED}erreur critique, manquant: $STD$BOLD$commandsMissing"
	fi

	[ "$commandsMissing" ] && return 1 || return 0
}

	# $@=cmd à lancer en root avec su ou sudo. si $@ contient [':x:'] x=nombre de tentatives, 3 par défaut
	# si sudo si possible sera utilisé. 
	# si su &2 redirigé sur &1
	# si bash inexistant, return 2
f__sudo(){		# 06/03/2018
	local nb sudo isudo options nbDefault=3

		# détermination sudo possible
	if sudo -v &>/dev/null && [ $EUID -ne 0 ] ; then
		sudo="sudo su --preserve-environment -c "
	else
		sudo="su --preserve-environment -c "
	fi
		# extraction nb de tentatives éventuel
	if [[ "$*" =~ :.{1,2}: ]]; then
		nb="$*"
		nb=${nb#*:}
		nb=${nb%:*}
		options=${*//:$nb:/ }
		(( nb+1 )) 2>/dev/null || nb="$nbDefault"	# test si numérique, sinon, 
	else
		nb="$nbDefault"
		options="$*"
	fi
		# lancement cmds
	if [[ "$sudo" =~ ^sudo ]]; then
			$sudo "$options"
	else
		for (( isudo=1 ; isudo<="$nb" ; isudo++ )); do 
			echo -en "\n[su]   Mot de passe root : "
			$sudo "$options" 2>/dev/null && break
			[ "$isudo" == "$nb" ] && return 1
		done
		echo
	fi
}

	# test connectivité ping, $1=-4|-6, par défaut -4, return 1 si échec
f__test_cnx(){		# 08/03/2018
	local proto="-4" cmd_ping iip timeout
	declare -a ping_test

	if [ "$1" == "-6" ]; then
		proto="-6"
		ping_test=(
			2001:41d0:2:73d4::100  		# ns10.fr.dns.opennic.glue
			2a00:6d40:60:6a7f::1   		# ns1.tus.it.dns.opennic.glue
			2001:41d0:302:2100::949		# ns1.hau.fr.dns.opennic.glue
			2001:910:800::12			# ns0.fdn.fr
			2001:67c:2178:8::16			# conncheck.opensuse.org
			2001:910:800::40			# ns1.fdn.fr
		)
		#~ [ -h "$( type -p ping6 2>/dev/null )" ] && cmd_ping="ping -6" || cmd_ping="ping6"
	else
		ping_test=(
			51.254.141.22		# ns1.hau.fr.dns.opennic.glue
			94.177.171.127		# ns1.tus.it.dns.opennic.glue
			87.98.175.85		# ns10.fr.dns.opennic.glue
			80.67.169.12		# ns0.fdn.fr
			195.135.221.140		# conncheck.opensuse.org
			80.67.169.40		# ns1.fdn.fr
		)
		#~ [ -h "$( type -p ping4 2>/dev/null )" ] && cmd_ping="ping -4" || cmd_ping="ping4"
	fi
	for timeout in 1 0; do		# 2 passes, timeout 1s, si fail, timeout standard
		cmd_ping="ping -c1 -w$timeout"
		for iip in "${ping_test[@]}"; do
			if eval "$cmd_ping" "$iip" &>/dev/null ; then
				return 0		# sortie quand ok
				break 2
			else
				echo -e "\t ip de test connectivité en échec ($iip)" 1>&2
			fi
		done
	done
	return 1		# sortie en échec
}

	# user ayant initié la session graphique, assigne $fu_user
	# return 1 sur échec identification user, return 2 sur absence home/
	# gestion variable environnement user avec: USER_INSTALL=<user> script
f__user(){		# 08/03/2018
	local user userid root_login

	root_login="$(grep ':0:' /etc/passwd | cut -d':' -f1)" || root_login="root"
	if [ "$USER_INSTALL" ]; then 	# user via variable environnement, moyen d'injecter root si pb 
		fu_user="$USER_INSTALL"; 
		return 0
	elif [[ "$TERM" =~ linux ]]; then	#debian 9 recovery ou nomodeset TERM=linux
		if [ "$USER" ]; then
			user="$USER"
		elif [ "$EUID" -eq 0 ]; then
			fu_user="$root_login"
			return 0
		fi
	fi
	if [ "$SUDO_UID" ]; then 
		userid="$SUDO_UID"; 
	elif grep -qEo '[0-9]+' <<< "$XDG_RUNTIME_DIR" ; then 
		userid=$( grep -Eo '[0-9]+' <<< "$XDG_RUNTIME_DIR" | cut -d'/' -f4 )
	else
		userid=$( grep -Eo '[0-9]+' <<< "$XAUTHORITY" | cut -d'/' -f4 )
	fi
	[ "$userid" ] && user=$( grep "$userid" /etc/passwd | cut -d ":" -f 1 )
	if [ "$user" ] && [ "$user" != "$root_login" ]; then
		fu_user="$user"
		return 0
	else
		if [ "$SUDO_USER" ] && [ "$SUDO_USER" != "$root_login" ]; then 
			user="$SUDO_USER"; 
		elif who | grep -qv 'root'; then 
			user=$( who | grep -v 'root' | head -n1 | cut -d ' ' -f1 );	# who | grep -v 'root' | awk 'FNR==1{print $1}'
		else
			user=$( grep -m1 'hourly.*get[A-Z].*\.anacrontab.*\.config/anacron/spool' /etc/crontab | cut -d' ' -f2 );
		fi
	fi
	fu_user="$user"
	[ "$fu_user" ] || return 1
	[ -d "/home/$fu_user" ] || return 2
	return 0
}

	# $1='-l' comptage ligne dans variable $2, affiche quantité
	# $1='-w' comptage dans variable $2 des mots
	# $1='-wv' comptage dans variable $2, des mots $3, affiche quantité
	# f__wcv -l $var ;  f__wcv -w $var  ;  f__wcv -wv $var "mot"
f__wcv(){		# 09/03/2018

	[[ "$1" =~ -l|-wv|-w  ]] || echo "erreur f__wcv \$1 ($1) incorrect"
	if [ "$1" == "-l"  ]; then
		grep -cEv '^[[:space:]]*$' <<< "$2"		# (wc -l compterait 1 pour une variable vide)
	elif [ "$1" == "-w"  ]; then
		result=$( xargs <<< "$2" | grep -o '[[:graph:]][[:blank:]][[:graph:]]' | grep -c ' ' )
		[ "$result" -ne 0 ] && result=$(( result+1 ))
		echo "$result"
	elif [ "$1" == "-wv"  ]; then
		grep -o "$3" <<< "$2" | grep -c  .
	fi
}

	# test wget, $1=url à tester, $2=''|print|loc|test
	# par défaut, sortie du script (même si url testée ok) avec affichage erreur ou ok
	# si $2=print affiche url testée & entêtes http & location, return 0
	# si $2=loc affiche seulement location, return 0
	# si $2=test return 0 si ok, return 1 si KO
f__wget_test(){		# 22/02/2018
	local file_test_wget="/tmp/testWget-$script" retourWget retourHttp location

	wget -Sq --timeout=5 --tries=2 --user-agent="$user_agent" --spider --save-headers "$1" &>"$file_test_wget"
	retourWget="$?"
	[ "$retourWget" == 1 ] && retourWget="1: code erreur générique"
	[ "$retourWget" == 2 ] && retourWget="2: parse erreur (ligne de commande?)"
	[ "$retourWget" == 3 ] && retourWget="3: erreur Entrée/sortie fichier"
	[ "$retourWget" == 4 ] && retourWget="4: défaut réseau"
	[ "$retourWget" == 5 ] && retourWget="5: défaut vérification SSL"
	[ "$retourWget" == 6 ] && retourWget="6: défaut authentification"
	[ "$retourWget" == 7 ] && retourWget="7: erreur de protocole"
	[ "$retourWget" == 8 ] && retourWget="8: réponse serveur en erreur"
	retourHttp=$( grep -i 'HTTP/' "$file_test_wget" | tr -d '\n' | xargs )
	location=$( grep -i 'location' $file_test_wget | xargs )
	if [ "$2" == "test" ]; then
		rm -f "$file_test_wget"
			# spécial maintenance frama.link, pas de redirection sur page status framalink
		grep -q '303' <<< "$retourHttp" && return 1			# 303 See Other
		[ "$retourWget" == "0" ] && return 0 || return 1
	fi
	if [ "$2" == "print" ]; then
		if [ "$retourWget" != "0" ]; then
			echo "  erreur wget: erreur $RED$retourWget" 
			echo -e "$BLUE  $1$STD\t$RED  $retourHttp$STD"
		else
			echo -e "$BLUE  $1$STD\t$GREEN  $retourHttp$STD" 
		fi
	fi
	if [ "$2" == "print" ] || [ "$2" == "loc" ]; then
		[ "$location" ] && echo -n "$YELLOW  $location" || echo -n "$YELLOW  no location"
		echo "$STD"
		rm -f "$file_test_wget"
		return 0
	fi
	if [ "$retourWget" != "0" ]; then
		rm -f "$file_test_wget"
		f__error "wget, erreur $retourWget" "$1" "$YELLOW$retourHttp" "$location"
		echo -e "$RED   erreur wget, $retourWget \n  $1 \n  $YELLOW$retourHttp \n  $location$STD" # pour les diags
		return 1
	fi
	if grep -q '200' <<< "$retourHttp"; then 
		echo -e "$GREEN\ntout est ok, réessayer$STD\n"
	fi
	rm -f "$file_test_wget"
	exit 0
}

f_affichage(){		# 09/03/2018
	local affichage_text="              _   ___       
    __ _  ___| |_|_ _|_ __  
   / _' |/ _ \ __|| || '_ \ 
  | (_| |  __/ |_ | || |_) |
   \__, |\___|\__|___| .__/ 
   |___/             |_|"

	(( x_logo == 1 )) && return
	x_logo=1
	clear
	echo "$BLUE$affichage_text"
	tput cuu1						# une ligne plus haut
	tput cuf 10						# 10 caractères à droite
	echo -n "$YELLOW$version"
	tput cuf 10						# 10 caractères à droite
	echo -e "$date$STD\n"
}

f_help(){		# 24/01/2018
	local ligne help=(
		"-----------------------------------------------------------------------"
		"${GREEN}./getIp$STD : exécution script"
		"${GREEN}getIp$STD   : exécution script installé dans le système"
		""
		"ce script requiert une des commandes suivantes pour déterminer l'ip publique:"
		"   dig (dnsutils) | wget | curl | telnet | nc"
		""
		"$BOLD""options:$STD"
		"$BLUE  -4$STD, --ip4     : affiche ipv4 public"
		"$BLUE  -6$STD, --ip6     : affiche ipv6 public"
		"$BLUE  -46$STD --public  : affiche ipv4 & ipv6 public"
		"$BLUE  ''$STD, --local   : affiche adresses mac / ip privées / passerelle"
		"$BLUE  -us$STD           : upgrade spécial du script en place (sans être installé)"
		"-----------------------------------------------------------------------"
		"$BLUE./$script -i$STD          : installation du script dans le système $RED(root)$STD"
		"$BLUE$script -h$STD, --help    : affichage aide"
		"$BLUE$script -r$STD, --remove  : désinstallation du script $RED(root)$STD"
		"$BLUE$script -u$STD, --upgrade : mise à jour script"
		"$BLUE$script -v$STD, --version : version du script"
		)

	tput cuu1						# une ligne plus haut
	for ligne in "${help[@]}"; do
		echo -e "  $ligne"
	done
	echo -e "$STD\n  plus d'infos: $GREEN$url_notice\n$STD"
}

	# f_pr "1|2|3|titre1|titre2|hl|quote|flush" "texte" '[CONDITION test]'
	# 	$1: 
	# 		1|2|3 indentation, liste à puce, une puce par ligne
	# 		l1|l2|l3 ligne, indentation, avec espaces
	# 		titre1|titre2|titre3
	# 		quote|hl|flush
	# 	$2 texte à afficher
	# 	$3 test éventuel, Si CONDITION ok -> affichage
	# 	ATTENTION aux éventuelles collision $x dans ce cas:
	#	"[ \"$1\" != \"notitre\" ]"	ou	"[ $1 != notitre ]" (attention au manque de ")
	# flush (f_pr flush) inutile si f_d(x) final
	# $1 type, $2 texte, [$3] test	/!\ assigne la variable parent $text
f_pr(){		# 09/03/2018
	local preline='' line='' endline="  \n" 

	[[ "$1" == 'titre1' ]] && preline="        $GREEN"
	[[ "$1" == 'titre1' ]] && endline+="$STD"
	[[ "$1" == 'titre2' ]] && preline+="$BOLD"
	[[ "$1" == 'titre2' ]] && endline+="$STD"
	[[ "$1" == 'l1' ]] && line="$( sed -E 's/(.*)/\1/  ' <<< "$2" )"
	[[ "$1" == 'l2' ]] && line="$( sed -E 's/(.*)/  \1/  ' <<< "$2" )"
	[[ "$1" == 'l3' ]] && line="$( sed -E 's/(.*)/    \1/  ' <<< "$2" )"
	[[ "$line" ]] || line="$2"			# utilisation $2 sans traitement à faire

	if [[ "$3" ]]; then
		eval "$3" || return 0				# évaluation de la CONDITION, si erreur: sortie
	fi
	if [[ "$1" == "hl" ]]; then			# <hl>
		text+="\n---\n\n"
	elif [[ "$1" ]]; then
		text+="$preline$line$endline"	# ligne formatée
	else
		text+="\n"						# newline
	fi
}

fi_ip(){		# 09/03/2018
	local ifn_p4 text

	figet_ip "-4" || f__error "iproute2 doit être installé" "il remplace net-tools qui n'est plus développé"
	ifn_p4="$fg_ifn_prior"
	f_pr titre1 "IPv4"
	f_pr l2 "$fg_ip" 
	f_pr
				if [ "$(f__wcv "-l" "$fg_gws")" -gt 1 ]; then pluriel="s"; else unset pluriel; fi
	f_pr l2 "passerelle$pluriel: ${fg_gws//$'\n'/ ⊗ }"
	f_pr
	figet_ip "-6"
	f_pr titre1 "IPv6"
	f_pr l2 "$fg_ip" 
	f_pr
				if [ "$(f__wcv "-l" "$fg_gws")" -gt 1 ]; then pluriel="s"; else unset pluriel; fi
	f_pr l2 "passerelle$pluriel: ${fg_gws//$'\n'/ ⊗ }"
	f_pr
				if [ "$(f__wcv "-w" "$fg_ifn_prior")" -gt 1 ]; then pluriel="s"; else unset pluriel; fi
	f_pr l2 "interface$pluriel sortante$pluriel ipv6: $fg_ifn_prior" '[ "$fg_ifn_prior" ]'
				if [ "$(f__wcv "-w" "$ifn_p4")" -gt 1 ]; then pluriel="s"; else unset pluriel; fi
	f_pr l2 "interface$pluriel sortante$pluriel ipv4: $ifn_p4" '[ "$ifn_p4" ]'
	f_pr
				if [ "$(f__wcv "-l" "$fg_mac")" -gt 1 ]; then pluriel="s"; else unset pluriel; fi
	f_pr titre1 "adresse$pluriel Mac:"
	f_pr l2 "$fg_mac" 
	f_pr 							'[ "$fg_ip_deprec" ]'
	f_pr titre1 "ipv6 dépréciées:"	'[ "$fg_ip_deprec" ]'
	f_pr l2 "$fg_ip_deprec" 		'[ "$fg_ip_deprec" ]'
	f_pr 							'[ "$fg_ip_deprec" ]'

	echo -en "$text\n" #>> "$fileOutput"
}

	# $1=-4|-6|-46 protocole
fi_ip_pub(){		# 09/03/2018
	local itest option="$1"

	option=${option//-46/-4 -6}
	for itest in $option; do
		itest=-${itest//-}
		if figet_ip_pub "$itest" ; then
			echo "$BOLD$fg_ip_pub$STD"
		else
			echo "pas de connectivité ipv${itest#-}"
		fi
	done
}

	# $1=-4|-6, assigne $fg_ip, $fg_gws, $fg_ifn, $fg_mac, fg_ip_deprec (ipv6)
figet_ip(){		# 06/03/2018
	local target ifn
	unset fg_ip fg_ip_deprec fg_gws fg_ifn_prior fg_ifn fg_mac 

	type -p ip &>/dev/null || return 1
	[ "$1" ] && proto="$1" || proto="-4"

		# adresses ip
	fg_ip=$( ip $proto -o address | awk -v proto="$proto" '
			BEGIN { if (proto == -6) larg=41; else larg=16 }
			/scope global/ {
				sub(/wl.*/,$2" (wifi)",$2); sub(/.*en.*|.*eth.*/,$2" (ethernet)",$2); 
				printf "%-17s: %-"larg"s ",$2,$4 
				if (proto == -6)  {
					match($0,/scope .*\\/); scope=substr($0,RSTART,RLENGTH)
						sub(/scope /,"",scope); sub(/\\/,"",scope)
					match($0,/preferred_lft .*sec/); lft=substr($0,RSTART,RLENGTH)
						sub(/sec/,"s",lft); sub(/preferred_lft/,"lft",lft)
					printf "(%s) %s \n",lft,scope }
				else printf "\n" }
			/fe80::/ {
				sub(/wl.*/,$2" (wifi)",$2)
				match($0,/scope .* \\/); scope=substr($0,RSTART,RLENGTH); sub(/scope /,"",scope); sub(/ \\/,"",scope)
				link=link"\n"sprintf("%-17s: %-22s  %s",$2,$4,scope) }
			/ lo / { lo=sprintf("%s (loopback)    : %s",$2,$4) }
			END { printf "%s\n%s",link,lo }
		' )
			# ipv6, traitemenent adresses dynamiques
	if [ "$proto" == "-6" ]; then
		fg_ip_deprec=$( sed -n '/temporary deprecated dynamic/p' <<< "$fg_ip" )
		fg_ip=$( sed '/temporary deprecated dynamic/d; /preferred_lft 0sec/d' <<< "$fg_ip" )
	fi 

		# passerelles
	fg_gws=$( ip $proto route | awk '
			BEGIN { if (proto == -6) larg=42; else larg=12 }
			/default via/ { printf "%-"larg"s  (%s)\n",$3,$5 }
		' )
		# interface sortante
	if [ "$proto" == "-6" ]; then
		target=$( ip $proto -o route | awk '/proto ra / { print $1; exit}' )
		if [ "$target" ]; then
			fg_ifn_prior=$( ip $proto route get "$target" | sed -En 's/.*dev (.*) proto.*src ([0-9a-f:]+).*/\1 (\2)/p' )
		fi
	else
		fg_ifn_prior=$( ip $proto route get 255.255.255.255 | sed -En 's/.*dev (.*) src ([0-9.]+) .*/\1 (\2)/p' )
	fi
		# ifnames & mac
	fg_ifn="" fg_mac=""
	for ifn in $( f__dir -l /sys/class/net/ ) ; do 
		if [ "$ifn" != "lo" ]; then
			fg_ifn+="$ifn "
			fg_mac+="$ifn: $( cat "/sys/class/net/$ifn/address" )"$'\n'
		fi
	done
	fg_ifn=${fg_ifn% }					# suppression dernier espace
	fg_mac=${fg_mac%[[:cntrl:]]}		# suppression dernier $'\n'
}

	# $1=-4|-6, assigne $fg_ip_pub
figet_ip_pub(){		# 08/03/2018
	local dig_test ip_test telnet_test iip

	list_ip4(){			# testé 11/12/2017

		ip_test=(	# pas de https
			http://whatismyip.akamai.com
			http://eth0.me
			ipinfo.io/ip					# http & https
			http://alma.ch/myip.cgi			# peu fiable curl
			http://checkip.amazonaws.com	# peu fiable wget
			api.infoip.io/ip				# http & https fiable wget
			api.ipify.org					# http & https fiable wget
			http://ipecho.net/plain			# peu fiable wget / curl
		#	http://ipof.in/txt				# fail wget
		)
		dig_test=(
			whoami.akamai.net/@ns1-1.akamaitech.net
			myip.opendns.com/@resolver1.opendns.com
			myip.opendns.com/@resolver2.opendns.com
			myip.opendns.com/@resolver3.opendns.com
			myip.opendns.com/@resolver4.opendns.com
		)
		telnet_test=( 212.83.150.199 4.ifcfg.me )
	}
	list_ip6(){			# testé 11/12/2017

		ip_test=(
			http://ipv6.whatismyip.akamai.com
			ip.tyk.nu							# http & https
			wgetip.com							# http & https
			l2.io/ip							# http & https peu fiable wget
			icanhazip.com						# http & https peu fiable wget
			http://bot.whatismyipaddress.com	# peu fiable wget
			https://canhazip.com				# peu fiable wget
			https://tnx.nl/ip					# peu fiable wget
			ident.me							# http & https peu fiable curl
		)
		dig_test=(
		-6/myip.opendns.com/aaaa/@resolver1.ipv6-sandbox.opendns.com
		-6/myip.opendns.com/aaaa/@resolver2.ipv6-sandbox.opendns.com
		)
		telnet_test=( 2001:bc8:3cc9:100::1 6.ifcfg.me )
	}

	unset fg_ip_pub
		# assignation variables & test connectivité
	if [ "$1" == "-4" ]; then
		f__test_cnx "-4" || return 1			# test connectivité ipv4
		list_ip4
	elif [ "$1" == "-6" ]; then
		f__test_cnx "-6" || return 1			# test connectivité ipv6
		list_ip6
	fi
		# TELNET
	if type -p telnet &>/dev/null && [ -z "$fg_ip_pub" ]; then
		for iip in "${telnet_test[@]}"; do
			fg_ip_pub=$( telnet "$iip" 23 2>/dev/null )
			fg_ip_pub=${fg_ip_pub#*Your IP*is }
			[ "$fg_ip_pub" ] && break
		done
	fi
		# DIG
	if type -p dig &>/dev/null && [ -z "$fg_ip_pub" ]; then
		for iip in "${dig_test[@]}"; do
			fg_ip_pub=$( eval dig +short "${iip//\// }" )
			[ "$fg_ip_pub" ] && break
		done
	fi
		# WGET
	if type -p wget &>/dev/null && [ -z "$fg_ip_pub" ]; then 
		cmd="wget --quiet --tries=1 -o /dev/null -O - "
		for iip in "${ip_test[@]}"; do
			fg_ip_pub=$( eval "$cmd" "$iip" )
			[ "$fg_ip_pub" ] && break
		done
	fi
		# CURL
	if type -p curl &>/dev/null && [ -z "$fg_ip_pub" ]; then
		cmd="curl --silent --location --retry 0 "
		for iip in "${ip_test[@]}"; do
			fg_ip_pub=$( eval "$cmd" "$iip" )
			[ "$fg_ip_pub" ] && break
		done
	fi
		# NC
	if type -p nc &>/dev/null && [ -z "$fg_ip_pub" ] && [ "$1" == "-4" ]; then
		for iip in "${telnet_test[@]}"; do
			fg_ip_pub=$( nc "$iip" 23 2>/dev/null )
			fg_ip_pub=${fg_ip_pub#*Your IP*is }
			[ "$fg_ip_pub" ] && break
		done
	fi

	if [ -z "$fg_ip_pub" ]; then 
		f__error "il manque une des commandes suivantes:\n" \
			"dig / wget / curl / telnet / nc ?\n" \
			"ou les ip de test sont devenues défaillantes ?\n" \
			"réessayer avant de d'approndir les diagnostiques"
	fi
}

	# anacron hebdomadaire, via cron horaire, $1=upgrade|install|remove
fscript_cronAnacron(){		# 07/03/2018
	local dirAnacron dirSpool fileAnacron

	type -t fscript_cronAnacron_special &>/dev/null && fscript_cronAnacron_special	# test, si fonction spécifique, appel
	dirAnacron="/home/$fu_user/.config/anacron"
	dirSpool="$dirAnacron/spool"
	fileAnacron="$dirAnacron/$script.anacrontab"
	[ "$EUID" -eq 0 ] && sed -i "/$script.anacrontab/d" /etc/crontab
	case "$1" in 
		install | upgrade )
			mkdir -p  "$dirAnacron"
				# table anacron
			echo "7 10 $script nice $script_install --upgrade 1>/dev/null" > "$fileAnacron"	# juste erreurs en syslog
				## anacron journalier pour dev logname 
			if [ -e "$fileDev" ]; then
				echo "1 00 $script""Dev nice $script_install --upgrade 1>/dev/null" >> "$fileAnacron"
			fi
				# création spool anacron utilisateur
			mkdir -p "$dirSpool"
			chown -R "$fu_user:" "$dirAnacron" "$dirSpool"
			if [ "$EUID" -eq 0 ]; then
					# crontab pour activation horaire anacron
				echo "@hourly $fu_user /usr/sbin/anacron -t $fileAnacron -S $dirSpool" >> /etc/crontab
			fi
			grep -q "$script" "/etc/crontab" || echo f__error "inscription crontab"
		;;
		remove )
			rm -f "${dirSpool:?}/$script"*  2>/dev/null
			rm -f "$fileAnacron"
			rmdir "$${dirSpool:?}" "${dirAnacron:?}" 2>/dev/null
		;;
	esac
}

	# [$1=quiet], assigne $ver_script_install, $ver_script_online, $script_a_jour=ok|KO
# shellcheck disable=SC2120
# SC2120 function references arguments, but none are ever passed. (quiet)
fscript_get_version(){		# 06/03/2018
	x_script_get_version=1

		# version online
	if ! ver_script_online=$( wget -q --timeout=15 -o /dev/null -O - "$url_script" | grep -m1 '^version=' | cut -d'=' -f2 ); then
		f__wget_test "$url_script"
	fi
		# version installée
	if [ -e "$script_install" ]; then
		ver_script_install=$( grep -m1 '^version=' "$script_install" | cut -d'=' -f2 )
	fi

	if [[ "$ver_script_online" && "$script_install" ]]; then 
		[ "$ver_script_install" != "$ver_script_online" ] && script_a_jour="KO" || script_a_jour="ok"
	fi
	[ "$ver_script_online" ] || ver_script_online="${RED}n/a"
	[ "$ver_script_install" ] || ver_script_install="Non installé"
	[ "$1" == "quiet" ] && return 0

	f__info "raw" "script en place: $GREEN$ver_script_install"
	f__info "script en ligne: $YELLOW$ver_script_online"
}

fscript_install(){		# 24/02/2018

	if grep -Eq "$script_install|/usr/bin/$script" <<< "$0"; then
		f__info "${RED}l'installation dans le système doit se faire depuis le script non installé $GREEN(./$script -i )"
		return 1
	fi
	type -t fscript_install_special &>/dev/null && fscript_install_special	# test, si fonction spécifique, appel
	f__requis "wget anacron cron" || exit 1 
		# install /opt
	mkdir -p /opt/bin/
	cp -d "$0" "$script_install"
	ln -s "$script_install" "/usr/bin/$script" &>/dev/null
	chmod 775 "$script_install"	# rwx rwx r-x, proprio fu_user
		# cron/anacron install
	fscript_cronAnacron "install"
		# création fichier log
	touch "$script_logs"
	chmod 664 "$script_logs"	# rw- rw- r--, proprio fu_user
	chown "$fu_user:" "$script_logs" "$script_install"
	[ -e "$fileDev" ] || rm -f "$0"			## on efface pas si fileDev (dev)

	f__info "log" "$script $version installé dans le système." "maintenant, appel du script par: $GREEN$script$BLUE (sans ./)"
}

fscript_remove(){		# 24/02/2018

	if ! grep -Eq "$script_install|/usr/bin/$script" <<< "$0"; then
		f__info "${RED}cette fonction doit être appelée depuis le script installé dans le système $GREEN($script -r)"
		return 1
	fi
	if [ ! -x "$script_install" ];then
		f__info "$RED$script n'est pas installé"
		return 1
	fi

	type -t fscript_remove_special &>/dev/null && fscript_remove_special	# test, si fonction spécifique, appel
		# suppression /opt, lien /usr/bin
	rm -f "$script_install"
	unlink "/usr/bin/$script" &>/dev/null
		# cron/anacron remove
	fscript_cronAnacron "remove"

	f__info "log" "$script $version supprimé du système."
}

	# si upgrade en place, $1 != "", [$1 message info]
# shellcheck disable=SC2120
# function references arguments, but none are ever passed.
fscript_update(){		# 09/03/2018
	local dirTemp="/tmp/$script-maj" upgradeEnPlace="$1"

	type -t fscript_update_special &>/dev/null && fscript_update_special	# test, si fonction spécifique, appel
	if [ -z "$upgradeEnPlace" ] && ! grep -Eq "$script_install|/usr/bin/$script" <<< "$0"; then
		f__info "${RED}cette fonction doit être appelée depuis le script installé dans le système $GREEN($script -u)"
		return 1
	fi
	(( x_script_get_version == 1 )) || fscript_get_version
	if [ "$script_a_jour" == "ok" ]; then 
		f__info "log" "pas de mise à jour disponible pour $script $version"
		return 0
	else
		f__info "mise à jour en cours"
	fi
	mkdir -p "$dirTemp"
	if ! wget -q --tries=2 --timeout=15 -o /dev/null -O "$dirTemp/$script" "$url_script"; then
		rm -fr "$dirTemp"
		f__wget_test "$url_script"
	fi
	if grep -q '#!/bin/bash' "$dirTemp/$script" && grep -q '^### END CONTROL' "$dirTemp/$script"; then 
		cp -d "$dirTemp/$script" "$script_install"
		chmod 775 "$script_install"	# rwx rwx r-x, proprio fu_user
		chown "$fu_user:" "$script_install"
		[ -z "$upgradeEnPlace" ] && fscript_cronAnacron "upgrade"
		f__info "log" "$script mis à jour en version $ver_script_online $upgradeEnPlace"
	else
		f_info "log" "$script: échec update" "mauvais téléchargement, réessayer plus tard"
	fi
	rm -fr "$dirTemp"
}

test_user(){		# 09/03/2018

		# détermination user derrière root
	f__user
	retourFUser="$?"
	[ "$retourFUser" -eq 1 ] && f__error "user indéterminé" \
		"pour contourner, lancer le script avec:\n$GREEN  USER_INSTALL=<user> $0 \n"
	if [ "$retourFUser" -eq 2 ]; then
		if [ "$EUID" -eq 0 ]; then
			fu_user="root"
		else
			f__error "user détecté, mais pas de home: /home/$fu_user"
		fi
		f__info "user root"
	fi
}

# shellcheck disable=SC2034
# SC2034 foo appears unused. Verify it or export it.
prg_init(){		# 09/03/2018

	PATH='/usr/sbin:/usr/bin:/sbin:/bin' 
	TERM=xterm  
	IFS_INI="$IFS"
	IFS=$' \t\n'
	export PATH TERM IFS

		# options bash figées
	shopt -s checkwinsize complete_fullquote extglob extquote interactive_comments sourcepath
	shopt -u force_fignore execfail failglob

		# test bash v4
	[ "${BASH_VERSINFO[0]}" == 4 ] || f__error "bash v4 requis" "version installée: $BASH_VERSION"

		# requis pour fonctionnement programme
	f__requis "gawk|mawk>gawk wget ip>iproute2" || exit 1

		# définition couleurs
	f__color
}

######## début script / initialisation

	# tests au démarrage
prg_init

	# paramètres script
user_agent="Mozilla/5.0 Firefox"
fileDev="/opt/bin/fileDev"
script_install="/opt/bin/$script"
script_logs="/var/log/sdeb_$script.log"
url_script="https://framagit.org/kyodev/kyopages/raw/master/scripts/getIp"
url_notice="https://kyodev.frama.io/kyopages/scripts/getIp/"

options="$*"
[ "$options" ] || options="--local"

for j in $options; do
	case $j  in
		!(--public|-4|-6|-46|-64) ) 
			f_affichage
			echo
			;;&
		-i | --install | -r | --remove )
			if [ "$EUID" -ne 0 ]; then
				f__info "vous devez être$RED ROOT$BLUE pour cette opération"
				f__sudo "exec $0 $*"
				exit
			fi
			;;&
		-i | --install | -r | --remove | -u | --upgrade | -us )
			test_user ;;&
		-4 | --ip4 )										# affiche ip v4 public
			fi_ip_pub "-4" ;;
		-6 | --ip6 )										# affiche ip v6 public
			fi_ip_pub "-6" ;;
		-46 | -64 | --public )								# ip v4 & v6
			fi_ip_pub "-46" ;;
		--local )											# affiche ip locales
				fi_ip ;;
		-i | --install )									# installation du script dans le système
			fscript_install ;;
		-r | --remove )										# suppression du script dans le système
			fscript_remove ;;
		-u | --upgrade )									# upgrade script si maj possible
			operation="upgrade"		# log si f__error
			fscript_update
			exit ;;
		-us )												# upgrade spécial
			operation="upgrade"		# log si f__error
			script_install="$( dirname "$0" )/$script"
			fscript_update "update en place" 	# redéfinition répertoire install avec celui du script 
			exit ;;
		-v | --version )									# version du script, en ligne et exécuté
			fscript_get_version ;;
		-h | --help | * )									# affichage help
			f_help ;;
	esac
done

exit 0

### END CONTROL (contrôle chargement)

wget -nv -O getIp https://frama.link/getip
chmod +x getIp && ./getIp

wget -nv -O getIp https://framagit.org/kyodev/kyopages/raw/master/scripts/getIp