Stub to test TCP_FW in MonMotha's Firewall Script

# Stub to figure out syntax for TCP_FW in MonMothma's (Rusty Russell) firewall script.
# 98% of this code is Rusty Russell's.
#
# TCP_FW = TCP ForWarding
#
# Echo statements and comments added by Jeff Borders
#
#!/bin/sh
#
#Valid rules
#source_port:destination_port>destination_host:source_host
#first_source_port[-last_source_port]:first>destination_host[:source_host]
#
TCP_FW="1:2>3:4"
#TCP Port-Forwards
if [ "$TCP_FW" != "" ] ; then
	echo "TCP Port Forwards: "
	for rule in ${TCP_FW} ; do
		echo "$rule" | {
			IFS=':><' read srcport destport host shost
				echo "$srcport" | {
					IFS='-' read fsp lsp
					if [ "$shost" = "" ] ; then
						if [ "$lsp" != "" ] ; then
							echo "$destport" | {
								IFS='-' read fdp ldp
								echo "shost = ${shost}"
								echo "fsp = ${fsp}"
								echo "lsp = ${lsp}"
								echo "host = ${host}"
								echo "destport = ${destport}"
							}
						else
								echo "srcport = ${srcport}"
								echo "host = ${host}"
								echo "destport = ${destport}"
						fi
					else
						if [ "$lsp" != "" ] ; then
							echo "$destport" | {
								IFS='-' read fdp ldp
								echo "shost = ${shost}"
								echo "fsp = ${fsp}"
								echo "lsp = ${lsp}"
								echo "host = ${host}"
								echo "destport = ${destport}"
							}
						else
								echo "srcport = ${srcport}"
								echo "destport = ${destport}"
								echo "host = ${host}"
								echo "shost = ${shost}"
						fi
					fi
					echo
					echo "external_port:destination_port>destination_host:external_host" 
					echo "${rule}"
				}
		}
	done
	echo
fi