63 lines
1.6 KiB
Perl
63 lines
1.6 KiB
Perl
|
#------------------------------------------------------------------------------
|
||
|
# File: Motorola.pm
|
||
|
#
|
||
|
# Description: Read Motorola meta information
|
||
|
#
|
||
|
# Revisions: 2015/10/29 - P. Harvey Created
|
||
|
#------------------------------------------------------------------------------
|
||
|
|
||
|
package Image::ExifTool::Motorola;
|
||
|
|
||
|
use strict;
|
||
|
use vars qw($VERSION);
|
||
|
use Image::ExifTool::Exif;
|
||
|
|
||
|
$VERSION = '1.00';
|
||
|
|
||
|
# Motorola makernotes tags (ref PH)
|
||
|
%Image::ExifTool::Motorola::Main = (
|
||
|
WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
|
||
|
CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
|
||
|
GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
|
||
|
WRITABLE => 1,
|
||
|
# 0x5570 - some sort of picture mode (auto,hdr)
|
||
|
# 0x6400 - HDR? (OFF,ON)
|
||
|
# 0x6410 - HDR? (NO,YES)
|
||
|
# 0x6420 - only exists in HDR images
|
||
|
0x665e => { Name => 'Sensor', Writable => 'string' }, # (eg. "BACK,IMX230")
|
||
|
# 0x6700 - serial number?
|
||
|
0x6705 => { Name => 'ManufactureDate', Writable => 'string' }, # (NC, eg. "03Jun2015")
|
||
|
# 0x6706 - serial number?
|
||
|
);
|
||
|
|
||
|
1; # end
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
Image::ExifTool::Motorola - Read Motorola meta information
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
This module is loaded automatically by Image::ExifTool when required.
|
||
|
|
||
|
=head1 DESCRIPTION
|
||
|
|
||
|
This module contains the definitions to read meta information from Motorola
|
||
|
cell phone images.
|
||
|
|
||
|
=head1 AUTHOR
|
||
|
|
||
|
Copyright 2003-2018, Phil Harvey (phil at owl.phy.queensu.ca)
|
||
|
|
||
|
This library is free software; you can redistribute it and/or modify it
|
||
|
under the same terms as Perl itself.
|
||
|
|
||
|
=head1 SEE ALSO
|
||
|
|
||
|
L<Image::ExifTool::TagNames/Motorola Tags>,
|
||
|
L<Image::ExifTool(3pm)|Image::ExifTool>
|
||
|
|
||
|
=cut
|