#! /bin/sh
# nano's simple but non perl menu

MY_ID=`id -u`
NANO_HOME="$HOME/nanohurtz"
MY_SAVE=`ls -1 $NANO_HOME/lib/save |grep -v .bak |grep ^$MY_ID`

f_save() {
cp $NANO_HOME/lib/save/$MY_SAVE $NANO_HOME/lib/save/$MY_SAVE.bak
ls -l $NANO_HOME/lib/save/
echo -n -- ENTER --
read dummy
f_nanohurtz
}

f_restore() {
cp $NANO_HOME/lib/save/$MY_SAVE.bak $NANO_HOME/lib/save/$MY_SAVE
ls -l $NANO_HOME/lib/save/
echo -n -- ENTER --
read dummy
f_nanohurtz
}

f_menu() {
tput clear

cat << EOF

nanohurtz interactive backup/restore menu (by none other than nanohurtz)

 S) Save    - Create a backup of current savefile
 R) Restore - Restore last saved file

EOF
echo -n "Prompt> "

read _my_choice

case "$_my_choice" in
 S|s) f_save ;;
 R|r) f_restore ;;
esac
}
 
f_menu