Home About BC DR HA Support Training Download
You are here: Home/ Downloads/ Scripts/ Korn/ Functions/ frenchMenus/ Please Login or Register

-
Current Location
-

js
  Downloads
    Scripts
      Korn
        Functions
          frenchMenus



-
 Mt Xia Inc.
-
BOOK:Advanced Shell Scripting



 Join our LinkedIn Group
AIX Advanced Technical Experts
Contract Opportunities

www.LinkedIn.com
-
 Train By Tweet
Training courses Tweet By Tweet
Various Subjects and Products
TrainByTweet.com


AIX Admin Methodology
Global Consolidation Project
All AIX admins should join
www.aixexpert.com
-

digg Digg this page
del.icio.us Post to del.icio.us
Slashdot Slashdot it!


AIX FREE DEMO UNIX
Automated AIX Deployment
Reduce your DC costs

www.siteox.com

LPAR Leasing
Lease an AIX / i5 LPAR
Reduce your costs

www.mtxia.com

Server Leasing
Lease a Server off-site
Reduce your costs

www.mtxia.com

Data Center Automation
Business Continuity and DR
Virtualization/Consolidation

www.mtxia.com

HMC Service
Hardware Management Console
Manage Remote AIX / i5 LPARs

www.siteox.com

Business Web Site Hosting
$3.99 / month includes Tools,
Shopping Cart, Site Builder

www.siteox.com

Disaster Recovery
Small Business Oriented
Off-Site Facilities

www.mtxia.com

IBM pSeries / iSeries
Reduce your Costs
Off-Site Server Hosting

www.mtxia.com

Contained here are the Korn shell 93 functions that comprise the frenchMenus library. Make not these functions are Korn Shell 93 compliant and will not work with Korn shell 88.




################################################################
cnt_sleep()
{
   move ${MAX_LINES} 1
   clrtoeol
   attrset blink
   attrset rev
   addstr "Sleeping for ${1} second(s)"
   attroff
   refresh
   SLEEP_CNT="0"
   while (( ${SLEEP_CNT} < ${1} ))
   do
       SLEEP_CNT="$(( ${SLEEP_CNT} + 1 ))"
       addstr "."
       refresh
       sleep 1
   done
   mvclrtoeol ${MAX_LINES} 1
   refresh
}

################################################################
drawEntry()
{
    CNT_DRAW=0
    while LAB_RAW="$( getstr )"
    do
        CNT_DRAW="$(( ${CNT_DRAW} + 1 ))"
        LAB_FILL="${LAB_RAW%%\|*}"
        E_TMP="${LAB_RAW#*\|}"
        E_TMP="${E_TMP%\|*}"
        eval E_DFLT="\"${E_TMP}\""
        eval E_${LABEL}_${CNT_DRAW}=\"\${E_DFLT}\"
        LAB_PROMPT=$( fillcol "${LAB_FILL}" "${E_DFLT}" 37 )
        COL_DRAW="2"
        (( ${CNT_DRAW} >= 10 )) && COL_DRAW="1"
        mvaddstr "$(( 4 + ${CNT_DRAW} ))" ${COL_DRAW} "${CNT_DRAW}: ${LAB_PROMPT}:"
    done < ${DD_TOPDIR}/entry${1}.shtml
    NBR_LINES="${CNT_DRAW}"
    CNT_DRAW="$(( ${NBR_LINES} + 1 ))"
    COL_DRAW="2"
    (( ${CNT_DRAW} >= 10 )) && COL_DRAW="1"
    CNT_LINE="$(( ${NBR_LINES} + 6 ))"
    eval mvaddstr \${CNT_LINE} \${COL_DRAW} \"$( fillcol "${CNT_DRAW}: Line to Change" "0" 40 ):\"
    clrtoeol
    putMessage
    return ${NBR_LINES}
}

