#!/usr/local/bin/perl ###################################### # # Picture Frame 1.0 # Written for the Web Page for Brian Wilson # by Mike Wheeler # mwheeler@gladstone.uoregon.edu # # Copyright 1996, Mike Wheeler, All Rights Reserved # ###################################### $title = "Brian Wilson Photo Gallery"; # This is the title of your page $bgcolor = "ffffff"; # This is the background color for the pages this script creates $border = "6"; # This is the size of the border you want around the large images. $dir_url = "http://gladstone.uoregon.edu/~mwheeler/bb_pics"; # This is the url to the directory where the full size images are. $tn_dir_url = "http://gladstone.uoregon.edu/~mwheeler/bb_pics/tn"; # This is the url to the directory where the thumbnail images are. # The thumbnail images MUST have the same name as the full size images. $tn_dir = "/ccserver/home23/mwheeler/public_html/bb_pics/tn"; # This is the path to the directory where the thumbnail images are. $caption_file = "/ccserver/home23/mwheeler/public_html/cgi/picture_frame/captions"; # This is the full path (including the file name to the captions file) of # the caption file if you choose to use one. Only images in the caption file # will be displayed. If you don't want captions leave this blank, and the # script will display every image in the $tn_dir and none will have captions. $script_name = "picture_frame.cgi"; # This is the script name, as you have it on your server. $header = <

Web Page for Brian Wilson

Photo Gallery

You can put whatever you want here, graphics, links, text, anything! EOM 1; # This is where you put the html that goes in the header. Everything MUST # be after and before You DO NOT # need to put a backslash (\) before quotation marks or @ symbols. $footer = < You can put whatever you want here, graphics, links, text, anything!

Return to Brian Wilson Photo Gallery

Return to the Web Page for Brian Wilson

EOM 1; # This is where you put the html that goes in the footer. Everything MUST # be after and before . You DO NOT # need to put a backslash (\) before quotation marks or @ symbols. # # That's it! # You must get my permission by e-mail (mwheeler@gladstone.uoregon.edu) # to change anything below this point. ##################################### if ($ENV{'QUERY_STRING'} eq ""){ &table; exit; } else { &display; exit; } ######################### # Display requested picture sub display { $file = "$ENV{'QUERY_STRING'}"; print "Content-type: text/html\n\n"; print "$title: $file\n"; print "\n"; print "$header\n"; print "

\n"; print "$footer\n"; print "

This script written by Mike Wheeler\n"; print "\n"; } ####################### # Make table page sub table { if ($caption_file ne "") { open(CAPS,"$caption_file"); while () { chop; ($key,$value) = split(/:/); $photos{$key} = $value; } close(CAPS); @tnlist = keys %photos; @captions = values %photos; } else { opendir (TN, "$tn_dir"); rewinddir (TN); @tnlist = grep(!/^\.\.?$/, readdir (TN)); closedir (TN); } $tnnum = @tnlist; $anum = int ($tnnum / 3); $bnum = ((($tnnum / 3) - $anum) * 3); print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "$header\n"; print "

Click on any image to see a full-size version of it

\n"; if ($bnum eq "0") { &main_table; &end; } if ($bnum eq "1") { &main_table; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[($anum * 3)]

\n"; } if ($bnum eq "2") { &main_table; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[($anum * 3)]

$captions[($anum * 3) + 1]

\n"; } print "

Click on any image to see a full-size version ofit

\n"; print "$footer\n"; print "

This script written by Mike Wheeler\n"; print "\n"; } ############ # Main Table sub main_table { $dnum = ($anum * 3); $cnum = "0"; while ($dnum > $cnum) { print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[$cnum]

$captions[$cnum + 1]

$captions[$cnum + 2]

\n"; $cnum = $cnum + 3; print "

\n"; } }