aboutsummaryrefslogtreecommitdiffstats
path: root/gotrc-examples/allow-uppercase
blob: 858fee0cc6dc960a6f1a7a607005cb7aa452245b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# -*- shell-script -*-


read_function_allow_uppercase=$read_function
read_function=_read_allow_uppercase

function _read_allow_uppercase
{
    $read_function_allow_uppercase
    lower="$(sed -e 'y/QWERTYUIOPASDFGHJKLZXCVBNM/qwertyuiopasdfghjklzxcvbnm' <<< "${user}")"
    if [ ! "${lower}" = "${user}" ]; then
	#stty olcuc ## Uncomment this if you want to go old-school Unix, too bad
	            ## it will break colours and only uppercases ASCII letters.
	user="${lower}"
    fi
}