#!/usr/bin/perl
# the above is the standard linux/unix path for perl: change if your computer is nonstandard

#use IO::CaptureOutput qw/capture_exec/; # requires: libio-captureoutput-perl !

# needs exiftool !!

sub print_help {
    print STDERR <<EOF;
Syntax:  arrange_photo [options] [folders]
      moves jpg and raw images into subfolders into the yyyy_mm_dd/
      folder pattern (created in the current folder, if missing)
      based on exif data obtained by the exiftool
      moves also movie files if can figure out the date
  options:
    -v increase verbosity
    -h print this help
  default:
    if no folders are named, process all folders whose name is not YYYY_MM_DD
				(v. 2.9, by Nick Manini - 18 Apr 2020)
EOF
    return;
}

`exiftool --version` || die "cannot run exiftool: please install it before running arrange_photo\n";

#`identify -version` || die "cannot run identify: please install imagemagick before running arrange_photo\n";
#my ($stdout, $stderr, $success, $exit_code) = capture_exec("ufraw-batch --version");
#if ($exit_code){
#    print "cannot run ufraw-batch: please install it || arrange_photo CANNOT PROCESS RAW IMAGES\n";
#}
$verbosity=0; # default

while($p=shift(@ARGV)){
    if($p=~/^[^\-]/){ # check existence of folder
	if(!(-d  $p)){
	    die "$p is not a valid folder or cannot be accessed\n";
	}
	push (@dlist,$p);
	next;
    }
    if($p eq "-v"){ # verbose 
	$verbosity=1;
	exit;
    }
    if($p eq "-h"){ # print help
	print_help;
	exit;
    }
    print STDERR "Error: invalid option $p\n";
    print_help;
    exit;
}

if ($#dlist==-1){ # no arguments: take all potentially interesting folders
    @dlist=`ls -F | grep '/\$' | grep -v '[12]\d\d\d_\d\d_\d\d'`;
}

print "Starting to process the following folders: ",@dlist,"\n";

foreach $d (@dlist){
#    $d=substr($d, 0, -1);
    $verbosity==0 || print " dir: $d\n";
    if(-d $d && !($d=~/2\d\d\d_[01]\d_[0-3]\d/)){   #  $d is a proper directory
	print "processing folder: $d\n";
	@ls=`ls $d`;
	foreach $f (@ls){
	    $replaced="no";
	    $verbosity==0 || print "   processing file: $f";
	    $f=substr($f, 0, -1);

	    $date=&getdata("$d/$f");

	    if($date eq "" || $date eq "0000:00:00"){
		print "$f has no date: is it intermediate data? ";
		$match=($oldf.".*(pp3|xcf|pto|pto.mk)");
		$match=~s/(jpg|JPG|tif|TIF|CR2)//;
#		print "\nquii: ".$match."\n";
		if($f =~ $match){
		    $date=$olddate;
		    $replaced="yes";
		    print "YES!\n";
		}else{
		    print " Is $f a movie? ";
		    $imj=$f;
		    $imj=~s/(mov|MOV|avi|AVI)$/jpg/;
		    $imt=$f;
		    $imt=~s/(mov|MOV|avi|AVI)$/thm/;
		    foreach $tf ("$oldfigdir/$imj","$oldfigdir/$imt","$d/$imj","$d/$imt"){
			if(-f $tf){
			    $date=&getdata($tf);
			    if(!($date eq "")){
				print "Yes! And got thumbnail with exif data!\n";
				last;
			    }
			}
		    } # foreach
		} # else
	    }
	    if($date eq "" || $date eq "0000:00:00"){
		print "no exif Date for $f: leaving it in $d\n";
	    }else{
		$figdir =$date;
		$figdir=~s/:/_/g;
		print "$d/$f date = $date -> $figdir\n";
		if(!-d $figdir){
		    `mkdir $figdir`;
		    if(!-d $figdir){
			die "could not create folder $figdir\n";
		    }
		    print "created new folder $figdir\n";
		}
		if(-e "$figdir/$f"){
		    print "warning: target file $figdir/$f exists: leaving $d/$f unmoved\n";
		}else{
		    `mv -n \"$d/$f\" $figdir`;
		}
		if(-e "$d/$f" || !-e "$figdir/$f"){
		    print "warning: could not move file $d/$f into folder $figdir\n";
		}
		if($replaced eq "no"){
		    $oldf=$f;
		    $olddate=$date;
		    $oldfigdir=$figdir;
		}
	    }	# could reconstruct a reasonable date for $f
	}	# $f loop
	if(rmdir $d){
	    $verbosity==0 || print "removed empty folder $d\n";
	}else{
	    print "could not remove (not empty) folder $d\n";
	}
    }else{	# if $d is a proper directory
	print "ignored folder $d due to its name having the yyyy_mm_dd structure\n";
    }
}	# $d loop


sub getdata{	# extract the exif data from a jpeg file specified as argument
    local($_);
    $file = $_[0];
    $_=`exiftool -q -T -createdate \"$file\"`;
    if($_==""){
	$_=`exiftool -q -T -FileModifyDate \"$file\"`;
    }
# old implementation (very slow!!):
#    $_=`identify -quiet -format "%[EXIF:DateTime]" \"$file\"`;
#    $_=`identify -quiet -format "%[EXIF:*]" \"$file\" | awk 'BEGIN{FS="="}/DateTime/{print \$2; exit}'`;
    chomp;
    s/([^\s]+)\s.*/\1/g;
    s/-//g;
    $_;
}