#! /bin/sh

# dialog(B1)

TTPROTO=DSS1
TDDIN=1
TIOADDR=150
TIRQ=5

STATE=0
BT="Welcome at the installation of the AVM ISDN-Controller B1"
BSTATE=

while [ $STATE -ne 13 ]; do

	ok=0
	case $STATE in
	0)
	        dialog	--backtitle "$BT ($STATE)" --clear \
        	        --radiolist "D-channel protocol" 10 60 3 \
				DSS1 "Euro ISDN" on \
				1TR6 "German ISDN" off \
				NI-1 "National ISDN (USA)" off 2> res
		if [ $? -eq 0 ]; then
			TTPROTO=`cat res`
			case $TTPROTO in
			DSS1)
				STATE=1
				;;
			1TR6)
				STATE=2
				;;
			NI-1)
				STATE=4
				;;
			esac
		else
			STATE=13
		fi
		;;
	1)
		if [ "$TTPROTO" == "DSS1" ]; then
			BSTATE=1
			dialog	--backtitle "$BT ($STATE)" --clear \
				--radiolist "Type of BRI" 9 60 2 \
					M "Point-to-multipoint" on \
					P "Point-to-point" off 2> res
			if [ $? -eq 0 ]; then
				DUMMY=`cat res`
				case $DUMMY in
				M)
					TDDI1=0
					;;
				P)
					TDDI1=1
					;;
				esac
				STATE=2
			else
				STATE=0
			fi
		else
			BSTATE=0
			TDDI1=0
			STATE=2
		fi
		;;
	2)
		if [ "$CARD" == "b1isa" ]; then

			dialog	--backtitle "$BT ($STATE)" --clear \
				--radiolist "I/O address" 11 30 4 \
					150 "" on 250 "" off 300 "" off \
					340 "" off 2> res
			if [ $? -eq 0 ]; then
				TIOADDR=`cat res`
				STATE=3
			else
				STATE=$BSTATE
			fi
		else 	
			STATE=8
		fi
		;;
	3)	
		dialog	--backtitle "$BT ($STATE)" --clear \
			--radiolist "IRQ number" 16 30 9 \
				3 "" off 4 "" off 5 "" on 6 "" off \
				7 "" off 10 "" off 11 "" off 12 "" off \
				15 "" off 2> res
		if [ $? -eq 0 ]; then		
			TIRQ=`cat res`
			STATE=8
		else
			STATE=2
		fi
		;;
	4)	
		dialog --backtitle "$BT ($STATE)" --clear \
		    --inputbox "Directory number 1" 8 70 0 2> res
		if [ $? -ne 0 ]; then
			STATE=0
		else
			DN1=`cat res | cut -c -25`
			STATE=5
		fi
		;;
	5)	
		dialog --backtitle "$BT ($STATE)" --clear \
		    --inputbox "DN1: $DN1; Service provider identificator 1" \
			8 70 0 2> res
		if [ $? -ne 0 ]; then
			STATE=4
		else
			SPID1=`cat res | cut -c -25`
			STATE=6
		fi
		;;
	6)
		dialog --backtitle "$BT ($STATE)" --clear \
		    --inputbox "Directory number 2" 8 70 0 2> res
		if [ $? -ne 0 ]; then
			STATE=5
		else
			DN2=`cat res | cut -c -25` 
			STATE=7
		fi
		;;
	7)
		dialog --backtitle "$BT ($STATE)" --clear \
		    --inputbox "DN2: $DN2; Service provider identificator 2" \
			8 70 0 2> res
		if [ $? -ne 0 ]; then
			STATE=6
		else
			SPID2=`cat res | cut -c -25`
			STATE=2
		fi
		;;
	8)
		dialog	--backtitle "$BT ($STATE)" --clear \
			--menu Final 11 60 3 \
				OK "All settings correct?" \
				Error "Correct the settings" \
				Quit "Quit installation" 2> res
		if [ $? -ne 0 ]; then
			STATE=13
		else
			DUMMY=`cat res`
			case $DUMMY in
			OK)	
				ok=1
				STATE=13
				;;
			Error)	
				STATE=0
				;;
			Quit)
				STATE=13
				;;
			esac
		fi
		;;
	esac
done

clear
/bin/rm -f res

case $TTPROTO in
DSS1)	TPROTO=dss1
	TFILE=dss1
	;;
1TR6)	TPROTO=1tr6
	TFILE=1tr6
	;;
NI1)	TPROTO=ni-1
	TFILE=ni-1
	;;
esac

if [ $ok -eq 1 ]; then
	echo -e "Last steps...\n"
else
	echo -e "\aInstallation aborted.\n"
	exit 0
fi

