nutools/lib/ulib/debian

##@cooked comments # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
## Outils pour les distributions debian
##@cooked nocomments
##@require base
##@require sysinfos
##@require service
uprovide debian
urequire base sysinfos service ipcalc

################################################################################
# Gestion des packages

function pkg_check() {
    # Vérifier que les packages sont installés sur le système
    local pkg status
    for pkg in "$@"; do
        LANG=C setx status=dpkg -s "$pkg" 2>/dev/null || return 1
        setx status=grep '^Status:' <<<"$status"
        [[ "$status" == *not-installed* ]] && return 1
        [[ "$status" == *deinstall* ]] && return 1
    done
    return 0
}

function pkg_update() {
    # Mettre à jour la liste des packages silencieusement sans confirmation
    LANG=C apt-get update -qy
}

function pkg_upgrade() {
    # Mettre à jour la liste des packages silencieusement sans confirmation
    LANG=C apt-get upgrade -qy
}

function pkg_install() {
    # Installer les packages silencieusement et sans confirmation
    LANG=C apt-get install -qy "$@"
}

function pkg_installm() {
    # Installer les packages silencieusement et sans confirmation
    # Retourner 0 si au moins un des packages a été installé. Sinon, les
    # packages n'ont pas été installés, soit parce qu'ils sont déjà installé,
    # soit parce qu'il y a eu une erreur.
    if ! pkg_check "$@"; then
        # essayer d'installer les packages
        pkg_install "$@"
    else
        # aucun package n'a été installé
        return 1
    fi
}

