← Back to branch summary

~ubuntu-branches/ubuntu/karmic/libimage-exiftool-perl/karmic

« back to all changes in this revision

Viewing changes to lib/Image/ExifTool/Casio.pm

  • Committer: Bazaar Package Importer
  • Author(s): Mari Wang
  • Date: 2008-02-04 20:32:53 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20080204203253-mpbal8trlfe1fz5d
Tags: 7.00-1
http://bugs.debian.org/456430
http://bugs.debian.org/435589
http://bugs.debian.org/436100
* Upload of new production release (Closes: #456430)
* Added Recommends: libcompress-zlib-perl (Closes: #435589)
* Package now includes iptc2xmp.args and xmp2iptc.args, they are put
  into /usr/share/libimage-exiftool/ (Closes: #436100)
* Updated standards-version (3.7.2 -> 3.7.3). No changes needed.
* Lots of updates and bugfixes compared to last debian version
  (6.90).  See the Changes file for details
* Upload sponsored by Petter Reinholdtsen

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Image/ExifTool/Casio.pm
18
18
use vars qw($VERSION);
19
19
use Image::ExifTool::Exif;
20
20
 
21
 
$VERSION = '1.19';
 
21
$VERSION = '1.21';
22
22
 
 
23
# older Casio maker notes (ref 1)
23
24
%Image::ExifTool::Casio::Main = (
24
25
    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
25
26
    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
162
163
        },
163
164
    },
164
165
    0x0014 => {
165
 
        Name => 'CCDSensitivity',
 
166
        Name => 'ISO',
166
167
        Writable => 'int16u',
167
 
        PrintConv => {
168
 
            64  => 'Normal',
169
 
            80  => 'Normal',
170
 
            100 => 'High (or ISO 100)', #4
171
 
            125 => '+1.0',
172
 
            180 => 'ISO 180', #4
173
 
            250 => '+2.0',
174
 
            244 => '+3.0',
175
 
            300 => 'ISO 300', #4
176
 
            500 => 'ISO 500', #4
177
 
        },
 
168
        Priority => 0,
178
169
    },
179
170
    0x0016 => { #4
180
171
        Name => 'Enhancement',
188
179
        },
189
180
    },
190
181
    0x0017 => { #4
191
 
        Name => 'Filter',
 
182
        Name => 'ColorFilter',
192
183
        Writable => 'int16u',
193
184
        PrintConv => {
194
185
            1 => 'Off',
311
302
    },
312
303
    0x0014 => {
313
304
        Name => 'ISO',
 
305
        Writable => 'int16u',
314
306
        Priority => 0,
315
 
        Writable => 'int16u',
316
307
        PrintConv => {
317
308
           3 => 50,
318
309
           4 => 64,
428
419
    0x2022 => {
429
420
        Name => 'ObjectDistance',
430
421
        Writable => 'int32u',
431
 
        ValueConv => '$val / 1000',
432
 
        ValueConvInv => '$val * 1000',
433
 
        PrintConv => '"$val m"',
 
422
        ValueConv => '$val >= 0x20000000 ? "inf" : $val / 1000',
 
423
        ValueConvInv => '$val eq "inf" ? 0x20000000 : $val * 1000',
 
424
        PrintConv => '$val eq "inf" ? $val : "$val m"',
434
425
        PrintConvInv => '$val=~s/\s*m$//;$val',
435
426
    },
436
427
    # 0x2023 looks interesting (values 0,1,2,3,5 in samples) - PH
476
467
        },
477
468
    },
478
469
    0x3006 => {
479
 
        Name => 'TimeZone',
 
470
        Name => 'HometownCity',
480
471
        Writable => 'string',
481
472
    },
482
473
    0x3007 => {
508
499
        Writable => 'undef',
509
500
    },
510
501
    0x3014 => {
511
 
        Name => 'CCDISOSensitivity',
 
502
        Name => 'ISO',
512
503
        Writable => 'int16u',
513
 
        Description => 'CCD ISO Sensitivity',
 
504
        Priority => 0,
514
505
    },
515
506
    0x3015 => {
516
507
        Name => 'ColorMode',