#!/usr/bin/perl
use strict;
use AWS::S3;
use Net::Amazon::S3;
use Data::Show;
use MIME::Lite;
use DateTime;
use Path::Tiny;
use File::Copy;

my $url = 'http://clm.dmadelivers.com/api/chainconcept/report/export_threshold?key=b59597f8-42f5-48b9-8cbb-9a60348821c2';
my $dir = '/tmp/';
my $file = 'ConceptThreshold.xls';
my $cmd = '/usr/bin/wget -P ' . $dir  . ' --content-disposition "' . $url . '" 2>&1';
my @res = `$cmd`;
my $dt = DateTime->now(time_zone => 'America/Chicago');

 my $s3 = AWS::S3->new(
   access_key_id     => 'AKIAIADRFC6ZYL3DXPLA',
   secret_access_key => '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',
 );

# my $bucket = $s3->bucket(
#   name    => 'dma-uploads',
# );

# show $bucket;
# my $s3file = $bucket->file($file);

# show $s3file;

#my $s3 = Net::Amazon::S3->new({   
#	aws_access_key_id     => 'AKIAIADRFC6ZYL3DXPLA',
#    aws_secret_access_key  => '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'
#});
#my $response = $s3->buckets;
# foreach my $bucket ( @{ $response->{buckets} } ) {
#     print "You have a bucket: " . $bucket->bucket . "\n";
# }

# list files in the bucket
#my $bucket = $s3->bucket('dma-uploads');
# $response = $bucket->list_all or die $s3->err . ": " . $s3->errstr;
# foreach my $key ( @{ $response->{keys} } ) {
#     my $key_name = $key->{key};
#     my $key_size = $key->{size};
#     print "Bucket contains key '$key_name' of size $key_size\n";
# }

# store a file in the bucket
#$bucket->add_key_filename( 'dma-uploads/' . $file , $dir . $file) or die $s3->err . ": " . $s3->errstr;
my $path = '/media/awss3/dma-uploads/dma-uploads/';
copy($dir . $file, $path . $file) or die "Copy $dir $file to $path $file failed: $!";

#my $contents = path($dir . $file)->slurp;
# my $new_file = $bucket->add_file(
#   key       => 'foo/bar.txt',
#   contents  => \$contents,
# );

my $msg = MIME::Lite->new(
	From     => 'root@dmadelivers.com',
	# Bcc => 'dma@ace4it.com',
	# To => 'dma@ace4it.com',
	To => 'opfftp@dmadelivers.com',
	# To => 'matt.kot@dmadelivers.com',
	# Cc => 'jim.szatkowski@dmadelivers.com',
	# Bcc => 'dma@ace4it.com',
    Subject  => 'Concept Threshold Upload: ' . $dt->ymd('-'),
	Type => 'multipart/mixed'
);
$msg->attach(
	Type     => 'application/vnd.ms-excel',
	Path => $dir . $file
);
$msg->send;




1;