App-CopyrightImage

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

1.01    2018-02-11
        - remove perl 5.8 from Travis

1.00    2018-02-11
        - no functional change
        - add Github information to Makefile.PL
        - made POD tests developer only

0.04    2016-07-28
        - added tests for 'dst' and 'remove'
        - updated POD with warnings that 'remove' DOES edit original files
          without making copies

0.03    2016-07-28
        - tests for 'force'
        - cleaned up other tests
        - added more documentation
        - added Travis and Appveyor CI integration

0.02    2016-07-28
        - most EXIF functionality working

README  view on Meta::CPAN

   image

    A string containing either an image filename (including full path if
    not local), or the name of a directory containing images. If the value
    is a directory, we'll operate on all images in that dir.

    We will, by default, create a new sub-directory named ci in the
    directory found in the value, and if the directory is current working
    directory, we'll create the sub directory there.

    All updated images will be copied into the new ci directory with the
    same filename, with a <C>ci_</c> prepended to it.

    Eg: "/home/user/Pictures"

   check

    We won't make any changes, we'll simply check all images specified with
    the image option, and if they are missing either Copyright or Creator
    EXIF data, we'll print this information to STDOUT.

lib/App/CopyrightImage.pm  view on Meta::CPAN

        $et->SetNewValue('Creator', $creator_string);

        my $ci_img = (fileparse($img))[0];
        $ci_img = "$dst/ci_$ci_img";
       
        # write out the new image

        $et->WriteInfo($img, $ci_img);

        # updated

        $et->ExtractInfo($ci_img);

        $errors{$img} = "failed to add Copyright; "
          if ! $et->GetValue('Copyright');

        $errors{$img} .= "failed to add Creator"
          if ! $et->GetValue('Creator');
    }
    return %errors;

lib/App/CopyrightImage.pm  view on Meta::CPAN

=head4 image

A string containing either an image filename (including full path if not
local), or the name of a directory containing images. If the value is a
directory, we'll operate on all images in that dir.

We will, by default, create a new sub-directory named C<ci> in the directory 
found in the value, and if the directory is current working directory, we'll 
create the sub directory there.

All updated images will be copied into the new C<ci> directory with the same
filename, with a <C>ci_</c> prepended to it.

Eg: C<"/home/user/Pictures">

=head4 check

We won't make any changes, we'll simply check all images specified with the
C<image> option, and if they are missing either C<Copyright> or C<Creator>
EXIF data, we'll print this information to C<STDOUT>.