#! /bin/sh
#----------------------------------------------------------------------------
# /var/install/bin/show-menu - show menu
#
# Copyright (c) 2001-2005 The Eisfair Team, c/o Frank Meyer, frank(at)eisfair(dot)org
#
# Creation:     2001-11-04  fm
# Last Update:  $Id: show-menu 9284 2007-01-20 15:04:42Z ansgar $
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#----------------------------------------------------------------------------

# include eislib
. /var/install/include/eislib

default_run_path='/var/install/bin'
default_menu_path='/var/install/menu'
default_config_path='/etc/config.d'
default_doc_path='/usr/share/doc'
default_init_path='/etc/init.d'

menu_file="$1"
menu_package="$2"
url=''

# check if screensize handling is available
if [ "$_EISLIB_SCREENSIZE_Y" != '' ]
   then
   if check_screensize
   then
      #
      # define menus_per_page = _EISLIB_SCREENSIZE
      #                       - 2 Header Lines
      #                       - 2 Footer Lines
      #                           0: Exit and
      #                           ask line
      let menus_per_page=${_EISLIB_SCREENSIZE_Y}-4
      true
   else
      mecho -info "Return to calling script"
      exit 1
   fi
else
   # default if screensize handling is not available
   menus_per_page=18
fi

if [ "$menu_package" != "" ]
then
    PACKAGE="$menu_package"
    export PACKAGE
fi

