prefer iso8601 timestamp formatting
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 14 Feb 2020 22:43:56 +0000 (23:43 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Fri, 14 Feb 2020 22:43:56 +0000 (23:43 +0100)
termimg

diff --git a/termimg b/termimg
index baf6afd0a0cbfaf0087a8135b3e575709747e83f..ef57cd3470bde52cede38cf8c1fefbe409eef8ca 100755 (executable)
--- a/termimg
+++ b/termimg
@@ -6,6 +6,7 @@ my @info = eval {
        require Image::ExifTool;
        my $exif = Image::ExifTool->new->ImageInfo($file, {
                CoordFormat => '%.5f',
        require Image::ExifTool;
        my $exif = Image::ExifTool->new->ImageInfo($file, {
                CoordFormat => '%.5f',
+               DateFormat => '%Y-%m-%d %H:%M:%S',
        });
        die "exiftool: $exif->{Error}\n" if $exif->{Error};
        return (
        });
        die "exiftool: $exif->{Error}\n" if $exif->{Error};
        return (
@@ -21,6 +22,7 @@ my @info = eval {
                sprintf('exif x%d', scalar %{$exif}),
                $exif->{Thumb} ? "thumb $exif->{ThumbnailLength}B" : (),
                (map "@ $_",
                sprintf('exif x%d', scalar %{$exif}),
                $exif->{Thumb} ? "thumb $exif->{ThumbnailLength}B" : (),
                (map "@ $_",
+                       $exif->{DateTimeOriginal} //
                        $exif->{DateCreated} //
                        $exif->{CircaDateCreated} //
                        $exif->{ModifyDate} //
                        $exif->{DateCreated} //
                        $exif->{CircaDateCreated} //
                        $exif->{ModifyDate} //