#!/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 "![](\"$url\")
\n";
if (!$flag) {print "Back\n";}
print "Next\n";
}
else {
print "Content-type: text/html\n\n";
print <CGI Slideshow - Bestnetcraft
Simple CGI Slideshow
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