#!/bin/ksh
################################################################################
# Print all xml sections of file
#
# Written by Matt Baker mbaker@computeranddata.com
################################################################################

DEBUG=0

usage () 
{
	print "Usage error"
	print "$0 [-debug] filename"
	print ""
	exit 1
}

if (( ! $# ))
then
	print "Usage: must provide an argument."
	exit 1	
fi

while (( $# ))
do
	case "$1" in
		-debug)
			shift
			DEBUG=1
			set -x
			;;

		*) 
			FILE=$1
			shift
			if [[ ! -f $FILE ]]
			then
				print "ERROR:3:File $FILE not found"
				exit 3
			fi
			;;
	esac
done

for PATTERN in $(grep "^<[a-zA-Z]* " $FILE | awk '{print $1}' | cut -c2-)
do
	awk '/^<'$PATTERN'/,/^<\/'$PATTERN'>/ {print $0}' $FILE
done