Preparing for release v1.7.3

[geeqie.git] / scripts / decode_sim

diff --git a/scripts/decode_sim b/scripts/decode_sim
index 34817bf..a3c0182 100755 (executable)
--- a/scripts/decode_sim
+++ b/scripts/decode_sim
@@ -1,5 +1,18 @@
 #! /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;
@@ -25,11 +38,22 @@ while (<$in_fh>)
    }
    elsif (/^Dimensions=\[(\d+) x (\d+)\]$/)
    {
-      printf "Original image dimensions: %d×%d\n", $1, $2;
+      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=(.*)/)
    {
@@ -41,10 +65,10 @@ while (<$in_fh>)
    }
    elsif ($raw =~ /^SimilarityGrid\[(\d+) x (\d+)\]=(.*)$/s)
    {
-      printf "Similarity image %d×%d\n", $1, $2;
+      printf "Similarity image %dx%d\n", $1, $2;
       if ($1 != 32 or $2 != 32)
       {
-        print "Warning, similarity data are not size 32×32!\n";
+        print "Warning, similarity data are not size 32x32!\n";
       }
 
       my $simn = $1 * $2 * 3;