cat-functions

#function file for patmenu 2 catalog
#20200430 km4ack


MYPATH=$HOME/patmenu2
LOGO=$MYPATH/pmlogo.png
MAIN=$MYPATH/./catalog
PATCONFIG=$XDG_CONFIG_HOME/pat/config.json

#get callsign from pat config file
CALLSIGN=$(cat $PATCONFIG | grep -m 1 mycall | sed 's/\"mycall\": \"//' | sed 's/\",//' | sed -e 's/^\s*//' | tr '[:lower:]' '[:upper:]')


#COMPOSE EMAIL Function
COMPOSE () {
	echo "${BODY}" | pat compose ${TO} -s "$SUBJECT"
	#give user some feedback
	echo "Your request has been posted to the outbox of Pat Winlink"
	echo "Please go to Pat and initiate a connection to send the request"
	yad --no-buttons --timeout=5 --center --timeout-indicator=top --title="POSTED" --text-align=center --width="300" height="300" \
	--text="Message Posted\rTo Outbox\r\rPlease go to Winlink and\rmake a connection\rto complete the\rrequest."
	$MAIN
	exit
}



GATEWAY(){
	GATE=$(yad --form --width=420 --text-align=center --center --title="Pat Catalog" --text-align=center \
	--image $LOGO --window-icon=$LOGO --image-on-top --separator="|" --item-separator="|" \
	--text="<b>Pat Catalog</b> by KM4ACK" \
	--field="Gateway List":CB "ARDOP|PACKET")
	BUT=$?

	if [ $BUT = 252 ]; then
	exit
	fi

	GATE=$(echo $GATE | awk -F "|" '{print $1}')

	if [ -z $GATE ]; then
	$MAIN &
	exit
	fi

	if [ "$GATE" = ARDOP ]; then
	echo ARDOP
		TO="INQUIRY"
		SUBJECT="REQUEST"
		BODY="PUB_ARDOP"
		COMPOSE
	elif [ "$GATE" = PACKET ]; then
	echo PACKET
		TO="INQUIRY"
		SUBJECT="REQUEST"
		BODY="PUB_PACKET"
		COMPOSE
	fi
}