function pkg_check_install() {
    # Si le programme $1 n'existe pas, alors installer les packages $2..$@
    # S'il n'y a pas d'arguments $2..$@ utiliser $1 comme nom de package
    # Retourner 0 si au moins un des packages a été installé
    progexists "$1" && return 1
    [ $# -gt 1 ] && shift
    pkg_installm "$@"
}

function require_pkgs() {
    # installer les packages spécifiés silencieusement et sans confirmation.
    # si les packages n'existent pas ou ne peuvent pas être installé, c'est une
    # erreur fatale.
    if ! pkg_check "$@"; then
        # essayer d'installer les packages
        enote "Installation de packages $*"
        pkg_install "$@" || die
    fi
}

################################################################################
# Gestion des services

function service_disable() {
    # Désactiver le service $1 pour qu'il ne se lance pas automatiquement au
    # démarrage
    if [ -f "/etc/init.d/$1" ]; then
        update-rc.d -f "$1" remove
    elif [ -f "/etc/systemd/system/$1.service" ]; then
        systemctl disable "$1"
    fi
}

function service_enable() {
    # Activer le service $1 pour qu'il se lance automatiquement au démarrage
    if [ -f "/etc/init.d/$1" ]; then
        update-rc.d "$1" defaults
    elif [ -f "/etc/systemd/system/$1.service" ]; then
        systemctl daemon-reload
        systemctl enable "$1"
    fi
}

################################################################################
# Gestion des interfaces réseau

__DEBIAN_NETWORK_DEVEL_SHOW_MODIFS=
__DEBIAN_NETWORK_INTERFACES=/etc/network/interfaces

function network_interfaces_check_confbr() {
    # Vérifier que la configuration du bridge $1, dont les membres sont les
    # interfaces du tableau $2(=ifaces) est faite dans le fichier
    # $3(=/etc/network/interfaces)
    local -a __nicc_ifaces; array_copy __nicc_ifaces "${2:-ifaces}"

    local br="$1"
    local -a ifaces; array_copy ifaces __nicc_ifaces
    local nifile="${3:-$__DEBIAN_NETWORK_INTERFACES}"

    awkrun <"$nifile" -f br="$br" ifaces[@]=__nicc_ifaces '
BEGIN {
  array_new(iface_have_autos)
  array_new(iface_have_hotplugs)
  array_new(iface_have_manuals)
  for (i = 1; i <= ifaces_count; i++) {
    iface_have_autos[i] = 0
    iface_have_hotplugs[i] = 0
    iface_have_manuals[i] = 0
  }
  br_have_auto = 0
  br_have_hotplug = 0
  have_br = 0
}
function get_iface_index(iface,                 i) {
  for (i = 1; i <= ifaces_count; i++) {
    if (ifaces[i] == iface) return i
  }
  return 0
}

$1 ~ /^(allow-)?auto$/ {
  for (j = 2; j <= NF; j++) {
    i = get_iface_index($j)
    if (i != 0) iface_have_autos[i] = 1
    if ($i == br) br_have_auto = 1
  }
}
$1 == "allow-hotplug" {
  for (j = 2; j <= NF; j++) {
    i = get_iface_index($j)
    if (i != 0) iface_have_hotplugs[i] = 1
    if ($i == br) br_have_hotplug = 1
  }
}
$1 == "iface" && $3 == "inet" && $4 == "manual" {
  i = get_iface_index($2)
  if (i != 0) iface_have_manuals[i] = 1
}
$1 == "iface" && $2 == br && $3 == "inet" {
  have_br = 1
}
END {
  check_auto_or_hotplug = br_have_auto || br_have_hotplug
  check_manuals = 1
  if (check_auto_or_hotplug) {
    for (i = 1; i <= ifaces_count; i++) {
      if (!iface_have_autos[i] && !iface_have_hotplugs[i]) {
        check_auto_or_hotplug = 0
        break
      }
      if (!iface_have_manuals[i]) {
        check_manuals = 0
        break
      }
    }
  }
  if (!check_auto_or_hotplug || !check_manuals || !have_br) {
    exit 1
  }
  exit 0
}'
}

function network_interfaces_check_confip() {
    # Vérifier que la configuration de l'interface $1, avec la passerelle $2,
    # avec les adresses IP du tabbleau $3(=ipsuffixes) est faite dans le fichier
    # $4(=/etc/network/interfaces)
    local -a __nicc_ipsuffixes; array_copy __nicc_ipsuffixes "${3:-ipsuffixes}"

    local iface="$1" gateway="$2"
    local -a ipsuffixes; array_copy ipsuffixes __nicc_ipsuffixes
    local nifile="${4:-$__DEBIAN_NETWORK_INTERFACES}"

    awkrun <"$nifile" -f iface="$iface" gateway="$gateway" ipsuffixes[@]=ipsuffixes '
BEGIN {
  have_auto = 0
  have_hotplug = 0
  have_iface = 0
  have_method = 0 # static ou dhcp
  have_gateway = ipsuffixes[1] == "dhcp" || gateway == ""
  if (gateway == "none" || gateway == "-") gateway = ""
  array_new(have_ips)
  array_new(have_ip_ups)
  array_new(have_ip_downs)
  for (i = 1; i <= ipsuffixes_count; i++) {
    have_ips[i] = 1
    have_ip_ups[i] = 0
    have_ip_downs[i] = 0
  }
  have_ips[1] = 0
  have_ip_ups[1] = 1
  have_ip_downs[1] = 1
  in_iface = 0
}
function get_ipsuffix_index(ipsuffix,                 i) {
  ip0 = ipsuffix; sub(/\/[0-9]+$/, "", ip0)
  for (i = 1; i <= ipsuffixes_count; i++) {
    # XXX ne pas comparer les suffixes pour le moment
    ipi = ipsuffixes[i]; sub(/\/[0-9]+$/, "", ipi)
    if (ipi == ip0) return i
  }
  return 0
}

$1 == "iface" && $2 == iface && $3 == "inet" {
  have_iface = 1
  if (ipsuffixes[1] == "dhcp") {
    have_method = $4 == "dhcp"
  } else {
    have_method = $4 == "static"
  }
  in_iface = 1
  next
}
in_iface && $1 == "gateway" && $2 == gateway {
  have_gateway = 1
  next
}
in_iface && $1 == "address" && get_ipsuffix_index($2) == 1 {
  have_ips[1] = 1
  next
}
in_iface && $0 ~ "^[ \\t]*(post-)?up (/sbin/)?ip addr add " {
  if (match($0, "ip addr add (.*/.*) dev " iface " ", vs) != 0) {
    i = get_ipsuffix_index(vs[1])
    if (i > 1) {
      have_ip_ups[i] = 1
    }
  }
  next
}
in_iface && $0 ~ "^[ \\t]*(pre-)?down (/sbin/)?ip addr del " {
  if (match($0, "ip addr del (.*/.*) dev " iface " ", vs) != 0) {
    i = get_ipsuffix_index(vs[1])
    if (i > 1) {
      have_ip_downs[i] = 1
    }
  }
  next
}
$1 == "iface" {
  in_iface = 0
  next
}
$1 ~ /^(allow-)?auto$/ {
  for (i = 2; i <= NF; i++) {
    if ($i == iface) {
      have_auto = 1
    }
  }
  in_iface = 0
  next
}
$1 == "allow-hotplug" {
  for (i = 2; i <= NF; i++) {
    if ($i == iface) {
      have_hotplug = 1
    }
  }
  in_iface = 0
  next
}

END {
  check_auto_or_hotplug = have_auto || have_hotplug
  check_iface = have_iface && have_method && have_gateway
  check_ips = 1
  for (i = 1; i <= ipsuffixes_count; i++) {
    if (!have_ips[i] || !have_ip_ups[i] || !have_ip_downs[i]) {
      check_ips = 0
      break
    }
  }
  if (!check_auto_or_hotplug || !check_iface || !check_ips) {
    exit 1
  }
  exit 0
}'
}

function __network_interfaces_remove_iface() {
    awkrun -f iface="$1" '
function match_iface(iface, line) {
  if (line == "") line = $0 " "
  return line ~ (" " iface " ")
}
function remove_auto_iface(iface, line) {
  if (line == "") line = $0 " "
  gsub(" " iface " ", " ", line)
  return line
}
function print_auto_iface(line) {
  if (line ~ /^(allow-)?auto *$/) {
    # une seule interface sur la ligne: ne pas l"afficher
  } else {
    # supprimer l"interface de la ligne
    sub(/ *$/, "", line)
    print line
  }
}
function remove_hotplug_iface(iface, line) {
  if (line == "") line = $0
  if (line !~ / $/) line = line " "
  gsub(" " iface " ", " ", line)
  return line
}
function print_hotplug_iface(line) {
  if (line ~ /^allow-hotplug *$/) {
    # une seule interface sur la ligne: ne pas l"afficher
  } else {
    # supprimer l"interface de la ligne
    sub(/ *$/, "", line)
    print line
  }
}

BEGIN {
  in_iface = 0
  found_iface = 0
  modified = 0
}
!found_iface && $1 == "iface" && $2 == iface && $3 == "inet" {
  in_iface = 1
  found_iface = 1
  modified = 1
  next
}
$1 == "iface" {
  in_iface = 0
}
$1 ~ /^(allow-)?auto$/ {
  in_iface = 0
  if (match_iface(iface)) {
    print_auto_iface(remove_auto_iface(iface))
    modified = 1
    next
  }
}
$1 == "allow-hotplug" {
  in_iface = 0
  if (match_iface(iface)) {
    print_hotplug_iface(remove_hotplug_iface(iface))
    modified = 1
    next
  }
}
!in_iface { print }
END {
  if (modified) exit 0
  else exit 1
}'
}
function network_interfaces_remove_iface() {
    # Supprimer dans le fichier $2(=/etc/network/interfaces) toute la
    # configuration qui concerne l'interface $1
    local iface="$1" nifile="${2:-$__DEBIAN_NETWORK_INTERFACES}"
    local tmpfile; ac_set_tmpfile tmpfile
    local modified

    if __network_interfaces_remove_iface "$iface" <"$nifile" >"$tmpfile"; then
        cat "$tmpfile" >"$nifile"
        modified=1
    fi
    ac_clean "$tmpfile"
    [ -n "$modified" ]
}
function network_interfaces_remove_ifaces() {
    # Supprimer dans le fichier $2(=/etc/network/interfaces) toute la
    # configuration qui concerne les interfaces du tableau $1=(ifaces)
    local -a __niri_ifaces; array_copy __niri_ifaces "${1:-ifaces}"

    local -a ifaces; array_copy ifaces __niri_ifaces
    local nifile="${2:-$__DEBIAN_NETWORK_INTERFACES}"
    local workfile; ac_set_tmpfile workfile
    local tmpfile; ac_set_tmpfile tmpfile
    local iface modified

    cat "$nifile" >"$workfile"
    for iface in "${__niri_ifaces[@]}"; do
        if __network_interfaces_remove_iface "$iface" <"$workfile" >"$tmpfile"; then
            cat "$tmpfile" >"$workfile"
            modified=1
        fi
    done
    [ -n "$modified" ] && cat "$workfile" >"$nifile"
    ac_clean "$workfile" "$tmpfile"
    [ -n "$modified" ]
}
function network_interfaces_remove_confbr() {
    # Supprimer dans le fichier $3(=/etc/network/interfaces) toute la
    # configuration qui concerne le bridge $1, et dont les interfaces sont
    # listées dans le tableau $2(=ifaces)
    local -a __nirc_ifaces; array_copy __nirc_ifaces "${2:-ifaces}"

    local -a ifaces; array_copy ifaces __nirc_ifaces
    array_ins ifaces "$1"

    network_interfaces_remove_ifaces ifaces "$3"
}

function network_interfaces_add_confip() {
    # ajouter dans le fichier $4(=/etc/network/interfaces) la configuration pour
    # l'interface $1, avec éventuellement la passerelle $2, et les adresses ips
    # telles qu'elles sont définies dans le table $3(=ipsuffixes)
    local -a __niac_ipsuffixes; array_copy __niac_ipsuffixes "${3:-ipsuffixes}"

    local iface="$1" gateway="$2"
    local -a ipsuffixes; array_copy ipsuffixes __niac_ipsuffixes
    local nifile="${4:-$__DEBIAN_NETWORK_INTERFACES}"
    local mainip netmask method

    [ "$gateway" == "none" -o "$gateway" == "-" ] && gateway=

    network_parse_ipsuffix "${ipsuffixes[0]}" mainip netmask
    if [ "$mainip" == "dhcp" ]; then
        mainip=
        netmask=
        method=dhcp
    else
        netmask="$(ipcalc_netmask "$netmask")"
        [ -n "$netmask" ] || netmask=255.255.255.0
        method=static
    fi

    echo >>"$nifile" "\
auto $iface
iface $iface inet $method${mainip:+
    address $mainip
    netmask $netmask${gateway:+
    gateway $gateway}}"
    local i=0 ipsuffix
    for ipsuffix in "${ipsuffixes[@]:1}"; do
        echo >>"$nifile" "\
    up ip addr add $ipsuffix dev $iface label $iface:$i
    down ip addr del $ipsuffix dev $iface label $iface:$i"
        i=$(($i + 1))
    done
}

function network_interfaces_add_confbr() {
    # ajouter dans le fichier $4(=/etc/network/interfaces) la configuration pour
    # le bridge $1, avec la liste des interfaces dans le tableau $2(=ifaces) et
    # la liste des configurations des adresses des interfaces dans le tableau
    # $3(=confips)
    local -a __niac_ifaces; array_copy __niac_ifaces "${2:-ifaces}"
    local -a __niac_confips; array_copy __niac_confips "${3:-confips}"

    local br="$1"
    local -a ifaces; array_copy ifaces __niac_ifaces
    local -a confips; array_copy confips __niac_confips
    local nifile="${4:-$__DEBIAN_NETWORK_INTERFACES}"
    local iface confip

    for iface in "${ifaces[@]}"; do
        echo >>"$nifile" "\
auto $iface
iface $iface inet manual"
    done

    local found=
    for confip in "${confips[@]}"; do
        network_parse_confip "$confip" iface gateway ipsuffixes
        if [ "$iface" == "$br" ]; then
            found=1
            break
        fi
    done
    [ -n "$found" ] || return 1

    network_interfaces_add_confip "$br" "$gateway" ipsuffixes "$nifile"

    ifaces="${ifaces[*]}"
    [ -n "$ifaces" ] || ifaces="none"
    echo >>"$nifile" "\
    bridge_ports $ifaces
    bridge_stp off
    bridge_fd 2
    bridge_maxwait 0"
}

function network_fix_hostname() {
    local hostname="${1%%.*}"
    local modified
    [ -f /etc/hostname ] || touch /etc/hostname
    if [ -n "$__DEBIAN_NETWORK_DEVEL_SHOW_MODIFS" -o -n "$__NETWORK_DEVEL_SHOW_MODIFS" ]; then
        uecho "Setting /etc/hostname to $hostname"
    elif [ "$(</etc/hostname)" != "$hostname" ]; then
        __network_backup /etc/hostname
        if show_debug; then
            edebug "Setting /etc/hostname to $hostname"
        else
            estep /etc/hostname
        fi
        echo "$hostname" >/etc/hostname
        modified=1
    fi
    [ -n "$modified" ]
}

function network_fix_mailname() {
    local host="$1"
    local modified
    [ -f /etc/mailname ] || touch /etc/mailname
    if [ -n "$__DEBIAN_NETWORK_DEVEL_SHOW_MODIFS" -o -n "$__NETWORK_DEVEL_SHOW_MODIFS" ]; then
        uecho "Setting /etc/mailname to $host"
    elif [ "$(</etc/mailname)" != "$host" ]; then
        __network_backup /etc/mailname
        if show_debug; then
            edebug "Setting /etc/mailname to $host"
        else
            estep /etc/mailname
        fi
        echo "$host" >/etc/mailname
        modified=1
    fi
    [ -n "$modified" ]
}

function network_config() {
    # (Re)configurer le réseau sur l'hôte courant. Des efforts sont faits pour
    # ne mettre à jour les fichiers que si c'est nécessaire. Si un des arguments
    # $1..$6 n'est pas spécifié, il est ignoré.
    # $1 (host) est le nom d'hôte.
    # $2 (confips) est le nom d'un tableau contenant la configuration des
    # adresses ips pour les interfaces.
    # $3 (confbrs) est le nom d'un tableau contenant la configuration des
    # bridges à créer/mettre à jour.
    # $4 (mainiface) est le nom de l'interface principale, c'est à dire
    # l'interface qui est sélectionnée si une adresse ip n'est pas préfixée de
    # son interface. En principe, l'interface principale est le premier bridge
    # défini ou la première interface définie.
    # $5 (reset_interfaces) spécifie de ne pas chercher à mettre à jour le
    # fichier /etc/network/interfaces, mais de le recréer depuis zéro. la valeur
    # 'force' spécifie de recréer le fichier même si ce n'est pas nécessaire à
    # priori.
    # $6 (oldhost) est le nom d'hôte actuel, avant la modification
    # $7(=/etc/network/interfaces) est le fichier à mettre à jour
    #
    # Le tableau confips doit contenir des définitions d'une des formes
    # suivantes:
    #     [[iface][//gateway]:]address[/suffix],...
    #     [iface:]dhcp
    # La deuxième forme est pour spécifier qu'une interface est configurée par
    # DHCP. iface vaut par défaut eth0, sauf si une définition de bridge
    # existe, auquel cas il s'agit du premier bridge défini. Pour chaque
    # interface, seule la première spécification d'adresse IP tient compte de
    # l'argument gateway. Les autres spécifications définissent des adresses IP
    # supplémentaires pour l'interface.
    #
    # Le tableau brs doit contenir des définitions de la forme suivante:
    #     br:ifaces,...
    # br est le nom du bridge, e.g. br0. ifaces est une liste d'interfaces
    # séparées par une virgule. e.g. br0:eth0,eth1
    # Bien que ce soit techniquement possible, ce script interdit que l'on
    # définisse une adresse IP pour une interface faisant partie d'un bridge.
    local -a __nc_confips __nc_confbrs
    [ -n "$2" ] && array_copy __nc_confips "$2"
    [ -n "$3" ] && array_copy __nc_confbrs "$3"

    local host="$1"
    local -a confips; array_copy confips __nc_confips
    local -a confbrs; array_copy confbrs __nc_confbrs
    local mainiface="$4" reset_interfaces="$5" oldhost="$6"
    local modified
    local nifile="${7:-$__DEBIAN_NETWORK_INTERFACES}"

    network_fix_confs confbrs confips "$mainiface"

    local confbr br; local -a ifaces
    local confip iface gateway mainip suffix; local -a ipsuffixes
    network_parse_confip "${confips[0]}" iface gateway ipsuffixes
    network_parse_ipsuffix "${ipsuffixes[0]}" mainip suffix

    if [ -n "${confips[*]}" -o -n "${confbrs[*]}" ]; then
        # Vérifier qu'une interface avec une adresse IP ne figure pas dans les
        # bridges à configurer. en profiter pour classer les interfaces par
        # type: standard et bridges
        etitle "Configuration des interfaces réseau"

        local -a ifaces_with_ips ifaces
        local -a brifaces
        ifaces_with_ips=()
        for confip in "${confips[@]}"; do
            network_parse_confip "$confip" iface gateway ipsuffixes
            array_addu ifaces_with_ips "$iface"
        done
        for confbr in "${confbrs[@]}"; do
            network_parse_confbr "$confbr" br ifaces
            array_add brifaces "$br"
            for iface in "${ifaces[@]}"; do
                if array_contains ifaces_with_ips "$iface"; then
                    eerror "$iface: Impossible de configurer une interface dans un bridge ET avec une adresse IP"
                    return 1
                fi
            done
        done

        # vérifier si une modification est nécessaire
        local modify
        [ "$reset_interfaces" == force ] && modify=1
        if [ -z "$modify" ]; then
            for confbr in "${confbrs[@]}"; do
                network_parse_confbr "$confbr" br ifaces
                if ! network_interfaces_check_confbr "$br" iface; then
                    modify=1
                    break
                fi
            done
        fi
        if [ -z "$modify" ]; then
            for confip in "${confips[@]}"; do
                network_parse_confip "$confip" iface gateway ipsuffixes
                if ! network_interfaces_check_confip "$iface" "$gateway" ipsuffixes; then
                    modify=1
                    break
                fi
            done
        fi

        # yes! il faut refaire la configuration
        if [ -n "$modify" ]; then
            # faire une copie de travail
            local interfaces; ac_set_tmpfile interfaces
            cat "$nifile" >"$interfaces"

            if [ -n "$reset_interfaces" ]; then
                local source_itfd
                check_sysinfos -d debian -v jessie+ && source_itfd=1
                echo >"$interfaces" "\
# This file describes the network interfaces available on your system
# and how to activate them. For more information, see interfaces(5).
${source_itfd:+
source /etc/network/interfaces.d/*
}
# The loopback network interface
auto lo
iface lo inet loopback
"
            fi

            # d'abord supprimer l'ancienne configuration
            for confbr in "${confbrs[@]}"; do
                network_parse_confbr "$confbr" br ifaces
                network_interfaces_remove_confbr "$br" ifaces "$interfaces"
            done
            for confip in "${confips[@]}"; do
                network_parse_confip "$confip" iface gateway ipsuffixes
                network_interfaces_remove_iface "$iface" "$interfaces"
            done

            # puis recréer la configuration
            for confbr in "${confbrs[@]}"; do
                network_parse_confbr "$confbr" br ifaces
                network_interfaces_add_confbr "$br" ifaces confips "$interfaces"
            done
            for confip in "${confips[@]}"; do
                network_parse_confip "$confip" iface gateway ipsuffixes
                if ! array_contains brifaces "$iface"; then
                    network_interfaces_add_confip "$iface" "$gateway" ipsuffixes "$interfaces"
                fi
            done

            # Fin de traitement
            if [ -n "$__DEBIAN_NETWORK_DEVEL_SHOW_MODIFS" -o -n "$__NETWORK_DEVEL_SHOW_MODIFS" ]; then
                if testdiff "$interfaces" "$nifile"; then
                    uecho "Setting $nifile to:"
                    cat "$interfaces" | sed 's/^/    /g' 1>&2
                else
                    uecho "$nifile: pas de modifications"
                fi
            elif testdiff "$interfaces" "$nifile"; then
                __network_backup "$nifile"
                if show_debug; then
                    edebug "Setting $nifile to:"
                    cat "$interfaces" | sed 's/^/    /g' 1>&2
                else
                    estep "$nifile"
                fi
                cat "$interfaces" >"$nifile"
                modified=1
            fi
            ac_clean "$interfaces"
        fi

        eend
    fi

    # configurer le nom d'hôte
    if [ -n "$host" ]; then
        host="$(ipcalc_fqdn_maybe "$host")"
        etitle "Configuration du nom d'hôte: $host"

        # si on ne spécifie pas l'adresse ip principale, la résoudre ici. ceci
        # est nécessaire pour mettre à jour /etc/hosts
        # si mainip == dhcp, c'est pris en charge par network_fix_hosts qui
        # utilisera 127.0.1.1 à la place
        if [ -z "$mainip" ]; then
            local -a mainips
            resolv_ips mainips "$host"
            [ -n "${mainips[*]}" ] || {
                eerror "$host: Impossible de résoudre ce nom d'hôte"
                return 1
            }
            mainip="${mainips[0]}"
        fi

        network_fix_hostname "$host"
        network_fix_mailname "$host"
        [ -n "$mainip" ] && network_fix_hosts "$host" "$mainip" "$oldhost"

        eend
    fi

    [ -z "$modified" ] && return 10
    return 0
}

function network_config_partial() {
    # une version allégée de network_config() qui ne permet que de rajouter des
    # adresses IPs en plus de celles qui sont déjà configurées.
    # $1(=confips) est le nom d'un tableau contenant la configuration des
    # adresses ips pour les interfaces.
    # $2(=/etc/network/interfaces) est le fichier à mettre à jour
    local -a __ncp_newconfips; array_copy __ncp_newconfips "${1:-confips}"
    local nifile="${2:-$__DEBIAN_NETWORK_INTERFACES}"

    local -a confips confbrs
    network_set_confips
    network_set_confbrs
    network_fix_confs

    array_extend confips __ncp_newconfips
    network_config "" confips confbrs "" "" "" "$nifile" || return

    # des modifications ont eu lieu, tenter de configurer les nouvelles adresses
    # d'abord calculer les adresses ips qui sont activées
    network_set_confips
    local -a ips
    local ipsuffix ip suffix
    for confip in "${confips[@]}"; do
        network_parse_confip "$confip" iface gateway ipsuffixes
        for ipsuffix in "${ipsuffixes[@]}"; do
            network_parse_ipsuffix "$ipsuffix" ip suffix
            array_addu ips "$ip"
        done
    done
    # puis lister les commandes correspondant aux adresses ips non activées
    local -a ups; local up
    array_from_lines ups "$(awkrun <"$nifile" -f ips[@] '
$1 == "up" && $2 == "ip" && $3 == "addr" && $4 == "add" {
  ip = $5; sub(/(\/[0-9.]+)?$/, "", ip) # enlever suffixe
  if (! in_array(ip, ips)) {
    $1 = ""
    print
  }
}')"
    if [ ${#ups[*]} -gt 0 ]; then
        etitle "Configuration des nouvelles adresses"
        for up in "${ups[@]}"; do
            estep "$up"
            eval "$up"
        done
        eend
    fi

    return 0
}

function network_update_etc_networks() {
    # écraser le contenu du fichier /etc/networks avec la chaine $1
    # si $1 est vide, initialiser le fichier avec un contenu par défaut.
    local contents="$1" TAB=$'\t'
    [ -n "$contents" ] || contents="\
default${TAB}${TAB}0.0.0.0
loopback${TAB}127.0.0.0
link-local${TAB}169.254.0.0"
    if [ "$(</etc/networks)" != "$contents" ]; then
        __network_backup /etc/networks
        echo "$contents" >/etc/networks
    fi
}