'.$data{'title'}.' - SeanBeach.com

#!/usr/bin/perl $eol = "\n"; $cat = $ENV{'QUERY_STRING'}; if($cat =~ /^ld_/) { print "Location: http://www.seanbeach.com/portfolio_ld.shtml\n\n"; } else { print "Location: http://www.seanbeach.com/portfolio_photo.shtml\n\n"; } sub getData { my @r; open(DATA,'img_portfolio/'.$cat.'/'.$_[0].'.txt'); @r = ; close(DATA); chomp(@r); return join("\n",@r); } if(-e 'img_portfolio/'.$cat) { $data{'heading'} = getData('heading'); $data{'title'} = getData('title'); $data{'subtitle'} = getData('subtitle'); print "Content-type: text/html\n\n"; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$data{'title'}.' - SeanBeach.com'.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print '

'.$eol; print '

'.$eol; print '

'.$eol; print '

'.$data{'heading'}.'

'.$eol; print '

'.$eol; print '

'.$data{'title'}.'

'.$eol; print '

'.$data{'subtitle'}.'

'.$eol; #load images opendir(FILES,'img_portfolio/'.$cat); @files = readdir(FILES); closedir(FILES); foreach $file (@files) { if($file =~ /.jpg$/i || $file =~ /.png$/i) { push(@images,$file); } } #figure out how many columns $cols = 0; if(scalar(@images)%5 == 0) { $cols = 5; } elsif(scalar(@images)%4 == 0) { $cols = 4; } elsif((scalar(@images)%5) >= (scalar(@images)%4)) { $cols = 5; } else { $cols = 4; } if(scalar(@images) >= 20) { $cols = 5; } #print images $i = 1; foreach $img (@images) { if($i == 1) { print '

'.$eol; $needsCloseTag = 1; } print ''; print ''; print '

'.$eol; if($i == $cols) { print '

'; $i=0; $needsCloseTag=0; } $i++; } if($needsCloseTag) { print '

'.$eol; } print '

'.$eol; # print '
'.$eol; # print '

'.$eol; # print ''.$eol; # print ''.$eol; # print '

'.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; print ''.$eol; } else { print "Location: http://www.seanbeach.com/design.shtml\n\n"; }