sck/gala-ki-spielwiese
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rename und delete object getestet

Browse Source
This commit is contained in:
Simon C. Kessler
2026-04-10 15:26:40 +02:00
parent 4783baa71b
commit 07b787af35
1 changed files with 20 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
database/packages/pck_net_storage.pkb
View File

@@ -127,6 +127,8 @@ create or replace package body pck_net_storage as
l_header_index := l_header_index + 1;
end if;
apex_debug.info('url: ' || i_url);
l_response := apex_web_service.make_rest_request(
p_url => i_url
,p_http_method => i_method
@@ -522,11 +524,10 @@ create or replace package body pck_net_storage as
pck_mitarbeiterrecht.p_hat_recht('ADMIN');
p_assert_allowed(i_object_key);
-- TEST
--l_response := f_make_request(
-- i_method => 'DELETE'
-- ,i_url => f_build_url(i_object_key)
--);
l_response := f_make_request(
i_method => 'DELETE'
,i_url => f_build_url(i_object_key)
);
l_obj_path := f_split_object_key(i_object_key);
pck_log.p_info(
@@ -600,7 +601,6 @@ create or replace package body pck_net_storage as
-- SCK 2026-04-08 Prozedur erstellt
------------------------------------------------------------------------------------------------Kopf*/
is
l_prefix varchar2(1024);
l_new_key varchar2(1024);
l_body clob;
l_response clob;
@@ -616,20 +616,18 @@ create or replace package body pck_net_storage as
if instr(i_new_name, '/') > 0
then
raise_application_error(-20014, 'Dateiname darf keinen Schrägstrich enthalten — zum Verschieben p_move_object verwenden');
raise_application_error(-20014, 'Dateiname darf keinen Schrägstrich enthalten — zum Verschieben explizite Verschieben-Funktion verwenden');
end if;
-- Verzeichnispfad aus dem aktuellen Key extrahieren
if instr(i_object_key, '/') > 0
then
l_prefix := substr(i_object_key, 1, instr(i_object_key, '/', -1));
else
l_prefix := null;
end if;
l_new_key := l_prefix || i_new_name;
l_obj_path := f_split_object_key(i_object_key);
l_new_key := l_obj_path.path || i_new_name;
p_assert_allowed(l_new_key);
if l_new_key = i_object_key
then
raise_application_error(-20016, 'Der Dateiname darf beim Umbenennen nicht unverändert bleiben.');
end if;
select json_object(
'sourceName' value i_object_key
,'newName' value l_new_key
@@ -637,15 +635,13 @@ create or replace package body pck_net_storage as
into l_body
from dual;
-- TEST
--l_response := f_make_request(
-- i_method => 'POST'
-- ,i_url => f_build_url(i_action => 'renameObject')
-- ,i_body_clob => l_body
-- ,i_content_type => 'application/json'
--);
l_response := f_make_request(
i_method => 'POST'
,i_url => f_build_url(i_action => 'renameObject')
,i_body_clob => l_body
,i_content_type => 'application/json'
);
l_obj_path := f_split_object_key(i_object_key);
pck_log.p_info(
i_module => c_log_module
,i_action => 'RENAME'