################################################################
drawMenu()
{
    CNT_DRAW=0
    CNT_LINE=0
    while LAB_RAW="$( getstr )"
    do
        CNT_DRAW="$(( ${CNT_DRAW} + 1 ))"
        LAB_FILL="${LAB_RAW%%\|*}"
        M_DFLT="${LAB_RAW#*\|}"
        M_DFLT="${M_DFLT%\|*}"

        eval M_${LABEL}_${CNT_DRAW}="\"${M_DFLT}\""
        CNT_LINE="$(( ${CNT_DRAW} * 2 ))"
        COL_DRAW="26"
        (( ${CNT_DRAW} >= 10 )) && COL_DRAW="25"
        mvaddstr "$(( 3 + ${CNT_LINE} ))" ${COL_DRAW} "${CNT_DRAW} = ${LAB_FILL}"
    done < ${DD_TOPDIR}/menu${1}.shtml
    LAB_PROMPT=$( fillcol "Select Menu Option" "0" 32 )
    mvaddstr "$(( ${CNT_LINE} + 6 ))" 5 "${LAB_PROMPT}:"
    clrtoeol
    refresh
    return ${CNT_DRAW}
}

################################################################
entryScreen()
{
    eval BUF_TMP=\"\${e${LABEL}:=\"\"}\"
    if [[ -n "${BUF_TMP}" ]]
    then
        refresh "e${LABEL}"
        NBR_LINES="${LIN_[${LABEL}]}"
     else
        putMessage "Assembling data entry screen..."
        savescr ${DEV_NULL}
        clear
        header
        drawEntry "${1}"
        NBR_LINES="${?}"
        LIN_[${LABEL}]="${NBR_LINES}"
        savescr e${LABEL}
    fi
    getAnswer ${NBR_LINES} && resetAnswer ${NBR_LINES}
    putMessage
    return 0
}

################################################################
errend()
{
   move "$(( ${MAX_LINES} - 1 ))"  1
   clrtoeol
   addstr "ERROR: ${1}"
   scrnend
}

################################################################
fillcol()
{
    LEN_DIFF="$(( ${3} - ${#1} - ${#2} ))"
    typeset -L${LEN_DIFF} DOTS="................................................................................"
#     ${CMD_ECHO} "${1}${DOTS}(${2})"
    eval \${CMD_ECHO} ${OPT_ECHO} \"\${1}\${DOTS}\(\${2}\)\"
}

################################################################
frenchMenus()
{
    initscr
    MENULEV="0"
    LABEL=""
    SERVER=""
    SCRDATE=""
    HDRSAV0=${HDRLIN2}

    eval MENUANS${MENULEV}=""

    SH_MENU="${DD_TOPDIR}/menu${LABEL}.sh"
    [[ -f ${SH_MENU} ]] && . ${SH_MENU} ${LABEL}

    while :
    do
        putMessage "Assembling menu screen..."
        eval BUF_TMP=\"\${m${LABEL}:=\"\"}\"
        if [[ -n "${BUF_TMP}" ]]
        then
            refresh "m${LABEL}"
            STATUS="${LIN_[${LABEL}]}"
         else
            savescr ${DEV_NULL}
            clear
            header
            drawMenu "${LABEL}"
            STATUS=${?}
            LIN_[${LABEL}]="${STATUS}"
            savescr "m${LABEL}"
        fi
        getMenu ${STATUS}
        (( ${MENULEV} < 0 )) && break
        SH_MENU="${DD_TOPDIR}/menu${LABEL}.sh"
        SH_ENTRY="${DD_TOPDIR}/entry${LABEL}.sh"
        TXT_MENU="${DD_TOPDIR}/menu${LABEL}.shtml"
        TXT_ENTRY="${DD_TOPDIR}/entry${LABEL}.shtml"
        [[ -f ${SH_MENU} ]] && . ${SH_MENU} ${LABEL}
        [[ -f ${TXT_MENU} ]] && continue
        [[ -f ${TXT_ENTRY} ]] && entryScreen "${LABEL}"
        [[ -s ${SH_ENTRY} ]] && . ${SH_ENTRY}
        reset_level
    done

    putMessage
}    

