################################################################ #### #### This Korn Shell 93 function generates a uniq UID number/value #### for a username, that username must consist of 3 letters #### followed by 4 digits, or 4 letters followed by 3 digits. The #### username is assumed to be the first argument to the function. #### The username must also be exactly 7 characters long. #### #### This function is dependent upon the external #### function "mkascii". #### ################################################################ function mkuid { typeset -l MKUID_LET typeset MKUID_NUMLET=0 MKUID_NUMLET="\${1//([!a-zA-Z])/}" MKUID_NUMLET="\${#MKUID_NUMLET}" if (( \${#1} != 7 )) then print -u 2 "ERROR: Number of characters in username \${1} is not equal to 7\n" return -1 fi if (( MKUID_NUMLET != 3 )) && (( MKUID_NUMLET != 4 )) then print -u 2 "ERROR: Number of letters in username \${1} is not equal to 3 or 4\n" return -1 fi (( MKUID_TYPE = 10 ** ( 7 - MKUID_NUMLET ) )) typeset MKUID_LOWLIM=1000000 (( MKUID_LOWUID = ( 26 ** ( MKUID_NUMLET - 1 ) * MKUID_LOWLIM / 100 ) + MKUID_LOWLIM )) (( MKUID_NUMLET == 3 )) && (( MKUID_LOWUID = MKUID_LOWLIM )) typeset MKUID_BASE=26 typeset MKUID_NVALUE="" typeset MKUID_LVALUE=0 typeset MKUID_ECNT=0 typeset MKUID_SUBTOT=0 typeset MKUID_TOT=0 typeset MKUID_MULT=0 typeset -A MKUID_LETTERS mkascii MKUID_LETTERS # print " \${MKUID_LETTERS[@]}" eval EACHLET="( \${1//(?)/ \1} )" for MKUID_LET in "\${EACHLET[@]}" do if [[ "_\${MKUID_LET}" = _[a-z] ]] then MKUID_LVALUE="\$(( \${MKUID_LETTERS[\${MKUID_LET}]} - 97 ))" else MKUID_LVALUE="0" MKUID_NVALUE="\${MKUID_NVALUE}\${MKUID_LET}" fi (( MKUID_MULT = MKUID_BASE ** MKUID_ECNT )) (( MKUID_SUBTOT = MKUID_SUBTOT + MKUID_LVALUE * MKUID_MULT )) (( MKUID_ECNT = MKUID_ECNT + 1 )) done (( MKUID_TOT = ( ( MKUID_SUBTOT * MKUID_TYPE ) + MKUID_NVALUE ) + MKUID_LOWUID )) print \${MKUID_TOT} return 0 }