Re: [darktable-user] Issue importing pictures from D610

[Michael Staats]

Hi,
here's an alternative. Shell scripts are, hmm, shell scripts ;-) Doesn't
call external programs, just uses a per module.


#!/usr/bin/perl -w
# Author: Michael Staats (michael.staats at gmx.de)
# Free according to GPL
# $Id: picdate2fn 819 2016-12-17 13:18:00Z michael $
use strict;
use Image::ExifTool qw(:Public);
use Date::Parse;
use POSIX qw(strftime);
use Getopt::Std;

my %Opt;

getopts('vnp:o:', \%Opt);

$Opt{o}   = int($Opt{o} || 0);
$Opt{p}   = $Opt{p} ? '-' . $Opt{p} : '';

my $exif = new Image::ExifTool(); # we need exactly one object

die "Usage: $0 [-n] [-p prefix] [-o offset] file [...]\n"
    unless($ARGV[0]);

######################################################################################################

ARG: foreach my $a (@ARGV) {
    my $tt  = gettime($a);
    next ARG unless ($tt);
    $tt += $Opt{o};
    my $nfn = strftime("%Y%m%d-%H%M%S", localtime($tt)) . $Opt{p} . '-'
. $a;
    print "$a\t->\t$nfn\n";
    rename($a, $nfn) unless($Opt{n});
}

sub gettime {
    my $f = $_[0];

    my $pt;

    open(F, $f) or do {
        warn "$f: $!\n";
        return undef;
    };
    close(F);
    my $data = ImageInfo($f);
    if ($Opt{v}) {
        print "Exif Info of $f\n";
        foreach my $k (keys(%$data)) {
            print "$k: ", $data->{$k}, "\n";
        }
        print "\n";
    }
    my $date = $data->{CreateDate} || $data->{DateTimeOriginal};
    if ($date) {
        $pt = str2time($date);
    } else  {
        warn "$f: has no Exif-CreateDate, using mtime instead\n";
        $pt = (stat($f))[9];
    }

    return $pt;
}

Regards,
 Michael


-- 
Michael Staats
michael.sta...@gmx.de
____________________________________________________________________________
darktable user mailing list
to unsubscribe send a mail to darktable-user+unsubscr...@lists.darktable.org