dgsoft/alexandria-plsql-utils
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #5 from trent-/aws-utc-date

Browse Source 
Dynamically fetch the UTC date for AWS
This commit is contained in:
mortenbra 2015-04-26 22:45:28 +02:00
commit c9f70a5b53
2 changed files with 57 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
ora/amazon_aws_auth_pkg.pkb
View File

@ -11,44 +11,44 @@ as
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 09.01.2011 Created MBR 09.01.2011 Created
*/ */
g_aws_id varchar2(20) := 'my_aws_id'; -- AWS access key ID g_aws_id varchar2(20) := 'my_aws_id'; -- AWS access key ID
g_aws_key varchar2(40) := 'my_aws_key'; -- AWS secret key g_aws_key varchar2(40) := 'my_aws_key'; -- AWS secret key
g_gmt_offset number := 0; -- your timezone GMT adjustment g_gmt_offset number := NULL; -- your timezone GMT adjustment
function get_auth_string (p_string in varchar2) return varchar2 function get_auth_string (p_string in varchar2) return varchar2
as as
l_returnvalue varchar2(32000); l_returnvalue varchar2(32000);
l_encrypted_raw raw (2000); -- stores encrypted binary text l_encrypted_raw raw (2000); -- stores encrypted binary text
l_decrypted_raw raw (2000); -- stores decrypted binary text l_decrypted_raw raw (2000); -- stores decrypted binary text
l_key_bytes_raw raw (64); -- stores 256-bit encryption key l_key_bytes_raw raw (64); -- stores 256-bit encryption key
begin begin
/* /*
Purpose: get authentication string Purpose: get authentication string
Remarks: see http://docs.amazonwebservices.com/AmazonS3/latest/dev/RESTAuthentication.html#ConstructingTheAuthenticationHeader Remarks: see http://docs.amazonwebservices.com/AmazonS3/latest/dev/RESTAuthentication.html#ConstructingTheAuthenticationHeader
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 09.01.2011 Created MBR 09.01.2011 Created
*/ */
l_key_bytes_raw := utl_i18n.string_to_raw (g_aws_key, 'AL32UTF8'); l_key_bytes_raw := utl_i18n.string_to_raw (g_aws_key, 'AL32UTF8');
l_decrypted_raw := utl_i18n.string_to_raw (p_string, 'AL32UTF8'); l_decrypted_raw := utl_i18n.string_to_raw (p_string, 'AL32UTF8');
l_encrypted_raw := dbms_crypto.mac (src => l_decrypted_raw, typ => dbms_crypto.hmac_sh1, key => l_key_bytes_raw); l_encrypted_raw := dbms_crypto.mac (src => l_decrypted_raw, typ => dbms_crypto.hmac_sh1, key => l_key_bytes_raw);
l_returnvalue := utl_i18n.raw_to_char (utl_encode.base64_encode(l_encrypted_raw), 'AL32UTF8'); l_returnvalue := utl_i18n.raw_to_char (utl_encode.base64_encode(l_encrypted_raw), 'AL32UTF8');
l_returnvalue := 'AWS ' || g_aws_id || ':' || l_returnvalue; l_returnvalue := 'AWS ' || g_aws_id || ':' || l_returnvalue;
return l_returnvalue; return l_returnvalue;
end get_auth_string; end get_auth_string;
@ -56,22 +56,22 @@ end get_auth_string;
function get_signature (p_string in varchar2) return varchar2 function get_signature (p_string in varchar2) return varchar2
as as
begin begin
/* /*
Purpose: get signature part of authentication string Purpose: get signature part of authentication string
Remarks: Remarks:
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 09.01.2011 Created MBR 09.01.2011 Created
*/ */
return substr(get_auth_string(p_string),26); return substr(get_auth_string(p_string),26);
end get_signature; end get_signature;
@ -84,12 +84,12 @@ begin
Purpose: get AWS access key ID Purpose: get AWS access key ID
Remarks: Remarks:
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 09.01.2011 Created MBR 09.01.2011 Created
*/ */
return g_aws_id; return g_aws_id;
@ -100,21 +100,29 @@ end get_aws_id;
function get_date_string (p_date in date := sysdate) return varchar2 function get_date_string (p_date in date := sysdate) return varchar2
as as
l_returnvalue varchar2(255); l_returnvalue varchar2(255);
l_date_as_time timestamp(6);
l_time_utc timestamp(6);
begin begin
/* /*
Purpose: get AWS access key ID Purpose: get AWS access key ID
Remarks: Remarks:
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 09.01.2011 Created MBR 09.01.2011 Created
*/ */
l_returnvalue := to_char(p_date + g_gmt_offset/24, 'Dy, DD Mon YYYY HH24:MI:SS', 'NLS_DATE_LANGUAGE = AMERICAN') || ' GMT'; if g_gmt_offset is null then
l_date_as_time := cast(p_date as timestamp);
l_time_utc := sys_extract_utc(l_date_as_time);
l_returnvalue := to_char(l_time_utc, 'Dy, DD Mon YYYY HH24:MI:SS', 'NLS_DATE_LANGUAGE = AMERICAN') || ' GMT';
else
l_returnvalue := to_char(p_date + g_gmt_offset/24, 'Dy, DD Mon YYYY HH24:MI:SS', 'NLS_DATE_LANGUAGE = AMERICAN') || ' GMT';
end if;
return l_returnvalue; return l_returnvalue;
@ -130,12 +138,12 @@ begin
Purpose: get epoch (number of seconds since January 1, 1970) Purpose: get epoch (number of seconds since January 1, 1970)
Remarks: Remarks:
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 09.01.2011 Created MBR 09.01.2011 Created
*/ */
l_returnvalue := trunc((p_date - to_date('01-01-1970','MM-DD-YYYY')) * 24 * 60 * 60); l_returnvalue := trunc((p_date - to_date('01-01-1970','MM-DD-YYYY')) * 24 * 60 * 60);
@ -153,19 +161,19 @@ begin
Purpose: set AWS access key id Purpose: set AWS access key id
Remarks: Remarks:
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 18.01.2011 Created MBR 18.01.2011 Created
*/ */
g_aws_id := p_aws_id; g_aws_id := p_aws_id;
end set_aws_id; end set_aws_id;
procedure set_aws_key (p_aws_key in varchar2) procedure set_aws_key (p_aws_key in varchar2)
as as
@ -175,12 +183,12 @@ begin
Purpose: set AWS secret key Purpose: set AWS secret key
Remarks: Remarks:
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 18.01.2011 Created MBR 18.01.2011 Created
*/ */
g_aws_key := p_aws_key; g_aws_key := p_aws_key;
@ -196,14 +204,14 @@ begin
Purpose: set GMT offset Purpose: set GMT offset
Remarks: Remarks:
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 03.03.2011 Created MBR 03.03.2011 Created
*/ */
g_gmt_offset := p_gmt_offset; g_gmt_offset := p_gmt_offset;
end set_gmt_offset; end set_gmt_offset;
@ -211,7 +219,7 @@ end set_gmt_offset;
procedure init (p_aws_id in varchar2, procedure init (p_aws_id in varchar2,
p_aws_key in varchar2, p_aws_key in varchar2,
p_gmt_offset in number) p_gmt_offset in number := NULL)
as as
begin begin
@ -219,20 +227,19 @@ begin
Purpose: initialize package for use Purpose: initialize package for use
Remarks: Remarks:
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 03.03.2011 Created MBR 03.03.2011 Created
*/ */
g_aws_id := p_aws_id; g_aws_id := p_aws_id;
g_aws_key := p_aws_key; g_aws_key := p_aws_key;
g_gmt_offset := nvl(p_gmt_offset, g_gmt_offset); g_gmt_offset := p_gmt_offset;
end init; end init;
end amazon_aws_auth_pkg; end amazon_aws_auth_pkg;
/ /

