X-Git-Url: http://ftp.carnet.hr/carnet-debian/scm?p=carnet-tools-cn.git;a=blobdiff_plain;f=functions.sh;h=ed67fb04871d66bfcad810e49db4a22436845797;hp=06e42be40ffb895236213055f32efe777a4cc548;hb=HEAD;hpb=38de75c0ef647a2ecbe153fda14a3caae345497b diff --git a/functions.sh b/functions.sh index 06e42be..ed67fb0 100644 --- a/functions.sh +++ b/functions.sh @@ -1,141 +1,314 @@ +# Initialize "public" CP_ECHO_RETURN variable once +if [ -z "$_CP_INIT_ECHO_RETURN" ]; then + _CP_INIT_ECHO_RETURN=1 + CP_ECHO_RETURN="" +fi + # by ddzeko & ico, Fri, 18 Mar 2005 14:44:08 +0100 +# modified by irako, Mon, 02 Jul 2018 21:46:29 +0200 cp_get_ifaddr() { [ "$CP_SCRIPT_DEBUG" ] && set -vx - local ifaddr interface + + local ifaddr interface echo_return + echo_return="$CP_ECHO_RETURN" # since we're making our own calls + # in our own way we need to set CP_ECHO_RETURN the way we want it + # but preserving initial state so it could be used afterwards + CP_ECHO_RETURN="" interface="$1" - [ -z "$interface" ] && interface=lo + if [ -z "$interface" ]; then + cp_get_ifdefault dev + interface="$RET" + [ -z "$interface" ] && interface=lo + fi - if ! ifconfig $interface 2> /dev/null >> /dev/null; then - [ -z "$CP_ECHO_RETURN" ] || echo "cp_get_ifaddr: $interface: No such interface" - return 1 + #if ! ifconfig $interface 2> /dev/null >> /dev/null; then + if ! ip addr show $interface 2> /dev/null >> /dev/null; then + echo "cp_get_ifaddr: $interface: No such interface" 1>&2 + CP_ECHO_RETURN="$echo_return" + return 2 fi - ifaddr="`/sbin/ifconfig $interface | awk '/inet/{ printf("%s\n",substr($2,index($2,":")+1)) }'`" + #ifaddr="`/sbin/ifconfig $interface | awk '/inet /{ printf("%s\n",substr($2,index($2,":")+1)) }'`" + #ifaddr="`/sbin/ifconfig $interface | awk '/inet /{ printf($2) }'`" + ifaddr="`ip -o -4 addr show $interface scope global | awk '{print $4;}' | cut -d/ -f 1 | head -1`" if [ -z $ifaddr ]; then - [ -z "$CP_ECHO_RETURN" ] || echo "cp_get_ifaddr: $interface: No such ipaddress" + echo "cp_get_ifaddr: $interface: No ip address found" 1>&2 + CP_ECHO_RETURN="$echo_return" return 1 fi RET="$ifaddr" - [ -z "$CP_ECHO_RETURN" ] || echo $RET + [ -z "$echo_return" ] || echo $RET + CP_ECHO_RETURN="$echo_return" } # by ddzeko & ico, Fri, 18 Mar 2005 14:44:08 +0100 +# modified by irako, Mon, 02 Jul 2018 21:46:29 +0200 cp_get_ifmask() { [ "$CP_SCRIPT_DEBUG" ] && set -vx - local ifmask interface + + local ifmask interface echo_return cidr + echo_return="$CP_ECHO_RETURN" # since we're making our own calls + # in our own way we need to set CP_ECHO_RETURN the way we want it + # but preserving initial state so it could be used afterwards + CP_ECHO_RETURN="" interface="$1" - [ -z "$interface" ] && interface=lo + if [ -z "$interface" ]; then + cp_get_ifdefault dev + interface="$RET" + [ -z "$interface" ] && interface=lo + fi - if ! ifconfig $interface 2> /dev/null >> /dev/null; then - [ -z "$CP_ECHO_RETURN" ] || echo "cp_get_ifmask: $interface: No such interface" + #if ! ifconfig $interface 2> /dev/null >> /dev/null; then + if ! ip addr show $interface 2> /dev/null >> /dev/null; then + echo "cp_get_ifmask: $interface: No such interface" 1>&2 + CP_ECHO_RETURN="$echo_return" return 1 fi - ifmask="`/sbin/ifconfig $interface | awk '/Mask/{if($3~/Mask/)a=$3;else if ($4~/Mask/)a=$4;printf ("%s\n", substr(a,index(a,":")+1))}'`" + #ifmask="`/sbin/ifconfig $interface | awk '/Mask/{if($3~/Mask/)a=$3;else if ($4~/Mask/)a=$4;printf ("%s\n", substr(a,index(a,":")+1))}'`" + #ifmask="`/sbin/ifconfig $interface | awk '/netmask /{ printf($4) }'`" + cidr="`ip -o -4 addr show $interface scope global | awk '{print $4;}'`" + ifmask="`ipcalc -nb $cidr | awk '/^Netmask:/{print $2}'`" if [ -z "$ifmask" ]; then - [ -z "$CP_ECHO_RETURN" ] || echo "cp_get_ifmask: $interface: No such netmask" + echo "cp_get_ifmask: $interface: No netmask found" 1>&2 + CP_ECHO_RETURN="$echo_return" return 1 fi RET="$ifmask" - [ -z "$CP_ECHO_RETURN" ] || echo $RET + [ -z "$echo_return" ] || echo $RET + CP_ECHO_RETURN="$echo_return" } +# by ddzeko, Mon, 21 Mar 2005 07:00:22 +0100 +# modified by irako, Mon, 02 Jul 2018 21:46:29 +0200 +cp_get_ifdefault() { + [ "$CP_SCRIPT_DEBUG" ] && set -vx + + local echo_return + echo_return="$CP_ECHO_RETURN" # since we're making our own calls + # in our own way we need to set CP_ECHO_RETURN the way we want it + # but preserving initial state so it could be used afterwards + CP_ECHO_RETURN="" + + RET="" + case $1 in + dev) + #RET=`route -n | awk 'BEGIN {m = 2^32} + # /^0\.0\.0\.0[ \t]/ {if ($5 < m) {r = $8; m = $5}} + # END {print r}'` + RET=`ip route | grep ^default | awk '{print $5}'` + ;; + addr) + #RET=`route -n | awk 'BEGIN {m = 2^32} + # /^0\.0\.0\.0[ \t]/ {if ($5 < m) {r = $2; m = $5}} + # END {print r}'` + RET=`ip route | grep ^default | awk '{print $3}'` + ;; + *) + echo "cp_get_ifdefault: Argument required (dev or addr)" >&2 + ;; + esac + + [ -z "$RET" -a "$1" ] && echo "cp_get_ifdefault: No default route" >&2 + + [ -z "$echo_return" ] || echo $RET + CP_ECHO_RETURN="$echo_return" + [ -n "$RET" ] || return 1 +} # by ico, Tue, 15 Mar 2005 14:04:21 +0100 -cp_get_cidr() { +# modified by irako, Mon, 02 Jul 2018 21:46:29 +0200 +cp_get_netaddr() { [ "$CP_SCRIPT_DEBUG" ] && set -vx - local netmask ipaddress interface cidr + + local netmask ipaddress interface cidr echo_return + echo_return="$CP_ECHO_RETURN" # since we're making our own calls + # in our own way we need to set CP_ECHO_RETURN the way we want it + # but preserving initial state so it could be used afterwards + CP_ECHO_RETURN="" interface="$1" if [ -z "$interface" ]; then - interface="`route | awk '/^default/{print $8}'`" + cp_get_ifdefault dev + interface="$RET" [ -z "$interface" ] && interface=lo fi - if ! ifconfig $interface 2> /dev/null >> /dev/null; then - [ -z "$CP_ECHO_RETURN" ] || echo "cp_get_cidr: $interface: No such interface" + #if ! ifconfig $interface 2> /dev/null >> /dev/null; then + if ! ip addr show $interface 2> /dev/null >> /dev/null; then + echo "cp_get_netaddr: $interface: No such interface" 1>&2 + CP_ECHO_RETURN="$echo_return" return 1 fi - ipaddress="`get_ifaddr $interface`" + cp_get_ifaddr "$interface" + ipaddress="$RET" if [ -z $ipaddress ]; then - [ -z "$CP_ECHO_RETURN" ] || echo "cp_get_cidr: $interface: No such ipaddress" + echo "cp_get_netaddr: $interface: No IP address found" 1>&2 + CP_ECHO_RETURN="$echo_return" return 1 fi - netmask="`get_ifmask $interface`" + cp_get_ifmask "$interface" + netmask="$RET" if [ -z $netmask ]; then - [ -z "$CP_ECHO_RETURN" ] || echo "cp_get_cidr: $interface: No such netmask" + echo "cp_get_netaddr: $interface: No netmask found" 1>&2 + CP_ECHO_RETURN="$echo_return" return 1 fi - cidr="`ipcalc -n $ipaddress $netmask | grep Network: | awk '{print $2}'`" - + if [ "$netmask" = "255.255.255.255" ]; then + cidr="$ipaddress/32" + else + cidr="`ipcalc -nb $ipaddress $netmask | awk '/^Network:/{print $2}'`" + fi + RET="$cidr" - [ -z "$CP_ECHO_RETURN" ] || echo $RET + [ -z "$echo_return" ] || echo $RET + CP_ECHO_RETURN="$echo_return" +} + +cp_check_and_backup() { + [ "$CP_SCRIPT_DEBUG" ] && set -vx + + cp_backup_conffile -r "$@" } # by ico, Tue, 15 Mar 2005 14:04:21 +0100 cp_backup_conffile() { - [ "$DEBIAN_SCRIPT_DEBUG" ] && set -vx - local file_bak + [ "$CP_SCRIPT_DEBUG" ] && set -vx - if [ -z $1 ]; then - [ -z "$CP_ECHO_RETURN" ] || echo "Usage: cp_backup_conffile " - return 1 + local dir ext file_bak check did opt_p opt_d + + dir=/var/backups + ext=.bak + + while echo "x$1" |grep -q '^x-'; do + case "$1" in + -r) + shift + check=1 + ;; + -p) + shift + opt_p=1 + ;; + -d) + shift + opt_d=1 + # Is argument to -d full path or relative? + if echo "$1" |grep -q '^/'; then + dir="$1" + else + dir="$dir/$1" + fi + shift + ;; + -n) + shift + ext= + ;; + esac + done + if [ "$opt_d" ]; then + if [ ! -e "$dir" -a "$opt_p" ]; then + mkdir "$dir" + fi + if [ $? -ne 0 ]; then + echo "cp_backup_conffile: Error creating backup directory $dir" 1>&2 + return 3 + fi + fi + if [ ! -d "$dir" ]; then + echo "cp_backup_conffile: Invalid backup directory $dir" 1>&2 + return 3 fi - if [ ! -f $1 ]; then - [ -z "$CP_ECHO_RETURN" ] || echo "cp_backup_conffile: $1: No such file" + if [ -z "$1" ]; then return 1 fi + if [ ! -f "$1" ]; then + echo "cp_backup_conffile: $1: No such file" 1>&2 + return 2 + fi + if [ -z "$2" ]; then + file_bak="$dir/`basename $1`$ext" + else + file_bak="$dir/`basename $2`$ext" + fi - file_bak="/var/backups/`basename $1`.bak" - - if [ ! -f $file_bak ]; then - cp -pf $1 $file_bak + if [ ! -f "$file_bak" ]; then + cp -pf "$1" "$file_bak" + did=1 else - if ! cmp -s $1 $file_bak; then - /usr/bin/savelog -p -c 7 $file_bak > /dev/null 2> /dev/null - cp -pf $1 $file_bak + if ! cmp -s "$1" "$file_bak"; then + /usr/bin/savelog -p -c 7 "$file_bak" > /dev/null 2> /dev/null + cp -pf "$1" "$file_bak" + did=1 fi fi + + [ -z "$check" ] && return 0 + + if [ "$check" -a ! "$did" ]; then + return 3 + else + return 0 + fi } # by jelly, Tue, 15 Mar 2005 14:04:21 +0100 +# modified by ico, Mon, 6 Jun 2005 11:58:08 +0200 +# A sed wrapper, to use instead of perl -pi -e +# - relatively safe in-place s///g +# - takes care of symlinks and ownership +# returns true if changed, false if nothing happened +# cp_check_and_sed() { [ "$CP_SCRIPT_DEBUG" ] && set -vx - local s sedcmd ret i + + local s sedcmd grepret ret i + if [ -z "$3" ]; then + return 1 + fi s="$1" shift sedcmd="$1" shift ret=2 - for i in $* + for i in "$@" do [ -e "$i" ] || continue - egrep -q "$s" "$i" || continue + if ! egrep -q "$s" "$i"; then + grepret=1 + continue + fi [ -h "$i" ] && i=$(readlink -f "$i") sed "$sedcmd" "$i" > "$i.dpkg-tmp" - chown --reference "$i" "$i.dpkg-tmp" - chmod --reference "$i" "$i.dpkg-tmp" - if ! cmp -s "$i" "$i.dpkg-tmp"; then - mv "$i.dpkg-tmp" "$i" + if [ $? -ne 0 ]; then + rm "$i.dpkg-tmp" + echo "cp_check_and_sed: Problem with sed" 1>&2 + return 5 + fi + if ! cmp -s "$i" "$i.dpkg-tmp" 2>&1 >/dev/null; then + cp_mv "$i.dpkg-tmp" "$i" else rm "$i.dpkg-tmp" fi ret=0 done + [ "$ret" -eq 2 -a "$grepret" ] && ret=1 return $ret } # by jelly, Sun, 20 Mar 2005 20:12:19 +0100 cp_echo () { [ "$CP_SCRIPT_DEBUG" ] && set -vx + if [ "x$1" = "x-mailonly" -o "x$1" = "x-m" ]; then shift else @@ -151,20 +324,25 @@ cp_echo () { # by jelly, Sun, 20 Mar 2005 20:12:19 +0100 cp_mail () { [ "$CP_SCRIPT_DEBUG" ] && set -vx + local pkg version quiet if [ "x$1" = "x-q" ]; then quiet=1 shift fi - [ -n "$1" ] && pkg="$1" # barf if no package - [ -n "$2" ] && version=" $2" || true + if [ -n "$1" ]; then + pkg="$1" + else + return 1 # must have at least the package name as argument + fi + [ -n "$2" ] && version=" $2" if [ "$(echo $CP_NOTICE|wc -w)" -gt 0 ]; then [ -n "$quiet" ] || echo "Mailing upgrade output to root." CP_NOTICE="From: $pkg postinst script To: root Subject: $pkg$version package install log -Date: $(/bin/date +'%a, %d %b %Y %H:%M:%S %z') - +Date: $(LC_ALL=C /bin/date --rfc-2822) + Hello! The $pkg package has been successfully installed on your computer. @@ -172,10 +350,243 @@ For your convenience, a partial output of the last $pkg installation is included below. ---------- -$CP_NOTICE -----------" +${CP_NOTICE}----------" + + if [ -x /usr/sbin/sendmail ]; then + echo "$CP_NOTICE" | /usr/sbin/sendmail -t -oi & + sleep 1 + fi + fi +} + +# by ddzeko, Mon, 21 Mar 2005 11:31:59 +0100 +cp_mv () { + [ "$CP_SCRIPT_DEBUG" ] && set -vx + + local new old + if [ -z "$2" ]; then + return 1 + fi + new="$1" + old="$2" + if [ -e "$old" ]; then + chown --reference "$old" "$new" + chmod --reference "$old" "$new" + cp -pf "$old" "$old.cn-old" + fi + mv "$new" "$old" +} + +# by ddzeko, Mon, 21 Mar 2005 13:35:42 +0100 +cp_yes_no () { + [ "$CP_SCRIPT_DEBUG" ] && set -vx + local prompt answer + prompt="$1" + [ "$prompt" ] || prompt="Are you sure?" + RET="" + + # check to prevent user from using this when debconf is active + # (it would break communication with its backend - uses stdin/out) + if [ "$DEBCONF_REDIR" ]; then + echo "cp_yes_no: debconf redirection detected" >&2 + return 1 + fi + + echo -n "$prompt (y)es/(n)o: " + read answer + case "$answer" in + Y*) + echo + RET=y + ;; + N*) + echo + RET=n + ;; + y*) + echo + RET=y + ;; + n*) + echo + RET=n + ;; + *) + echo + echo "Please read the message and choose y or n" + cp_yes_no "$prompt" + ;; + esac +} + +# by ddzeko, Tue, 29 Mar 2005 17:37:52 +0200 +# +# db_get seems to return error messages if the requested variable +# is not found - we do not find that desirable, and checking $? with +# set -e turned on seems to be a bit of a problem +# --> that's why we wrap the db_get call to return unset RET variable +# instead of some gibberish error message that our script does +# not expect +cp_db_get() { + [ "$CP_SCRIPT_DEBUG" ] && set -vx + + local var + var="$1" - echo "$CP_NOTICE" | /usr/sbin/sendmail -t & - sleep 1 + # check to prevent user from using this before activating debconf + # confmodule needs to be loaded before accessing db_* functions + if [ -z "$DEBCONF_REDIR" ]; then + echo "cp_db_get: debconf not activated!" >&2 + return 1 + fi + + if ! db_get "$var"; then + case "$RET" in + *doesn\'t\ exist) + RET="" + ;; + [0-9][0-9]\ ?*) # other errors + RET="" + ;; + esac + fi +} + +# by ico, Wed, 07 Dec 2011 13:30:02 +0100 +cp_get_ldap_suffix() { + [ "$CP_SCRIPT_DEBUG" ] && set -vx + + local echo_return + echo_return="$CP_ECHO_RETURN" # since we're making our own calls + # in our own way we need to set CP_ECHO_RETURN the way we want it + # but preserving initial state so it could be used afterwards + CP_ECHO_RETURN="" + + RET="" + + if [ -d /etc/ldap/slapd.d/ ]; then + RET="`grep -r olcSuffix: /etc/ldap/slapd.d/ | awk '{print $2}' | head -1`" + elif [ -f /etc/ldap/slapd.conf ]; then + RET="`awk '/^suffix/ { exit } + END { gsub(/"/, "", $2); print $2 }' \ + < /etc/ldap/slapd.conf`" + else + RET="" + echo "cp_get_ldap_suffix: /etc/ldap/slapd.{d/,conf}: No such file or directory" >&2 + return 2 + fi + + if [ "`echo $RET | sed 's/,/ /g' | wc -w`" -gt 2 ]; then + RET="" + echo "cp_get_ldap_suffix: Invalid LDAP suffix in /etc/ldap/slapd.d/" >&2 + return 2 + fi + + [ -z "$RET" ] && echo "cp_get_ldap_suffix: No LDAP suffix in /etc/ldap/slapd.{d/,conf}" >&2 + [ -z "$echo_return" ] || echo $RET + CP_ECHO_RETURN="$echo_return" +} + +# by ico, Wed, 20 Apr 2005 21:09:54 +0200 +cp_get_ldap_realm() { + [ "$CP_SCRIPT_DEBUG" ] && set -vx + + local echo_return + echo_return="$CP_ECHO_RETURN" # since we're making our own calls + # in our own way we need to set CP_ECHO_RETURN the way we want it + # but preserving initial state so it could be used afterwards + CP_ECHO_RETURN="" + + RET="" + + if [ ! -d /etc/ldap/slapd.d/ -a ! -f /etc/ldap/slapd.conf ]; then + echo "cp_get_ldap_realm: /etc/ldap/slapd.{d/,conf}: No such file or directory" >&2 + return 2 fi + + cp_get_ldap_suffix || true + RET="`echo $RET | awk -F, '{print $1}' | awk -F= '{print $2}'`" + + [ -z "$RET" ] && echo "cp_get_ldap_realm: No LDAP REALM in /etc/ldap/slapd.{d/,conf}" >&2 + [ -z "$echo_return" ] || echo $RET + CP_ECHO_RETURN="$echo_return" +} + +# if fqdn is name.dom3.dom2.dom1.hr, check if this host is MX for +# either dom3.dom2.dom1.hr, dom2.dom1.hr or dom1.hr and dump highest level +# domain on stdout +cp_get_mx_domain() { + [ "$CP_SCRIPT_DEBUG" ] && set -vx + + local domains d host + + host=$(hostname -f) + RET="$host" + if ! echo "$host" | grep -q '\.'; then + return + fi + if [ ! -x /usr/bin/host ]; then + # no host command + return + fi + domains=$(/bin/hostname -f | awk -F. ' + { + for (i=2; i output_functions + # new-prefix list-of-functions + perl -e ' + $prefix = shift; %keep = (); $output = ""; + $keep{$_} = 1 for @ARGV; + # add dependent functions + %deps = ( + get_ifaddr => [ "get_ifdefault" ], + get_netaddr => [ "get_ifdefault", "get_ifaddr", "get_ifmask" ], + check_and_backup => [ "backup_conffile" ], + check_and_sed => [ "mv" ], + get_ldap_realm => [ "get_ldap_suffix" ], + ); + foreach my $f (keys(%keep)) { + if (exists($deps{$f})) { + $keep{$_} = 1 for (@{$deps{$f}}); + } + } + while () { + if (/^_?cp_(\w+) *\(\) *\{/) { + if (! exists($keep{$1})) { + while () { last if /^\}/; } # skip it + next; + } else { + $output .= "\n"; + } + } + next if /^\s*(\#|$)/; + $output .= $_; + } + $output =~ s/\b(_?)cp_/$1${prefix}_/sg; + $prefix = uc($prefix); + $output =~ s/\b(_?)CP_/$1${prefix}_/sg; + print $output; + ' -- $* }