#!/usr/bin/env perl use strict; use warnings; print "Content-type:text/html\n\n"; print <SK | Pictures


  SK   Pictures   Other  

Photo Albums

header my $WIDTH = 3; if(defined($ENV{'QUERY_STRING'}) && $ENV{'QUERY_STRING'} && (-e "/u/k/r/kronenfe/public/html/pics/$ENV{'QUERY_STRING'}")) { show_album($ENV{'QUERY_STRING'}); } else { dienice("Invalid album supplied"); } sub show_album { my $dir = shift; if($dir) { opendir(DIR, "/u/k/r/kronenfe/public/html/pics/$dir/thumbs") or dienice("Could not open thumbs directory: $!"); my @files = readdir(DIR); closedir(DIR); print "\n"; my $cnt = 0; foreach my $file (sort(@files)) { next if($file !~ /^_/ ); # Form the original file name (my $mfile = $file) =~ s/^_//; my $caption = " "; # Caption to display under images if($mfile =~ /^MOV_/) { $mfile =~ s/\.jpg/\.mov/; $caption = "Movie [quicktime]"; } if($mfile =~ /^AVI_/) { $mfile =~ s/\.jpg/\.avi/; $caption = "Movie [quicktime]"; } if($cnt == 0) { print "\n"; } print "\n"; if($cnt == ($WIDTH-1)) { print "\n"; } $cnt = ($cnt+1) % $WIDTH; } print "

$caption
\n"; } else { print "

Invalid directory supplied"; } } sub dienice { print "

Error


", $_[0], "\n"; exit; }