#!/usr/bin/perl

# Image viewing script
# By Richard Smith
# (c) Copyright Square Eight 1999. All Rights Reserved.
# September 1999
# Use it, abuse it, poke it, prode it. Don't redistribute it and say at the bottom
# the script was written by me, with a link to Square Eight http://www.square8.com/


# Header
open(IN, 'head.html');
	while(<IN>) {
		$header .= $_;
	}
close(IN);

# and footer
open(IN, 'foot.html');
	while(<IN>) {
		$footer .= $_;
	}
close(IN);

use CGI;
$cgi = new CGI;
print $cgi->header;

$image = $cgi->param("image");
$h = $cgi->param("h");
$w = $cgi->param("w");
$alt = $cgi->param("alt");
$back = $cgi->param("back");
$name = $cgi->param("name");

print $header;

if ($h eq "" or $w eq "") {
	print qq|<p align="center"><img src="$image" border="0" alt="$alt"><br><br><FONT color=#ffffff face="Arial, Helvetica, sans-serif"><a href="$back">Click here to return to $name</a>.</font></p>|;
} else {
	print qq|<p align="center"><img src="$image" height="$h" width="$w" border="0" alt="$alt"><br><br><FONT color=#ffffff face="Arial, Helvetica, sans-serif"><a href="$back">Click here to return to $name</a>.</font></p>|;
}

print $footer;