### read_menu_file
#############################################################################
read_menu_file()
{
    title=''
    n=0
    while read line
    do
        case "$line"
        in
            '#'*|'<!--'*)
                ## comment only - ignore
                ;;

            '<url/>')
                url=`cat /var/install/url`
                ;;

            '<version/>')
                version=`cat /etc/version`
                eiskernel=`grep "<version>" /var/install/packages/eiskernel 2>/dev/null | sed 's#</*version>##g'`
                kernel=`uname -r`
                ;;

            '<package>'*)
                temp=`/usr/local/bin/xmlsplit "$line" PACKAGE`
                if [ $? -eq 0 ]
                then
                    eval "declare $temp"
                    PACKAGE="$XMLSPLIT_TAG"
                    export PACKAGE
                fi
                ;;

            '<title>'*)
                temp=`/usr/local/bin/xmlsplit "$line" TITLE`
                if [ $? -eq 0 ]
                then
                    eval "declare $temp"
                    title="$XMLSPLIT_TAG"
                    n=`expr $n + 1`
                fi
                ;;

            '<menu'*)
                temp=`/usr/local/bin/xmlsplit "$line" MENU PACKAGE FILE PRE POST`
                if [ $? -eq 0 ]
                then
                    eval "declare $temp"
                    [ "$XMLSPLIT_ATTR_PACKAGE" = "" ] && XMLSPLIT_ATTR_PACKAGE="$PACKAGE"
                    eval comment_$n='"$XMLSPLIT_TAG"'
                    eval pre_$n='"$XMLSPLIT_ATTR_PRE"'
                    eval post_$n='"$XMLSPLIT_ATTR_POST"'
                    eval package_$n='"$XMLSPLIT_ATTR_PACKAGE"'
                    eval entry_$n='menu'
                    file="$XMLSPLIT_ATTR_FILE"
                    [ "$file" != '' ] && [ "`basename $file`" = "$file" ] && file="$default_menu_path/$file"
                    eval file_$n='"$file"'
                    eval task_$n=''
                    eval command_$n='"$default_run_path/show-menu $default_menu_path/$XMLSPLIT_ATTR_FILE $XMLSPLIT_ATTR_PACKAGE"'
                    n=`expr $n + 1`
                fi
                ;;

            '<edit'*)
                temp=`/usr/local/bin/xmlsplit "$line" EDIT PACKAGE STOPSTART PRE POST`
                if [ $? -eq 0 ]
                then
                    eval "declare $temp"
                    [ "$XMLSPLIT_ATTR_PACKAGE" = "" ] && XMLSPLIT_ATTR_PACKAGE="$PACKAGE"
                    eval comment_$n='"$XMLSPLIT_TAG"'
                    eval pre_$n='"$XMLSPLIT_ATTR_PRE"'
                    eval post_$n='"$XMLSPLIT_ATTR_POST"'
                    package="$XMLSPLIT_ATTR_PACKAGE"
                    eval package_$n='"$XMLSPLIT_ATTR_PACKAGE"'
                    eval entry_$n='edit'
                    file="$XMLSPLIT_ATTR_FILE"
                    [ "$file" != '' ] && [ "`basename $file`" = "$file" ] && file="$default_menu_path/$file"
                    eval file_$n='"$default_config_path/$package"'
                    if [ "$XMLSPLIT_ATTR_STOPSTART" = "true" ]
                    then
                        eval command_$n='"$default_run_path/edit -apply-stopstart \"$XMLSPLIT_ATTR_PACKAGE\" \"$XMLSPLIT_TAG\""'
                        eval task_$n='apply-stopstart'
                    else
                        eval command_$n='"$default_run_path/edit -apply \"$XMLSPLIT_ATTR_PACKAGE\" \"$XMLSPLIT_TAG\""'
                        eval task_$n='apply'
                    fi
                    n=`expr $n + 1`
                fi
                ;;

            '<doc'*)
                temp=`/usr/local/bin/xmlsplit "$line" DOC FILE PRE POST`
                if [ $? -eq 0 ]
                then
                    eval "declare $temp"
                    [ "$XMLSPLIT_ATTR_PACKAGE" = "" ] && XMLSPLIT_ATTR_PACKAGE="$PACKAGE"
                    eval comment_$n='"$XMLSPLIT_TAG"'
                    eval pre_$n='"$XMLSPLIT_ATTR_PRE"'
                    eval post_$n='"$XMLSPLIT_ATTR_POST"'
                    package="$XMLSPLIT_ATTR_PACKAGE"
                    eval package_$n='"$XMLSPLIT_ATTR_PACKAGE"'
                    eval entry_$n='doc'
                    file="$XMLSPLIT_ATTR_FILE"
                    [ "$file" != '' ] && [ "`basename $file`" = "$file" ] && file="$default_doc_path/$package/$file"
                    eval file_$n='"$file"'
                    eval task_$n=''
                    eval command_$n='"$default_run_path/doc \"$XMLSPLIT_ATTR_FILE\" \"$XMLSPLIT_TAG\""'
                    n=`expr $n + 1`
                fi
                ;;

            '<script'*)
                temp=`/usr/local/bin/xmlsplit "$line" SCRIPT FILE PRE POST`
                if [ $? -eq 0 ]
                then
                    eval "declare $temp"
                    eval comment_$n='"$XMLSPLIT_TAG"'
                    [ "$XMLSPLIT_ATTR_PACKAGE" = "" ] && XMLSPLIT_ATTR_PACKAGE="$PACKAGE"
                    eval comment_$n='"$XMLSPLIT_TAG"'
                    eval pre_$n='"$XMLSPLIT_ATTR_PRE"'
                    eval post_$n='"$XMLSPLIT_ATTR_POST"'
                    eval package_$n='"$XMLSPLIT_ATTR_PACKAGE"'
                    eval entry_$n='script'
                    file="$XMLSPLIT_ATTR_FILE"
                    [ "$file" != '' ] && [ "`basename $file`" = "$file" ] && file="$default_run_path/$file"
                    eval file_$n='"$file"'
                    eval task_$n=''
                    case "$XMLSPLIT_ATTR_FILE"
                    in
                        /*)
                            eval command='"$XMLSPLIT_ATTR_FILE"'
                            ;;
                        ?*)
                            eval command='"$default_run_path/$XMLSPLIT_ATTR_FILE"'
                            ;;
                        *)
                            command=''
                            ;;
                    esac

                    temp=`echo "$command" | cut -d' ' -f1`
                    if [ -x "$temp" ]
                    then
                        eval command_$n='"$command"'
                        n=`expr $n + 1`
                    fi
                fi
                ;;

            '<init'*)
                temp=`/usr/local/bin/xmlsplit "$line" INIT PACKAGE TASK PRE POST`
                if [ $? -eq 0 ]
                then
                    eval "declare $temp"
                    eval comment_$n='"$XMLSPLIT_TAG"'
                    [ "$XMLSPLIT_ATTR_PACKAGE" = "" ] && XMLSPLIT_ATTR_PACKAGE="$PACKAGE"
                    eval comment_$n='"$XMLSPLIT_TAG"'
                    eval pre_$n='"$XMLSPLIT_ATTR_PRE"'
                    eval post_$n='"$XMLSPLIT_ATTR_POST"'
                    package="$XMLSPLIT_ATTR_PACKAGE"
                    eval package_$n='"$XMLSPLIT_ATTR_PACKAGE"'
                    eval entry_$n='init'
                    files=''
                    for ac_file in $package
                    do
                        [ "$files" = '' ] && files="$default_init_path/$ac_file" || files="$files $default_init_path/$ac_file"
                    done
                    eval file_$n='"$files"'
                    eval task_$n='"$XMLSPLIT_ATTR_TASK"'
                    if [ "$XMLSPLIT_ATTR_PACKAGE" != "" -a "$XMLSPLIT_ATTR_TASK" != "" ]
                    then
                        eval command_$n='"$default_run_path/init \"$XMLSPLIT_ATTR_PACKAGE\" \"$XMLSPLIT_ATTR_TASK\" \"$XMLSPLIT_TAG\""'
                        n=`expr $n + 1`
                    fi
                fi
                ;;

            '<'*)
                # ignore unknown tags
                ;;

            *)  # old behavior for compatibility

                if [ $n -eq 0 ]
                then
                    title="$line"
                else
                    if [ "$line" = '$URL' ]
                    then
                        url=`cat /var/install/url`
                        n=`expr $n - 1`
                    elif [ "$line" = '$VERSION' ]
                    then
                        version=`cat /etc/version`
                        eiskernel=`grep "<version>" /var/install/packages/eiskernel 2>/dev/null | sed 's#</*version>##g'`
                        kernel=`uname -r`
                        n=`expr $n - 1`
                    else
                        set -- $line
                        command="$1"
                        shift
                        comment="$*"
                        eval comment_$n='"$comment"'
                        eval command_$n='"$command"'
                    fi
                fi
                n=`expr $n + 1`
                ;;
        esac
    done < $menu_file

    n=`expr $n - 1`
}

write_menu()
{
    from=$1
    to=$2
    max=$3

    count=`expr $to - $from`

    clrhome
    mecho -info "$title"
    if [ "$url" != "" ]
    then
        url=`cat /var/install/url`
        mecho "URL: $url"
    elif [ "$version" != "" ]
    then
        # always get fresh version and kernel information
        # it may have been changed because of software installation
        version=`cat /etc/version`
        eiskernel=`grep "<version>" /var/install/packages/eiskernel 2>/dev/null | sed 's#</*version>##g'`
        kernel=`uname -r`
        mecho "base: $version   eiskernel: $eiskernel ($kernel)"
    else
        mecho
    fi

    if [ $count -ge 10 ]
    then
        lines_used=`expr $count + 1`
    else
        lines_used=`expr $count '*' 2 + 2`
    fi
    blank_lines=`expr $menus_per_page - $lines_used`
    blank_lines=`expr $blank_lines / 2`

    i=1
    while [ $i -le $blank_lines ]
    do
        mecho
        i=`expr $i + 1`
    done

    i=$from
    while [ $i -le $to ]
    do
        #eval command='$command_'$i
        eval comment='$comment_'$i

        if [ $i -lt 10 ]
        then
            mecho "             $i: $comment"
        else
            mecho "            $i: $comment"
        fi

        if [ $count -lt 10 ]
        then
            mecho
        fi
        shift
        i=`expr $i + 1`
    done

    mecho "             0: Exit"

    i=1
    while [ $i -le $blank_lines ]
    do
        mecho
        i=`expr $i + 1`
    done

    # smooth check
    minmax="1-${n}"
    # strict check (enable next line for strict checking)
    # minmax="${from}-${to}"
    item='item'
    quest=''

    # build question
    [ $n -gt $to ] && quest='n'
    [ $from != 1 ] && quest="p${quest}"

    case $quest in
    n)   #mecho -n "Select $item ($from-$to, n=next page, ENTER=Return, 0=Exit):"
         #read a
         $default_run_path/ask "Select $item" '' "$minmax" "n=next page" "^$=Return" "0=Exit" > /tmp/ask.$$
         rc=$?
         ;;
    p)   #mecho -n "Select $item ($from-$to, p=previous page, ENTER=Return, 0=Exit):"
         #read a
         $default_run_path/ask "Select $item" '' "$minmax" "p=previous page" "^$=Return" "0=Exit" > /tmp/ask.$$
         rc=$?
         ;;
    pn)  #mecho -n "Select $item ($from-$to, p=previous, n=next page, ENTER=Return, 0=Exit):"
         #read a
         $default_run_path/ask "Select $item" '' "$minmax" "p=previous" "n=next page" "^$=Return" "0=Exit" > /tmp/ask.$$
         rc=$?
         ;;
    *)   #mecho -n "Select $item ($from-$to, ENTER=Return, 0=Exit):"
         #read a
         $default_run_path/ask "Select $item" '' "$minmax" "^$=Return" "0=Exit" > /tmp/ask.$$
         rc=$?
         ;;
    esac

    rc=$?
    a=`cat /tmp/ask.$$`
    rm -f /tmp/ask.$$
    if [ $rc = 255 ]; then
       exit 1
    fi
}

run_script()
{
#TEST set -x
    run_file=$1
    [ "$run_file" = '' ] && return
    shift
    type=$1
    eval run_package=$2
    # TEST
    if [ "$run_package" = 'testprepost' ]
    then
        mecho "Ready to execute $run_file with ($#) $*"
    fi
    if [ -f "$run_file" ]
    then
       sh -c "$run_file $*"
       rc=$?
    else
       if [ -f "$default_run_path/$run_file" ]
       then
          sh -c "$default_run_path/$run_file $*"
          rc=$?
       else
          mecho -error "unable to execute $type script $run_file"
          anykey
       fi
    fi
    # TEST
    if [ "$run_package" = 'testprepost' ]
    then
       mecho -warn "testing package testprepost (rc=$rc)"
       anykey
    fi
#TEST set +x
    if [ "$rc" != 0 ]
    then
       mecho -error "error in $run_file ($rc)"
       anykey
       return $rc
    fi
       
}

#############################################################################
### main
#############################################################################

while [ 1 ]
do
    clrhome
    # check menu file
    if [ ! -f $menu_file ]
    then
       mecho -error "Menufile $menu_file does not exist"
       anykey
       break
    fi

    read_menu_file
    # check for items
    if [ $n -le 0 ]
    then
       mecho -error "Menu contains no items"
       anykey
       break
    fi

    # prepare loop
    a='+'
    a_from=1
    while [ "$a" != 127 -a "$a" != '' ]
    do
       a_to=`expr $a_from + $menus_per_page - 1`
       [ $a_to -gt $n ] && a_to=$n
       write_menu $a_from $a_to $n

       case "$a"
       in
            0)       exit 127;;
            '')      break;;
            'n')     [ $a_to != $n ] && a_from=`expr $a_from + $menus_per_page`;;
            'p')     [ $a_from != 1 ] && a_from=`expr $a_from - $menus_per_page`;;
            *)       # strip leading zeroes (why doesn't ask do this?)
                     a=`expr $a + 0`
                     eval command='$command_'$a
                     eval pre='$pre_'$a
                     eval post='$post_'$a
                     eval file='$file_'$a
                     eval package='$package_'$a
                     eval entry='$entry_'$a
                     eval task='$task_'$a
                     if [ "$command" = '' ]; then
                        mecho -error "show-menu internal error (a=$a)"
                        anykey
                     else
                        if [ "$pre" != '' ]
                        then
                           run_script "$pre" pre \'"$package"\' "$entry" \'"$file"\' \'"$task"\'
                           rc=$?
                           if [ "$rc" = '0' ]
                           then
                              sh -c "$command"
                              sh_rc=$?
                              if [ "$post" != '' ]
                              then
                                 run_script "$post" post \'"$package"\' "$entry" \'"$file"\' \'"$task"\'
                              fi
                           fi
                        else
                           sh -c "$command"
                           sh_rc=$?
                           if [ "$post" != '' ]
                           then
                              run_script "$post" post \'"$package"\' "$entry" \'"$file"\' \'"$task"\'
                           fi
                        fi
                     fi
                     case $sh_rc
                     in
                          127)    exit 127;;
                          0)      ;;
                          *)      anykey;;
                     esac
                     ;;
       esac
    done
    if [ "$a" = 0 ]
    then
       exit 127
    fi
    if [ "$a" = "" ]
    then
       break
    fi
done

mecho

exit 0