Restore g_gmt_offset for backward compatibility
This commit is contained in:
parent
de4443fd8c
commit
a6b5515e4d
@ -17,6 +17,9 @@ as
|
||||
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 := NULL; -- your timezone GMT adjustment
|
||||
|
||||
|
||||
function get_auth_string (p_string in varchar2) return varchar2
|
||||
as
|
||||
l_returnvalue varchar2(32000);
|
||||
@ -113,9 +116,13 @@ begin
|
||||
|
||||
*/
|
||||
|
||||
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;
|
||||
|
||||
@ -188,8 +195,31 @@ begin
|
||||
|
||||
end set_aws_key;
|
||||
|
||||
|
||||
procedure set_gmt_offset (p_gmt_offset in number)
|
||||
as
|
||||
begin
|
||||
|
||||
/*
|
||||
|
||||
Purpose: set GMT offset
|
||||
|
||||
Remarks:
|
||||
|
||||
Who Date Description
|
||||
------ ---------- -------------------------------------
|
||||
MBR 03.03.2011 Created
|
||||
|
||||
*/
|
||||
|
||||
g_gmt_offset := p_gmt_offset;
|
||||
|
||||
end set_gmt_offset;
|
||||
|
||||
|
||||
procedure init (p_aws_id in varchar2,
|
||||
p_aws_key in varchar2)
|
||||
p_aws_key in varchar2,
|
||||
p_gmt_offset in number := NULL)
|
||||
as
|
||||
begin
|
||||
|
||||
@ -207,9 +237,9 @@ begin
|
||||
|
||||
g_aws_id := p_aws_id;
|
||||
g_aws_key := p_aws_key;
|
||||
g_gmt_offset := p_gmt_offset;
|
||||
|
||||
end init;
|
||||
|
||||
end amazon_aws_auth_pkg;
|
||||
/
|
||||
|
||||
|
||||
@ -37,10 +37,13 @@ as
|
||||
-- set AWS secret key
|
||||
procedure set_aws_key (p_aws_key in varchar2);
|
||||
|
||||
-- set GMT offset
|
||||
procedure set_gmt_offset (p_gmt_offset in number);
|
||||
|
||||
-- initialize package for use
|
||||
procedure init (p_aws_id in varchar2,
|
||||
p_aws_key in varchar2);
|
||||
p_aws_key in varchar2,
|
||||
p_gmt_offset in number := NULL);
|
||||
|
||||
end amazon_aws_auth_pkg;
|
||||
/
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user