#!/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 store_region (
	statementid NUMBER(8,0),
	storeid     NUMBER(6,0),
   	countryid   NUMBER(6,0)
);


COPY INTO store_region
FROM 's3://qa-orcdbucket/accounting/$file'
CREDENTIALS=( 
  AWS_KEY_ID='$key'
  AWS_SECRET_KEY='$secret'
) 
ON_ERROR=CONTINUE 
FILE_FORMAT=(
  SKIP_HEADER=1
  TYPE='CSV'
  FIELD_DELIMITER=','
  RECORD_DELIMITER='\\n'
  DATE_FORMAT = 'yyyy-mm-dd'
  TIMESTAMP_FORMAT = 'yyyy-mm-dd'
)

!