#!/bin/sh
# radii 0.5 frontend script for the radio program.
# Jun. 02, 1998 Endre Zelena ezelena@westel900.net

CONFIGFILE=${HOME}/.xradiorc
QKAFILE=/tmp/${USER}.rad.qka
STATUS=no
[ -x "/usr/bin/dialog" ] || exit 1
[ -r "${CONFIGFILE}" ] || exit 1
dialog --clear
LISTA=`tail -10 ${CONFIGFILE} | awk '{ printf " %s %s", $2, $1 } '`
while :
do
  dialog --menu Radio 11 25 4 s Station v Volume o Off+Exit x Exit 2>$QKAFILE
  WORK=`cat $QKAFILE`
  rm -f $QKAFILE
  case $WORK in
    s)	dialog --menu Presets: 17 35 10 $LISTA 2>$QKAFILE; radio -f `cat $QKAFILE` >/dev/null && rm -f $QKAFILE ;;
    v)	dialog --inputbox Volume: 8 25 75 2>$QKAFILE; radio -v `cat $QKAFILE`>/dev/null; rm -f $QKAFILE;;
    o)	radio -off; clear; exit ;;
    x)	clear; exit 0 ;;
  esac
done
