#!/usr/bin/perl $header = `cat ../includes/header.html`; $footer =`cat ../includes/footer.html`; $menu = `cat ../includes/menu.html`; # The URL to the script $cgi_url='http://manleyrichardson.com/cgi-bin'; # The URL to the images $image_url='http://www.manleyrichardson.com/gallery/images'; # The path to the images $image_path='../gallery/images'; # main bit require "showhtml.pl"; &parse_query; opendir (DATA, "$image_path"); @filenames = grep (!/^\.\.?$/, readdir (DATA)); closedir (DATA); $image_name = $filenames[$query{'image'}]; $nextimage = $query{'image'} + 1; $previmage = $query{'image'} - 1; $nextimage = 0 if($nextimage > @filenames-1); $previmage = @filenames-1 if($previmage < 0); &html_main; sub parse_query { @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $query{$name} = $value; } }