#!/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 Low Bandwidth (dialup) version of this page for "; print "people on slow and dialup connections. The version for "; print "users on High Bandwidth connections 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 " |