#!/bin/sh

X=`basename "$1"`
T=/tmp/smilax-vi$$.$X

curl "$1".txt > $T.got

sed -n '1,/^$/p' $T.got | grep ^title > $T.edit
sed -n '1,/^$/p' $T.got | grep ^vol >> $T.edit
sed -n '/^$/,$p' $T.got >> $T.edit
rm -f $T.got

vi $T.edit

echo -n "Do you want to write $T.edit back to the wiki? " >&2
read yes

case $yes in
  [Yy]*) : ok ;;
  * ) echo "Not put back; file left in $T.edit" >&2
	exit 1
esac

sed -n 1p $T.edit | sed 's/^title //' > $T.title
sed -n 2p $T.edit | sed 's/^vol //' > $T.vol
sed -n '3,$p' $T.edit > $T.body

encode() {
	tr '
' '' |
	sed 's/[%]/%25/g' |
	sed 's/[&]/%26/g' |
	sed 's/[=]/%3D/g' |
	sed 's/[+]/%2B/g' |
	sed 's/[ ]/+/g' |
	sed 's/[	]/%09/g' |
	sed 's/[]/%0A/g' |
	sed '$s/%0A$//' |
	tr -d '
' ;
}

echo -n "title=" > $T.p
encode <$T.title >> $T.p 
echo -n "&v=" >> $T.p
encode <$T.vol >> $T.p 
echo -n "&lock=&text=" >> $T.p
encode <$T.body >> $T.p 


#if curl -d v="@$T.vol" -d title="@$T.title" -d text="@$T.body" -d lock= "$1".save
if curl -d @$T.p "$1".save
then
	: ok
else
	echo FAILED -- leaving $T.edit
fi

rm -f $T.title
rm -f $T.vol
rm -f $T.body
rm -f $T.p
	

# END $Header$