Create new resource in XDB using PL/SQL problem

Question

Hi Forum,
I'm struggling with the problem of creating folders and resources automatically using PL/SQL. I'm working with Oracle 9.2
What I'd like to achieve is a proc like so:
create_folder(path in varchar2)
This proc should create the folder for me. Problem is:
1. If a subfolder is not existing, dbms_xdb.create_folder throws an error.
2. If a folder is existing, the same happens.
So my approach is:
split the path '/a/b/c/d/test.xml' into chunks like:
/a
/a/b
/a/b/c
/a/b/c/d
Now, check for each entry, whether folder exists. If not, create folder.
The way I implemented this is by a pipelined PL/SQL function split_path:
create type path_table as table of varchar2;
create or replace function split_path (path in varchar2)
return path_table pipelined
is
i number := 1;
begin
while instr(path, '/', 2, i) > 0 loop
pipe row (substr(path, 1, instr(path, '/', 2, i) - 1));
i := i + 1;
end loop;
return;
end split_path;
This function pumps out any sub-path.
Now, I create a create_folder function like so:
procedure create_folder (path in varchar2)
is
i number := 1;
-- cursor for all non-existing pathes (via pipelined function split_path)
cursor path_cur is
select column_value
from table(mds_tools.split_path(path))
where column_value not in (select any_path from resource_view);
begin
-- Create all non-existing folders
for entry in path_cur loop
result := dbms_xdb.createFolder(entry.column_value);
end loop;
-- exception handling goes here
end create_folder;
So, this way, I'm checking any sub folder against the existing cursors and try to create a folder if it's not existing.
Nice try, so far, but: It doesn't work.
Oracle gives me an "End of communication" error, when trying to run this.
It seems to bomb out as soon as the second pipe is pumped out of the function and I don't understand, why.
If this should be the wrong approach, how could I improve this?
Thanks for any help,
Jürgen

Answer 1

Sorry, two little mistakes:
Procedure create_folder shoule read like this:
create or replace procedure create_folder (path in varchar2)
is
i number := 1;
result boolean;
-- cursor for all non-existing pathes (via pipelined function split_path)
cursor path_cur is
select column_value
from table(split_path(path))
where column_value not in (select any_path from resource_view);
begin
-- Create all non-existing folders
for entry in path_cur loop
result := dbms_xdb.createFolder(entry.column_value);
end loop;
-- exception handling goes here
end create_folder;