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

use CGI;
use strict;

$ENV{'PATH'} = '/usr/bin:/bin:/home/art/public_html/files/';
my $sysprogram='jhead';

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');

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

elsif ($mode="info")
{

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

	print "<pre>";

	print `$sysprogram /home/art/public_html/files/$filename`;
	print "</pre>";
}

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