#! /usr/bin/perl
#
+## @file
+## @brief Display the contents of a .sim file
+##
+## Usage: ./scripts/decode_sim <path to sim file>
+##
+## Displays:
+## Comment: <geeqie version file was created by>
+## Original image dimensions:
+## Exif Date Original:
+## MD5 sum:
+## Image of the thumbnail
+##
+
use strict;
use warnings;
{
printf "Original image dimensions: %dx%d\n", $1, $2;
}
+ elsif (/^Date=(\[-1\])/)
+ {
+ printf "Exif Date Original: %s\n", $1;
+ }
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=(.*)/)
{