#!/usr/bin/perl require "/usr/local/httpd/cgi-bin/cgi-lib.pl"; use Image::Size 'html_imgsize'; use Image::Size 'imgsize'; $TOPIMGDIR = "/usr/local/httpd/htmldocs/virtual/marshfield/slideshows"; &ReadParse; $dir = $in{"dir"}; $IMGDIR = "$TOPIMGDIR/$dir"; $TXTFILE = "$IMGDIR/description.txt"; $FOOTER = "$IMGDIR/footer.txt"; $description = "Slideshow"; if(-f $TXTFILE) { open TXTFILE; $description = ; $date = ; } if(-f $FOOTER) { open FOOTER; $footer =