From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 1 Jul 2018 19:56:03 +0000 (-0700)
Subject: we only need the CreateDate and the Serial out of image info
X-Git-Url: https://git.donarmstrong.com/?p=bin.git;a=commitdiff_plain;h=859e8122a8db5fe78a0c5723cb68013ce47dfa07

we only need the CreateDate and the Serial out of image info
---

diff --git a/archive_photos b/archive_photos
index 82a6335..291f1fb 100755
--- a/archive_photos
+++ b/archive_photos
@@ -129,7 +129,7 @@ find(sub { if (-f $_ or -l $_) {$existing_files{$_} = $File::Find::name;} },$opt
 for my $file (@files) {
     my $file_basename=basename($file);
     # find out when the photo was shot
-    my $info = ImageInfo($file);
+    my $info = ImageInfo($file,[qw(CreateDate Serial)]);
     if (not defined $info->{CreateDate}) {
         print STDERR "No date information for $file\n";
         next;
@@ -162,7 +162,7 @@ sub are_the_same_files{
         if (-e $f->{name}) {
             $f->{exists} = 1;
             if (not exists $f->{info} or not defined $f->{info}) {
-                $f->{info} = ImageInfo($f->{name});
+                $f->{info} = ImageInfo($f->{name},[qw(CreateDate Serial)]);
             }
         } else {
             $f->{exists} = 0;