#!/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; open LOG, ">logfile" or die $!; my $dir = "../www/albums/$album"; opendir DIR, "$dir" or die $!; my @images= grep /\.img/, readdir DIR; closedir DIR; print LOG "\@images contains ============== @images\n\n"; my $counter = "0"; foreach $pic (@images){ $src = "http://eoinmurphy00.netfirms.com/albums/$album/$pic"; print LOG "My img src is $src for pic $pic\n"; if ($counter == 3){ $counter = "0"; $row = qq(                   \  \  \ ); push @html, $row; $counter++; } else{ $row = qq(\  \  \ ); push @html, $row; $counter++; } print LOG @html; } my $album_html = qq( Apres Bonne Anse Plage

 

$album

@html

 

); return $album_html } sub viewer{ my( $src, $username ) = @_; my $next_html; my $previous_html; my $viewer_html = qq( Apres Bonne Anse Plage

 

$album

Previous

Next

 

); return $viewer_html }