#!/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;
  }
}