From 74fb12a915d28b503e7a27dd537faf128b67bd6a Mon Sep 17 00:00:00 2001
From: Colin Clark <colin.clark@cclark.uk>
Date: Tue, 31 Mar 2020 18:31:35 +0100
Subject: [PATCH] Modify decode_sim perl script for date-time

Print Exif Date as readable text as well as Unix time.
---
 scripts/decode_sim | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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=(.*)/)
    {
-- 
2.20.1