#!/usr/bin/perl

################################################################
#		       	Full Image V1.0
#
# This program is distributed as freeware. We are not            	
# responsible for any damages that the program causes	
# to your system. It may be used and modified free of 
# charge, as long as the copyright notice
# in the program that give me credit remain intact.
# If you find any bugs in this program. Please feel free 
# to report it to ledjon@ledjon.com.
# If you have any troubles installing this program. Please feel
# free to post a message on our CGI Support Forum.
# Selling this script is absolutely forbidden and illegal.
################################################################
#
#	               COPYRIGHT NOTICE:
#	
#	         Copyright 2000 Jon Coulter
#	
#	      Author:  Jon Coulter
#	      Web Site: http://scripts.ledjon.com
#	      E-Mail: ledjon@ledjon.com
#
#       This program is protected by the U.S. Copyright Law
################################################################
#--------------------------------------------------------------#
################################################################
#There is no real reason to edit anything in the script at all.#
#Use:							       #
#<!--#exec cgi="/cgi-bin/fullimage.pl"-->		       #
#Then pass the image location throught the page.	       #
#If the page name was "fullimage.html" you would use:	       #
#<a href="/fullimage.html?/images/image.gif">Image</a>	       #
#Assuming "/images/image.gif" is the path of the image,	       #
#	relative the the document root.			       #
################################################################

my $backto = $ENV{'HTTP_REFERER'};

# Form Parser.
my $url = $ENV{'QUERY_STRING'} ;

#This is kept in to keep compatible with an earlier version of the script.
my $temp = $ENV{'QUERY_STRING'};

my %request = ();
my @pairs = split(/&/,$temp);
foreach my $item (@pairs) {
	my ($name,$value)=split (/=/, $item, 2);
	$name =~ tr/+/ /;
	$name =~ s/%(..)/pack("c",hex($1))/ge;
	$value =~ tr/+/ /;
	$value =~ s/%(..)/pack("c",hex($1))/ge;
	$request{$name}=$value;
}

#Check to see if an image is specified.
  $url = $request{url} if exists $request{url};
    if ($url) {
		# Print the Result HTML
    print "Content-type: text/html\n\n";
    print "<!--Full Image by Jon Coulter - http://www.ledscripts.com-->";
    print "<img src=\"$url\">\n";
    print "<br>[<a href=\"$backto\">Back</a>]";
} else {
    print "Content-type: text/html\n\n";
    print "No Image Selected";
}