From 859e8122a8db5fe78a0c5723cb68013ce47dfa07 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 1 Jul 2018 12:56:03 -0700
Subject: [PATCH] we only need the CreateDate and the Serial out of image info

---
 archive_photos | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.39.2