HSBF 2004: %s

#!/usr/bin/perl -w use strict; use DirHandle; use CGI; use Image::Size; use vars qw ($TOP_URL $TOP_DIR %PHOTOGRAPHER); use vars qw ($query $show @images $num $caption $copyright $size); $TOP_DIR = "/web/www.strictlybluegrass.com/www/2004/gallery"; $TOP_URL = "/2004/gallery"; %PHOTOGRAPHER = ( 'jb' => 'jay blakesberg', 'rb' => 'rachel bleckman', 'mh' => 'matt hartenstein', ); sub file2caption { my $file = shift; my $caption = ''; my $t; $file =~ s/^.*\///g; $file =~ s/-.+/ /g; # $file =~ s/=(.+)/ - $1/; $file =~ s/=(.+)//; $file =~ s/\.(jpg|jpeg|gif)$//gi; $file =~ s/_/ /g; foreach $t ( split (/\s/, $file) ) { if ( $caption ) { $caption .= " "; } $caption .= ucfirst ($t); } $caption =~ s/(\s+)and(\s+)/$1&$2/gi; return $caption; } sub file2copyright { my $file = shift; my $copyright = ''; my $who = 'jb'; if ( $file =~ /.+-([a-zA-Z]+)\.(jpg|jpeg|gif|pnm)/i ) { $who = $1; } $copyright = $PHOTOGRAPHER{$who}; return $copyright; } ### ## load_images() - reads the directory tree and creates the image array ## of images to display ### sub load_images { my($dir) = shift; my($d, @dirs, $pred, $dh, $file); if ( !defined ($dh = new DirHandle ($dir)) ) { print "

Error: Can't access \"$dir\": $!

\n"; return 0; } if ( $dir ne "." ) { $pred = "$dir/"; } else { $pred = ""; } ## avoid silly URLS like http://www.foo.bar/blip/lwpg/./running $pred =~ s/^\.\///g; READ_LOOP: while ( defined ($file = $dh->read) ) { # print "

GOT $dir [$file]

\n"; if ( $file eq "." || $file eq ".." ) { next; } if ( -d "$dir/$file" ) { push (@dirs, "$dir/$file"); next; } if ( $file =~ /^(.+)\.(gif|jpg|jpeg)$/i ) { my($f, $s); $f = $1; $s = $2; push (@images, "${pred}${f}.${s}"); } } undef $dh; foreach $d ( @dirs ) { undef $d; } return 1; } $query = new CGI; $show = $query->param('show'); $num = $query->param('num'); print $query->header; chdir $TOP_DIR || die "

Error: Can't change to photo dir

\n"; if ( ! $show ) { print "

Error: No folder specified

\n"; exit 1; } if ( load_images ($show) == 0 ) { exit 1; } if ( scalar (@images) < 1 ) { print "

Error: No images found in $show

\n"; exit 1; } @images = sort (@images); if ( ! $num ) { $num = 0; } $caption = file2caption ($images[$num]); $copyright = file2copyright ($images[$num]); $size = Image::Size::html_imgsize($images[$num]); printf <<_EOF_, $caption; HSBF 2004: %s _EOF_ if ( $num+1 <= $#images ) { printf <<_EOF_, sprintf ("%s/%s", $TOP_URL, $images[$num+1]); _EOF_ } printf <<_EOF_, ucfirst ($show);

Hardly Strictly Bluegrass Festival 2004 - %s Photo Gallery

_EOF_ my $prev_str = '<<'; if ( $num > 0 ) { $prev_str = sprintf "<<\n", $show, $num - 1; } my $next_str = '>>'; if ( $num+1 < scalar (@images) ) { $next_str = sprintf ">>\n", $show, $num + 1; } print <<_EOF_;

_EOF_