# Silly exif caption example use strict; sub start_plugin { my ($opt) = @_; # Setup my hooks album::hook($opt,'get_exif_caption',\&new_exif); return { author => 'David Ljung Madison', href => 'http://MarginalHacks.com/', version => '1.0', description => "Silly exif caption example..", }; } sub new_exif { my ($opt, $data, $hookname, $pic) = @_; print "In new_exif() [for hook $hookname]\n"; album::new_html($opt,$data,$pic); $data->{obj}{$pic}{exif} .= "[[ new_exif CAPTION ]]"; } # Plugins always end with: 1;