diff --git a/ora/amazon_aws_auth_pkg.pkb b/ora/amazon_aws_auth_pkg.pkb index 94345a9..75be024 100755 --- a/ora/amazon_aws_auth_pkg.pkb +++ b/ora/amazon_aws_auth_pkg.pkb @@ -11,44 +11,44 @@ as Who Date Description ------ ---------- ------------------------------------- MBR 09.01.2011 Created - + */ g_aws_id varchar2(20) := 'my_aws_id'; -- AWS access key ID 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 as l_returnvalue varchar2(32000); - l_encrypted_raw raw (2000); -- stores encrypted binary text - l_decrypted_raw raw (2000); -- stores decrypted binary text - l_key_bytes_raw raw (64); -- stores 256-bit encryption key + l_encrypted_raw raw (2000); -- stores encrypted binary text + l_decrypted_raw raw (2000); -- stores decrypted binary text + l_key_bytes_raw raw (64); -- stores 256-bit encryption key begin /* - Purpose: get authentication string + Purpose: get authentication string Remarks: see http://docs.amazonwebservices.com/AmazonS3/latest/dev/RESTAuthentication.html#ConstructingTheAuthenticationHeader Who Date Description ------ ---------- ------------------------------------- MBR 09.01.2011 Created - + */ - 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_key_bytes_raw := utl_i18n.string_to_raw (g_aws_key, '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_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; - + return l_returnvalue; end get_auth_string; @@ -56,22 +56,22 @@ end get_auth_string; function get_signature (p_string in varchar2) return varchar2 as - + begin /* Purpose: get signature part of authentication string - Remarks: + Remarks: Who Date Description ------ ---------- ------------------------------------- MBR 09.01.2011 Created - + */ - - return substr(get_auth_string(p_string),26); + + return substr(get_auth_string(p_string),26); end get_signature; @@ -84,12 +84,12 @@ begin Purpose: get AWS access key ID - Remarks: + Remarks: Who Date Description ------ ---------- ------------------------------------- MBR 09.01.2011 Created - + */ return g_aws_id; @@ -100,21 +100,29 @@ end get_aws_id; function get_date_string (p_date in date := sysdate) return varchar2 as l_returnvalue varchar2(255); + l_date_as_time timestamp(6); + l_time_utc timestamp(6); begin /* Purpose: get AWS access key ID - Remarks: + Remarks: Who Date Description ------ ---------- ------------------------------------- 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; @@ -130,12 +138,12 @@ begin Purpose: get epoch (number of seconds since January 1, 1970) - Remarks: + Remarks: Who Date Description ------ ---------- ------------------------------------- MBR 09.01.2011 Created - + */ 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 - Remarks: + Remarks: Who Date Description ------ ---------- ------------------------------------- MBR 18.01.2011 Created - + */ - + g_aws_id := p_aws_id; end set_aws_id; - + procedure set_aws_key (p_aws_key in varchar2) as @@ -175,12 +183,12 @@ begin Purpose: set AWS secret key - Remarks: + Remarks: Who Date Description ------ ---------- ------------------------------------- MBR 18.01.2011 Created - + */ g_aws_key := p_aws_key; @@ -196,14 +204,14 @@ begin Purpose: set GMT offset - Remarks: + Remarks: Who Date Description ------ ---------- ------------------------------------- MBR 03.03.2011 Created - + */ - + g_gmt_offset := p_gmt_offset; end set_gmt_offset; @@ -211,7 +219,7 @@ end set_gmt_offset; procedure init (p_aws_id in varchar2, p_aws_key in varchar2, - p_gmt_offset in number) + p_gmt_offset in number := NULL) as begin @@ -219,20 +227,19 @@ begin Purpose: initialize package for use - Remarks: + Remarks: Who Date Description ------ ---------- ------------------------------------- MBR 03.03.2011 Created - + */ g_aws_id := p_aws_id; 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 amazon_aws_auth_pkg; / - diff --git a/ora/amazon_aws_auth_pkg.pks b/ora/amazon_aws_auth_pkg.pks index f2e14f4..7769d57 100755 --- a/ora/amazon_aws_auth_pkg.pks +++ b/ora/amazon_aws_auth_pkg.pks @@ -7,15 +7,15 @@ as 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 - - dependencies: owner of this package needs execute on dbms_crypto + + dependencies: owner of this package needs execute on dbms_crypto Who Date Description ------ ---------- ------------------------------------- MBR 09.01.2011 Created - + */ - + -- get "Authorization" (actually authentication) header string function get_auth_string (p_string in varchar2) return varchar2; @@ -24,16 +24,16 @@ as -- get AWS access key ID function get_aws_id return varchar2; - + -- get date string function get_date_string (p_date in date := sysdate) return varchar2; - + -- get epoch (number of seconds since January 1, 1970) function get_epoch (p_date in date) return number; - + -- set AWS access key id procedure set_aws_id (p_aws_id in varchar2); - + -- set AWS secret key procedure set_aws_key (p_aws_key in varchar2); @@ -43,8 +43,7 @@ as -- initialize package for use procedure init (p_aws_id in varchar2, p_aws_key in varchar2, - p_gmt_offset in number := null); + p_gmt_offset in number := NULL); end amazon_aws_auth_pkg; / -