#
# Auto tune script for WAVSAT - talks via DDE every 30s
# and sets the frequency via RS-232
#

echo Auto Tune starting at $(date)

mode com1 baud=1200 parity=n data=8 >nul

LASTSAT="NONE"
RUNNING="TRUE"

while true
do
	SATNAME="$(dde -s WAVSAT -t Sat -r SatName)" 2>/dev/null
	if [ $? -ne 0 ]
	then
		if [ "$RUNNING" = "TRUE" ]
		then
			echo WAVSAT not responding - switching to manual control
			echo f0 >com1 
			RUNNING="FALSE"
			LASTSAT="NONE"
		fi
	else
		if [ "$RUNNING" = "FALSE" ]
		then
			RUNNING="TRUE"
			echo WAVSAT started at $(date)
		fi
		if [ "$SATNAME" != "$LASTSAT" ]
		then
			case "$SATNAME" in
				( "RESURS O1-N4" )
						echo Tuning to 137.3 MHz for $SATNAME at $(date)
						echo f1 >com1 ;;
				( "OKEAN 1-7" | "SICH-1" )
						echo Tuning to 137.4 MHz for $SATNAME at $(date)
						echo f2 >com1 ;;
				( "NOAA 12" | "NOAA 15" )
						echo Tuning to 137.5 MHz for $SATNAME at $(date)
						echo f3 >com1 ;;
				( "NOAA 11" | "NOAA 14" )
						echo Tuning to 137.62 MHz for $SATNAME at $(date)
						echo f4 >com1 ;;
				( "METEOR 3-5" | "METEOR 2-21")
						echo Tuning to 137.85 MHz for $SATNAME at $(date)
						echo f5 >com1 ;;
				( "<None>" )
						echo No satellites in tracking list - switching to manual control
						echo f0 >com1 ;;
				( "" )
						echo WAVSAT not tracking - switching to manual control
						echo f0 >com1 ;;
				( * )
						echo Tracking unknown satellite \'$SATNAME\' - switching to manual control
						echo f0 >com1 ;;
			esac
		fi
		LASTSAT="$SATNAME"
	fi
	sleep 30
done