HTML::PhotoAlbum can create web photo albums and slideshows.
SYNOPSIS
use HTML::PhotoAlbum;
# Create a new album object, specifying the albums we have
my $album = HTML::PhotoAlbum->new(
albums => {
sf_trip => 'San Francisco Trip',
sjc_vac => 'San Jose Vacation',
puppy_1 => 'Puppy - First Week',
puppy_2 => 'Puppy - Second Week'
}
);
# By using the "selected" method, we can change what each one
# looks like. However, note these if statements are optional!
if ($album->selected eq 'sf_trip') {
print $album->render(
header => 1,
eachrow => 3,
eachpage => 12
);
} elsif ($album->selected eq 'sjc_vac') {
print $album->render(
header => 1,
eachrow => 5,
eachpage => 20,
font_face => 'times'
body_bgcolor => 'silver',
);
} else {
# Standard album just uses the defaults
# You can leave out the if's above and just use this
print $album->render(header => 1);
}
Product's homepage
Requirements:
· Perl