scanstoweb() {
echo -n "Title? "
read title
roll=$(basename $PWD)
dir=~/public_html/images/$roll
xv -vsmap
mkjpgs $dir -geom 350
cd $dir || return
mkpage.pl -border -title "$title" -html p -max 10 .
perl -pi~ -e "s||
$title\n|" ~/public_html/world-tour.html
wwwis -UpcaseTags lower -DocumentRoot /var/www/ *.html
}
mkjpgs() {
dir=$1
shift
convert_flags=$*
mkdir $dir
for i in *.pnm; do
root=$(basename $i .pnm)
echo $i
convert $convert_flags $i $dir/$root.jpg
done
}