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 }