$title

# Create new html page, add thumbnail, and make the default image $webdir = "c:/home/web"; $newfile = shift; $title = shift; if (!$newfile || !$title) { print "usage: makepage name title\n"; exit 0; } # Figure out relative paths, allowing for pics/html in subdirs $d = $newfile; $d =~ s#^./##g; $d =~ s#[^/]+/#../#g; $d =~ s#[^/]+$##; $d =~ s#/$##; $updir = "../$d"; sub newpage { $info = `identify $webdir/images/${newfile}.jpg`; $_ = $info; ($w,$h) = /\s(\d+)x(\d+)\s/; open(NEWHTML, ">$webdir/html/$newfile.htm"); print NEWHTML < $title

EOP close(NEWHTML); } sub makethumbnail { return if ( -e "$webdir/images/${newfile}_t.jpg" ); $info = `identify $webdir/images/${newfile}.jpg`; $_ = $info; ($w,$h) = /\s(\d+)x(\d+)\s/; $newh = int($h*(110./$w)); `convert -geometry 110x$newh $webdir/images/${newfile}.jpg $webdir/images/${newfile}_t.jpg`; } sub addthumbnail { makethumbnail(); $curpictures = "$webdir/html/curpictures.html"; $info = `identify $webdir/images/${newfile}_t.jpg`; $_ = $info; ($w,$h) = /\s(\d+)x(\d+)\s/; open(TMPHTML, ">tmp$$"); open(PICSHTML, $curpictures); $searching = 1; while($searching) { $_ = ; if (m%

%) { $searching = 0; print TMPHTML; print TMPHTML <

EOL break; } else { print TMPHTML; } } while() { print TMPHTML; } close(PICSHTML); close(TMPHTML); rename "tmp$$", $curpictures; } sub makeindex { open(TMPHTML, ">tmp$$"); print TMPHTML < Rachel and Andrew's Home Page <BODY> Viewing this page requires a browser capable of displaying frames. </BODY> EOP close(TMPHTML); rename "tmp$$", "$webdir/html/index.html"; } # Now do the work newpage(); addthumbnail(); makeindex(); chdir("$webdir/utils"); open(NEWFILES,">>newfiles.txt"); print NEWFILES "html/$newfile.htm\n"; print NEWFILES "images/$newfile.jpg\n"; print NEWFILES "images/${newfile}_t.jpg\n"; print NEWFILES "html/curpictures.html\n"; print NEWFILES "html/index.html\n"; close(NEWFILES);