19
ora/amazon_aws_auth_pkg.pks
View File

@ -7,15 +7,15 @@ as
Remarks: inspired by the whitepaper "Building an Amazon S3 Client with Application Express 4.0" by Jason Straub Remarks: inspired by the whitepaper "Building an Amazon S3 Client with Application Express 4.0" by Jason Straub
see http://jastraub.blogspot.com/2011/01/building-amazon-s3-client-with.html see http://jastraub.blogspot.com/2011/01/building-amazon-s3-client-with.html
dependencies: owner of this package needs execute on dbms_crypto dependencies: owner of this package needs execute on dbms_crypto
Who Date Description Who Date Description
------ ---------- ------------------------------------- ------ ---------- -------------------------------------
MBR 09.01.2011 Created MBR 09.01.2011 Created
*/ */
-- get "Authorization" (actually authentication) header string -- get "Authorization" (actually authentication) header string
function get_auth_string (p_string in varchar2) return varchar2; function get_auth_string (p_string in varchar2) return varchar2;
@ -24,16 +24,16 @@ as
-- get AWS access key ID -- get AWS access key ID
function get_aws_id return varchar2; function get_aws_id return varchar2;
-- get date string -- get date string
function get_date_string (p_date in date := sysdate) return varchar2; function get_date_string (p_date in date := sysdate) return varchar2;
-- get epoch (number of seconds since January 1, 1970) -- get epoch (number of seconds since January 1, 1970)
function get_epoch (p_date in date) return number; function get_epoch (p_date in date) return number;
-- set AWS access key id -- set AWS access key id
procedure set_aws_id (p_aws_id in varchar2); procedure set_aws_id (p_aws_id in varchar2);
-- set AWS secret key -- set AWS secret key
procedure set_aws_key (p_aws_key in varchar2); procedure set_aws_key (p_aws_key in varchar2);
@ -43,8 +43,7 @@ as
-- initialize package for use -- initialize package for use
procedure init (p_aws_id in varchar2, procedure init (p_aws_id in varchar2,
p_aws_key in varchar2, p_aws_key in varchar2,
p_gmt_offset in number := null); p_gmt_offset in number := NULL);
end amazon_aws_auth_pkg; end amazon_aws_auth_pkg;
/ /