################################################################
getAnswer()
{
    STATUS="0"
    eval FUNCTION="\${M_${LABDAT}_${LTC}}"
    if [[ "${FUNCTION}" = @(modify|config|delete) ]]
    then
        selectRecord "${1}"
        STATUS="${?}"
        return ${STATUS}
    fi                

    CNT_ANS="0"
    while (( ${CNT_ANS} < ${1} ))
    do
        CNT_ANS="$(( ${CNT_ANS} + 1 ))"
        move "$(( 4 + ${CNT_ANS} ))" 46
        refresh
        ANS="$( getstr )"
        eval ANS\[\${CNT_ANS}\]=\"${ANS}\"
    done
    return ${STATUS}
}

################################################################
getMenu()
{
    while :
    do
        CNT_ANS="0"
        move "$(( ${1} * 2 + 6 ))" 41
        clrtoeol
        refresh
        LTC="$( getstr )"
        [[ "_${LTC}" = "_" ]] && LTC="0"
        [[ "_${LTC}" = "_0" ]] && reset_level && return ${LTC}
        [[ "_${LTC}" = *[!0-9]* ]] || continue
        (( ${LTC} < 0 )) && cnt_sleep "$(( ${LTC} * -1 ))"
        (( ${LTC} < 0 )) ||
          (( ${LTC} > ${1} )) &&
          continue
        break
    done
    set_level ${LTC}
    return ${LTC}
}

################################################################
getRecord()
{
    putMessage "Retrieving data record..."
    RECORD=""
    CNT_ANS="0"

    IFS="${FIELDDELIM:=|}"
    set -- ${1}
    IFS="${IFS_NORM}"
    for FIELD in "${@}"
    do
        CNT_ANS="$(( ${CNT_ANS} + 1 ))"
        ANS[${CNT_ANS}]="${FIELD}"
    done

    putMessage
    return ${CNT_ANS}
}

################################################################
header()
{
   SCRNUM="${LABEL}"
   [[ "_${SCRDATE}" = "_" ]] && SCRDATE=$( date +"%m/%d/%y" )
   [[ "_${SERVER}" = "_" ]] && SERVER="${LOGNAME}@$( uname -n )"
   attrset rev
   mvaddstr 1 1 "PGM${PRGNUM}"
   justifyCenter 1 "${HDRLIN1}"
   justifyLeft 1 "${SERVER}"
   mvaddstr 2 1 "SCR${SCRNUM}"
   justifyCenter 2 "${HDRLIN2}"
   justifyLeft 2 "${SCRDATE}"
   attroff
}

################################################################
invalidKey()
{
    putMessage "ERROR: Invalid keystroke..."
    sleep 2
    return 0
}

################################################################
justifyCenter()
{
    mvaddstr ${1} "$(( ( ${MAX_COLS} - ${#2} ) / 2 ))" "${2}"
}

################################################################
justifyLeft()
{
    mvaddstr ${1} "$(( ${MAX_COLS} - ${#2} ))" "${2}"
}

################################################################
mkrecord()
{
    putMessage "Assembling data record..."
    RECORD=""
    CNT_ANS="0"
    while (( ${CNT_ANS} < ${1} ))
    do
        CNT_ANS="$(( ${CNT_ANS} + 1 ))"
        ANS="${ANS[${CNT_ANS}]}"
        eval E_DFLT=\"\${E_${LABEL}_${CNT_ANS}}\"
        [[ "_${ANS}" = "_" ]] && ANS="${E_DFLT}"
        RECORD="${RECORD}${ANS}${FIELDDELIM:=|}"
    done
    putMessage
}

################################################################
putAnswer()
{
    putMessage "Processing user data..."
    CNT_ANS="0"
    while (( ${CNT_ANS} < ${1} ))
    do
        CNT_ANS="$(( ${CNT_ANS} + 1 ))"
        move "$(( 4 + ${CNT_ANS} ))" 46
        clrtoeol
        addstr "${ANS[${CNT_ANS}]}"
        refresh
    done
    putMessage
}