WEATHER(){
	WEATHER=$(yad --form --width=420 --text-align=center --center --title="Pat Catalog" --text-align=center \
	--image $LOGO --window-icon=$LOGO --image-on-top --separator="|" --item-separator="|" \
	--text="<b>Pat Catalog</b> by KM4ACK" \
	--field="Weather Report":CB "GPS Weather|City Weather|GRIB Files")
	BUT=$?
	if [ $BUT = 252 ]; then
		exit
	fi

	WEATHER=$(echo $WEATHER | awk -F "|" '{print $1}')

	if [ -z "$WEATHER" ]; then
		$MAIN &
		exit
	fi

	if [ "$WEATHER" = 'GPS Weather' ]; then
		TMPFILE=/run/user/$UID/gps-data.txt
		gpxlogger > $TMPFILE &
		CGPSPID=$(echo $!)
		sleep 2
		kill $CGPSPID

		DATA=$(grep lat= $TMPFILE | head -1)
		LAT=$(echo $DATA | awk '{print $2}' | sed 's/"//g;s/lat=//')
		LONG=$(echo $DATA | awk '{print $3}' | sed 's/"//g;s/lon=//;s/>//')

		TO="SMTP:query@saildocs.com"
		SUBJECT="<No Subject>"
		BODY="https://forecast.weather.gov/MapClick.php?lat="$LAT"&lon="$LONG"&unit=0&lg=english&FcstType=text&TextType=1"
		COMPOSE
	elif [ "$WEATHER" = 'City Weather' ]; then
		FILE=$MYPATH/weather.txt
		PARSER='OFS="\n" {print $1, $2, $3}'
		CITY=$(tail -76 $FILE | awk "$PARSER" | \
		yad --title="Search Results" --width=500 --height=500 \
		    --image $LOGO --window-icon=$LOGO --image-on-top \
		    --center --checklist --list \
		    --column Pick --column ID --column Area \
		    --button="Choose":2)  

		CITY=$(echo $CITY | awk -F "|" '{print $2}')

		if [ -z "$CITY" ]; then
			$MAIN &
			exit
		fi

		TO="INQUIRY"
		SUBJECT="REQUEST"
		BODY=$CITY
		COMPOSE
	elif [ "$WEATHER" = 'GRIB Files' ]; then
		echo "Need GRIB Files"
		FILE=/run/user/$UID
		QUESTION(){
			DEGREE=$(yad --center --wrap --width=350 --title="Auto Download" --text-align=center \
			--text="How many degrees would you like" \
			--form --separator="|" --item-separator="|" \
			--image $LOGO --window-icon=$LOGO --image-on-top \
			--field="Degrees":CB "2|6|10" \
			--button="Cancel:1" \
			--button="Continue:2")
			BUT=$?
			if [ $BUT = 1 ] || [ -z "$BUT" ]; then
				$MAIN &
				exit
			elif [ $BUT = 252 ]; then
				exit 
			fi

			ANS=$(echo $DEGREE | awk -F "|" '{print $1}')
			echo $ANS

			if [ $ANS = "10" ]; then
				AREA=5
				echo "aree=5"
			elif [ $ANS = "6" ]; then
				AREA=3
			elif [ $ANS = "2" ]; then
				AREA=1
			fi

			GPS=$(gpspipe -r -n 10 | grep G\.GGA)

			LAT=$(echo $GPS | awk -F "," '{printf "%.0f \n", $3 }' | cut -c1-2)
			LATD=$(echo $GPS | awk -F "," '{print $4}')
			LON=$(echo $GPS | awk -F "," '{printf "%.0f \n", $5 }' | cut -c1-2)
			LOND=$(echo $GPS | awk -F "," '{print $6}')

			#do some math
			let NEWLATADD=$LAT+$AREA
			let NEWLONADD=$LON+$AREA
			let NEWLATSUB=$LAT-$AREA
			let NEWLONSUB=$LON-$AREA

			GRIBFILE=$FILE/gribtemp
				GRIBDATA () {
					yad --height=600 --width=400 --center --list --checklist --column=Request --column=Product --separator="," \
					--text "Select the data to request." --title="GRIB DATA REQUEST" \
					--button="Exit:1" --button="Request Selected:2" < $MYPATH/griblist > $GRIBFILE

					BUTTON=$?

					if [ $BUTTON = "252" ]; then
						exit
					elif [ $BUTTON = "1" ]; then
						$MAIN &
						exit 
					fi

					#echo "button = "$BUTTON

				};export -f GRIBDATA

			GRIBDATA

			sed -i 's/TRUE,//' $GRIBFILE

			var=$(cat $GRIBFILE)
			var1=$(echo $var | sed 's/ //g' | sed 's/,*$//')
			rm $GRIBFILE

			#example of correct format
			# send gfs:40N,60N,140W,120W|2,2|24,48,72|PRESS,WIND

			TO=query@saildocs.com
			SUBJECT=REQUEST
			BODY=$(echo "send gfs:"$NEWLATSUB$LATD","$NEWLATADD$LATD","$NEWLONADD$LOND","$NEWLONSUB$LOND"|2,2|24,48,72|"$var1)
			COMPOSE			
		}
	QUESTION

	exit
	fi
exit
}





POSITION(){
	POST=$(yad --form --width=420 --text-align=center --center --title="Position" --text-align=center \
	--image $LOGO --window-icon=$LOGO --image-on-top --separator="|" --item-separator="|" \
	--text="<b>Position Reports</b> by KM4ACK" \
	--field="Choose":CB "Post Position|Single Station Request|All Nearby Stations|100 Mobile Stations" \
	--field="Enter Call Below <b>ONLY</b> for Single Station Requests":LBL \
	--field="Call Sign-SSID" \
	--field="Comment for Post Position" \
	--button="Main Menu":1 \
	--button="Continue":2)

	QUIT=$?

	if [ $QUIT = 1 ]; then
		$MAIN &
		exit
	elif [ $QUIT = 252 ]; then
		exit
	fi

	REPORT=$(echo $POST | awk -F "|" '{print $1}')

	if [ "$REPORT" = "Post Position" ]; then
		echo "posting position"
		COMMENT=$(echo $POST | awk -F "|" '{print $4}')
		pat position -c "$COMMENT" | yad --center --pulsate --progress --auto-close --text="Getting GPS Data" --no-buttons &
		yad --center --timeout=3 --timeout-indicator=top --no-buttons \
		--text="Position posted to\rPat Winlink Outbox"
		$MAIN &
		exit
	elif [ "$REPORT" = "Single Station Request" ]; then
		CALL=$(echo $POST | awk -F "|" '{print $3}')
		TO="QTH"
		SUBJECT="POSITION REQUEST"
		BODY=$CALL
		COMPOSE
	elif [ "$REPORT" = "All Nearby Stations" ]; then
		TO="INQUIRY"
		SUBJECT="REQUEST"
		BODY="WL2K_NEARBY"
		COMPOSE
	elif [ "$REPORT" = "100 Mobile Stations" ]; then
		TO="INQUIRY"
		SUBJECT="REQUEST"
		BODY="WL2K_MOBILES"
		COMPOSE
	fi
}

