#!/usr/local/bin/perl use strict; my $job = $ENV{'QUERY_STRING'}; print "Content-type: text/html\n\n"; print "", "\n"; use constant PAGESIZE => 16; use constant ROWSIZE => 4; use constant THMBSIZE => 200; my $picdir = ''; my $page = 1; if ($ENV{'QUERY_STRING'} && $ENV{'QUERY_STRING'} =~ /^([^&]+)/) { $picdir = $1; } if ($ENV{'QUERY_STRING'} && $ENV{'QUERY_STRING'} =~ /^[^&]+\&(\d+)$/) { $page = $1; } if ($picdir) { my $title = $picdir; my $desc = ''; my $ldir = 'webpics/' . $picdir; if (-e "$ldir/desc.txt") { my $desctext = `cat $ldir/desc.txt`; ($title,$desc) = $desctext =~ m/([^\n\r]+)(.*)/s; $title =~ s/=:=(-?\d+)$//; } print "$title - page $page" . "\n"; print "

$title

\n"; print "

$desc

", "\n"; my @piclist; my @opics; if (-d $ldir) { foreach my $picture (`ls -1 $ldir`) { chomp $picture; unless ($picture =~ /.txt$/i || $picture =~ /\_THMB\.\w+$/ || $picture =~ /.db$/i) { if ($picture =~ /^dsc/i) { push @piclist, $picture; } else { push @opics, $picture; } } } } unless (@piclist) { print "

Warning: no pictures found in $title album" . "

\n"; $picdir = ''; } else { @piclist = (@opics,@piclist); my $lastpage = int ($#piclist / PAGESIZE) + 1; ($page < 1) && ($page = 1); ($page > $lastpage) && ($page = $lastpage); my $start = PAGESIZE * ($page - 1); my $nextst = PAGESIZE * $page; ($nextst > @piclist) && ($nextst = scalar(@piclist) + 1); my $navbar = ''; $navbar .= '

Album List

'; if (($page > 1) && ($page <= $lastpage)) { $navbar .= '[PREV]
'; } if ($lastpage > 1) { for (my $pgct = 1; $pgct <= $lastpage; $pgct++) { if ($pgct != $page) { $navbar .= '$pgct "; } else { $navbar .= " $pgct "; } } } if ($page < $lastpage) { $navbar .= '
[NEXT] '; } $navbar .= "

\n"; print $navbar; print "\n"; for (my $rst = $start; $rst < $nextst; $rst += ROWSIZE) { print "\n"; for (my $idx = $rst; $idx < $rst + ROWSIZE; $idx++) { if ($idx > $#piclist) { print "\n"; next; } my $picture = $piclist[$idx]; my $pfile = $ldir . '/' . $picture; (my $tfile = $pfile) =~ s/(\.\w+)$/_THMB$1/; (my $cfile = $pfile) =~ s/\.\w+$/.TXT/; my $psize = sprintf "%.0f", (stat($pfile))[7] / 1000; print '\n"; } print "\n"; } print "

'; print ""; (-e $tfile) && (print " $\"$picture\"$ "); my $caption = ''; (-e $cfile) && ($caption = `cat $cfile`); $caption =~ s/[\n\r]/ /g; print "
$picture [$psize kb]
$caption"; print "

\n"; print $navbar; } } else { print "Brian's Picture Page\n"; print "

Brian's Picture Page

\n"; } unless ($picdir) { print < This is a list of pictures that Brian Saunders and Andreia Maer have taken or have had taken. Please select one of the following albums:

ENDP my %picdirs; foreach my $dir (`ls -1 webpics`) { chomp $dir; my $ldir = 'webpics/' . $dir; next unless (-d $ldir); my $title = $dir; my $desc = ''; my $score = 0; if (-e "$ldir/desc.txt") { my $desctext = `cat $ldir/desc.txt`; ($title,$desc) = $desctext =~ m/([^\n\r]+)(.*)/s; if ($title =~ s/=:=(-?\d+)$//) { $score = $1; } } $picdirs{$dir}{'title'} = $title; $picdirs{$dir}{'desc'} = $desc; $picdirs{$dir}{'score'} = $score; } # print "