#!/usr/bin/perl -w

use Net::FTP;
use File::Copy;
use File::Basename;
use POSIX qw(strftime);

BEGIN { unshift @INC, '/usr/bin/lib' }
use Image::ExifTool 'ImageInfo';

print "#################################\n";
print "#################################\n";
print "#################################\n";
print "#################################\n";
print "#################################\n";

my $sort = "/Users/flieckb/Desktop/psds/";
my $wpf = "/Users/flieckb/Desktop/sort/";

chdir( $sort ) or warn "Cant chdir to $sort $!";
my(@sort_list) = glob "*.psd";

my $sortlist = @sort_list;

my $prefix;
my $style;
my $view;

my $exifTool = new Image::ExifTool;

foreach my $file (@sort_list){

my @tags = qw(DateTimeOriginal);
$exifTool->Options(Duplicates => 0, DateFormat => '%m-%d-%Y');
my $info = $exifTool->ImageInfo($file, \@tags);


foreach (@tags) {
print "$info->{$_}\t";
}
print  "\n";
# 
# foreach (@tags) {
#    if (! exists $info->{$_}) {
#       print "file $file doesn't have tag $_\n";
#    }
#    elsif (! defined $info->{$_}) {
#       print "file $file has tag $_, but it has no value\n";
#    }
#    else {
#       print "$info->{$_}\n";
#    }
   
#  if ($file =~qr/\A([^_]+)-([^_]+)(?:_([^_]+))?\.([^\.]+)\z/) {
#     	$prefix = $1;
#         $style = $2;
#         $view = $3;
# 
# print "prefix $prefix\n";  
# print "style $style\n"; 
# print "view $view\n";
#     
# my $movelist = "$sort$file";
# if (-d "$style") {
# chdir ($style) and print "$style already exsits\n";
# }
# else
# {
# mkdir($style, 0777)and print "$style was created\n";
# chdir ($style);
# }
# ##
# if (-d "$info->{$_}") {
# print "$info->{$_} already exsits\n";
# copy ($movelist, $info->{$_})or warn print "Copy $info->{$_} Failed: $!\n";
# }
# else
# {
# mkdir($info->{$_}, 0777);
# copy ($movelist, $info->{$_})or warn print "Copy $info->{$_} Failed: $!\n";
# }
# chdir ($wpf);
# }
# else
# {
# print "did not match expression = $file\n";
# };
}
# }