"

··echo "Apache Password Manager"

··action="$(echo $QUERY_STRING | cut −c3)"

··user="$(echo $QUERY_STRING|cut −d\& −f2|cut −d= −f2 |\

··tr '[: upper: ]' '[: lower: ]')"

··case "$action" in

····A) echo "

Adding New User $user

········if [! -z "$(grep −E "^${user}:" $passwdfile)"]; then

··········echo "Error: user $user already appears in the file."

········else

··········pass="$(echo $QUERY_STRING|cut −d\& −f3|cut −d= −f2)"

··········if [! -z "$(echo $pass|tr −d '[[: upper: ][:lower: ][:digit: ]]')"];

··········then

············echo "Error: passwords can only contain a-z A-Z 0–9 ($pass)"

··········else

············$htpasswd $passwdfile "$user" "$pass"

············echo "Added!
"

··········fi

········fi

········;;

····U) echo "

Updating Password for user $user

········if [-z "$(grep −E "^${user}:" $passwdfile)"]; then

··········echo "Error: user $user isn't in the password file?"

··········echo "searched for "^${user}:" in $passwdfile"

········else

··········pass="$(echo $QUERY_STRING|cut −d\& −f3|cut −d= −f2)"

··········if [! -z "$(echo $pass|tr −d '[[: upper: ][:lower: ][:digit: ]]')"];

··········then

············echo "Error: passwords can only contain a-z A-Z 0–9 ($pass)"

··········else

············grep −vE "^${user}:" $passwdfile | tee $passwdfile > /dev/null

············$htpasswd $passwdfile "$user" "$pass"

············echo "Updated!
"

··········fi

········fi

········;;

····D) echo "

Deleting User $user

········if [-z "$(grep −E "^${user}:" $passwdfile)"]; then

··········echo "Error: user $user isn't in the password file?"

········elif ["$user" = "admin"]; then

··········echo "Error: you can't delete the 'admin' account."

········else

··········grep −vE "^${user}:" $passwdfile | tee $passwdfile >/dev/null

··········echo "Deleted!
"

········fi

········;;

··esac

··# Всегда перечислять текущих пользователей в файле паролей…

··echo "



··echo "

··oldIFS=$IFS; IFS=":" # Изменить разделитель слов…

··while read acct pw; do

····echo "

··done < $passwdfile

··echo "

··IFS=$oldIFS·········· #…и восстановить его.

··# Собрать строку выбора со всеми учетными записями…

··optionstring="$(cut −d: −f1 $passwdfile | sed 's/^/