#!/bin/ksh # spit out a puff in one of the proposed XML applications for encoding # such things. val() { eval echo '$'$1 | sed 's/\&/\&/g;s//\>/g' } set -A VARS `set | grep '^GALE_' | sed 's/=.*$//'` set -A HEADERS `set | grep '^HEADER_' | sed 's/=.*$//'` echo "\r" for h in ${HEADERS[*]} do echo -n "

" echo $(val $h)"

" done for v in ${VARS[*]} do echo -n " " echo $(val $v)"" done echo echo " " echo "

" gsed 's-$--' echo "

" echo " " echo ""