PROPAGATION(){
	PROP=$(yad --form --width=420 --text-align=center --center --title="Propagation" --text-align=center \
	--image $LOGO --window-icon=$LOGO --image-on-top --separator="|" --item-separator="|" \
	--text="<b>Propagation Reports</b> by KM4ACK" \
	--field="Choose Report":CB "3 Day Propagation Report|Daily WWV Report" \
	--button="Main Menu":1 \
	--button="Continue":2)
	QUIT=$?
	REPORT=$(echo $PROP | awk -F "|" '{print $1}')

	if [ $QUIT = 1 ]; then
		$MAIN &
		exit
	elif [ $QUIT = 252 ]; then
		exit
	fi

	if [ "$REPORT" = "3 Day Propagation Report" ]; then
		TO="INQUIRY"
		SUBJECT="REQUEST"
		BODY="PROP_3DAY"
		COMPOSE
	elif [ "$REPORT" = "Daily WWV Report" ]; then
		TO="INQUIRY"
		SUBJECT="REQUEST"
		BODY="PROP_WWV"
		COMPOSE
	fi
}


NEWS(){
	NEWS=$(yad --form --width=420 --text-align=center --center --title="News Reports" --text-align=center \
	--image $LOGO --window-icon=$LOGO --image-on-top --separator="|" --item-separator="|" \
	--text="<b>News Reports</b> by KM4ACK\r\rNews reports provided by Reuters" \
	--field="Choose News Report":CB "Daily|Market|Money|US News" \
	--button="Main Menu":1 \
	--button="Continue":2)
	QUIT=$?
	NEWS=$(echo $NEWS | awk -F "|" '{print $1}')

	if [ $QUIT = 1 ]; then
		$MAIN &
		exit
	elif [ $QUIT = 252 ]; then
		exit
	fi

	if [ "$NEWS" = "Daily" ]; then
		TO="SMTP:query@saildocs.com"
		SUBJECT="subject"
		BODY="send Reuters-Daily-News"
		COMPOSE
	elif [ "$NEWS" = "Market" ]; then
		TO="SMTP:query@saildocs.com"
		SUBJECT="subject"
		BODY="send Reuters-Market"
		COMPOSE
	elif [ "$NEWS" = "Money" ]; then
		TO="SMTP:query@saildocs.com"
		SUBJECT="subject"
		BODY="send Reuters-Money"
		COMPOSE
	elif [ "$NEWS" = "US News" ]; then
		TO="SMTP:query@saildocs.com"
		SUBJECT="subject"
		BODY="send Reuters-US-News"
		COMPOSE
	fi
}

RADAR(){
	RADAR=$(yad --form --width=420 --text-align=center --center --title="Radar Reports" --text-align=center \
	--image $LOGO --window-icon=$LOGO --image-on-top --separator="|" --item-separator="|" \
	--text="<b>Radar Requests</b>" \
	--field="Choose Radar":CB "Southern Miss Valley|Pacific Northwest|North Rockies|Upper Miss Valley|Central Great Lakes|Northeast|\
Pacific Southwest|Southern Rockies|Southern Plains|Southeast|National|Alaska|Hawaii|Guam|Puerto Rico" \
	--button="Main Menu":1 \
	--button="Continue":2)
	QUIT=$?
	RADAR=$(echo $RADAR | awk -F "|" '{print $1}')
	TO=INQUIRY
	SUBJECT=REQUEST

	if [ $QUIT = 1 ]; then
		$MAIN &
		exit
	elif [ $QUIT = 252 ]; then
		exit
	fi
	case $RADAR in
		"Southern Miss Valley")
			BODY=US.RAD.SMVAL;;
		"Pacific Northwest")
			BODY=US.RAD.PNW;;
		"North Rockies")
			BODY=US.RAD.NROC;;
		"Upper Miss Valley")
			BODY=US.RAD.UMVAL;;
		"Central Great Lakes")
			BODY=US.RAD.GRLAK;;
		"Northeast")
			BODY=US.RAD.NEAST;;
		"Pacific Southwest")
			BODY=US.RAD.PACSW;;
		"Southern Rockies")
			BODY=US.RAD.SROC;;
		"Southern Plains")
			BODY=US.RAD.SPLA;;
		"Southeast")
			BODY=US.RAD.SEAST;;
		"National")
			BODY=US.RAD.CONUS;;
		"Alaska")
			BODY=US.RAD.ALASK;;
		"Hawaii")
			BODY=US.RAD.HAWAI;;
		"Guam")
			BODY=US.RAD.GUAM;;
		"Puerto Rico")
			BODY=US.RAD.PR;;
	esac

COMPOSE
}