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.
- checksums.yaml +4 -4
- data/bin/Changes +38 -1
- data/bin/MANIFEST +5 -0
- data/bin/META.json +1 -1
- data/bin/META.yml +1 -1
- data/bin/README +47 -46
- data/bin/exiftool +81 -56
- data/bin/lib/Image/ExifTool/BuildTagLookup.pm +7 -5
- data/bin/lib/Image/ExifTool/Canon.pm +10 -2
- data/bin/lib/Image/ExifTool/Exif.pm +5 -3
- data/bin/lib/Image/ExifTool/FlashPix.pm +4 -159
- data/bin/lib/Image/ExifTool/FujiFilm.pm +10 -3
- data/bin/lib/Image/ExifTool/Geotag.pm +5 -3
- data/bin/lib/Image/ExifTool/GoPro.pm +14 -2
- data/bin/lib/Image/ExifTool/LNK.pm +4 -1
- data/bin/lib/Image/ExifTool/Lang/cs.pm +0 -1
- data/bin/lib/Image/ExifTool/Lang/de.pm +0 -1
- data/bin/lib/Image/ExifTool/Lang/fr.pm +0 -1
- data/bin/lib/Image/ExifTool/Lang/it.pm +0 -1
- data/bin/lib/Image/ExifTool/Lang/ja.pm +0 -1
- data/bin/lib/Image/ExifTool/Lang/nl.pm +0 -1
- data/bin/lib/Image/ExifTool/Lang/pl.pm +0 -1
- data/bin/lib/Image/ExifTool/Lang/zh_cn.pm +0 -1
- data/bin/lib/Image/ExifTool/Microsoft.pm +158 -1
- data/bin/lib/Image/ExifTool/Minolta.pm +1 -1
- data/bin/lib/Image/ExifTool/Nikon.pm +71 -37
- data/bin/lib/Image/ExifTool/NikonCustom.pm +40 -10
- data/bin/lib/Image/ExifTool/Olympus.pm +240 -35
- data/bin/lib/Image/ExifTool/Panasonic.pm +3 -3
- data/bin/lib/Image/ExifTool/Pentax.pm +271 -53
- data/bin/lib/Image/ExifTool/QuickTime.pm +11 -4
- data/bin/lib/Image/ExifTool/Sony.pm +5 -2
- data/bin/lib/Image/ExifTool/TNEF.pm +487 -0
- data/bin/lib/Image/ExifTool/TagLookup.pm +4373 -4264
- data/bin/lib/Image/ExifTool/TagNames.pod +249 -17
- data/bin/lib/Image/ExifTool/WriteExif.pl +14 -12
- data/bin/lib/Image/ExifTool/Writer.pl +15 -11
- data/bin/lib/Image/ExifTool/XMPStruct.pl +1 -1
- data/bin/lib/Image/ExifTool.pm +11 -4
- data/bin/lib/Image/ExifTool.pod +45 -44
- data/bin/perl-Image-ExifTool.spec +46 -45
- data/lib/exiftool_vendored/version.rb +1 -1
- 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.
|
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.
|
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
|
-
|
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.
|
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
|
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,
|
1549
|
-
PMGNTRK, Honeywell PTNTHPR, Bramor gEO, Winplus Beacon text,
|
1550
|
-
|
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.
|
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}
|
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.
|
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',
|
@@ -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ół)',
|
@@ -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,
|