From: Colin Clark <colin.clark@cclark.uk>
Date: Tue, 31 Mar 2020 17:31:35 +0000 (+0100)
Subject: Modify decode_sim perl script for date-time
X-Git-Tag: v1.6~73
X-Git-Url: http://geeqie.org/cgi-bin/gitweb.cgi?p=geeqie.git;a=commitdiff_plain;h=74fb12a915d28b503e7a27dd537faf128b67bd6a

Modify decode_sim perl script for date-time

Print Exif Date as readable text as well as Unix time.
---

diff --git a/scripts/decode_sim b/scripts/decode_sim
index 1c9e183e..e4a7fddf 100755
--- a/scripts/decode_sim
+++ b/scripts/decode_sim
@@ -29,7 +29,14 @@ while (<$in_fh>)
    }
    elsif (/^Date=(.*)/)
    {
-      printf "Date (used for pan-view): %s\n", $1;
+      my $unix_time = substr($1, 1, 10);
+
+      my ($S, $M, $H, $d, $m, $Y) = localtime($unix_time);
+      $m += 1;
+      $Y += 1900;
+      my $date_time = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $Y, $m, $d, $H, $M, $S);
+
+      printf "Exif Date Original: %s %s\n", $1, $date_time;
    }
    elsif (/^Checksum=(.*)/)
    {