User:Scsbot/formtools/formsetup
tag=$1
file=$2
tf=tf$$
rm="/bin/rm -f"
td=td$tag
xmlsed -t $file > $tf
forms="`grep '/form$' $tf`"
nf=`echo "$forms" | wc -l`
if test $nf -lt 1
then
echo "unexpected (no forms)" >&2
exit 1
fi
mkdir $td || exit 1
for x in `echo "$forms" | column 1`
do
formname="`xmlsed -x $file \\#$x/@name`"
formid="`xmlsed -x $file \\#$x/@id`"
echo "$x $formid $formname" >> $td/.toc
mkdir $td/$x
xmlsed -x $file \#$x/@action > $td/$x/.action
xmlsed -x $file \#$x/@method > $td/$x/.method
pat=`echo $x | sed 's/\./\\\\./g'`
for y in `grep "^$pat\\..*input$" $tf | column 1`
do name="`xmlsed -x $file \\#$y/@name`"
type="`xmlsed -x $file \\#$y/@type`"
value="`xmlsed -x $file \\#$y/@value`"
echo "$value" > $td/$x/$name
echo "$name $type" >> $td/$x/.toc
done
for y in `grep "^$pat\\..*/textarea$" $tf | column 1`
do name="`xmlsed -x $file \\#$y/@name`"
type=".textarea"
xmlsed -x $file \#$y > $td/$x/$name
echo "$name $type" >> $td/$x/.toc
done
done
$rm $tf
exit 0