p800exif - add the date encoded in a P800 picture filename to the file
p800exif [-v] [--make make] [--model model] [--rights rights] [--artist artist] [--exif] [--timestamp] [--preserve] filename...
p800exif attaches the timestamp encoded in the filename of pictures created with a Sony Ericsson P800 camera phone to the file as EXIF information in the image file or as the file's modification time.
Store the make or brand of the device that created the image in the EXIF data, defaults to "Sony Ericsson".
Store the model of the device that created the image in the EXIF data, defaults to "P800".
Store the rights for the image in the EXIF data, defaults to a Creative Commons Attribution-Noncommercial-Share Alike 3.0 Unported License.
Store the name of the artist who created the image in the EXIF data, defaults to $USER.
Store EXIF data.
Change the timestamp of the file to the date and time encoded in the filename.
Change only the date part in the modification date while preserving the time part.
Be more verbose
Show version and license
An error is thrown when a date can't be extracted from the filename:
(E) The character encoding the year wasn't in the required range
(E) The character encoding the month wasn't in the required range
(E) The character encoding the day of the month wasn't in the required range
(E) The character encoding the hour of the day wasn't in the required range
(E) The filename doesn't contain a valid encoded date
(E) No filename was passed to the program
(E) The output could not be printed
Perl 5.14.0, Date::Extract:P800Picture, Image::ExifTool, File::Basename, File::stat, File::Slurp, Getopt::Long, Log::Log4perl, Pod::Usage::CommandLine
Log::Log4perl logging can be configured in p800exif_log.conf.
When inserting the EXIF data the DPI values as displayed in Apple OS X Finder Info change from 72 to 1. The JFIF density values are not affected.
Please report any bugs or feature requests at RT for rt.cpan.org.
Roland van Ipenburg, <email@example.com>
Copyright 2017 by Roland van Ipenburg
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.14.0 or, at your option, any later version of Perl 5 you may have available.
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR, OR CORRECTION.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENSE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.