#!/usr/local/bin/perl

#######################################
# All rights reserved to Killah's CGI Scripts Inc #
#######################################
# This script is easy for people who have a lot #
# of thumbs on his/her homepage :)                   #
#######################################
# homepage : cgi-shit.hypermart.net                  #
# email : cool@telekabel.nl                                #
#######################################
# Call the script like this :                                   #
# www.server.com/cgi-bin/pic.cgi?picname.jpg #
# then it will grab picname.jpg out of the dir      #
# that you've specified below . izi huh?! :)         #
####################################### 

# This is the URL where you hold your pics
  $picurl = "http://cgi-shit.hypermart.net/images/";

# This is the URL of your homepage
  $homepage = "http://cgi-shit.hypermart.net/";

#### DO NOT EDIT BELOW THIS LINE! ####

$picname = $ENV{'QUERY_STRING'};

print "Content-type: text/html", "\n\n";
print "<HTML>\n<HEAD>\n<TITLE>Full picture</TITLE>\n</HEAD>\n";
print "<BODY BGCOLOR=\"black\">\n";
print "<CENTER><BR>\n";
print "<IMG SRC=\"$picurl$picname\"><BR><BR>\n";
print "<A HREF=\"$homepage\">Back Home</A>\n";
print "</BODY>\n</HTML>";

Published in: CGI
Download

Related snippets