#!/usr/bin/perl ## # License: this script is copyright 2000 # D. Scott Barninger # Copying freely permitted under the GNU license # This script will scan a specified directory for images # and produce a thumbnail page containing all images in # the directory. # usage: thumb_page.cgi?directory_name # directory_name must be a sub-directory of $root-path below. #----------------------------------- # script configuration #----------------------------------- # set paths # set the paths here to the directory you want to operate # from. Place the photo dirs under this. # # $full_path = $ENV{DOCUMENT_ROOT}.'/cgi-bin/thumbpage/'; $full_path = $ENV{DOCUMENT_ROOT}; $url_location = 'http://www.hier-luebeck.de/cgi-bin/thumbpage/'; $script_name = 'thumbpage.cgi'; ##### # $full_path = "/home/www/www.hier-luebeck.de/"; # this is full path from root $root_path = "http://www.hier-luebeck.de"; # this is the dir from document root that you scan # set how many cells you want displayed in each table row $cells = "2"; #------------------------------------- # end of script configuration #------------------------------------- # if we don't get a subdirectory name as ENV[QUERYSTRING] then die if(! $ARGV[0]) {&HTMLdie("Sie haben kein Verzeichniss angegeben: thumbpage.cgi?directory");} # Initialize the table cell counter $counter = 0; # print page header print "Content-type: text/html\n\n"; print ""; print "Bildervorschau"; print ""; print ""; print ""; print ""; print ""; print ""; print "

"; print "

"; print ""; print ""; # open a pipe for input open(LS, "ls $full_path/$ARGV[0] |"); # print "$full_path/$ARGV[0]"; # read files and print links while ($dirlist=){ chomp($dirlist); @buffer = split(/\n/,$dirlist); foreach $full_file (@buffer) { if($full_file ne "." && $file ne ".." ) { print ""; $counter++; if($counter eq $cells) { print ""; $counter = 0; } } } } #close pipe close(LS); print "

"; print "
$full_file"; print "

"; print ""; print ""; print ""; sub HTMLdie { local($msg,$title)= @_ ; $title || ($title= "CGI Error") ; print "Content-type: text/html\n\n"; print < $title

$title

$msg

EOF exit ; }