# 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;
