#!/usr/bin/perl -w use strict; use warnings; use diagnostics; use CGI; my $q = new CGI; my $status = $q->param('status'); my $album = $q->param('album') ; my $img = $q->param('pic') ; my $user = $q->param('user') ; my @html; my $row; my $src; my $pic; my $html; my $viewersrc = "http://eoinmurphy00.netfirms.com/albums/$album/$img"; if ($status eq "viewall"){ $html = viewall(); } elsif ($status eq "viewer"){ $html = viewer($viewersrc, $user); } print qq(Content-type: text/html\n $html); sub viewall{ my $pic; my $dir = "../www/albums/$album"; opendir DIR, "$dir" or die $!; my @images= grep /\.img/, readdir DIR; closedir DIR; my $ttlcounter = "0"; my $tmpcounter = "0"; foreach $pic (@images) { $src = "http://eoinmurphy00.netfirms.com/albums/$album/$pic"; if ($tmpcounter == 3) { $tmpcounter = "0"; $row = qq(                   \  \  \ ); push @html, $row; $tmpcounter++; } else { $row = qq(\  \  \ ); push @html, $row; $tmpcounter++; } } my $album_html = qq( Apres Bonne Anse Plage

 

$album

@html

 

); return $album_html } sub viewer{ my( $src, $user ) = @_; my @splitsrc = split(/\//, $src); my $currentpic = pop(@splitsrc); print $currentpic; my @imgnmbr = ($currentpic =~ /\d+/g); my $nextimgnmbr = $imgnmbr[0]; my $previmgnmbr = $imgnmbr[0]; $nextimgnmbr++; $previmgnmbr--; my $nextpic = "pic$nextimgnmbr.img"; my $prevpic = "pic$previmgnmbr.img"; my $next_html = "http://eoinmurphy00.netfirms.com/cgi-bin/albums.cgi?status=viewer&album=$album&pic=$nextpic&user$user"; my $previous_html = "http://eoinmurphy00.netfirms.com/cgi-bin/albums.cgi?status=viewer&album=$album&pic=$prevpic&user$user"; my $viewer_html = qq( Apres Bonne Anse Plage

 

); return $viewer_html }