################################################################
putMessage()
{
    move $(( ${MAX_LINES} - 1 )) 1
    clrtoeol
    attrset blink
    addstr "${1}"
    attroff
    addstr "${2}"
    refresh
}

################################################################
removeRecord()
{
#     RECORD=$( ${CMD_ECHO} "${RECORD}" | tr '/' "${DIRSEP:=!}" )
#     RECORD=$( ${CMD_ECHO} "${RECORD}" | sed -e "s/\//${DIRSEP:=!}/g;s/ /_/g" )
    RECORD="${RECORD//\//${DIRSEP:=!}}"
    RECORD="${RECORD// /_}"
    rm -f "${DD_DATABASE}${1}/${RECORD}"
    STATUS="${?}"
    return ${STATUS}
}

################################################################
resetAnswer()
{
    mkrecord "${1}"
    if [[ "_${FUNCTION}" = "_delete" ]]
    then
        removeRecord "table${LABDAT}0"
        return 0
    fi
    RECORD_OLD="${RECORD}"
    while :
    do
        mvclrtoeol "$(( ${1} + 6 ))" 46
        refresh
        LTC="$( getstr )"
        [[ "_${LTC}" = "_" ]] && LTC="0"
        [[ "_${LTC}" = "_0" ]] && mkrecord "${1}" && break
        [[ "_${LTC}" = *[!0-9]* ]] || continue
        if (( ${LTC} == -1 ))
        then
            LTC="$(( ${1} + 1 ))"
            refresh "e${LABEL}"
            putAnswer ${1}
        fi
        (( ${LTC} >= 1 )) &&
          (( ${LTC} <= ${1} )) &&
          mvclrtoeol "$(( 4 + ${LTC} ))" 46 &&
          refresh &&
          ANS="$( getstr )" &&
          eval ANS\[\${LTC}\]=\"${ANS}\"
    done
    if [[ "_${RECORD}" != "_${RECORD_OLD}" ||
          "${FUNCTION}" != @(modify|config) ]]
    then
        if saveRecord "table${LABDAT}0"
        then
            RECORD="${RECORD_OLD}"
            [[ "${FUNCTION}" = @(modify|config) ]] &&
                removeRecord "table${LABDAT}0"
        fi
    else
	attrset rev
	attrset blink
        mvaddstr ${MAX_LINES} 1 "Record is unchanged"
        refresh
        sleep 2
	attroff
        refresh
    fi
    return 0
}

################################################################
reset_level()
{
   MENULEV="$(( ${MENULEV} - 1 ))"
   MENUPREV="$(( ${MENULEV} -  1 ))"
   MENUNEXT="$(( ${MENULEV} + 1 ))"
   (( ${MENUPREV} <= 0 )) && MENUPREV="0"
   set_label
   return 0
}

