aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--TODO6
-rwxr-xr-xrenrot52
3 files changed, 38 insertions, 26 deletions
diff --git a/ChangeLog b/ChangeLog
index 5f92f14..415c146 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.
diff --git a/TODO b/TODO
index 9891b14..1ffe583 100644
--- a/TODO
+++ b/TODO
@@ -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'
diff --git a/renrot b/renrot
index f705596..6815e92 100755
--- a/renrot
+++ b/renrot
@@ -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

Return to:

Send suggestions and report system problems to the System administrator.