HackBase/plex
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

again cleanup

Browse Source
This commit is contained in:
ogobrecht 2019-06-16 16:58:56 +02:00
parent 190bcb67ec
commit 51634535a9
8 changed files with 356 additions and 552 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
.editorconfig Normal file
View File

@ -0,0 +1,17 @@
# EditorConfig is awesome: https://EditorConfig.org
# top-most EditorConfig file
root = true
[*]
trim_trailing_whitespace = true
[*.{md}]
trim_trailing_whitespace = false
[*.{sql,pks,pkb,json}]
indent_style = space
indent_size = 2
[*.{sql,pks,pkb,json,md,txt,bat}]
charset = utf-8

2
.gitignore vendored
View File

@ -3,3 +3,5 @@ temp
demo.sql
L_XE*.sql
*.zip
plex_install_SYS.bat
plex_install_APEX_190100.bat

416
PLEX.pkb
View File

@ -22,8 +22,7 @@ TYPE rec_runlog_step IS RECORD (
start_time TIMESTAMP(6),
stop_time TIMESTAMP(6),
elapsed NUMBER,
execution NUMBER
);
execution NUMBER);
TYPE tab_runlog_step IS TABLE OF rec_runlog_step INDEX BY BINARY_INTEGER;
TYPE rec_runlog IS RECORD (
@ -33,37 +32,31 @@ TYPE rec_runlog IS RECORD (
run_time NUMBER,
measured_time NUMBER,
unmeasured_time NUMBER,
data tab_runlog_step
);
TYPE tab_vc1000 IS TABLE OF VARCHAR2(1000) INDEX BY BINARY_INTEGER;
TYPE rec_ddl_files IS RECORD (
sequences_ tab_vc1000,
tables_ tab_vc1000,
ref_constraints_ tab_vc1000,
indices_ tab_vc1000,
views_ tab_vc1000,
types_ tab_vc1000,
type_bodies_ tab_vc1000,
triggers_ tab_vc1000,
functions_ tab_vc1000,
procedures_ tab_vc1000,
packages_ tab_vc1000,
package_bodies_ tab_vc1000,
grants_ tab_vc1000,
other_objects_ tab_vc1000
);
data tab_runlog_step);
TYPE rec_queries IS RECORD (--
query VARCHAR2(32767 CHAR),
file_name VARCHAR2(256 CHAR),
max_rows NUMBER DEFAULT 100000
);
TYPE tab_queries IS TABLE OF rec_queries INDEX BY PLS_INTEGER;
max_rows NUMBER DEFAULT 100000);
TYPE tab_queries IS TABLE OF rec_queries INDEX BY BINARY_INTEGER;
TYPE tab_file_list_lookup IS TABLE OF PLS_INTEGER INDEX BY VARCHAR2(256);
TYPE rec_ddl_files IS RECORD (
sequences_ tab_vc1k,
tables_ tab_vc1k,
ref_constraints_ tab_vc1k,
indices_ tab_vc1k,
views_ tab_vc1k,
types_ tab_vc1k,
type_bodies_ tab_vc1k,
triggers_ tab_vc1k,
functions_ tab_vc1k,
procedures_ tab_vc1k,
packages_ tab_vc1k,
package_bodies_ tab_vc1k,
grants_ tab_vc1k,
other_objects_ tab_vc1k);
-- GLOBAL VARIABLES
g_clob CLOB;
@ -79,28 +72,24 @@ g_queries tab_queries;
--------------------------------------------------------------------------------------------------------------------------------
$if not $$utils_public $then
FUNCTION util_bool_to_string (
p_bool IN BOOLEAN
) RETURN VARCHAR2;
FUNCTION util_bool_to_string (p_bool IN BOOLEAN) RETURN VARCHAR2;
FUNCTION util_string_to_bool (
p_bool_string IN VARCHAR2,
p_default IN BOOLEAN
) RETURN BOOLEAN;
p_default IN BOOLEAN)
RETURN BOOLEAN;
FUNCTION util_split (
p_string IN VARCHAR2,
p_delimiter IN VARCHAR2 DEFAULT ','
) RETURN tab_varchar2;
p_delimiter IN VARCHAR2 DEFAULT ',')
RETURN tab_vc32k;
FUNCTION util_join (
p_array IN tab_varchar2,
p_delimiter IN VARCHAR2 DEFAULT ','
) RETURN VARCHAR2;
p_array IN tab_vc32k,
p_delimiter IN VARCHAR2 DEFAULT ',')
RETURN VARCHAR2;
FUNCTION util_clob_to_blob (
p_clob CLOB
) RETURN BLOB;
FUNCTION util_clob_to_blob (p_clob CLOB) RETURN BLOB;
/*
ZIP UTILS
@ -113,20 +102,20 @@ ZIP UTILS
FUNCTION util_zip_blob_to_num (
p_blob IN BLOB,
p_len IN INTEGER,
p_pos IN INTEGER
) RETURN NUMBER;
p_pos IN INTEGER)
RETURN NUMBER;
FUNCTION util_zip_little_endian (
p_big IN NUMBER,
p_bytes IN PLS_INTEGER := 4
) RETURN RAW;
p_bytes IN PLS_INTEGER := 4)
RETURN RAW;
PROCEDURE util_zip_add_file (
p_zipped_blob IN OUT BLOB,
p_name IN VARCHAR2,
p_content IN BLOB
);
PROCEDURE util_zip_finish (
p_zipped_blob IN OUT BLOB
);
p_content IN BLOB);
PROCEDURE util_zip_finish (p_zipped_blob IN OUT BLOB);
FUNCTION util_multi_replace (
p_source_string VARCHAR2,
@ -141,16 +130,12 @@ FUNCTION util_multi_replace (
p_09_find VARCHAR2 DEFAULT NULL, p_09_replace VARCHAR2 DEFAULT NULL,
p_10_find VARCHAR2 DEFAULT NULL, p_10_replace VARCHAR2 DEFAULT NULL,
p_11_find VARCHAR2 DEFAULT NULL, p_11_replace VARCHAR2 DEFAULT NULL,
p_12_find VARCHAR2 DEFAULT NULL, p_12_replace VARCHAR2 DEFAULT NULL
) RETURN VARCHAR2;
p_12_find VARCHAR2 DEFAULT NULL, p_12_replace VARCHAR2 DEFAULT NULL)
RETURN VARCHAR2;
FUNCTION util_set_build_status_run_only (
p_app_export_sql IN CLOB
) RETURN CLOB;
FUNCTION util_set_build_status_run_only (p_app_export_sql IN CLOB) RETURN CLOB;
FUNCTION util_calc_data_timestamp (
p_as_of_minutes_ago IN NUMBER
) RETURN TIMESTAMP;
FUNCTION util_calc_data_timestamp (p_as_of_minutes_ago IN NUMBER) RETURN TIMESTAMP;
PROCEDURE util_setup_dbms_metadata (
p_pretty IN BOOLEAN DEFAULT true,
@ -162,66 +147,47 @@ PROCEDURE util_setup_dbms_metadata (
p_segment_attributes IN BOOLEAN DEFAULT false,
p_sqlterminator IN BOOLEAN DEFAULT true,
p_constraints_as_alter IN BOOLEAN DEFAULT false,
p_emit_schema IN BOOLEAN DEFAULT false
);
p_emit_schema IN BOOLEAN DEFAULT false);
--------------------------------------------------------------------------------------------------------------------------------
-- The following tools are working on the global private package variables g_clob, g_clob_varchar_cache, g_runlog and g_queries
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_clob_append (
p_content IN VARCHAR2
);
PROCEDURE util_clob_append (p_content IN VARCHAR2);
PROCEDURE util_clob_append (
p_content IN CLOB
);
PROCEDURE util_clob_append (p_content IN CLOB);
PROCEDURE util_clob_flush_cache;
PROCEDURE util_clob_add_to_export_files (
p_export_files IN OUT NOCOPY tab_export_files,
p_name IN VARCHAR2
);
p_name IN VARCHAR2);
PROCEDURE util_clob_query_to_csv (
p_query IN VARCHAR2,
p_max_rows IN NUMBER DEFAULT 1000,
p_delimiter IN VARCHAR2 DEFAULT ',',
p_quote_mark IN VARCHAR2 DEFAULT '"',
p_header_prefix IN VARCHAR2 DEFAULT NULL
);
p_header_prefix IN VARCHAR2 DEFAULT NULL);
PROCEDURE util_clob_create_runtime_log (
p_export_files IN OUT NOCOPY tab_export_files
);
PROCEDURE util_clob_create_runtime_log (p_export_files IN OUT NOCOPY tab_export_files);
PROCEDURE util_clob_create_error_log (
p_export_files IN OUT NOCOPY tab_export_files
);
PROCEDURE util_clob_create_error_log (p_export_files IN OUT NOCOPY tab_export_files);
PROCEDURE util_ensure_unique_file_names (
p_export_files IN OUT tab_export_files
);
PROCEDURE util_ensure_unique_file_names (p_export_files IN OUT tab_export_files);
PROCEDURE util_log_init (
p_module IN VARCHAR2
);
PROCEDURE util_log_init (p_module IN VARCHAR2);
PROCEDURE util_log_start (
p_action IN VARCHAR2
);
PROCEDURE util_log_start (p_action IN VARCHAR2);
PROCEDURE util_log_error (
p_name VARCHAR2
);
PROCEDURE util_log_error (p_name VARCHAR2);
PROCEDURE util_log_stop;
FUNCTION util_log_get_runtime (
p_start IN TIMESTAMP,
p_stop IN TIMESTAMP
) RETURN NUMBER;
p_stop IN TIMESTAMP)
RETURN NUMBER;
PROCEDURE util_log_calc_runtimes;
@ -233,9 +199,7 @@ $end
-- UTILITIES MAIN CODE
--------------------------------------------------------------------------------------------------------------------------------
FUNCTION util_bool_to_string (
p_bool IN BOOLEAN
) RETURN VARCHAR2 IS
FUNCTION util_bool_to_string (p_bool IN BOOLEAN) RETURN VARCHAR2 IS
BEGIN
RETURN CASE WHEN p_bool THEN 'TRUE' ELSE 'FALSE' END;
END util_bool_to_string;
@ -244,8 +208,8 @@ END util_bool_to_string;
FUNCTION util_string_to_bool (
p_bool_string IN VARCHAR2,
p_default IN BOOLEAN
) RETURN BOOLEAN IS
p_default IN BOOLEAN)
RETURN BOOLEAN IS
v_bool_string VARCHAR2(1 CHAR);
v_return BOOLEAN;
BEGIN
@ -265,23 +229,21 @@ END util_string_to_bool;
FUNCTION util_split (
p_string IN VARCHAR2,
p_delimiter IN VARCHAR2 DEFAULT ','
) RETURN tab_varchar2 IS
v_return tab_varchar2 := tab_varchar2();
p_delimiter IN VARCHAR2 DEFAULT ',')
RETURN tab_vc32k IS
v_return tab_vc32k := tab_vc32k();
v_offset PLS_INTEGER := 1;
v_index PLS_INTEGER := instr(p_string, p_delimiter, v_offset);
v_delimiter_length PLS_INTEGER := length(p_delimiter);
v_string_length CONSTANT PLS_INTEGER := length(p_string);
v_count PLS_INTEGER := 1;
PROCEDURE add_value (
p_value VARCHAR2
) IS
PROCEDURE add_value (p_value VARCHAR2) IS
BEGIN
v_return.extend;
v_return(v_count) := p_value;
v_count := v_count + 1;
END;
END add_value;
BEGIN
WHILE v_index > 0 LOOP
@ -298,9 +260,9 @@ END util_split;
--------------------------------------------------------------------------------------------------------------------------------
FUNCTION util_join (
p_array IN tab_varchar2,
p_delimiter IN VARCHAR2 DEFAULT ','
) RETURN VARCHAR2 IS
p_array IN tab_vc32k,
p_delimiter IN VARCHAR2 DEFAULT ',')
RETURN VARCHAR2 IS
v_return VARCHAR2(32767);
BEGIN
IF p_array IS NOT NULL AND p_array.count > 0 THEN
@ -317,9 +279,7 @@ END util_join;
--------------------------------------------------------------------------------------------------------------------------------
FUNCTION util_clob_to_blob (
p_clob CLOB
) RETURN BLOB IS
FUNCTION util_clob_to_blob (p_clob CLOB) RETURN BLOB IS
v_blob BLOB;
v_lang_context INTEGER := dbms_lob.default_lang_ctx;
v_warning INTEGER := dbms_lob.warn_inconvertible_char;
@ -343,11 +303,12 @@ END util_clob_to_blob;
--------------------------------------------------------------------------------------------------------------------------------
FUNCTION util_zip_blob_to_num (-- copyright by Anton Scheffer (MIT license, see https://technology.amis.nl/2010/03/13/utl_compress-gzip-and-zlib/)
-- copyright by Anton Scheffer (MIT license, see https://technology.amis.nl/2010/03/13/utl_compress-gzip-and-zlib/)
FUNCTION util_zip_blob_to_num (
p_blob IN BLOB,
p_len IN INTEGER,
p_pos IN INTEGER
) RETURN NUMBER IS
p_pos IN INTEGER)
RETURN NUMBER IS
rv NUMBER;
BEGIN
rv := utl_raw.cast_to_binary_integer(
@ -364,8 +325,8 @@ END util_zip_blob_to_num;
-- copyright by Anton Scheffer (MIT license, see https://technology.amis.nl/2010/03/13/utl_compress-gzip-and-zlib/)
FUNCTION util_zip_little_endian (
p_big IN NUMBER,
p_bytes IN PLS_INTEGER := 4
) RETURN RAW IS
p_bytes IN PLS_INTEGER := 4)
RETURN RAW IS
t_big NUMBER := p_big;
BEGIN
IF t_big > 2147483647 THEN
@ -380,8 +341,8 @@ END util_zip_little_endian;
PROCEDURE util_zip_add_file (
p_zipped_blob IN OUT BLOB,
p_name IN VARCHAR2,
p_content IN BLOB
) IS
p_content IN BLOB)
IS
t_now DATE;
t_blob BLOB;
t_len INTEGER;
@ -402,10 +363,6 @@ BEGIN
t_clen := t_len;
t_blob := p_content;
END IF;
-- We create our temporary BLOB in to_zip and do not need it here:
-- IF p_zipped_blob IS NULL THEN
-- dbms_lob.createtemporary(p_zipped_blob, true);
-- END IF;
t_name := utl_i18n.string_to_raw(p_name, 'AL32UTF8');
dbms_lob.append(
p_zipped_blob,
@ -449,9 +406,7 @@ END util_zip_add_file;
--------------------------------------------------------------------------------------------------------------------------------
-- copyright by Anton Scheffer (MIT license, see https://technology.amis.nl/2010/03/13/utl_compress-gzip-and-zlib/)
PROCEDURE util_zip_finish (
p_zipped_blob IN OUT BLOB
) IS
PROCEDURE util_zip_finish (p_zipped_blob IN OUT BLOB) IS
t_cnt PLS_INTEGER := 0;
t_offs INTEGER;
t_offs_dir_header INTEGER;
@ -521,8 +476,8 @@ FUNCTION util_multi_replace (
p_09_find VARCHAR2 DEFAULT NULL, p_09_replace VARCHAR2 DEFAULT NULL,
p_10_find VARCHAR2 DEFAULT NULL, p_10_replace VARCHAR2 DEFAULT NULL,
p_11_find VARCHAR2 DEFAULT NULL, p_11_replace VARCHAR2 DEFAULT NULL,
p_12_find VARCHAR2 DEFAULT NULL, p_12_replace VARCHAR2 DEFAULT NULL
) RETURN VARCHAR2 IS
p_12_find VARCHAR2 DEFAULT NULL, p_12_replace VARCHAR2 DEFAULT NULL)
RETURN VARCHAR2 IS
v_return VARCHAR2(32767);
BEGIN
v_return := p_source_string;
@ -543,9 +498,7 @@ END util_multi_replace;
--------------------------------------------------------------------------------------------------------------------------------
FUNCTION util_set_build_status_run_only (
p_app_export_sql CLOB
) RETURN CLOB IS
FUNCTION util_set_build_status_run_only (p_app_export_sql CLOB) RETURN CLOB IS
v_position PLS_INTEGER;
BEGIN
v_position := instr(p_app_export_sql, ',p_exact_substitutions_only');
@ -557,9 +510,7 @@ END util_set_build_status_run_only;
--------------------------------------------------------------------------------------------------------------------------------
FUNCTION util_calc_data_timestamp (
p_as_of_minutes_ago IN NUMBER
) RETURN TIMESTAMP IS
FUNCTION util_calc_data_timestamp (p_as_of_minutes_ago IN NUMBER) RETURN TIMESTAMP IS
v_return TIMESTAMP;
BEGIN
EXECUTE IMMEDIATE
@ -583,8 +534,8 @@ PROCEDURE util_setup_dbms_metadata (
p_segment_attributes IN BOOLEAN DEFAULT false,
p_sqlterminator IN BOOLEAN DEFAULT true,
p_constraints_as_alter IN BOOLEAN DEFAULT false,
p_emit_schema IN BOOLEAN DEFAULT false
) IS
p_emit_schema IN BOOLEAN DEFAULT false)
IS
BEGIN
dbms_metadata.set_transform_param(dbms_metadata.session_transform, 'PRETTY', p_pretty);
dbms_metadata.set_transform_param(dbms_metadata.session_transform, 'CONSTRAINTS', p_constraints);
@ -600,9 +551,7 @@ END util_setup_dbms_metadata;
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_ensure_unique_file_names (
p_export_files IN OUT tab_export_files
) IS
PROCEDURE util_ensure_unique_file_names (p_export_files IN OUT tab_export_files) IS
v_file_list_lookup tab_file_list_lookup;
v_apex_install_file_id PLS_INTEGER;
v_file_name VARCHAR2(256);
@ -611,7 +560,6 @@ PROCEDURE util_ensure_unique_file_names (
v_count PLS_INTEGER;
BEGIN
util_log_start('ensure unique file names in collection');
--
$if $$apex_installed $then
-- find apex install file
FOR i IN 1..p_export_files.count LOOP
@ -620,11 +568,9 @@ BEGIN
END IF;
END LOOP;
$end
--
FOR i IN 1..p_export_files.count LOOP
v_file_name := p_export_files(i).name;
v_count := 1;
--
IF instr(v_file_name, '.') > 0 THEN
v_base_name := substr(v_file_name, 1, instr(v_file_name, '.', -1) - 1);
v_extension := substr(v_file_name, instr(v_file_name, '.', -1));
@ -632,12 +578,10 @@ BEGIN
v_base_name := v_file_name;
v_extension := NULL;
END IF;
--
WHILE v_file_list_lookup.EXISTS(v_file_name) LOOP
v_count := v_count + 1;
v_file_name := v_base_name || '_' || v_count || v_extension;
END LOOP;
--
v_file_list_lookup(v_file_name) := i;
-- correct data if needed
IF p_export_files(i).name != v_file_name THEN
@ -652,9 +596,7 @@ BEGIN
p_export_files(v_apex_install_file_id).contents,
p_export_files(i).name || '$',
v_file_name,
1,
2,
'm');
1, 2, 'm');
END IF;
-- correct the file name itself
p_export_files(i).name := v_file_name;
@ -665,9 +607,7 @@ END util_ensure_unique_file_names;
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_log_init (
p_module IN VARCHAR2
) IS
PROCEDURE util_log_init (p_module IN VARCHAR2) IS
BEGIN
g_runlog.module := substr(p_module, 1, c_app_info_length);
g_runlog.start_time := systimestamp;
@ -681,9 +621,7 @@ END util_log_init;
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_log_start (
p_action IN VARCHAR2
) IS
PROCEDURE util_log_start (p_action IN VARCHAR2) IS
v_index PLS_INTEGER;
BEGIN
dbms_application_info.set_module(
@ -696,18 +634,14 @@ END util_log_start;
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_log_error (
p_name VARCHAR2
) IS
PROCEDURE util_log_error (p_name VARCHAR2) IS
v_index PLS_INTEGER;
PROCEDURE add_error_to_action IS
v_index PLS_INTEGER;
BEGIN
v_index := g_runlog.data.count;
g_runlog.data(v_index).action := substr('ERROR: ' || g_runlog.data(v_index).action, 1, plex.c_app_info_length);
END add_error_to_action;
BEGIN
v_index := g_errlog.count + 1;
g_errlog(v_index).time_stamp := systimestamp;
@ -738,8 +672,8 @@ END util_log_stop;
FUNCTION util_log_get_runtime (
p_start IN TIMESTAMP,
p_stop IN TIMESTAMP
) RETURN NUMBER IS
p_stop IN TIMESTAMP)
RETURN NUMBER IS
BEGIN
RETURN SYSDATE + ((p_stop - p_start) * 86400) - SYSDATE;
--sysdate + (interval_difference * 86400) - sysdate
@ -757,9 +691,7 @@ END util_log_calc_runtimes;
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_clob_append (
p_content IN VARCHAR2
) IS
PROCEDURE util_clob_append (p_content IN VARCHAR2) IS
BEGIN
g_clob_vc_cache := g_clob_vc_cache || p_content;
EXCEPTION
@ -774,9 +706,7 @@ END util_clob_append;
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_clob_append (
p_content IN CLOB
) IS
PROCEDURE util_clob_append (p_content IN CLOB) IS
BEGIN
IF p_content IS NOT NULL THEN
util_clob_flush_cache;
@ -806,8 +736,8 @@ END util_clob_flush_cache;
PROCEDURE util_clob_add_to_export_files (
p_export_files IN OUT NOCOPY tab_export_files,
p_name IN VARCHAR2
) IS
p_name IN VARCHAR2)
IS
v_index PLS_INTEGER;
BEGIN
util_clob_flush_cache;
@ -826,8 +756,8 @@ PROCEDURE util_clob_query_to_csv (
p_max_rows IN NUMBER DEFAULT 1000,
p_delimiter IN VARCHAR2 DEFAULT ',',
p_quote_mark IN VARCHAR2 DEFAULT '"',
p_header_prefix IN VARCHAR2 DEFAULT NULL
) IS
p_header_prefix IN VARCHAR2 DEFAULT NULL)
IS
-- inspired by Tim Hall: https://oracle-base.com/dba/script?category=miscellaneous&file=csv.sql
v_line_terminator VARCHAR2(2) := c_crlf; -- to be compatible with Excel we need to use crlf here (multiline text uses lf and is wrapped in quotes)
v_cursor PLS_INTEGER;
@ -872,13 +802,11 @@ PROCEDURE util_clob_query_to_csv (
PROCEDURE escape_varchar2_buffer_for_csv IS
BEGIN
IF v_buffer_varchar2 IS NOT NULL THEN
-- normalize line feeds for Excel
v_buffer_varchar2 := replace(
replace(v_buffer_varchar2, c_crlf, c_lf),
c_cr,
c_lf);
-- if we have the parameter p_force_quotes set to true or the delimiter character or
-- line feeds in the string then we have to wrap the text in quotes marks and escape
-- the quote marks inside the text by double them
@ -887,7 +815,6 @@ PROCEDURE util_clob_query_to_csv (
|| replace(v_buffer_varchar2, p_quote_mark, p_quote_mark || p_quote_mark)
|| p_quote_mark;
END IF;
END IF;
EXCEPTION
WHEN value_error THEN
@ -903,9 +830,7 @@ BEGIN
dbms_sql.native);
-- https://support.esri.com/en/technical-article/000010110
-- http://bluefrog-oracle.blogspot.com/2011/11/describing-ref-cursor-using-dbmssql-api.html
dbms_sql.describe_columns3(v_cursor, v_col_cnt, v_desc_tab);
FOR i IN 1..v_col_cnt LOOP
IF v_desc_tab(i).col_type = c_clob THEN
dbms_sql.define_column(v_cursor, i, v_buffer_clob);
@ -919,10 +844,7 @@ BEGIN
dbms_sql.define_column(v_cursor, i, v_buffer_varchar2, c_vc2_max_size);
END IF;
END LOOP;
v_ignore_me := dbms_sql.execute(v_cursor);
-- create header
util_clob_append(p_header_prefix);
FOR i IN 1..v_col_cnt LOOP
IF i > 1 THEN
@ -932,13 +854,10 @@ BEGIN
escape_varchar2_buffer_for_csv;
util_clob_append(v_buffer_varchar2);
END LOOP;
util_clob_append(v_line_terminator);
-- create data
LOOP
EXIT WHEN dbms_sql.fetch_rows(v_cursor) = 0 OR v_data_count = p_max_rows;
FOR i IN 1..v_col_cnt LOOP
IF i > 1 THEN
util_clob_append(p_delimiter);
@ -980,54 +899,42 @@ BEGIN
util_clob_append(v_buffer_varchar2);
END IF;
END LOOP;
util_clob_append(v_line_terminator);
v_data_count := v_data_count + 1;
END LOOP;
dbms_sql.close_cursor(v_cursor);
END IF;
END util_clob_query_to_csv;
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_clob_create_error_log (
p_export_files IN OUT NOCOPY tab_export_files
) IS
PROCEDURE util_clob_create_error_log (p_export_files IN OUT NOCOPY tab_export_files) IS
BEGIN
IF g_errlog.count > 0 THEN
util_log_start(g_errlog.count || ' error' || CASE WHEN g_errlog.count != 1 THEN 's' END || ' occurred: create error log');
-- prepend header
util_clob_append(
replace('# {{MAIN_FUNCTION}} - Error Log', '{{MAIN_FUNCTION}}', upper(g_runlog.module))
|| c_crlf || c_crlf || c_crlf);
FOR i IN 1..g_errlog.count LOOP
util_clob_append('## ' || g_errlog(i).file_name || c_crlf || c_crlf);
util_clob_append(to_char(g_errlog(i).time_stamp, 'yyyy-mm-dd hh24:mi:ss.ffffff') || ': ' || g_errlog(i).error_text || c_crlf || c_crlf);
util_clob_append('```sql' || c_crlf || g_errlog(i).call_stack || c_crlf || '```' || c_crlf || c_crlf || c_crlf);
util_clob_append('```sql' || c_crlf || g_errlog(i).call_stack || '```' || c_crlf || c_crlf || c_crlf);
END LOOP;
-- add error log to file collection
util_clob_add_to_export_files(
p_export_files => p_export_files,
p_name => 'plex_error_log.md');
util_log_stop;
END IF;
END util_clob_create_error_log;
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_clob_create_runtime_log (
p_export_files IN OUT NOCOPY tab_export_files
) IS
PROCEDURE util_clob_create_runtime_log (p_export_files IN OUT NOCOPY tab_export_files) IS
BEGIN
util_log_calc_runtimes;
util_clob_append(util_multi_replace('# {{MAIN_FUNCTION}} - Runtime Log
- Export started at {{START_TIME}} and took {{RUN_TIME}} seconds to finish with {{ERRORCOUNT}} errors
- Export started at {{START_TIME}} and took {{RUN_TIME}} seconds to finish with {{ERRORS}}
- Unmeasured execution time because of system waits, missing log calls or log overhead was {{UNMEASURED_TIME}} seconds
- The used PLEX version was {{PLEX_VERSION}}
- More infos here: [PLEX on GitHub]({{PLEX_URL}})
@ -1039,14 +946,11 @@ BEGIN
'{{UNMEASURED_TIME}}', trim(TO_CHAR(g_runlog.unmeasured_time, '999G990D000')),
'{{PLEX_VERSION}}', c_plex_version,
'{{PLEX_URL}}', c_plex_url,
'{{ERRORCOUNT}}', g_errlog.count
));
'{{ERRORS}}', g_errlog.count || ' error' || CASE WHEN g_errlog.count != 1 THEN 's' END));
util_clob_append('
| Step | Elapsed | Execution | Action |
|------:|----------:|------------:|:-----------------------------------------------------------------|
' );
FOR i IN 1..g_runlog.data.count LOOP
util_clob_append(util_multi_replace(
'| {{STEP}} | {{ELAPSED}} | {{EXECUTION}} | {{ACTION}} |' || c_lf,
@ -1097,9 +1001,8 @@ FUNCTION backapp (
p_include_error_log IN BOOLEAN DEFAULT true,
p_base_path_backend IN VARCHAR2 DEFAULT 'app_backend',
p_base_path_frontend IN VARCHAR2 DEFAULT 'app_frontend',
p_base_path_data IN VARCHAR2 DEFAULT 'app_data'
) RETURN tab_export_files IS
p_base_path_data IN VARCHAR2 DEFAULT 'app_data')
RETURN tab_export_files IS
v_apex_version NUMBER;
v_data_timestamp TIMESTAMP;
v_data_scn NUMBER;
@ -1147,7 +1050,6 @@ FUNCTION backapp (
v_app_alias;
CLOSE cur_owner;
END IF;
IF p_app_id IS NOT NULL AND v_app_owner IS NULL THEN
raise_application_error(
-20101,
@ -1180,24 +1082,18 @@ FUNCTION backapp (
p_with_no_subscriptions => CASE WHEN p_app_subscriptions THEN false ELSE true END,
p_with_comments => p_app_comments,
p_with_supporting_objects => p_app_supporting_objects);
FOR i IN 1..v_apex_files.count LOOP
v_export_files.extend;
-- relocate files to own project structure
v_export_files(i).name := replace(
v_apex_files(i).name,
'f' || p_app_id || '/application/',
p_base_path_frontend || '/');
-- correct prompts for relocation
v_export_files(i).contents := replace(
v_apex_files(i).contents,
'prompt --application/',
'prompt --' || p_base_path_frontend || '/');
v_apex_files.DELETE(i);
-- special handling for install file
IF v_export_files(i).name = 'f' || p_app_id || '/install.sql' THEN
v_export_files(i).name := 'scripts/install_frontend_generated_by_apex.sql';
@ -1208,14 +1104,14 @@ FUNCTION backapp (
'@application/', '@../' || p_base_path_frontend || '/',
'prompt --install', 'prompt --install_frontend_generated_by_apex');
END IF;
-- handle build status RUN_ONLY
IF v_export_files(i).name = p_base_path_frontend || '/create_application.sql' AND p_app_build_status_run_only THEN
v_export_files(i).contents := util_set_build_status_run_only(v_export_files(i).contents);
END IF;
v_apex_files.DELETE(i);
END LOOP;
util_log_stop;
--
IF p_app_include_single_file THEN
-- save as single file
v_apex_files.DELETE;
@ -1250,9 +1146,9 @@ FUNCTION backapp (
p_like_list VARCHAR2,
p_not_like_list VARCHAR2,
p_placeholder_prefix VARCHAR2,
p_column_name VARCHAR2
) IS
v_expression_table tab_varchar2;
p_column_name VARCHAR2)
IS
v_expression_table tab_vc32k;
BEGIN
-- process filter "like"
v_expression_table := util_split(p_like_list, ',');
@ -1266,7 +1162,6 @@ FUNCTION backapp (
v_query,
'#' || p_placeholder_prefix || '_LIKE_EXPRESSIONS#',
nvl(util_join(v_expression_table, ' or '), '1 = 1'));
-- process filter "not like"
v_expression_table := util_split(p_not_like_list, ',');
FOR i IN 1..v_expression_table.count LOOP
@ -1285,8 +1180,8 @@ FUNCTION backapp (
END replace_query_like_expressions;
PROCEDURE process_user_ddl IS
BEGIN
-- user itself
PROCEDURE process_user IS
BEGIN
v_file_path := p_base_path_backend || '/_user/' || v_current_user || '.sql';
util_log_start(v_file_path);
@ -1307,8 +1202,7 @@ END;
^' ,
'{{CURRENT_USER}}', v_current_user,
'{{DDL}}', dbms_metadata.get_ddl('USER', v_current_user),
'{{/}}', c_slash
));
'{{/}}', c_slash));
util_clob_add_to_export_files(
p_export_files => v_export_files,
p_name => v_file_path);
@ -1318,9 +1212,9 @@ END;
WHEN OTHERS THEN
util_setup_dbms_metadata;
util_log_error(v_file_path);
END;
END process_user;
-- roles
PROCEDURE process_roles IS
BEGIN
v_file_path := p_base_path_backend || '/_user/' || v_current_user || '_roles.sql';
util_log_start(v_file_path);
@ -1336,9 +1230,9 @@ END;
EXCEPTION
WHEN OTHERS THEN
util_log_error(v_file_path);
END;
END process_roles;
-- system privileges
PROCEDURE process_system_privileges IS
BEGIN
v_file_path := p_base_path_backend || '/_user/' || v_current_user || '_system_privileges.sql';
util_log_start(v_file_path);
@ -1354,9 +1248,9 @@ END;
EXCEPTION
WHEN OTHERS THEN
util_log_error(v_file_path);
END;
END process_system_privileges;
-- object privileges
PROCEDURE process_object_privileges IS
BEGIN
v_file_path := p_base_path_backend || '/_user/' || v_current_user || '_object_privileges.sql';
util_log_start(v_file_path);
@ -1372,7 +1266,13 @@ END;
EXCEPTION
WHEN OTHERS THEN
util_log_error(v_file_path);
END;
END process_object_privileges;
BEGIN
process_user;
process_roles;
process_system_privileges;
process_object_privileges;
END process_user_ddl;
PROCEDURE process_object_ddl IS
@ -1610,8 +1510,7 @@ ORDER BY
util_clob_append(dbms_metadata.get_dependent_ddl(
'OBJECT_GRANT',
v_rec.object_name,
v_rec.grantor
));
v_rec.grantor));
v_ddl_files.grants_(v_ddl_files.grants_.count + 1) := v_rec.file_path;
util_clob_add_to_export_files(
p_export_files => v_export_files,
@ -1698,15 +1597,11 @@ END;
END process_ref_constraints;
PROCEDURE create_backend_install_file IS
FUNCTION get_script_line (
p_file_path VARCHAR2
) RETURN VARCHAR2 IS
FUNCTION get_script_line (p_file_path VARCHAR2) RETURN VARCHAR2 IS
BEGIN
RETURN 'prompt --' || replace(
p_file_path,
'.sql',
NULL
) || c_lf || '@' || '../' || p_file_path || c_lf || c_lf;
RETURN 'prompt --' || replace(p_file_path, '.sql', NULL)
|| c_lf || '@' || '../' || p_file_path || c_lf || c_lf;
END get_script_line;
BEGIN
@ -1805,7 +1700,7 @@ SELECT table_name,
p_column_name => 'table_name');
OPEN v_cur FOR v_query;
util_log_stop;
--
util_log_start(p_base_path_data || '/get_scn');
v_data_timestamp := util_calc_data_timestamp(nvl(p_data_as_of_minutes_ago, 0));
v_data_scn := timestamp_to_scn(v_data_timestamp);
@ -2030,8 +1925,8 @@ BEGIN
--------------------------------------------------------------------------------
CREATE GLOBAL TEMPORARY TABLE temp_export_files (
name VARCHAR2(255),
contents CLOB
) ON COMMIT DELETE ROWS
contents CLOB)
ON COMMIT DELETE ROWS
--------------------------------------------------------------------------------
';
END LOOP;
@ -2101,19 +1996,17 @@ set termout off serveroutput on
spool "logs/temp_export_files.sql"
BEGIN
-- create host commands for the needed directories (spool does not create missing directories)
FOR i IN (
WITH t AS (
SELECT regexp_substr(name, '^((\w|\.)+\/)+' /*path without file name*/) AS dir
FROM temp_export_files
)
FOR i IN (WITH t AS (SELECT regexp_substr(
name,
'^((\w|\.)+\/)+' /*path without file name*/) AS dir
FROM temp_export_files)
SELECT DISTINCT
dir,
-- This is for Windows to create a directory and suppress warning if it exist.
-- Align the command to your operating system:
'host mkdir "' || replace(dir,'/','\') || '" 2>NUL' AS mkdir
FROM t
WHERE dir IS NOT NULL
) LOOP
WHERE dir IS NOT NULL) LOOP
dbms_output.put_line('set termout on');
dbms_output.put_line('spool "&logfile." append');
dbms_output.put_line('prompt --create directory if not exist: ' || i.dir);
@ -2122,7 +2015,6 @@ BEGIN
dbms_output.put_line(i.mkdir);
dbms_output.put_line('-----');
END LOOP;
-- create the spool calls for unload the files
FOR i IN (SELECT * FROM temp_export_files) LOOP
dbms_output.put_line('set termout on');
@ -2135,7 +2027,6 @@ BEGIN
dbms_output.put_line('spool off');
dbms_output.put_line('-----');
END LOOP;
END;
{{/}}
spool off
@ -2149,6 +2040,7 @@ spool off
set termout on serveroutput off
spool "&logfile." append
prompt Delete files from the global temporary table
COMMIT;
@ -2169,7 +2061,7 @@ prompt
p_export_files => v_export_files,
p_name => v_file_path);
util_log_stop;
--
v_file_template := q'^-- Template generated by PLEX version {{PLEX_VERSION}}
-- More infos here: {{PLEX_URL}}
@ -2197,11 +2089,9 @@ prompt Start Installation
prompt =========================================================================
prompt Start backend installation
prompt Call PLEX backend install script
{{@}}install_backend_generated_by_plex.sql
prompt Compile invalid objects
BEGIN
dbms_utility.compile_schema(
@ -2211,28 +2101,24 @@ BEGIN
END;
{{/}}
prompt Check invalid objects
DECLARE
v_count PLS_INTEGER;
v_objects VARCHAR2(4000);
BEGIN
SELECT COUNT(*),
listagg(object_name, ', ') within GROUP(ORDER BY object_name)
INTO v_count,
v_objects
SELECT COUNT(*), chr(10) ||
listagg('- ' || object_name || ' (' || object_type || ')', chr(10)) within GROUP(ORDER BY object_name)
INTO v_count, v_objects
FROM user_objects
WHERE status = 'INVALID';
IF v_count > 0 THEN
raise_application_error(-20000,
'Found ' || v_count || ' invalid object'
|| CASE WHEN v_count > 1 THEN 's' END
|| ' :-( ' || v_objects);
raise_application_error(-20000, chr(10) || chr(10) ||
'Found ' || v_count || ' invalid object' || CASE WHEN v_count > 1 THEN 's' END ||
' :-( ' || chr(10) || '=============================' || v_objects || chr(10) || chr(10) );
END IF;
END;
{{/}}
prompt Start frontend installation
BEGIN
apex_application_install.set_workspace_id(APEX_UTIL.find_security_group_id(:app_workspace));
@ -2243,11 +2129,9 @@ BEGIN
END;
{{/}}
prompt Call APEX frontend install script
{{@}}install_frontend_generated_by_APEX.sql
prompt =========================================================================
prompt Installation DONE :-)
prompt
@ -2339,8 +2223,8 @@ END backapp;
PROCEDURE add_query (
p_query VARCHAR2,
p_file_name VARCHAR2,
p_max_rows NUMBER DEFAULT 1000
) IS
p_max_rows NUMBER DEFAULT 1000)
IS
v_index PLS_INTEGER;
BEGIN
v_index := g_queries.count + 1;
@ -2356,8 +2240,8 @@ FUNCTION queries_to_csv (
p_quote_mark IN VARCHAR2 DEFAULT '"',
p_header_prefix IN VARCHAR2 DEFAULT NULL,
p_include_runtime_log IN BOOLEAN DEFAULT true,
p_include_error_log IN BOOLEAN DEFAULT true
) RETURN tab_export_files IS
p_include_error_log IN BOOLEAN DEFAULT true)
RETURN tab_export_files IS
v_export_files tab_export_files;
PROCEDURE init IS
@ -2419,9 +2303,7 @@ END queries_to_csv;
--------------------------------------------------------------------------------------------------------------------------------
FUNCTION to_zip (
p_file_collection IN tab_export_files
) RETURN BLOB IS
FUNCTION to_zip (p_file_collection IN tab_export_files) RETURN BLOB IS
v_zip BLOB;
BEGIN
dbms_lob.createtemporary(v_zip, true);