################################################################
saveRecord()
{
  STATUS=1
  YORNMSG="Save Record"
  [[ "_${FUNCTION}" = "_transient" ]] && YORNMSG="Process Record"
  if yesOrNo "${YORNMSG}"
  then
    if [[ "_${FUNCTION}" != "_transient" ]]
    then
      [[ ! -d ${DD_DATABASE}${1} ]] &&
        mkdir ${DD_DATABASE}${1} &&
        chmod 777 ${DD_DATABASE}${1}
#       RECORD=$( ${CMD_ECHO} "${RECORD}" | tr '/' "${DIRSEP:=!}" )
#       RECORD=$( ${CMD_ECHO} "${RECORD}" | sed -e "s/\//${DIRSEP:=!}/g;s/ /_/g" )
      RECORD="${RECORD//\//${DIRSEP:=!}}"
      RECORD="${RECORD// /_}"
      [[ "_${FUNCTION}" = "_config" ]] && rm -f ${DD_DATABASE}${1}/*
      touch "${DD_DATABASE}${1}/${RECORD}"
      STATUS="${?}"
    else
      STATUS="0"
    fi
  fi
  return ${STATUS}
}

################################################################
scrnend()
{
   move ${MAX_LINES} 1
   clrtoeol
   attrset blink
   attrset rev
   addstr "Press  to contine"
   attroff
   refresh
   SCRNEND="$( getch )"
}

################################################################
selectRecord()
{
    STATUS="1"
    putMessage "Retrieving list of data records..."
    IFS="${IFS_CR}"
#     for RECORD in $( ls -1 ${DD_DATABASE}table${LABDAT}0 )
    for RECORD in ${DD_DATABASE}table${LABDAT}0/*
    do
        RECORD="${RECORD#${DD_DATABASE}table${LABDAT}0/}"
        RECORD="${RECORD//${DIRSEP:=!}//}"
#         RECORD=$( ${CMD_ECHO} "${RECORD}" | sed -e "s/${DIRSEP:=!}/\//g" )

        IFS="${IFS_NORM}"
        getRecord "${RECORD}"
        putAnswer "${1}"
        [[ "${FUNCTION}" = @(modify|config) ]] && TMP="Modify"
        [[ "${FUNCTION}" = "delete" ]] && TMP="Delete"
        if yesOrNo "${TMP} this record"
        then
            STATUS="0"
            break
        fi
        IFS=${IFS_CR}
    done
    IFS=${IFS_NORM}

    putMessage
    return ${STATUS}
}

################################################################
set_label()
{
   LABEL=""
   LABDAT=""
   ISFL=0
   if (( ${MENULEV} >= 1 ))
   then
      while (( ${ISFL} <= ${MENUPREV} ))
      do
         ISFL="$(( ${ISFL} + 1 ))"
         LABEL="${LABEL}${MENUANS[${ISFL}]}"
         (( ${ISFL} <= ${MENUPREV} )) && LABDAT="${LABEL}"
      done
   fi
}

################################################################
set_level()
{
   MENUPREV=${MENULEV}
   MENULEV="$(( ${MENULEV} + 1 ))"
   MENUNEXT="$(( ${MENULEV} + 1 ))"
   MENUANS[${MENULEV}]="${1}"
   set_label
   return 0
}

################################################################
yesOrNo()
{
    TORF="0"
    putMessage "${1}..." "(Y/N)?"
    YORN="$( getch )"
    case _${YORN} in
        "_Y") TORF="0";;
        "_y") TORF="0";;
        "_N") TORF="1";;
        "_n") TORF="1";;
           *) TORF="1";;
    esac
    putMessage
    return ${TORF}
}
################################################################



   cnt_sleep
   drawEntry
   drawMenu
   entryScreen
   errend
   fillcol
   frenchMenus
   getAnswer
   getMenu
   getRecord
   header
   invalidKey
   justifyCenter
   justifyLeft
   mkrecord
   putAnswer
   putMessage
   removeRecord
   resetAnswer
   reset_level
   saveRecord
   scrnend
   selectRecord
   set_label
   set_level
   yesOrNo
-
French Menus
-
 

cnt_sleep
drawEntry
drawMenu
entryScreen
errend
fillcol
frenchMenus
getAnswer
getMenu
getRecord
header
invalidKey
justifyCenter
justifyLeft
mkrecord
putAnswer
putMessage
removeRecord
resetAnswer
reset_level
saveRecord
scrnend
selectRecord
set_label
set_level
yesOrNo


AIX FREE DEMO UNIX
Automated AIX Deployment
Reduce your DC costs

www.siteox.com

LPAR Leasing
Lease an AIX / i5 LPAR
Reduce your costs

www.mtxia.com

Server Leasing
Lease a Server off-site
Reduce your costs

www.mtxia.com

Data Center Automation
Business Continuity and DR
Virtualization/Consolidation

www.mtxia.com

HMC Service
Hardware Management Console
Manage Remote AIX / i5 LPARs

www.siteox.com

Business Web Site Hosting
$3.99 / month includes Tools,
Shopping Cart, Site Builder

www.siteox.com

Disaster Recovery
Small Business Oriented
Off-Site Facilities

www.mtxia.com

IBM pSeries / iSeries
Reduce your Costs
Off-Site Server Hosting

www.mtxia.com