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|<!-- XXX -->|<li><a href=\"/wohler/images/$roll/p1.html\">$title</a>\n<!-- XXX -->|" ~/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
}