1 TUMI files
0 BW files
0 maurices files

##</code><code>##


1 TUMI file
TUMI-1354839054_alt1 1.psd

2 maurices files
maur-1111.psd
maur-1110.psd


##</code><code>##

#!/usr/bin/perl -w

use Net::FTP;
use File::Copy;
use File::Basename;
use Email::Send::SMTP::Gmail;
use POSIX qw(strftime);

my $date = strftime("%m-%d-%y",localtime);
my $time = strftime("%I:%M:%S",localtime);


my $photo_error_folder = "/Volumes/photorepos/Partners/WorkHorse/ERROR/PhotographyDrop_ERROR";
my $post_error_folder = "/Volumes/photorepos/Partners/WorkHorse/ERROR/PostDrop_ERROR";
my $subject =  "ICS -- Files in the Error Folder ";

my $dllist ='bflieck@xxx.com';


chdir( $photo_error_folder ) or print "Cant chdir to $photo_error_folder $!";

my $count = (@photo_err_list) = glob '"*{jpg,tif,tiff,psd}"';
if ($count > 0)
{

my ($mail,$error)=Email::Send::SMTP::Gmail->new( -smtp=>'smtp.gmail.com',
                                                 -login=>'kopautomation1@xxx.com',
                                                 -pass=>'xxx',
                                                 -layer=> 'ssl',
                                                 -port=> '465',
                                                 -debug=> 1,
                                                 -timeout=> 1000);
                                                  
$tumi_count = grep { /TUMI/ } @photo_err_list;
if ($tumi_count > 0) {
print "$tumi_count TUMI files\n";
}
else
{
print "$tumi_count TUMI files\n";
}


$bw_count = grep { /BW/ } @photo_err_list;
if ($bw_count > 0) {
print "$bw_count BW files\n";
}
else
{
print "$bw_count BW files\n";
}

$maurices_count = grep { /Maur/ } @photo_err_list;
if ($maurices_count > 0) {
print "$maurices_count Maurices files\n";
}
else
{
print "$maurices_count maurices files\n";
}


my $body="please fix and redrop or delete the<br>
file://$photo_error_folder/<br><br>
";
my $spacer ="<br>";
my $body1= join "<br>\n", @photo_err_list;



$mail->send(-to=>"$dllist", -from=>"$dllist", -subject=>"$subject", -body=>"$body $spacer $body1", -contenttype=>"text/html");
$mail->bye;


}