#!/usr/bin/perl print "Content-type: text/html\n\n"; $curdir=`pwd`; chomp $curdir; $curdir=~s:^/home/httpd/html::; print "\n
\n\n\n"; print "This is the High Bandwidth version of this page for people on "; print "fast connections. The version for dial up users is available "; print "here.
\n"; print "These are all the pictures I took, and some of them are not "; print "quite in focus. In future there will be a page which only has "; print "the selection of the OK ones. Until then this is the best "; print "I could do in the time I have right now.
\n\n"; mkdir("thumbs",0755) if(! -e "thumbs"); opendir(DIR,"."); print "
$n\n"; if ( ! -e "thumbs/$n" ) { system $command; next; } @ts = stat("thumbs/$n"); @s = stat($n); system $command if($ts[9]<$s[9]); } print " |