Slide Show Perl Script

Search Engine Optimization Techniques | Search Engine Optimization for dynamic pages | Free Perl CGI scripts | Online Test Engine

#!/usr/bin/perl
##################################################################
# Script by MP.Prakash R.Lewis									 #
# http://www.bestnetcraft.com                                    #
# This script is offered in the same terms as Perl.              #
# Comments and suggestions may be sent through                   #
# http://www.bestnetcraft.com/contact.html                       #
# No liability or damage will be accepted by the                 #  
# author under any circumstances.                                #
#                                                                #
#        - DESCRIPTION -                                         #
# Simple CGI Slideshow script using numbered images              #
# Completely toned-down version of the Gallery application       #
# which puts out a dynamically generated webpage from a directory#
# full of images and cooks up suitable accompanying text from    #
# a template/database. http://www.bestnetcraft.com/resource.html #
##################################################################

$self="photo.cgi";# this script
$no=$ENV{'QUERY_STRING'};
$path="/";
 
if ($no=~/\d/){
$flag=0;
$ff =$no +1;
$rw =$no -1;
if ($rw <=1) {$flag=1;}

$url="$path$no.jpg";
#print the Html page
print "Content-type: text/html\n\n";

print "<img src=\"$url\"> \n";

if (!$flag) {print "<a href=\"$self?$rw\">Back</a>\n";}
print "<a href=\"$self?$ff\">Next</a>\n";

}
else {
print "Content-type: text/html\n\n";
print <<endo;

<html><head><title>CGI Slideshow - Bestnetcraft</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Simple CGI Slideshow</h1>

Simple CGI Slideshow. Free CGI/Perl scripts,ebooks and customized
web services at down-to-earth prices from www.bestnetcraft.com 
©2000-2001.Bestnetcraft.com   
All rights reserved ! 
 
No Image is selected. 
Usage: Call this script passing a numeric parameter. Eg:
http://www.bestnetcraft.com/cgi-bin/gallery.cgi?5

</body></html>

endo

exit(0);
}