#!/usr/bin/perl
use strict;

            

$| = 1;


# Prompt for input
# ----------------
# Two arguments, prompt, and default value
sub prompt($$)
	{
	my ($prompt, $default) = @_;
	my $x;

	$prompt .= ":" if $prompt =~ /.*[a-zA-Z]/;
	print "$prompt [$default] ";
	$x = <STDIN>;
	chop($x);
	$x = $default unless $x;
	$x = "" if $x eq " ";
	return $x;
	}

# Prompt for input block
# ----------------------
# Two associative arrays as arguments:
#   list2{"key"} -> prompt string for that value
#   list3 -> array of keys in desired order
#   list1{"key"} -> current values
# return a modified list1.
sub promptBlock
	{
	my $prompts = shift;
	my $values = shift;
	my $keys = shift;
	my %results;

	my $widestPrompt;
	my $i;
	my $key;
	my $length;
	my $prompt;
	my @keys;

	if(!$keys)
		{
		@keys = keys(%$values);
		$keys = \@keys;
		}

	foreach $key (@$keys)
		{
		$length = length($$prompts{$key});
		$widestPrompt = $length if $widestPrompt < $length;
		}

	foreach $key (@$keys)
		{
		$prompt = $$prompts{$key};
		$prompt = $key if !$prompt;
		$length = length($prompt);
		while($length++ < $widestPrompt)
			{
			$prompt = " ".$prompt;
			}
		$$values{$key} = prompt($prompt,$$values{$key});
		}
	}


sub print_bar
	{
	print <<EOF;
------------------------------------------------------------------------
EOF
	}

sub date_time
{
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());

    return sprintf("%04d.%02d.%02d-%02d:%02d:%02d",
        $year + 1900,
        $mon + 1,
        $mday,
        $hour,
        $min,
        $sec);
}

sub mysys($)
{
    my @cmd = @_;
    my $d = date_time();
    print "$d: ",join(" ",@cmd),"\n"; 
    system(@cmd) == 0 or die $?;
}

sub args(@)
{
    my %args;

    foreach $a (@_)
    {
        if($a =~ /^-+(.*?)=(.*)$/)
        {
            $args{$1} = $2;
        }
        elsif($a =~ /^-+(.*)$/)
        {
            $args{$1} = "_";
        }
    }
    return \%args;
}

sub main(@)
{
    my $args = args(@_);
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
    $year = $year + 1900;
    my $photosRoot = "/Users/poly/photos_unsorted/";
    my $yearFolder = $photosRoot . "${year}_digital_snapshots/";

    my @knownCameras = ("LUMIX","IZONE_256");

    my $volume;

    for my $aCamera (@knownCameras)
    {
        $volume = "/Volumes/$aCamera/DCIM/";
        last if(-d $volume);
    }
    if(! -d $volume)
    {
        print "no camera found among ",join(", ",@knownCameras);
        exit(1);
    }

    my $pix = `find $volume -name '*.JPG'`;
    $pix .= `find $volume -name '*.MOV'`;
    print "$pix\n";
    my @pix = split(/\s+/,$pix);
    my $count = scalar(@pix);
    print "$count found\n";

    if(!$count)
    {
        print_bar();
        print "No pictures in $volume. Bye.\n";
        print_bar();
        exit(0);
    }

    my $setName = "newphotos";
    my $dotdate = sprintf("%4d.%02d.%02d_",$year,$mon + 1,$mday);
    my $newFolder = $yearFolder . $dotdate;

    if($$args{"add"})
    {
        #  --add means add to latest folder...
        opendir DIR,$yearFolder;
        my @dirs = readdir(DIR);
        closedir DIR;

        my $latestDotdate;
        my $latestName;
        my $latestT = "0000.00.00";
        for my $dir (sort(@dirs))
        {
            if($dir =~ /(\d\d\d\d.\d\d.\d\d)_(.*)/)
            {
                #print "dir is $dir $1 $2\n";
                if($latestT lt $1)
                {
                    $latestT = $1;
                    $latestDotdate = $1 . "_";
                    $latestName = $2;
                }
            }
        }

        # found the latest?
        if($latestT)
        {
            $dotdate = $latestDotdate;
            $setName = $latestName;
            $newFolder = $yearFolder . $dotdate;
        }

    }
    

    $setName = prompt("into $newFolder",$setName);

    print_bar();

    mysys("open $volume");
    mysys("mkdir -p $newFolder$setName");
    mysys("open $newFolder$setName");

    for my $pic (@pix)
    {
        mysys("cp $pic $newFolder$setName");
        mysys("mv $pic $volume/.Trashes");
    }

    print "\n\nall done (copied $count)\n\n";
    print_bar();


}


main(@ARGV);

# end