exiftool_vendored 13.31.0 → 13.33.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (43) hide show
  1. checksums.yaml +4 -4
  2. data/bin/Changes +38 -1
  3. data/bin/MANIFEST +5 -0
  4. data/bin/META.json +1 -1
  5. data/bin/META.yml +1 -1
  6. data/bin/README +47 -46
  7. data/bin/exiftool +81 -56
  8. data/bin/lib/Image/ExifTool/BuildTagLookup.pm +7 -5
  9. data/bin/lib/Image/ExifTool/Canon.pm +10 -2
  10. data/bin/lib/Image/ExifTool/Exif.pm +5 -3
  11. data/bin/lib/Image/ExifTool/FlashPix.pm +4 -159
  12. data/bin/lib/Image/ExifTool/FujiFilm.pm +10 -3
  13. data/bin/lib/Image/ExifTool/Geotag.pm +5 -3
  14. data/bin/lib/Image/ExifTool/GoPro.pm +14 -2
  15. data/bin/lib/Image/ExifTool/LNK.pm +4 -1
  16. data/bin/lib/Image/ExifTool/Lang/cs.pm +0 -1
  17. data/bin/lib/Image/ExifTool/Lang/de.pm +0 -1
  18. data/bin/lib/Image/ExifTool/Lang/fr.pm +0 -1
  19. data/bin/lib/Image/ExifTool/Lang/it.pm +0 -1
  20. data/bin/lib/Image/ExifTool/Lang/ja.pm +0 -1
  21. data/bin/lib/Image/ExifTool/Lang/nl.pm +0 -1
  22. data/bin/lib/Image/ExifTool/Lang/pl.pm +0 -1
  23. data/bin/lib/Image/ExifTool/Lang/zh_cn.pm +0 -1
  24. data/bin/lib/Image/ExifTool/Microsoft.pm +158 -1
  25. data/bin/lib/Image/ExifTool/Minolta.pm +1 -1
  26. data/bin/lib/Image/ExifTool/Nikon.pm +71 -37
  27. data/bin/lib/Image/ExifTool/NikonCustom.pm +40 -10
  28. data/bin/lib/Image/ExifTool/Olympus.pm +240 -35
  29. data/bin/lib/Image/ExifTool/Panasonic.pm +3 -3
  30. data/bin/lib/Image/ExifTool/Pentax.pm +271 -53
  31. data/bin/lib/Image/ExifTool/QuickTime.pm +11 -4
  32. data/bin/lib/Image/ExifTool/Sony.pm +5 -2
  33. data/bin/lib/Image/ExifTool/TNEF.pm +487 -0
  34. data/bin/lib/Image/ExifTool/TagLookup.pm +4373 -4264
  35. data/bin/lib/Image/ExifTool/TagNames.pod +249 -17
  36. data/bin/lib/Image/ExifTool/WriteExif.pl +14 -12
  37. data/bin/lib/Image/ExifTool/Writer.pl +15 -11
  38. data/bin/lib/Image/ExifTool/XMPStruct.pl +1 -1
  39. data/bin/lib/Image/ExifTool.pm +11 -4
  40. data/bin/lib/Image/ExifTool.pod +45 -44
  41. data/bin/perl-Image-ExifTool.spec +46 -45
  42. data/lib/exiftool_vendored/version.rb +1 -1
  43. metadata +3 -2
@@ -57,7 +57,7 @@ use vars qw($VERSION $AUTOLOAD @formatSize @formatName %formatNumber %intFormat
57
57
  use Image::ExifTool qw(:DataAccess :Utils);
58
58
  use Image::ExifTool::MakerNotes;
59
59
 
60
- $VERSION = '4.58';
60
+ $VERSION = '4.59';
61
61
 
62
62
  sub ProcessExif($$$);
63
63
  sub WriteExif($$$);
@@ -402,7 +402,7 @@ my %opcodeInfo = (
402
402
  THM => 'THM - DCF thumbnail file',
403
403
  },
404
404
  },
