Sat, 30 Mar 2024 12:35:09 +0100
change net_write to attempt to write all bytes, improve error handling
do $$ declare res_id int; begin insert into Resource (nodename, iscollection) values ('', true); res_id := lastval(); insert into Resource(parent_id, nodename, resoid) values (res_id, 'file1.txt', (select lo_create(0))), (res_id, 'file2.txt', (select lo_create(0))), (res_id, 'file3.txt', (select lo_create(0))), (res_id, 'file4.txt', (select lo_create(0))); insert into Resource(parent_id, nodename, iscollection) values (res_id, 'dir1', true); res_id := lastval(); insert into Resource(parent_id, nodename, iscollection) values (res_id, 'dir2', true); res_id := lastval(); insert into Resource(parent_id, nodename, resoid) values (res_id, 'd1file1.txt', (select lo_create(0))), (res_id, 'd2file1.txt', (select lo_create(0))), (res_id, 'd2file2.txt', (select lo_create(0))); end $$;