132
PLEX.pks
View File

@ -29,7 +29,7 @@ The package itself is independend, but functionality varies on the following con
INSTALLATION
- Download the [latest version](https://github.com/ogobrecht/plex/releases/latest)
- Unzip it, open a shell and `cd` into the root directory
- Unzip it, open a shell and go into the root directory
- Start SQL*Plus (or another tool which can run SQL scripts)
- To install PLEX run the provided install script `plex_install.sql` (script provides compiler flags)
- To uninstall PLEX run the provided script `plex_uninstall.sql` or drop the package manually
@ -66,8 +66,7 @@ TYPE rec_error_log IS RECORD (
time_stamp TIMESTAMP,
file_name VARCHAR2(255),
error_text VARCHAR2(200),
call_stack VARCHAR2(500)
);
call_stack VARCHAR2(500));
TYPE tab_error_log IS TABLE OF rec_error_log;
TYPE rec_runtime_log IS RECORD (
@ -77,17 +76,16 @@ TYPE rec_runtime_log IS RECORD (
elapsed NUMBER,
execution NUMBER,
module app_info_text,
action app_info_text
);
action app_info_text);
TYPE tab_runtime_log IS TABLE OF rec_runtime_log;
TYPE rec_export_file IS RECORD (
name VARCHAR2(255),
contents CLOB
);
contents CLOB);
TYPE tab_export_files IS TABLE OF rec_export_file;
TYPE tab_varchar2 IS TABLE OF varchar2(32767);
TYPE tab_vc32k IS TABLE OF varchar2(32767);
TYPE tab_vc1k IS TABLE OF VARCHAR2(1024) INDEX BY BINARY_INTEGER;
--------------------------------------------------------------------------------------------------------------------------------
@ -129,8 +127,8 @@ $end
p_include_error_log IN BOOLEAN DEFAULT true, -- If true, generate file plex_error_log.md with detailed error messages.
p_base_path_backend IN VARCHAR2 DEFAULT 'app_backend', -- The base path in the project root for the database DDL files.
p_base_path_frontend IN VARCHAR2 DEFAULT 'app_frontend', -- The base path in the project root for the APEX UI install files.
p_base_path_data IN VARCHAR2 DEFAULT 'app_data' -- The base path in the project root for the data files.
) RETURN tab_export_files;
p_base_path_data IN VARCHAR2 DEFAULT 'app_data') -- The base path in the project root for the data files.
RETURN tab_export_files;
/**
Get a file collection of an APEX application (or the current user/schema only) including:
@ -170,7 +168,6 @@ BEGIN
p_app_id => 100, -- parameter only available when APEX installed
p_include_object_ddl => true,
p_include_data => false));
-- do something with the zip file
-- Your code here...
END;
@ -231,8 +228,7 @@ SELECT backapp FROM dual;
PROCEDURE add_query (
p_query IN VARCHAR2, -- The query itself
p_file_name IN VARCHAR2, -- File name like 'Path/to/your/file-without-extension'.
p_max_rows IN NUMBER DEFAULT 1000 -- The maximum number of rows to be included in your file.
);
p_max_rows IN NUMBER DEFAULT 1000); -- The maximum number of rows to be included in your file.
/**
Add a query to be processed by the method queries_to_csv. You can add as many queries as you like.
@ -255,8 +251,8 @@ FUNCTION queries_to_csv (
p_quote_mark IN VARCHAR2 DEFAULT '"', -- Used when the data contains the delimiter character.
p_header_prefix IN VARCHAR2 DEFAULT NULL, -- Prefix the header line with this text.
p_include_runtime_log IN BOOLEAN DEFAULT true, -- If true, generate file plex_runtime_log.md with runtime statistics.
p_include_error_log IN BOOLEAN DEFAULT true -- If true, generate file plex_error_log.md with detailed error messages.
) RETURN tab_export_files;
p_include_error_log IN BOOLEAN DEFAULT true) -- If true, generate file plex_error_log.md with detailed error messages.
RETURN tab_export_files;
/**
Export one or more queries as CSV data within a file collection.
@ -266,7 +262,6 @@ EXAMPLE BASIC USAGE
DECLARE
l_file_collection plex.tab_export_files;
BEGIN
--fill the queries array
plex.add_query(
p_query => 'select * from user_tables',
@ -275,10 +270,8 @@ BEGIN
p_query => 'select * from user_tab_columns',
p_file_name => 'user_tab_columns',
p_max_rows => 10000);
-- process the queries
l_file_collection := plex.queries_to_csv;
-- do something with the file collection
FOR i IN 1..l_file_collection.count LOOP
dbms_output.put_line(i || ' | '
@ -295,7 +288,6 @@ EXPORT EXPORT ZIP FILE PL/SQL
DECLARE
l_zip_file BLOB;
BEGIN
--fill the queries array
plex.add_query(
p_query => 'select * from user_tables',
@ -304,10 +296,8 @@ BEGIN
p_query => 'select * from user_tab_columns',
p_file_name => 'user_tab_columns',
p_max_rows => 10000);
-- process the queries
l_zip_file := plex.to_zip(plex.queries_to_csv);
-- do something with the zip file
-- Your code here...
END;
@ -338,8 +328,8 @@ SELECT queries_to_csv_zip FROM dual;
FUNCTION to_zip (
p_file_collection IN tab_export_files -- The file collection to zip.
) RETURN BLOB;
p_file_collection IN tab_export_files) -- The file collection to zip.
RETURN BLOB;
/**
Convert a file collection to a zip file.
@ -352,7 +342,6 @@ BEGIN
l_zip := plex.to_zip(plex.backapp(
p_app_id => 100,
p_include_object_ddl => true));
-- do something with the zip file...
END;
```
@ -387,28 +376,24 @@ SELECT * FROM TABLE(plex.view_runtime_log);
$if $$utils_public $then
FUNCTION util_bool_to_string (
p_bool IN BOOLEAN
) RETURN VARCHAR2;
FUNCTION util_bool_to_string (p_bool IN BOOLEAN) RETURN VARCHAR2;
FUNCTION util_string_to_bool (
p_bool_string IN VARCHAR2,
p_default IN BOOLEAN
) RETURN BOOLEAN;
p_default IN BOOLEAN)
RETURN BOOLEAN;
FUNCTION util_split (
p_string IN VARCHAR2,
p_delimiter IN VARCHAR2 DEFAULT ','
) RETURN tab_varchar2;
p_delimiter IN VARCHAR2 DEFAULT ',')
RETURN tab_vc32k;
FUNCTION util_join (
p_array IN tab_varchar2,
p_delimiter IN VARCHAR2 DEFAULT ','
) RETURN VARCHAR2;
p_array IN tab_vc32k,
p_delimiter IN VARCHAR2 DEFAULT ',')
RETURN VARCHAR2;
FUNCTION util_clob_to_blob (
p_clob CLOB
) RETURN BLOB;
FUNCTION util_clob_to_blob (p_clob CLOB) RETURN BLOB;
/*
ZIP UTILS
@ -421,20 +406,18 @@ ZIP UTILS
FUNCTION util_zip_blob_to_num (
p_blob IN BLOB,
p_len IN INTEGER,
p_pos IN INTEGER
) RETURN NUMBER;
p_pos IN INTEGER)
RETURN NUMBER;
FUNCTION util_zip_little_endian (
p_big IN NUMBER,
p_bytes IN PLS_INTEGER := 4
) RETURN RAW;
p_bytes IN PLS_INTEGER := 4)
RETURN RAW;
PROCEDURE util_zip_add_file (
p_zipped_blob IN OUT BLOB,
p_name IN VARCHAR2,
p_content IN BLOB
);
PROCEDURE util_zip_finish (
p_zipped_blob IN OUT BLOB
);
p_content IN BLOB);
PROCEDURE util_zip_finish (p_zipped_blob IN OUT BLOB);
FUNCTION util_multi_replace (
p_source_string VARCHAR2,
@ -449,16 +432,12 @@ FUNCTION util_multi_replace (
p_09_find VARCHAR2 DEFAULT NULL, p_09_replace VARCHAR2 DEFAULT NULL,
p_10_find VARCHAR2 DEFAULT NULL, p_10_replace VARCHAR2 DEFAULT NULL,
p_11_find VARCHAR2 DEFAULT NULL, p_11_replace VARCHAR2 DEFAULT NULL,
p_12_find VARCHAR2 DEFAULT NULL, p_12_replace VARCHAR2 DEFAULT NULL
) RETURN VARCHAR2;
p_12_find VARCHAR2 DEFAULT NULL, p_12_replace VARCHAR2 DEFAULT NULL)
RETURN VARCHAR2;
FUNCTION util_set_build_status_run_only (
p_app_export_sql IN CLOB
) RETURN CLOB;
FUNCTION util_set_build_status_run_only (p_app_export_sql IN CLOB) RETURN CLOB;
FUNCTION util_calc_data_timestamp (
p_as_of_minutes_ago IN NUMBER
) RETURN TIMESTAMP;
FUNCTION util_calc_data_timestamp (p_as_of_minutes_ago IN NUMBER) RETURN TIMESTAMP;
PROCEDURE util_setup_dbms_metadata (
p_pretty IN BOOLEAN DEFAULT true,
@ -470,68 +449,49 @@ PROCEDURE util_setup_dbms_metadata (
p_segment_attributes IN BOOLEAN DEFAULT false,
p_sqlterminator IN BOOLEAN DEFAULT true,
p_constraints_as_alter IN BOOLEAN DEFAULT false,
p_emit_schema IN BOOLEAN DEFAULT false
);
p_emit_schema IN BOOLEAN DEFAULT false);
PROCEDURE util_ensure_unique_file_names (
p_export_files IN OUT tab_export_files
);
PROCEDURE util_ensure_unique_file_names (p_export_files IN OUT tab_export_files);
--------------------------------------------------------------------------------------------------------------------------------
-- The following tools are working on global private package variables
--------------------------------------------------------------------------------------------------------------------------------
PROCEDURE util_log_init (
p_module IN VARCHAR2
);
PROCEDURE util_log_init (p_module IN VARCHAR2);
PROCEDURE util_log_start (
p_action IN VARCHAR2
);
PROCEDURE util_log_start (p_action IN VARCHAR2);
PROCEDURE util_log_error (
p_name VARCHAR2
);
PROCEDURE util_log_error (p_name VARCHAR2);
PROCEDURE util_log_stop;
FUNCTION util_log_get_runtime (
p_start IN TIMESTAMP,
p_stop IN TIMESTAMP
) RETURN NUMBER;
p_stop IN TIMESTAMP)
RETURN NUMBER;
PROCEDURE util_log_calc_runtimes;
PROCEDURE util_clob_append (
p_content IN VARCHAR2
);
PROCEDURE util_clob_append (p_content IN VARCHAR2);
PROCEDURE util_clob_append (
p_content IN CLOB
);
PROCEDURE util_clob_append (p_content IN CLOB);
PROCEDURE util_clob_flush_cache;
PROCEDURE util_clob_add_to_export_files (
p_export_files IN OUT NOCOPY tab_export_files,
p_name IN VARCHAR2
);
p_name IN VARCHAR2);
PROCEDURE util_clob_query_to_csv (
p_query IN VARCHAR2,
p_max_rows IN NUMBER DEFAULT 1000,
p_delimiter IN VARCHAR2 DEFAULT ',',
p_quote_mark IN VARCHAR2 DEFAULT '"',
p_header_prefix IN VARCHAR2 DEFAULT NULL
);
p_header_prefix IN VARCHAR2 DEFAULT NULL);
PROCEDURE util_clob_create_error_log (
p_export_files IN OUT NOCOPY tab_export_files
);
PROCEDURE util_clob_create_error_log (p_export_files IN OUT NOCOPY tab_export_files);
PROCEDURE util_clob_create_runtime_log (
p_export_files IN OUT NOCOPY tab_export_files
);
PROCEDURE util_clob_create_runtime_log (p_export_files IN OUT NOCOPY tab_export_files);
$end

25
README.md
View File

@ -36,7 +36,7 @@ The package itself is independend, but functionality varies on the following con
INSTALLATION
- Download the [latest version](https://github.com/ogobrecht/plex/releases/latest)
- Unzip it, open a shell and `cd` into the root directory
- Unzip it, open a shell and go into the root directory
- Start SQL*Plus (or another tool which can run SQL scripts)
- To install PLEX run the provided install script `plex_install.sql` (script provides compiler flags)
- To uninstall PLEX run the provided script `plex_uninstall.sql` or drop the package manually
@ -114,7 +114,6 @@ BEGIN
p_app_id => 100, -- parameter only available when APEX installed
p_include_object_ddl => true,
p_include_data => false));
-- do something with the zip file
-- Your code here...
END;
@ -207,8 +206,8 @@ $end
p_include_error_log IN BOOLEAN DEFAULT true, -- If true, generate file plex_error_log.md with detailed error messages.
p_base_path_backend IN VARCHAR2 DEFAULT 'app_backend', -- The base path in the project root for the database DDL files.
p_base_path_frontend IN VARCHAR2 DEFAULT 'app_frontend', -- The base path in the project root for the APEX UI install files.
p_base_path_data IN VARCHAR2 DEFAULT 'app_data' -- The base path in the project root for the data files.
) RETURN tab_export_files;
p_base_path_data IN VARCHAR2 DEFAULT 'app_data') -- The base path in the project root for the data files.
RETURN tab_export_files;
```
@ -234,8 +233,7 @@ SIGNATURE
PROCEDURE add_query (
p_query IN VARCHAR2, -- The query itself
p_file_name IN VARCHAR2, -- File name like 'Path/to/your/file-without-extension'.
p_max_rows IN NUMBER DEFAULT 1000 -- The maximum number of rows to be included in your file.
);
p_max_rows IN NUMBER DEFAULT 1000); -- The maximum number of rows to be included in your file.
```
@ -250,7 +248,6 @@ EXAMPLE BASIC USAGE
DECLARE
l_file_collection plex.tab_export_files;
BEGIN
--fill the queries array
plex.add_query(
p_query => 'select * from user_tables',
@ -259,10 +256,8 @@ BEGIN
p_query => 'select * from user_tab_columns',
p_file_name => 'user_tab_columns',
p_max_rows => 10000);
-- process the queries
l_file_collection := plex.queries_to_csv;
-- do something with the file collection
FOR i IN 1..l_file_collection.count LOOP
dbms_output.put_line(i || ' | '
@ -279,7 +274,6 @@ EXPORT EXPORT ZIP FILE PL/SQL
DECLARE
l_zip_file BLOB;
BEGIN
--fill the queries array
plex.add_query(
p_query => 'select * from user_tables',
@ -288,10 +282,8 @@ BEGIN
p_query => 'select * from user_tab_columns',
p_file_name => 'user_tab_columns',
p_max_rows => 10000);
-- process the queries
l_zip_file := plex.to_zip(plex.queries_to_csv);
-- do something with the zip file
-- Your code here...
END;
@ -326,8 +318,8 @@ FUNCTION queries_to_csv (
p_quote_mark IN VARCHAR2 DEFAULT '"', -- Used when the data contains the delimiter character.
p_header_prefix IN VARCHAR2 DEFAULT NULL, -- Prefix the header line with this text.
p_include_runtime_log IN BOOLEAN DEFAULT true, -- If true, generate file plex_runtime_log.md with runtime statistics.
p_include_error_log IN BOOLEAN DEFAULT true -- If true, generate file plex_error_log.md with detailed error messages.
) RETURN tab_export_files;
p_include_error_log IN BOOLEAN DEFAULT true) -- If true, generate file plex_error_log.md with detailed error messages.
RETURN tab_export_files;
```
@ -345,7 +337,6 @@ BEGIN
l_zip := plex.to_zip(plex.backapp(
p_app_id => 100,
p_include_object_ddl => true));
-- do something with the zip file...
END;
```
@ -354,8 +345,8 @@ SIGNATURE
```sql
FUNCTION to_zip (
p_file_collection IN tab_export_files -- The file collection to zip.
) RETURN BLOB;
p_file_collection IN tab_export_files) -- The file collection to zip.
RETURN BLOB;
```

42
formatter_styles_sql_developer.xml
View File

@ -1,42 +0,0 @@
<options><adjustCaseOnly>false</adjustCaseOnly>
<alignTabColAliases>true</alignTabColAliases>
<breakOnSubqueries>true</breakOnSubqueries>
<alignEquality>false</alignEquality>
<breakAfterElsif>false</breakAfterElsif>
<singleLineComments>oracle.dbtools.app.Format.InlineComments.CommentsUnchanged</singleLineComments>
<breakAnsiiJoin>false</breakAnsiiJoin>
<maxCharLineSize>128</maxCharLineSize>
<alignAssignments>true</alignAssignments>
<brkCtrIndentedConditionsActions>false</brkCtrIndentedConditionsActions>
<breaksProcArgs>true</breaksProcArgs>
<alignRight>true</alignRight>
<breaksComma>oracle.dbtools.app.Format.Breaks.After</breaksComma>
<breaksAroundLogicalConjunctions>oracle.dbtools.app.Format.Breaks.Before</breaksAroundLogicalConjunctions>
<breakAfterWhen>false</breakAfterWhen>
<brkCtrlIndentedActions>true</brkCtrlIndentedActions>
<alignNamedArgs>true</alignNamedArgs>
<formatProgramURL>default</formatProgramURL>
<formatThreshold>1</formatThreshold>
<spaceAroundOperators>true</spaceAroundOperators>
<useTab>false</useTab>
<idCase>oracle.dbtools.app.Format.Case.lower</idCase>
<extraLinesAfterSignificantStatements>oracle.dbtools.app.Format.BreaksX2.X2</extraLinesAfterSignificantStatements>
<breaksConcat>oracle.dbtools.app.Format.Breaks.None</breaksConcat>
<breakAfterIf>false</breakAfterIf>
<brkCtrlSeparateConditionsActions>false</brkCtrlSeparateConditionsActions>
<breakAfterElse>false</breakAfterElse>
<spaceAroundBrackets>oracle.dbtools.app.Format.Space.Default</spaceAroundBrackets>
<flowControl>oracle.dbtools.app.Format.FlowControl.IndentedActions</flowControl>
<commasPerLine>1</commasPerLine>
<brkCtrlTerse>false</brkCtrlTerse>
<forceLinebreaksBeforeComment>false</forceLinebreaksBeforeComment>
<breakAfterWhile>false</breakAfterWhile>
<alignTypeDecl>true</alignTypeDecl>
<breakParenCondition>false</breakParenCondition>
<identSpaces>2</identSpaces>
<breakAfterCase>false</breakAfterCase>
<breakAfterThen>false</breakAfterThen>
<breaksAfterSelect>false</breaksAfterSelect>
<spaceAfterCommas>true</spaceAfterCommas>
<kwCase>oracle.dbtools.app.Format.Case.UPPER</kwCase>
</options>

26
plex_install.sql
View File

@ -10,30 +10,26 @@ DECLARE
v_utils_public VARCHAR2(5) := 'FALSE'; -- Make utilities public available (for testing or other usages).
v_debug_on VARCHAR2(5) := 'FALSE'; -- Object DDL: extract only one object per type to find problematic ones and save time in big schemas like APEX_XXX.
BEGIN
FOR i IN (
SELECT *
FOR i IN (SELECT *
FROM all_objects
WHERE object_type = 'SYNONYM'
AND object_name = 'APEX_EXPORT'
) LOOP v_apex_installed := 'TRUE';
AND object_name = 'APEX_EXPORT') LOOP
v_apex_installed := 'TRUE';
END LOOP;
FOR i IN (
SELECT *
FOR i IN (SELECT *
FROM all_objects
WHERE object_type = 'SYNONYM'
AND object_name = 'ORDS_EXPORT'
) LOOP v_ords_installed := 'TRUE';
AND object_name = 'ORDS_EXPORT') LOOP
v_ords_installed := 'TRUE';
END LOOP;
-- Show unset compiler flags as errors (results for example in errors like "PLW-06003: unknown inquiry directive '$$UTILS_PUBLIC'")
EXECUTE IMMEDIATE 'ALTER SESSION SET plsql_warnings = ''ENABLE:6003''';
-- Finally set compiler flags
EXECUTE IMMEDIATE 'ALTER SESSION SET plsql_ccflags = ''' ||
'apex_installed:' || v_apex_installed || ',' ||
'ords_installed:' || v_ords_installed || ',' ||
'utils_public:' || v_utils_public || ',' ||
'debug_on:' || v_debug_on || '''';
EXECUTE IMMEDIATE 'ALTER SESSION SET plsql_ccflags = '''
|| 'apex_installed:' || v_apex_installed || ','
|| 'ords_installed:' || v_ords_installed || ','
|| 'utils_public:' || v_utils_public || ','
|| 'debug_on:' || v_debug_on || '''';
END;
/
prompt Compile package plex (spec)

14
plex_uninstall.sql
View File

@ -5,25 +5,23 @@ prompt Uninstalling PL/SQL Export Utilities
prompt ====================================
prompt Drop package plex if exists (body)
BEGIN
FOR i IN (
SELECT object_type,
FOR i IN (SELECT object_type,
object_name
FROM user_objects
WHERE object_type = 'PACKAGE BODY'
AND object_name = 'PLEX'
) LOOP EXECUTE IMMEDIATE 'DROP ' || i.object_type || ' ' || i.object_name;
AND object_name = 'PLEX') LOOP
EXECUTE IMMEDIATE 'DROP ' || i.object_type || ' ' || i.object_name;
END LOOP;
END;
/
prompt Drop package plex if exists (spec)
BEGIN
FOR i IN (
SELECT object_type,
FOR i IN (SELECT object_type,
object_name
FROM user_objects
WHERE object_type = 'PACKAGE'
AND object_name = 'PLEX'
) LOOP EXECUTE IMMEDIATE 'DROP ' || i.object_type || ' ' || i.object_name;
AND object_name = 'PLEX') LOOP
EXECUTE IMMEDIATE 'DROP ' || i.object_type || ' ' || i.object_name;
END LOOP;
END;
/