diff options
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | TODO | 6 | ||||
-rwxr-xr-x | renrot | 52 |
3 files changed, 38 insertions, 26 deletions
@@ -1,7 +1,11 @@ $Log$ +Revision 1.60 2006/05/06 10:00:36 zeus +bug fixed, when --no-rename requested it was rewriting XMP tags, now it'd fixed. +TODO edited + Revision 1.59 2006/05/06 07:32:14 andy Minor changes of documentation. Removing trailing spaces. -Restructure TODO. +Restructure TODO Add -q option for suppressing process messages. Release 0.16.2. @@ -21,6 +21,9 @@ Disk I/O - decrease disk IO operations as possible +- to implement possibility to work with other formats, which use EXIF + mechanism + File naming @@ -48,3 +51,6 @@ Other ? UTF8fy (comments, tags, ...) +- to implement --no-mtime, and put it to the config + +? to write the function 'on/off validator' @@ -300,31 +300,33 @@ foreach $file ( @files ) { # ## preparing to write the UserComment and some additional tags # - if ( defined ( $COMMENTARY ) ) { $exifTool->SetNewValue(UserComment => $COMMENTARY); } - - if ( defined ( $CiAdrCity ) ) { - $exifTool->SetNewValue('CreatorContactInfoCiAdrCity', $CiAdrCity, Group=>'XMP'); - } - if ( defined ( $CiAdrCtry ) ) { - $exifTool->SetNewValue('CreatorContactInfoCiAdrCtry', $CiAdrCtry, Group=>'XMP'); - } - if ( defined ( $CiAdrExtadr ) ) { - $exifTool->SetNewValue('CreatorContactInfoCiAdrExtadr', $CiAdrExtadr, Group=>'XMP'); - } - if ( defined ( $CiAdrPcode ) ) { - $exifTool->SetNewValue('CreatorContactInfoCiAdrPcode', $CiAdrPcode, Group=>'XMP'); - } - if ( defined ( $CiAdrRegion ) ) { - $exifTool->SetNewValue('CreatorContactInfoCiAdrRegion', $CiAdrRegion, Group=>'XMP'); - } - if ( defined ( $CiEmailWork ) ) { - $exifTool->SetNewValue('CreatorContactInfoCiEmailWork', $CiEmailWork, Group=>'XMP'); - } - if ( defined ( $CiTelWork ) ) { - $exifTool->SetNewValue('CreatorContactInfoCiTelWork', $CiTelWork, Group=>'XMP'); - } - if ( defined ( $CiUrlWork ) ) { - $exifTool->SetNewValue('CreatorContactInfoCiUrlWork', $CiUrlWork, Group=>'XMP'); + if ( not defined $noRename ) { + if ( defined ( $COMMENTARY ) ) { $exifTool->SetNewValue(UserComment => $COMMENTARY); } + + if ( defined ( $CiAdrCity ) ) { + $exifTool->SetNewValue('CreatorContactInfoCiAdrCity', $CiAdrCity, Group=>'XMP'); + } + if ( defined ( $CiAdrCtry ) ) { + $exifTool->SetNewValue('CreatorContactInfoCiAdrCtry', $CiAdrCtry, Group=>'XMP'); + } + if ( defined ( $CiAdrExtadr ) ) { + $exifTool->SetNewValue('CreatorContactInfoCiAdrExtadr', $CiAdrExtadr, Group=>'XMP'); + } + if ( defined ( $CiAdrPcode ) ) { + $exifTool->SetNewValue('CreatorContactInfoCiAdrPcode', $CiAdrPcode, Group=>'XMP'); + } + if ( defined ( $CiAdrRegion ) ) { + $exifTool->SetNewValue('CreatorContactInfoCiAdrRegion', $CiAdrRegion, Group=>'XMP'); + } + if ( defined ( $CiEmailWork ) ) { + $exifTool->SetNewValue('CreatorContactInfoCiEmailWork', $CiEmailWork, Group=>'XMP'); + } + if ( defined ( $CiTelWork ) ) { + $exifTool->SetNewValue('CreatorContactInfoCiTelWork', $CiTelWork, Group=>'XMP'); + } + if ( defined ( $CiUrlWork ) ) { + $exifTool->SetNewValue('CreatorContactInfoCiUrlWork', $CiUrlWork, Group=>'XMP'); + } } # writing the changes to the EXIFs |