#!/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;
use Paws;
use DateTime;
use Furl::S3;
use File::Copy;

my $COPY = 1;
my $dt =  DateTime->now(time_zone  => 'America/Chicago');
my $date = $dt->ymd('') . '' . $dt->hms('');
# my $url = 'https://clm.dmadelivers.com/api/chainconcept/report/export_threshold?chaingroups=1&key=b59597f8-42f5-48b9-8cbb-9a60348821c2';
#my $domain = 'clm.dma.zanti';
#my $domain = 'clm.dma.gratitude';
my $domain = 'clm.dmadelivers.com';
# my $url = qq~http://$domain/api/chainconcept/report/export_threshold?chaingroups=1&key=b59597f8-42f5-48b9-8cbb-9a60348821c2~;
my $dir = '/tmp/';
# my $file = 'ChainGroupConcept.' . $date . '.csv';
# my $cmd = '/usr/bin/wget -P ' . $dir  . ' --content-disposition "' . $url . '" 2>&1';
# show $cmd;
# my @res = `$cmd`;
# show @res;
# copy('/tmp/ConceptThreshold.xls', $dir . '/' . $file);
my $dt = DateTime->now(time_zone => 'America/Chicago');
my $datetime = $dt->ymd('') . $dt->hms('');



my $s3fs = '/usr/bin/s3fs';
my $name = 'clmdata';
my $bucket = 'clmdata';
my $path = '/media/awss3/dma-reports/';

# AKIAIADRFC6ZYL3DXPLA:vt4LhhrmKQi6saFX7ne3xqOLcoK598PcPlxPFEwf
$ENV{AWS_ACCESS_KEY_ID} = 'AKIAW3MD7IJ3AA4GJ37I';
$ENV{AWS_SECRET_ACCESS_KEY} = '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';


my $cmd = "$s3fs  $name $path -o passwd_file=/etc/passwd-s3fsdmareports";
show $cmd;
system($cmd);

use Furl::S3;
 
my $s3 = Furl::S3->new( 
    aws_access_key_id => 'AKIAW3MD7IJ3AA4GJ37I', 
    aws_secret_access_key => '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',
);
my $res = $s3->list_objects($bucket) or die $s3->error;
show $res;
# for my $obj(@{$res->{contents}}) {
#     printf "%s\n", $obj->{key};
# }

# $s3->create_bucket($bucket) or die $s3->error;
 
my $res = $s3->list_objects($bucket) or die $s3->error;
for my $obj(@{$res->{contents}}) {
    printf "%s\n", $obj->{key};
}



# my $s3 = Paws->service('S3');
# my $ListBucketsOutput = $s3->ListBuckets();
# show $ListBucketsOutput;

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

# my $response = $s3->buckets;
# show $response;

# my $bucket = $s3->add_bucket( { bucket => 'clmdatareports' } )
#     or die $s3->err . ": " . $s3->errstr;

# copy($dir . $file, $path . $file) or die "Copy $dir $file to $path $file failed: $!" if $COPY;
# copy($dir . $file, $path . $file) or die "Copy $dir $file to $path $file failed: $!";



my $routingfile = "Routing.$datetime.csv";
my $routingcmd = qq~wget -O  $dir/$routingfile  "http://$domain/api/routing?export=1&key=b59597f8-42f5-48b9-8cbb-9a60348821c2&csv=1"~;
system($routingcmd);
copy($dir . $routingfile, $path . $routingfile) or die "Copy $dir $routingfile to $path $routingfile failed: $!" if $COPY;

my $distributorfile = "DistributorCompany.$datetime.csv";
my $distributorcmd = qq~wget -O  $dir/$distributorfile   "http://$domain/api/distributorcompany?export=1&key=b59597f8-42f5-48b9-8cbb-9a60348821c2&csv=1&"~;
system($distributorcmd);
copy($dir . $distributorfile, $path . $distributorfile) or die "Copy $dir $distributorfile to $path $distributorfile failed: $!" if $COPY;

my $marketfile = "Market.$datetime.csv";
my $marketgcmd = qq~wget -O  $dir/$marketfile   "http://$domain/api/market?export=1&key=b59597f8-42f5-48b9-8cbb-9a60348821c2&csv=1&"~;
system($marketgcmd);
copy($dir . $marketfile, $path . $marketfile) or die "Copy $dir $marketfile to $path $marketfile failed: $!" if $COPY;

# my $distributorwarehousefile = "DistributorWarehouse.$datetime.csv";
# my $distributorwarehousecmd = qq~wget -O  $dir/$distributorwarehousefile   "http://$domain/api/distributorwarehouse?export=1&key=b59597f8-42f5-48b9-8cbb-9a60348821c2&csv=1&"~;
# show $cmd;
# system($distributorwarehousecmd);
# copy($dir . $distributorwarehousefile, $path . $distributorwarehousefile) or die "Copy $dir/$distributorwarehousefile to $path/$distributorwarehousefile failed: $!" if $COPY;  


my $distributorwarehousefile = "DistributorWarehouse.$datetime.csv";
my $distributorwarehousecmd = qq~wget -O  $dir/$distributorwarehousefile   "http://$domain/api/distributorwarehouse?export=1&key=b59597f8-42f5-48b9-8cbb-9a60348821c2&csv=1&"~;
system($distributorwarehousecmd);
copy($dir . $distributorwarehousefile, $path . $distributorwarehousefile) or die "Copy $dir $distributorwarehousefile to $path $distributorwarehousefile failed: $!" if $COPY;



my $chaingroupconceptfile = "ChainGroupConcept.$datetime.csv";
my $chaingroupconceptcmd = qq~wget -O  $dir/$chaingroupconceptfile   "http://$domain/api/chainconcept/report/export_threshold?chaingroups=1&key=b59597f8-42f5-48b9-8cbb-9a60348821c2&csv=1&"~;
show $cmd;
system($chaingroupconceptcmd);
copy($dir . $chaingroupconceptfile, $path . $chaingroupconceptfile) or die "Copy $dir/$chaingroupconceptfile to $path/$chaingroupconceptfile failed: $!" if $COPY;



1;