#!/usr/bin/perl -wT
#photoinfo.pl

use CGI;
use strict;

$ENV{'PATH'} = '/usr/bin:/bin:';
my $sysprogram='jhead';
my $photolocation='~art/public_html/files/';
my $photourl='~art/files/';
my $cgi=new CGI; #read in parameters


print $cgi->header(); #print a header
print $cgi->start_html("Welcome"); #generate HTML document start

my $filename=$cgi->param('filename');
my $mode=$cgi->param('mode');

print qq(<a href=\"photoinfo.pl?filename=$filename&mode=info\">Info<br>
<a href=\"photoinfo.pl?filename=$filename&mode=display\">Display</a>);

if ($mode eq 'display')
{
	print "<img src=/$photolocation$filename>";
}

elsif ($mode eq "info")
{

	if ($filename =~ tr/;<>*|`&$\#![]{}:'"//) {
	print ("Invalid filename");
	} else 
{

	print "<pre>";

	print `$sysprogram $photolocation/$filename`;
	print "</pre>";
}

} else
{
	print "Please supply a mode.";
}
	print $cgi->end_html(); #finish HTML document