Fichier "mkpasswd.functions"

#!/bin/sh
#
#
#   SERVICE DES ADMINISTRATEURS:
#       Traduction des bases OpenVMS vers Unix.
#       Fonctions internes
#
#   Fichier: $BIN_DIR/mkpasswd.functions
#
#   Creation: S. Baudry
#
#   Modifications:
#
#-----------------------------------------------------------

_waiting_chars()
{
    tmp_index=`expr $1 % 8`
    case $tmp_index in
        0) $ECHO "-\b\c";;
        1) $ECH0 "\\ \b\b\c";;
        2) $ECHO "|\b\c";;
        3) $ECHO "/\b\c";;
        4) $ECHO "-\b\c";;
        5) $ECHO "\\ \b\b\c";;
        6) $ECHO "|\b\c";;
        7) $ECHO "/\b\c";;
    esac
}

#-----------------------------------------------------------

_ask ()
{
    while
        case "$2" in
            y|Y) $ECHO "$1 ([y]/n) : \c" >&2 ;;
            n|N) $ECHO "$1 (y/[n]) : \c" >&2 ;;
        esac
        read answer
        [ "$answer" = "" ] && answer=$2
        answer=`echo $answer | tr '[A-Z]' '[a-z]'`
        [ "$answer" != "y" -a "$answer" != "n" ]
    do
        echo "Invalid answer, check validity." >&2
    done
    echo $answer
}

#-----------------------------------------------------------

_stop_exec ()
{
    echo "Arret en cours ..."
    [ -f $PASSWD_REF ] && rm $PASSWD_REF
    [ -f $WHO_REF ] && rm $WHO_REF
    exit 1
}