#!/usr/bin/perl

my $file = shift @ARGV;

my $key;
my $secret;
open F,"$ENV{'HOME'}/.aws/credentials";
while(<F>) {
	chomp;
	($key) = $_ =~ m!aws_access_key_id\s+=\s+(.*)$! if not defined $key;
	($secret) = $_ =~ m!aws_secret_access_key\s+=\s+(.*)$! if not defined $secret;
}
close F;

print<<"!";
USE dev_engineering.jgetter;

CREATE OR REPLACE TABLE dig_sales_detail (
	statement_id NUMBER(8,0),
	date DATE,
	upc NUMBER(38,0),
	cd NUMBER(4,0),
	track_id NUMBER(6,0),
	isrc VARCHAR(16),
	track_name VARCHAR(255),
	qty NUMBER(12,0),
	unit_price FLOAT,
	total FLOAT,
	trans_type VARCHAR(2),
	retail_price FLOAT,
	original_price FLOAT,
	discount FLOAT
);

COPY INTO .dig_sales_detail
FROM 's3://roberttepper/244/$file'
CREDENTIALS=( 
  AWS_KEY_ID='$key'
  AWS_SECRET_KEY='$secret'
) 
ON_ERROR=CONTINUE 
FILE_FORMAT=(
  TYPE='CSV'
  FIELD_DELIMITER='\\t'
  RECORD_DELIMITER='\\n'
  DATE_FORMAT = 'yyyy-mm-dd'
  TIMESTAMP_FORMAT = 'yyyy-mm-dd'
  FIELD_OPTIONALLY_ENCLOSED_BY = '\"' 
)
!