#!/bin/ksh
#
PBM=/opt/x11r5/bin/X11/
if [ $# -lt 1 ]; then
	echo "Usage $0 <list-of-scanned-pages>.gif"
	exit 1;
fi
if [ ! -f $1 ] ; then
	echo "Usage $0 <list-of-scanned-pages>.gif"
	exit 1;
fi
echo "%% created by scan2pf" > tmp$$.tex
echo '\\nopagenumbers' >> tmp$$.tex

for i in $*
do
	filename=${i%.*}
	echo $filename
	$PBM/giftopnm $i | $PBM/pnmcrop | $PBM/pnmtops > $filename.ps
	echo '\midinsert' >> tmp$$.tex
	echo '\\vskip 8.5in' >> tmp$$.tex
	echo "\special { psfile=$filename.ps hoffset=-72 voffset=-72 }" >> tmp$$.tex
	echo '\endinsert' >> tmp$$.tex
done
echo '\\bye' >> tmp$$.tex
tex tmp$$.tex
dvi2pdf tmp$$.dvi
#
# clean up
for i in $*
do
	filename=${i%.*}
	rm -f $filename.ps
done
rm -f tmp$$.tex tmp$$.dvi tmp$$.ps tmp$$.log
#
# What do we name the final product?
name1=${1%.*}
name2=${name1%Page*}
mv tmp$$.pdf $name2.pdf