projects
/
geeqie.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
19b5925
)
Modify decode_sim perl script for date-time
author
Colin Clark
<colin.clark@cclark.uk>
Tue, 31 Mar 2020 17:31:35 +0000
(18:31 +0100)
committer
Colin Clark
<colin.clark@cclark.uk>
Tue, 31 Mar 2020 17:31:35 +0000
(18:31 +0100)
Print Exif Date as readable text as well as Unix time.
scripts/decode_sim
patch
|
blob
|
history
diff --git
a/scripts/decode_sim
b/scripts/decode_sim
index
1c9e183
..
e4a7fdd
100755
(executable)
--- 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=(.*)/)
{