diff options
author | Andrejs Kozlovs <andrejs.kozlovs@zabbix.com> | 2020-11-06 16:47:11 +0300 |
---|---|---|
committer | Andrejs Kozlovs <andrejs.kozlovs@zabbix.com> | 2021-01-13 18:04:33 +0300 |
commit | dd79eaa49565a053546e8212b147743865c7d1ca (patch) | |
tree | b9db3415cc1408e0798dd3e930fe27934ca48858 /database | |
parent | d5227f7e35e40671d7f8ee4e5be4355cd0c23c4e (diff) |
....I..... [ZBXNEXT-6285] change spaces to tabs
Diffstat (limited to 'database')
-rw-r--r-- | database/oracle/images.sql | 76 |
1 files changed, 38 insertions, 38 deletions
diff --git a/database/oracle/images.sql b/database/oracle/images.sql index 811afd25b67..e95ff902590 100644 --- a/database/oracle/images.sql +++ b/database/oracle/images.sql @@ -1,49 +1,49 @@ -- this function is taken from https://stackoverflow.com/questions/19539408/error-when-decoding-base-64-to-blob CREATE OR REPLACE FUNCTION base64_decode(p_content CLOB) RETURN BLOB - IS - C_CHUNK_SIZE CONSTANT INTEGER := 12000; -- should be a multiple of 4 - C_NON_BASE64_SYM_PATTERN CONSTANT VARCHAR2(20) := '[^A-Za-z0-9+/]'; - l_chunk_buf VARCHAR2(12000); - l_chunk_b64_buf RAW(9000); - l_chunk_offset INTEGER := 1; - l_chunk_size INTEGER; - l_res BLOB; + IS + C_CHUNK_SIZE CONSTANT INTEGER := 12000; -- should be a multiple of 4 + C_NON_BASE64_SYM_PATTERN CONSTANT VARCHAR2(20) := '[^A-Za-z0-9+/]'; + l_chunk_buf VARCHAR2(12000); + l_chunk_b64_buf RAW(9000); + l_chunk_offset INTEGER := 1; + l_chunk_size INTEGER; + l_res BLOB; - FUNCTION get_next_full_base64_chunk(l_data CLOB, p_cur_pos IN OUT INTEGER, p_desired_size INTEGER, p_cur_size IN OUT INTEGER) RETURN VARCHAR2 IS - l_res VARCHAR2(12000); - l_tail_desired_size INTEGER; - BEGIN - l_res := dbms_lob.substr(l_data, p_desired_size, p_cur_pos); - p_cur_pos := p_cur_pos + p_desired_size; - IF l_res IS NULL THEN - RETURN NULL; - END IF; + FUNCTION get_next_full_base64_chunk(l_data CLOB, p_cur_pos IN OUT INTEGER, p_desired_size INTEGER, p_cur_size IN OUT INTEGER) RETURN VARCHAR2 IS + l_res VARCHAR2(12000); + l_tail_desired_size INTEGER; + BEGIN + l_res := dbms_lob.substr(l_data, p_desired_size, p_cur_pos); + p_cur_pos := p_cur_pos + p_desired_size; + IF l_res IS NULL THEN + RETURN NULL; + END IF; - l_res := regexp_replace(l_res, C_NON_BASE64_SYM_PATTERN, ''); - p_cur_size := p_cur_size + length(l_res); + l_res := regexp_replace(l_res, C_NON_BASE64_SYM_PATTERN, ''); + p_cur_size := p_cur_size + length(l_res); - l_tail_desired_size := 4 - mod(p_cur_size, 4); - IF l_tail_desired_size = 4 THEN - RETURN l_res; - ELSE - RETURN l_res || get_next_full_base64_chunk(l_data, p_cur_pos, l_tail_desired_size, p_cur_size); - END IF; - END; + l_tail_desired_size := 4 - mod(p_cur_size, 4); + IF l_tail_desired_size = 4 THEN + RETURN l_res; + ELSE + RETURN l_res || get_next_full_base64_chunk(l_data, p_cur_pos, l_tail_desired_size, p_cur_size); + END IF; + END; - BEGIN - dbms_lob.createtemporary(l_res, false); + BEGIN + dbms_lob.createtemporary(l_res, false); - WHILE true - LOOP - l_chunk_size := 0; - l_chunk_buf := get_next_full_base64_chunk(p_content, l_chunk_offset, C_CHUNK_SIZE, l_chunk_size); - EXIT WHEN l_chunk_buf IS NULL; - l_chunk_b64_buf := utl_encode.base64_decode(utl_raw.cast_to_raw(l_chunk_buf)); - dbms_lob.writeappend(l_res, utl_raw.length(l_chunk_b64_buf), l_chunk_b64_buf); - END LOOP; + WHILE true + LOOP + l_chunk_size := 0; + l_chunk_buf := get_next_full_base64_chunk(p_content, l_chunk_offset, C_CHUNK_SIZE, l_chunk_size); + EXIT WHEN l_chunk_buf IS NULL; + l_chunk_b64_buf := utl_encode.base64_decode(utl_raw.cast_to_raw(l_chunk_buf)); + dbms_lob.writeappend(l_res, utl_raw.length(l_chunk_b64_buf), l_chunk_b64_buf); + END LOOP; - RETURN l_res; - END; + RETURN l_res; + END; / DECLARE l_clob CLOB; |