405
- 0x2 => { #5
405
+ 0x2 => { #5 (not in the EXIF spec)
406
406
  Name => 'InteropVersion',
407
407
  Description => 'Interoperability Version',
408
408
  Protected => 1,
@@ -2029,7 +2029,7 @@ my %opcodeInfo = (
2029
2029
  OffsetPair => -1,
2030
2030
  },
2031
2031
  0x8782 => 'T88Options', #20
2032
- 0x87ac => 'ImageLayer',
2032
+ 0x87ac => 'ImageLayer', # Defined in the Mixed Raster Content part of RFC 2301
2033
2033
  0x87af => { #30
2034
2034
  Name => 'GeoTiffDirectory',
2035
2035
  Format => 'undef',
@@ -4209,6 +4209,8 @@ my %opcodeInfo = (
4209
4209
  },
4210
4210
  },
4211
4211
  # 0xc7d6 - int8u: 1 (SubIFD1 of Nikon Z6/Z7 NEF)
4212
+ 0xc7d7 => { Name => 'ZIFMetadata', Binary => 1 },
4213
+ 0xc7d8 => { Name => 'ZIFAnnotations', Binary => 1 },
4212
4214
  0xc7e9 => { # DNG 1.5
4213
4215
  Name => 'DepthFormat',
4214
4216
  Writable => 'int16u',
@@ -21,8 +21,9 @@ use vars qw($VERSION);
21
21
  use Image::ExifTool qw(:DataAccess :Utils);
22
22
  use Image::ExifTool::Exif;
23
23
  use Image::ExifTool::ASF; # for GetGUID()
24
+ use Image::ExifTool::Microsoft; # for %codePage
24
25
 
25
- $VERSION = '1.49';
26
+ $VERSION = '1.50';
26
27
 
27
28
  sub ProcessFPX($$);
28
29
  sub ProcessFPXR($$$);
@@ -123,163 +124,6 @@ my %oleFormatSize = (
123
124
  # names for each type of directory entry
124
125
  my @dirEntryType = qw(INVALID STORAGE STREAM LOCKBYTES PROPERTY ROOT);
125
126
 
126
- # list of code pages used by Microsoft
127
- # (ref http://msdn.microsoft.com/en-us/library/dd317756(VS.85).aspx)
128
- my %codePage = (
129
- 37 => 'IBM EBCDIC US-Canada',
130
- 437 => 'DOS United States',
131
- 500 => 'IBM EBCDIC International',
132
- 708 => 'Arabic (ASMO 708)',
133
- 709 => 'Arabic (ASMO-449+, BCON V4)',
134
- 710 => 'Arabic - Transparent Arabic',
135
- 720 => 'DOS Arabic (Transparent ASMO)',
136
- 737 => 'DOS Greek (formerly 437G)',
137
- 775 => 'DOS Baltic',
138
- 850 => 'DOS Latin 1 (Western European)',
139
- 852 => 'DOS Latin 2 (Central European)',
140
- 855 => 'DOS Cyrillic (primarily Russian)',
141
- 857 => 'DOS Turkish',
142
- 858 => 'DOS Multilingual Latin 1 with Euro',
143
- 860 => 'DOS Portuguese',
144
- 861 => 'DOS Icelandic',
145
- 862 => 'DOS Hebrew',
146
- 863 => 'DOS French Canadian',
147
- 864 => 'DOS Arabic',
148
- 865 => 'DOS Nordic',
149
- 866 => 'DOS Russian (Cyrillic)',
150
- 869 => 'DOS Modern Greek',
151
- 870 => 'IBM EBCDIC Multilingual/ROECE (Latin 2)',
152
- 874 => 'Windows Thai (same as 28605, ISO 8859-15)',
153
- 875 => 'IBM EBCDIC Greek Modern',
154
- 932 => 'Windows Japanese (Shift-JIS)',
155
- 936 => 'Windows Simplified Chinese (PRC, Singapore)',
156
- 949 => 'Windows Korean (Unified Hangul Code)',
157
- 950 => 'Windows Traditional Chinese (Taiwan)',
158
- 1026 => 'IBM EBCDIC Turkish (Latin 5)',
159
- 1047 => 'IBM EBCDIC Latin 1/Open System',
160
- 1140 => 'IBM EBCDIC US-Canada with Euro',
161
- 1141 => 'IBM EBCDIC Germany with Euro',
162
- 1142 => 'IBM EBCDIC Denmark-Norway with Euro',
163
- 1143 => 'IBM EBCDIC Finland-Sweden with Euro',
164
- 1144 => 'IBM EBCDIC Italy with Euro',
165
- 1145 => 'IBM EBCDIC Latin America-Spain with Euro',
166
- 1146 => 'IBM EBCDIC United Kingdom with Euro',
167
- 1147 => 'IBM EBCDIC France with Euro',
168
- 1148 => 'IBM EBCDIC International with Euro',
169
- 1149 => 'IBM EBCDIC Icelandic with Euro',
170
- 1200 => 'Unicode UTF-16, little endian',
171
- 1201 => 'Unicode UTF-16, big endian',
172
- 1250 => 'Windows Latin 2 (Central European)',
173
- 1251 => 'Windows Cyrillic',
174
- 1252 => 'Windows Latin 1 (Western European)',
175
- 1253 => 'Windows Greek',
176
- 1254 => 'Windows Turkish',
177
- 1255 => 'Windows Hebrew',
178
- 1256 => 'Windows Arabic',
179
- 1257 => 'Windows Baltic',
180
- 1258 => 'Windows Vietnamese',
181
- 1361 => 'Korean (Johab)',
182
- 10000 => 'Mac Roman (Western European)',
183
- 10001 => 'Mac Japanese',
184
- 10002 => 'Mac Traditional Chinese',
185
- 10003 => 'Mac Korean',
186
- 10004 => 'Mac Arabic',
187
- 10005 => 'Mac Hebrew',
188
- 10006 => 'Mac Greek',
189
- 10007 => 'Mac Cyrillic',
190
- 10008 => 'Mac Simplified Chinese',
191
- 10010 => 'Mac Romanian',
192
- 10017 => 'Mac Ukrainian',
193
- 10021 => 'Mac Thai',
194
- 10029 => 'Mac Latin 2 (Central European)',
195
- 10079 => 'Mac Icelandic',
196
- 10081 => 'Mac Turkish',
197
- 10082 => 'Mac Croatian',
198
- 12000 => 'Unicode UTF-32, little endian',
199
- 12001 => 'Unicode UTF-32, big endian',
200
- 20000 => 'CNS Taiwan',
201
- 20001 => 'TCA Taiwan',
202
- 20002 => 'Eten Taiwan',
203
- 20003 => 'IBM5550 Taiwan',
204
- 20004 => 'TeleText Taiwan',
205
- 20005 => 'Wang Taiwan',
206
- 20105 => 'IA5 (IRV International Alphabet No. 5, 7-bit)',
207
- 20106 => 'IA5 German (7-bit)',
208
- 20107 => 'IA5 Swedish (7-bit)',
209
- 20108 => 'IA5 Norwegian (7-bit)',
210
- 20127 => 'US-ASCII (7-bit)',
211
- 20261 => 'T.61',
212
- 20269 => 'ISO 6937 Non-Spacing Accent',
213
- 20273 => 'IBM EBCDIC Germany',
214
- 20277 => 'IBM EBCDIC Denmark-Norway',
215
- 20278 => 'IBM EBCDIC Finland-Sweden',
216
- 20280 => 'IBM EBCDIC Italy',
217
- 20284 => 'IBM EBCDIC Latin America-Spain',
218
- 20285 => 'IBM EBCDIC United Kingdom',
219
- 20290 => 'IBM EBCDIC Japanese Katakana Extended',
220
- 20297 => 'IBM EBCDIC France',
221
- 20420 => 'IBM EBCDIC Arabic',
222
- 20423 => 'IBM EBCDIC Greek',
223
- 20424 => 'IBM EBCDIC Hebrew',
224
- 20833 => 'IBM EBCDIC Korean Extended',
225
- 20838 => 'IBM EBCDIC Thai',
226
- 20866 => 'Russian/Cyrillic (KOI8-R)',
227
- 20871 => 'IBM EBCDIC Icelandic',
228
- 20880 => 'IBM EBCDIC Cyrillic Russian',
229
- 20905 => 'IBM EBCDIC Turkish',
230
- 20924 => 'IBM EBCDIC Latin 1/Open System with Euro',
231
- 20932 => 'Japanese (JIS 0208-1990 and 0121-1990)',
232
- 20936 => 'Simplified Chinese (GB2312)',
233
- 20949 => 'Korean Wansung',
234
- 21025 => 'IBM EBCDIC Cyrillic Serbian-Bulgarian',
235
- 21027 => 'Extended Alpha Lowercase (deprecated)',
236
- 21866 => 'Ukrainian/Cyrillic (KOI8-U)',
237
- 28591 => 'ISO 8859-1 Latin 1 (Western European)',
238
- 28592 => 'ISO 8859-2 (Central European)',
239
- 28593 => 'ISO 8859-3 Latin 3',
240
- 28594 => 'ISO 8859-4 Baltic',
241
- 28595 => 'ISO 8859-5 Cyrillic',
242
- 28596 => 'ISO 8859-6 Arabic',
243
- 28597 => 'ISO 8859-7 Greek',
244
- 28598 => 'ISO 8859-8 Hebrew (Visual)',
245
- 28599 => 'ISO 8859-9 Turkish',
246
- 28603 => 'ISO 8859-13 Estonian',
247
- 28605 => 'ISO 8859-15 Latin 9',
248
- 29001 => 'Europa 3',
249
- 38598 => 'ISO 8859-8 Hebrew (Logical)',
250
- 50220 => 'ISO 2022 Japanese with no halfwidth Katakana (JIS)',
251
- 50221 => 'ISO 2022 Japanese with halfwidth Katakana (JIS-Allow 1 byte Kana)',
252
- 50222 => 'ISO 2022 Japanese JIS X 0201-1989 (JIS-Allow 1 byte Kana - SO/SI)',
253
- 50225 => 'ISO 2022 Korean',
254
- 50227 => 'ISO 2022 Simplified Chinese',
255
- 50229 => 'ISO 2022 Traditional Chinese',
256
- 50930 => 'EBCDIC Japanese (Katakana) Extended',
257
- 50931 => 'EBCDIC US-Canada and Japanese',
258
- 50933 => 'EBCDIC Korean Extended and Korean',
259
- 50935 => 'EBCDIC Simplified Chinese Extended and Simplified Chinese',
260
- 50936 => 'EBCDIC Simplified Chinese',
261
- 50937 => 'EBCDIC US-Canada and Traditional Chinese',
262
- 50939 => 'EBCDIC Japanese (Latin) Extended and Japanese',
263
- 51932 => 'EUC Japanese',
264
- 51936 => 'EUC Simplified Chinese',
265
- 51949 => 'EUC Korean',
266
- 51950 => 'EUC Traditional Chinese',
267
- 52936 => 'HZ-GB2312 Simplified Chinese',
268
- 54936 => 'Windows XP and later: GB18030 Simplified Chinese (4 byte)',
269
- 57002 => 'ISCII Devanagari',
270
- 57003 => 'ISCII Bengali',
271
- 57004 => 'ISCII Tamil',
272
- 57005 => 'ISCII Telugu',
273
- 57006 => 'ISCII Assamese',
274
- 57007 => 'ISCII Oriya',
275
- 57008 => 'ISCII Kannada',
276
- 57009 => 'ISCII Malayalam',
277
- 57010 => 'ISCII Gujarati',
278
- 57011 => 'ISCII Punjabi',
279
- 65000 => 'Unicode (UTF-7)',
280
- 65001 => 'Unicode (UTF-8)',
281
- );
282
-
283
127
  # test for file extensions which may be variants of the FPX format
284
128
  # (have seen one password-protected DOCX file that is FPX-like, so assume
285
129
  # that all the rest could be as well)
@@ -550,7 +394,8 @@ my %fpxFileType = (
550
394
  0x01 => {
551
395
  Name => 'CodePage',
552
396
  Groups => { 2 => 'Other' },
553
- PrintConv => \%codePage,
397
+ SeparateTable => 'Microsoft CodePage',
398
+ PrintConv => \%Image::ExifTool::Microsoft::codePage,
554
399
  },
555
400
  0x02 => 'Title',
556
401
  0x03 => 'Subject',
@@ -31,7 +31,7 @@ use vars qw($VERSION);
31
31
  use Image::ExifTool qw(:DataAccess :Utils);
32
32
  use Image::ExifTool::Exif;
33
33
 
34
- $VERSION = '1.97';
34
+ $VERSION = '1.98';
35
35
 
36
36
  sub ProcessFujiDir($$$);
37
37
  sub ProcessFaceRec($$$);
@@ -832,6 +832,13 @@ my %faceCategories = (
832
832
  },
833
833
  0x1447 => { Name => 'FujiModel', Writable => 'string' },
834
834
  0x1448 => { Name => 'FujiModel2', Writable => 'string' },
835
+
836
+ # Found in X-M5, X-E5
837
+ # White balance as shot. Same valus as 0xf00e.
838
+ 0x144a => { Name => 'WBRed', Writable => 'int16u' },
839
+ 0x144b => { Name => 'WBGreen', Writable => 'int16u' },
840
+ 0x144c => { Name => 'WBBlue', Writable => 'int16u' },
841
+
835
842
  0x144d => { Name => 'RollAngle', Writable => 'rational64s' }, #forum14319
836
843
  0x3803 => { #forum10037
837
844
  Name => 'VideoRecordingMode',
@@ -1564,7 +1571,7 @@ my %faceCategories = (
1564
1571
  6 => { Name => 'FNumber', Format => 'rational64u', PrintConv => 'Image::ExifTool::Exif::PrintFNumber($val)' },
1565
1572
  # 7 - seen 200, 125, 250, 2000
1566
1573
  7 => 'ISO',
1567
- # 8 - seen 0
1574
+ # 8 - seen 0, 65536
1568
1575
  );
1569
1576
 
1570
1577
  #------------------------------------------------------------------------------
@@ -1673,7 +1680,7 @@ sub ProcessFujiDir($$$)
1673
1680
  #------------------------------------------------------------------------------
1674
1681
  # get information from FujiFilm M-RAW header
1675
1682
  # Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
1676
- # Returns: 1 if this was a valid M-RAW headerx
1683
+ # Returns: 1 if this was a valid M-RAW header
1677
1684
  sub ProcessMRAW($$$)
1678
1685
  {
1679
1686
  my ($et, $dirInfo, $tagTablePtr) = @_;
@@ -18,6 +18,8 @@
18
18
  # 2024/04/23 - PH Added ability to read more OpenTracks GPS tags
19
19
  # 2024/08/28 - PH Added support for new Google Takeout JSON format
20
20
  # 2024/11/26 - PH Also write GPSMeasureMode and GPSDOP
21
+ # 2024/11/05 - PH Added support for Google Maps "Export timeline data"
22
+ # JSON format
21
23
  #
22
24
  # References: 1) http://www.topografix.com/GPX/1/1/
23
25
  # 2) http://www.gpsinformation.org/dale/nmea.htm#GSA
@@ -1545,9 +1547,9 @@ This module is used by Image::ExifTool
1545
1547
 
1546
1548
  This module loads GPS track logs, interpolates to determine position based
1547
1549
  on time, and sets new GPS values for geotagging images. Currently supported
1548
- formats are GPX, NMEA RMC/GGA/GLL, KML, IGC, Garmin XML and TCX, Magellan
1549
- PMGNTRK, Honeywell PTNTHPR, Bramor gEO, Winplus Beacon text, Google Takeout
1550
- JSON, GPS/IMU CSV, DJI CSV, ExifTool CSV log files.
1550
+ formats are GPX, NMEA RMC/GGA/GLL/GSA/ZDA, KML, IGC, Garmin XML and TCX,
1551
+ Magellan PMGNTRK, Honeywell PTNTHPR, Bramor gEO, Winplus Beacon text,
1552
+ GPS/IMU CSV, DJI CSV, ExifTool CSV and 3 different Google JSON formats.
1551
1553
 
1552
1554
  Methods in this module should not be called directly. Instead, the Geotag
1553
1555
  feature is accessed by writing the values of the ExifTool Geotag, Geosync
@@ -17,7 +17,7 @@ use vars qw($VERSION);
17
17
  use Image::ExifTool qw(:DataAccess :Utils);
18
18
  use Image::ExifTool::QuickTime;
19
19
 
20
- $VERSION = '1.13';
20
+ $VERSION = '1.14';
21
21
 
22
22
  sub ProcessGoPro($$$);
23
23
  sub ProcessString($$$);
@@ -750,14 +750,26 @@ sub ProcessString($$$)
750
750
  my @list = ref $$dataPt eq 'ARRAY' ? @{$$dataPt} : ( $$dataPt );
751
751
  my ($string, $val);
752
752
  $et->VerboseDir('GoPro structure');
753
+ my $docNum = $$et{DOC_NUM};
754
+ my $subDoc = 0;
753
755
  foreach $string (@list) {
754
756
  my @val = split ' ', $string;
755
757
  my $i = 0;
756
758
  foreach $val (@val) {
757
759
  $et->HandleTag($tagTablePtr, $i, $val);
758
- $$tagTablePtr{++$i} or $i = 0;
760
+ next if $$tagTablePtr{++$i};
761
+ # increment subdoc for records stored as string of values (eg. GPS5)
762
+ $i = 0;
763
+ ++$subDoc;
764
+ $$et{DOC_NUM} = "$docNum-$subDoc";
765
+ }
766
+ if ($i) {
767
+ # increment subdoc for records stored as array of strings (eg. GPS9)
768
+ ++$subDoc;
769
+ $$et{DOC_NUM} = "$docNum-$subDoc";
759
770
  }
760
771
  }
772
+ $$et{DOC_NUM} = $docNum;
761
773
  return 1;
762
774
  }
763
775
 
@@ -15,8 +15,9 @@ package Image::ExifTool::LNK;
15
15
  use strict;
16
16
  use vars qw($VERSION);
17
17
  use Image::ExifTool qw(:DataAccess :Utils);
18
+ use Image::ExifTool::Microsoft;
18
19
 
19
- $VERSION = '1.10';
20
+ $VERSION = '1.11';
20
21
 
21
22
  sub ProcessItemID($$$);
22
23
  sub ProcessLinkInfo($$$);
@@ -441,6 +442,8 @@ sub ProcessLinkInfo($$$);
441
442
  0x08 => {
442
443
  Name => 'CodePage',
443
444
  Format => 'int32u',
445
+ SeparateTable => 'Microsoft CodePage',
446
+ PrintConv => \%Image::ExifTool::Microsoft::codePage,
444
447
  },
445
448
  );
446
449
 
@@ -1198,7 +1198,6 @@ $VERSION = '1.07';
1198
1198
  'Rotation' => {
1199
1199
  PrintConv => {
1200
1200
  'Horizontal' => '0° (nahoru/vlevo)',
1201
- 'Horizontal (Normal)' => '0° (nahoru/vlevo)',
1202
1201
  'Horizontal (normal)' => '0° (nahoru/vlevo)',
1203
1202
  'Rotate 180' => '180° (dolů/vpravo)',
1204
1203
  'Rotate 270 CW' => '90° po směru HR (vlevo/dolů)',
@@ -6912,7 +6912,6 @@ $VERSION = '1.38';
6912
6912
  'Rotation' => {
6913
6913
  Description => 'Ausrichtung',
6914
6914
  PrintConv => {
6915
- 'Horizontal (Normal)' => 'Horizontal (normal)',
6916
6915
  'Rotate 180' => '180° gedreht',
6917
6916
  'Rotate 270 CW' => '90° gegen den Uhrzeigersinn',
6918
6917
  'Rotate 90 CW' => '90° im Uhrzeigersinn',
@@ -8874,7 +8874,6 @@ $VERSION = '1.37';
8874
8874
  '270' => '270°',
8875
8875
  '90' => '90°',
8876
8876
  'Horizontal' => 'Horizontale',
8877
- 'Horizontal (Normal)' => 'Horizontale (normale)',
8878
8877
  'Horizontal (normal)' => 'Horizontale (normale)',
8879
8878
  'Rotate 180' => 'Rotation de 180°',
8880
8879
  'Rotate 270 CW' => 'Rotation antihoraire de 270°',
@@ -6424,7 +6424,6 @@ $VERSION = '1.14';
6424
6424
  Description => 'Rotazione',
6425
6425
  PrintConv => {
6426
6426
  'Horizontal' => 'Orizzontale',
6427
- 'Horizontal (Normal)' => 'Orizzontale (normale)',
6428
6427
  'Horizontal (normal)' => 'Orizzontale (normale)',
6429
6428
  'Rotate 180' => 'Ruota di 180°',
6430
6429
  'Rotate 270 CW' => 'Ruota di 270° in senso orario',
@@ -4475,7 +4475,6 @@ $VERSION = '1.25';
4475
4475
  Description => '回転',
4476
4476
  PrintConv => {
4477
4477
  'Horizontal' => '水平(標準)',
4478
- 'Horizontal (Normal)' => '水平(標準)',
4479
4478
  'Horizontal (normal)' => '水平(標準)',
4480
4479
  'Rotate 180' => '180度回転',
4481
4480
  'Rotate 270 CW' => '270度回転 CW',
@@ -2567,7 +2567,6 @@ $VERSION = '1.13';
2567
2567
  'Rotation' => {
2568
2568
  PrintConv => {
2569
2569
  'Horizontal' => '0° (boven/links)',
2570
- 'Horizontal (Normal)' => '0° (boven/links)',
2571
2570
  'Horizontal (normal)' => '0° (boven/links)',
2572
2571
  'Rotate 180' => '180° (onder/rechts)',
2573
2572
  'Rotate 270 CW' => 'Draai 270° met de klok mee',
@@ -955,7 +955,6 @@ $VERSION = '1.12';
955
955
  Description => 'Obrót',
956
956
  PrintConv => {
957
957
  'Horizontal' => '0° (góra/lewo)',
958
- 'Horizontal (Normal)' => '0° (góra/lewo)',
959
958
  'Horizontal (normal)' => '0° (góra/lewo)',
960
959
  'Rotate 180' => '180° (dół/prawo)',
961
960
  'Rotate 270 CW' => '90° CW (lewo/dół)',
@@ -970,7 +970,6 @@ $VERSION = '1.08';
970
970
  'Rotation' => {
971
971
  PrintConv => {
972
972
  'Horizontal' => '0° (上/左)',
973
- 'Horizontal (Normal)' => '0° (上/左)',
974
973
  'Horizontal (normal)' => '0° (上/左)',
975
974
  'Rotate 180' => '180° (底/右)',
976
975
  'Rotate 270 CW' => '90° CW (左/底)',
@@ -13,7 +13,7 @@
13
13
  package Image::ExifTool::Microsoft;
14
14
 
15
15
  use strict;
16
- use vars qw($VERSION);
16
+ use vars qw($VERSION %codePage);
17
17
  use Image::ExifTool qw(:DataAccess :Utils);
18
18
  use Image::ExifTool::XMP;
19
19
 
@@ -23,6 +23,163 @@ sub ProcessXtra($$$);
23
23
  sub WriteXtra($$$);
24
24
  sub CheckXtra($$$);
25
25
 
26
+ # list of code pages used by Microsoft
27
+ # (ref http://msdn.microsoft.com/en-us/library/dd317756(VS.85).aspx)
28
+ %codePage = (
29
+ 37 => 'IBM EBCDIC US-Canada',
30
+ 437 => 'DOS United States',
31
+ 500 => 'IBM EBCDIC International',
32
+ 708 => 'Arabic (ASMO 708)',
33
+ 709 => 'Arabic (ASMO-449+, BCON V4)',
34
+ 710 => 'Arabic - Transparent Arabic',
35
+ 720 => 'DOS Arabic (Transparent ASMO)',
36
+ 737 => 'DOS Greek (formerly 437G)',
37
+ 775 => 'DOS Baltic',
38
+ 850 => 'DOS Latin 1 (Western European)',
39
+ 852 => 'DOS Latin 2 (Central European)',
40
+ 855 => 'DOS Cyrillic (primarily Russian)',
41
+ 857 => 'DOS Turkish',
42
+ 858 => 'DOS Multilingual Latin 1 with Euro',
43
+ 860 => 'DOS Portuguese',
44
+ 861 => 'DOS Icelandic',
45
+ 862 => 'DOS Hebrew',
46
+ 863 => 'DOS French Canadian',
47
+ 864 => 'DOS Arabic',
48
+ 865 => 'DOS Nordic',
49
+ 866 => 'DOS Russian (Cyrillic)',
50
+ 869 => 'DOS Modern Greek',
51
+ 870 => 'IBM EBCDIC Multilingual/ROECE (Latin 2)',
52
+ 874 => 'Windows Thai (same as 28605, ISO 8859-15)',
53
+ 875 => 'IBM EBCDIC Greek Modern',
54
+ 932 => 'Windows Japanese (Shift-JIS)',
55
+ 936 => 'Windows Simplified Chinese (PRC, Singapore)',
56
+ 949 => 'Windows Korean (Unified Hangul Code)',
57
+ 950 => 'Windows Traditional Chinese (Taiwan)',
58
+ 1026 => 'IBM EBCDIC Turkish (Latin 5)',
59
+ 1047 => 'IBM EBCDIC Latin 1/Open System',
60
+ 1140 => 'IBM EBCDIC US-Canada with Euro',
61
+ 1141 => 'IBM EBCDIC Germany with Euro',
62
+ 1142 => 'IBM EBCDIC Denmark-Norway with Euro',
63
+ 1143 => 'IBM EBCDIC Finland-Sweden with Euro',
64
+ 1144 => 'IBM EBCDIC Italy with Euro',
65
+ 1145 => 'IBM EBCDIC Latin America-Spain with Euro',
66
+ 1146 => 'IBM EBCDIC United Kingdom with Euro',
67
+ 1147 => 'IBM EBCDIC France with Euro',
68
+ 1148 => 'IBM EBCDIC International with Euro',
69
+ 1149 => 'IBM EBCDIC Icelandic with Euro',
70
+ 1200 => 'Unicode UTF-16, little endian',
71
+ 1201 => 'Unicode UTF-16, big endian',
72
+ 1250 => 'Windows Latin 2 (Central European)',
73
+ 1251 => 'Windows Cyrillic',
74
+ 1252 => 'Windows Latin 1 (Western European)',
75
+ 1253 => 'Windows Greek',
76
+ 1254 => 'Windows Turkish',
77
+ 1255 => 'Windows Hebrew',
78
+ 1256 => 'Windows Arabic',
79
+ 1257 => 'Windows Baltic',
80
+ 1258 => 'Windows Vietnamese',
81
+ 1361 => 'Korean (Johab)',
82
+ 10000 => 'Mac Roman (Western European)',
83
+ 10001 => 'Mac Japanese',
84
+ 10002 => 'Mac Traditional Chinese',
85
+ 10003 => 'Mac Korean',
86
+ 10004 => 'Mac Arabic',
87
+ 10005 => 'Mac Hebrew',
88
+ 10006 => 'Mac Greek',
89
+ 10007 => 'Mac Cyrillic',
90
+ 10008 => 'Mac Simplified Chinese',
91
+ 10010 => 'Mac Romanian',
92
+ 10017 => 'Mac Ukrainian',
93
+ 10021 => 'Mac Thai',
94
+ 10029 => 'Mac Latin 2 (Central European)',
95
+ 10079 => 'Mac Icelandic',
96
+ 10081 => 'Mac Turkish',
97
+ 10082 => 'Mac Croatian',
98
+ 12000 => 'Unicode UTF-32, little endian',
99
+ 12001 => 'Unicode UTF-32, big endian',
100
+ 20000 => 'CNS Taiwan',
101
+ 20001 => 'TCA Taiwan',
102
+ 20002 => 'Eten Taiwan',
103
+ 20003 => 'IBM5550 Taiwan',
104
+ 20004 => 'TeleText Taiwan',
105
+ 20005 => 'Wang Taiwan',
106
+ 20105 => 'IA5 (IRV International Alphabet No. 5, 7-bit)',
107
+ 20106 => 'IA5 German (7-bit)',
108
+ 20107 => 'IA5 Swedish (7-bit)',
109
+ 20108 => 'IA5 Norwegian (7-bit)',
110
+ 20127 => 'US-ASCII (7-bit)',
111
+ 20261 => 'T.61',
112
+ 20269 => 'ISO 6937 Non-Spacing Accent',
113
+ 20273 => 'IBM EBCDIC Germany',
114
+ 20277 => 'IBM EBCDIC Denmark-Norway',
115
+ 20278 => 'IBM EBCDIC Finland-Sweden',
116
+ 20280 => 'IBM EBCDIC Italy',
117
+ 20284 => 'IBM EBCDIC Latin America-Spain',
118
+ 20285 => 'IBM EBCDIC United Kingdom',
119
+ 20290 => 'IBM EBCDIC Japanese Katakana Extended',
120
+ 20297 => 'IBM EBCDIC France',
121
+ 20420 => 'IBM EBCDIC Arabic',
122
+ 20423 => 'IBM EBCDIC Greek',
123
+ 20424 => 'IBM EBCDIC Hebrew',
124
+ 20833 => 'IBM EBCDIC Korean Extended',
125
+ 20838 => 'IBM EBCDIC Thai',
126
+ 20866 => 'Russian/Cyrillic (KOI8-R)',
127
+ 20871 => 'IBM EBCDIC Icelandic',
128
+ 20880 => 'IBM EBCDIC Cyrillic Russian',
129
+ 20905 => 'IBM EBCDIC Turkish',
130
+ 20924 => 'IBM EBCDIC Latin 1/Open System with Euro',
131
+ 20932 => 'Japanese (JIS 0208-1990 and 0121-1990)',
132
+ 20936 => 'Simplified Chinese (GB2312)',
133
+ 20949 => 'Korean Wansung',
134
+ 21025 => 'IBM EBCDIC Cyrillic Serbian-Bulgarian',
135
+ 21027 => 'Extended Alpha Lowercase (deprecated)',
136
+ 21866 => 'Ukrainian/Cyrillic (KOI8-U)',
137
+ 28591 => 'ISO 8859-1 Latin 1 (Western European)',
138
+ 28592 => 'ISO 8859-2 (Central European)',
139
+ 28593 => 'ISO 8859-3 Latin 3',
140
+ 28594 => 'ISO 8859-4 Baltic',
141
+ 28595 => 'ISO 8859-5 Cyrillic',
142
+ 28596 => 'ISO 8859-6 Arabic',
143
+ 28597 => 'ISO 8859-7 Greek',
144
+ 28598 => 'ISO 8859-8 Hebrew (Visual)',
145
+ 28599 => 'ISO 8859-9 Turkish',
146
+ 28603 => 'ISO 8859-13 Estonian',
147
+ 28605 => 'ISO 8859-15 Latin 9',
148
+ 29001 => 'Europa 3',
149
+ 38598 => 'ISO 8859-8 Hebrew (Logical)',
150
+ 50220 => 'ISO 2022 Japanese with no halfwidth Katakana (JIS)',
151
+ 50221 => 'ISO 2022 Japanese with halfwidth Katakana (JIS-Allow 1 byte Kana)',
152
+ 50222 => 'ISO 2022 Japanese JIS X 0201-1989 (JIS-Allow 1 byte Kana - SO/SI)',
153
+ 50225 => 'ISO 2022 Korean',
154
+ 50227 => 'ISO 2022 Simplified Chinese',
155
+ 50229 => 'ISO 2022 Traditional Chinese',
156
+ 50930 => 'EBCDIC Japanese (Katakana) Extended',
157
+ 50931 => 'EBCDIC US-Canada and Japanese',
158
+ 50933 => 'EBCDIC Korean Extended and Korean',
159
+ 50935 => 'EBCDIC Simplified Chinese Extended and Simplified Chinese',
160
+ 50936 => 'EBCDIC Simplified Chinese',
161
+ 50937 => 'EBCDIC US-Canada and Traditional Chinese',
162
+ 50939 => 'EBCDIC Japanese (Latin) Extended and Japanese',
163
+ 51932 => 'EUC Japanese',
164
+ 51936 => 'EUC Simplified Chinese',
165
+ 51949 => 'EUC Korean',
166
+ 51950 => 'EUC Traditional Chinese',
167
+ 52936 => 'HZ-GB2312 Simplified Chinese',
168
+ 54936 => 'Windows XP and later: GB18030 Simplified Chinese (4 byte)',
169
+ 57002 => 'ISCII Devanagari',
170
+ 57003 => 'ISCII Bengali',
171
+ 57004 => 'ISCII Tamil',
172
+ 57005 => 'ISCII Telugu',
173
+ 57006 => 'ISCII Assamese',
174
+ 57007 => 'ISCII Oriya',
175
+ 57008 => 'ISCII Kannada',
176
+ 57009 => 'ISCII Malayalam',
177
+ 57010 => 'ISCII Gujarati',
178
+ 57011 => 'ISCII Punjabi',
179
+ 65000 => 'Unicode (UTF-7)',
180
+ 65001 => 'Unicode (UTF-8)',
181
+ );
182
+
26
183
  # tags written by Microsoft HDView (ref 1)
27
184
  %Image::ExifTool::Microsoft::Stitch = (
28
185
  PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
@@ -2411,7 +2411,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
2411
2411
  0x5a => { #15
2412
2412
  Name => 'Rotation',
2413
2413
  PrintConv => {
2414
- 0 => 'Horizontal (Normal)',
2414
+ 0 => 'Horizontal (normal)',
2415
2415
  1 => 'Rotate 270 CW',
2416
2416
  2 => 'Rotate 90 CW',
2417
2417
  },