This HTML5 document contains 29 embedded RDF statements represented using HTML+Microdata notation.

The embedded RDF content will be recognized by any processor of HTML5 Microdata.

Subject Item

n16:this

foaf:made

n2:VOSBookmarksDETAPI

Subject Item

n8:this

sioc:creator_of

n2:VOSBookmarksDETAPI

Subject Item

n10:item

n9:services_of

n2:VOSBookmarksDETAPI

Subject Item

n14:this

sioc:creator_of

n2:VOSBookmarksDETAPI

Subject Item

n5:VOS

sioc:container_of

n2:VOSBookmarksDETAPI

atom:entry

n2:VOSBookmarksDETAPI

atom:contains

n2:VOSBookmarksDETAPI

Subject Item

n2:VOSBookmarksDETAPI

rdf:type

atom:Entry sioct:Comment

dcterms:created

2017-06-13T05:49:45.614108

dcterms:modified

2017-06-29T07:35:06.398859

rdfs:label

VOSBookmarksDETAPI

foaf:maker

n16:this n18:this

dc:title

VOSBookmarksDETAPI

opl:isDescribedUsing

n7:rdf

sioc:has_creator

n8:this n14:this

sioc:content

<verbatim> -- -- $Id: DET_Bookmark.sql,v 1.2 2007/03/28 10:48:50 source Exp $ -- -- This file is part of the OpenLink Software Virtuoso Open-Source (VOS) -- project. -- -- Copyright (C) 1998-2006 OpenLink Software -- -- This project is free software; you can redistribute it and/or modify it -- under the terms of the GNU General Public License as published by the -- Free Software Foundation; only version 2 of the License, dated June 1991. -- -- This program is distributed in the hope that it will be useful, but -- WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- General Public License for more details. -- -- You should have received a copy of the GNU General Public License along -- with this program; if not, write to the Free Software Foundation, Inc., -- 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA -- -- use DB ; create function "bookmark_FIXNAME" (in mailname any) returns varchar { return replace ( replace ( replace ( replace ( replace ( replace ( replace (mailname, '/', '_'), '\\', '_'), ':', '_'), '+', '_'), '\"', '_'), '[', '_'), ']', '_'); } ; create function "bookmark_COMPOSE_XBEL_NAME" (in title varchar, in id integer) returns varchar { if (title is null or title = '') return "bookmark_FIXNAME"(sprintf('%d.xbel', id)); return "bookmark_FIXNAME"(sprintf('%s (%d).xbel', title, id)); } ; create function "bookmark_ACCESS_PARAMS" (in detcol_id any, out access varchar, out gid integer, out uid integer) { declare access_tmp varchar; whenever not found goto ret; access := '100000000NN'; gid := http_nogroup_gid (); uid := http_nobody_uid (); if (isinteger (detcol_id)) { select COL_PERMS, COL_GROUP, COL_OWNER into access_tmp, gid, uid from WS.WS.SYS_DAV_COL where COL_ID = detcol_id; } access[0] := access_tmp[0]; access[1] := access_tmp[1]; -- access[3] := access_tmp[3]; ret: ; } ; --| This matches DAV_AUTHENTICATE (in id any, in what char(1), in req varchar, in a_uname varchar, in a_pwd varchar, in a_uid integer := null) --| The difference is that the DET function should not check whether the pair of name and password is valid; the auth_uid is not a null already. create function "bookmark_DAV_AUTHENTICATE" (in id any, in what char(1), in req varchar, in auth_uname varchar, in auth_pwd varchar, in auth_uid integer) { --dbg_obj_princ ('bookmark_DAV_AUTHENTICATE (', id, what, req, auth_uname, auth_pwd, auth_uid, http_dav_uid(), ')'); if (auth_uid < 0) return -12; if (not ('100' like req)) { --dbg_obj_princ ('a_uid2 is ', auth_uid, ', id[3] is ', id[2], ' mismatch'); return -13; } if ((auth_uid <> id[2]) and (auth_uid <> http_dav_uid())) { --dbg_obj_princ ('a_uid is ', auth_uid, ', id[3] is ', id[2], ' mismatch'); return -13; } return auth_uid; } ; --| This exactly matches DAV_AUTHENTICATE_HTTP (in id any, in what char(1), in req varchar, in can_write_http integer, inout a_lines any, inout a_uname varchar, inout a_pwd varchar, inout a_uid integer, inout a_gid integer, inout _perms varchar) returns integer --| The function should fully check access because DAV_AUTHENTICATE_HTTP do nothing with auth data either before or after calling this DET function. --| Unlike DAV_AUTHENTICATE, user name passed to DAV_AUTHENTICATE_HTTP header may not match real DAV user. --| If DET call is successful, DAV_AUTHENTICATE_HTTP checks whether the user have read permission on mount point collection. --| Thus even if DET function allows anonymous access, the whole request may fail if mountpoint is not readable by public. create function "bookmark_DAV_AUTHENTICATE_HTTP" (in id any, in what char(1), in req varchar, in can_write_http integer, inout a_lines any, inout a_uname varchar, inout a_pwd varchar, inout a_uid integer, inout a_gid integer, inout _perms varchar) returns integer { declare rc integer; declare puid, pgid, ruid, rgid integer; declare u_password, pperms varchar; -- anon are never allowed for mails! declare allow_anon integer; if (length (req) <> 3) return -15; whenever not found goto nf_col_or_res; if ((what <> 'R') and (what <> 'C')) return -14; -- allow_anon := WS.WS.PERM_COMP (substring (cast (pperms as varchar), 7, 3), req); if (a_uid is null) { -- if ((not allow_anon) or ('' <> WS.WS.FINDPARAM (a_lines, 'Authorization:'))) rc := WS.WS.GET_DAV_AUTH (a_lines, 0, can_write_http, a_uname, u_password, a_uid, a_gid, _perms); if (rc < 0) return rc; } if (isinteger (a_uid)) { if (a_uid < 0) return a_uid; if (a_uid = 1) -- Anonymous FTP { a_uid := http_nobody_uid (); a_gid := http_nogroup_gid (); } } if ((a_uid <> id[2]) and (a_uid <> http_dav_uid())) { -- dbg_obj_princ ('a_uid is ', a_uid, ', id[3] is ', id[3], ' mismatch'); return -13; } if (not ('100' like req)) return -13; return a_uid; nf_col_or_res: return -1; } ; --| This matches DAV_GET_PARENT (in id any, in st char(1), in path varchar) returns any create function "bookmark_DAV_GET_PARENT" (in id any, in st char(1), in path varchar) returns any { -- dbg_obj_princ ('bookmark_DAV_GET_PARENT (', id, st, path, ')'); return -20; } ; --| When DAV_COL_CREATE_INT calls DET function, authentication, check for lock and check for overwrite are passed, uid and gid are translated from strings to IDs. --| Check for overwrite, but the deletion of previously existing collection should be made by DET function. create function "bookmark_DAV_COL_CREATE" (in detcol_id any, in path_parts any, in permissions varchar, in uid integer, in gid integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_COL_CREATE (', detcol_id, path_parts, permissions, uid, gid, auth_uid, ')'); return -20; } ; --| It looks like that this is redundant and should be removed at all. create function "bookmark_DAV_COL_MOUNT" (in detcol_id any, in path_parts any, in full_mount_path varchar, in mount_det varchar, in permissions varchar, in uid integer, in gid integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_COL_MOUNT (', detcol_id, path_parts, full_mount_path, mount_det, permissions, uid, gid, auth_uid, ')'); return -20; } ; --| It looks like that this is redundant and should be removed at all. create function "bookmark_DAV_COL_MOUNT_HERE" (in parent_id any, in full_mount_path varchar, in permissions varchar, in uid integer, in gid integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_COL_MOUNT_HERE (', parent_id, full_mount_path, permissions, uid, gid, auth_uid, ')'); return -20; } ; --| When DAV_DELETE_INT calls DET function, authentication and check for lock are passed. create function "bookmark_DAV_DELETE" (in detcol_id any, in path_parts any, in what char(1), in silent integer, in auth_uid integer) returns integer { -- dbg_obj_princ ('bookmark_DAV_DELETE (', detcol_id, path_parts, what, silent, auth_uid, ')'); return -20; } ; --| When DAV_RES_UPLOAD_STRSES_INT calls DET function, authentication and check for locks are performed before the call. --| There's a special problem, known as 'Transaction deadlock after reading from HTTP session'. --| The DET function should do only one INSERT of the 'content' into the table and do it as late as possible. --| The function should return -29 if deadlocked or otherwise broken after reading blob from HTTP. create function "bookmark_DAV_RES_UPLOAD" (in detcol_id any, in path_parts any, inout content any, in type varchar, in permissions varchar, in uid integer, in gid integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_RES_UPLOAD (', detcol_id, path_parts, ', [content], ', content, type, permissions, uid, gid, auth_uid, ')'); return -20; } ; --| When DAV_PROP_REMOVE_INT calls DET function, authentication and check for locks are performed before the call. --| The check whether it's a system name or not is _not_ permitted. create function "bookmark_DAV_PROP_REMOVE" (in id any, in what char(0), in propname varchar, in silent integer, in auth_uid integer) returns integer { -- dbg_obj_princ ('bookmark_DAV_PROP_REMOVE (', id, what, propname, silent, auth_uid, ')'); return -20; } ; --| When DAV_PROP_SET_INT calls DET function, authentication and check for locks are performed before the call. --| The check whether it's a system property or not is _not_ permitted and the function should return -16 for live system properties. create function "bookmark_DAV_PROP_SET" (in id any, in what char(0), in propname varchar, in propvalue any, in overwrite integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_PROP_SET (', id, what, propname, propvalue, overwrite, auth_uid, ')'); if (propname[0] = 58) { return -16; } return -20; } ; --| When DAV_PROP_GET_INT calls DET function, authentication and check whether it's a system property are performed before the call. create function "bookmark_DAV_PROP_GET" (in id any, in what char(0), in propname varchar, in auth_uid integer) { -- dbg_obj_princ ('bookmark_DAV_PROP_GET (', id, what, propname, auth_uid, ')'); return -11; } ; --| When DAV_PROP_LIST_INT calls DET function, authentication is performed before the call. --| The returned list should contain only user properties. create function "bookmark_DAV_PROP_LIST" (in id any, in what char(0), in propmask varchar, in auth_uid integer) { -- dbg_obj_princ ('bookmark_DAV_PROP_LIST (', id, what, propmask, auth_uid, ')'); return vector (); } ; --| When DAV_PROP_GET_INT or DAV_DIR_LIST_INT calls DET function, authentication is performed before the call. create function "bookmark_DAV_DIR_SINGLE" (in id any, in what char(0), in path any, in auth_uid integer) returns any { declare sub_id, folder_id, domain_id integer; declare colname, fullpath, rightcol, tag_id varchar; declare maxrcvdate datetime; --dbg_obj_princ ('bookmark_DAV_DIR_SINGLE (', id, what, path, auth_uid, ')'); sub_id := id[3]; domain_id := id[4]; folder_id := id[5]; tag_id := id[7]; fullpath := ''; rightcol := ''; if (folder_id > 0) { if (sub_id = 1) { while (folder_id > 0) { colname := (select "bookmark_FIXNAME" (F_NAME) from BMK.WA.FOLDER where F_DOMAIN_ID = domain_id and F_ID = folder_id); if (DAV_HIDE_ERROR (colname) is null) return -1; if (rightcol = '') rightcol := colname; fullpath := colname || '/' || fullpath; folder_id := coalesce((select F_PARENT_ID from BMK.WA.FOLDER where F_ID = folder_id), 0); } } else if (sub_id = 2) { if (maxrcvdate is null) maxrcvdate := coalesce ( (select max(BD_LAST_UPDATE) from BMK.WA.BOOKMARK_DOMAIN where year(BD_LAST_UPDATE) = domain_id), cast ('1980-01-01' as datetime)); colname := (select monthname(D.BD_LAST_UPDATE) from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = id[2] and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and month(D.BD_LAST_UPDATE) = folder_id and year(D.BD_LAST_UPDATE) = domain_id); if (DAV_HIDE_ERROR (colname) is null) return -1; if (rightcol = '') rightcol := colname; fullpath := colname || '/' || fullpath; } } if (domain_id <> 0) { if (sub_id = 1) { if (maxrcvdate is null) maxrcvdate := coalesce ( (select max(BD_LAST_UPDATE) from BMK.WA.BOOKMARK_DOMAIN where BD_DOMAIN_ID = domain_id), cast ('1980-01-01' as datetime)); colname := (select "bookmark_FIXNAME"(C.WAI_NAME) as orig_name from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C where A.U_ID = id[2] and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and C.WAI_ID = domain_id); } else if (sub_id = 2) { if (maxrcvdate is null) maxrcvdate := coalesce ( (select max(BD_LAST_UPDATE) from BMK.WA.BOOKMARK_DOMAIN where year(BD_LAST_UPDATE) = domain_id), cast ('1980-01-01' as datetime)); colname := (select cast(year(D.BD_LAST_UPDATE) as varchar) from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = id[2] and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and year(D.BD_LAST_UPDATE) = domain_id); } } if (tag_id is not null) { if (sub_id = 3) { if (maxrcvdate is null) maxrcvdate := coalesce ( (select max(T_LAST_UPDATE) from BMK.WA.TAGS where T_TAG = tag_id), cast ('1980-01-01' as datetime)); colname := (select T_TAG from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.TAGS T where A.U_ID = id[2] and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and T.T_DOMAIN_ID = C.WAI_ID and T.T_TAG = tag_id); } if (DAV_HIDE_ERROR (colname) is null) return -1; if (rightcol = '') rightcol := colname; fullpath := colname || '/' || fullpath; } if (sub_id <> 0) { if (sub_id = 1) colname := 'bookmark'; else if (sub_id = 2) colname := 'date'; else if (sub_id = 3) colname := 'tags'; else colname := 'bookmark'; if (DAV_HIDE_ERROR (colname) is null) return -1; if (rightcol = '') rightcol := colname; fullpath := colname || '/' || fullpath; } fullpath := DAV_CONCAT_PATH (DAV_SEARCH_PATH (id[1], 'C'), fullpath); if ('C' = what) { if (id[6] >= 0) return -1; return vector (fullpath, 'C', 0, maxrcvdate, id, '100000000NN', 0, id[2], maxrcvdate, 'dav/unix-directory', rightcol ); } for select "bookmark_COMPOSE_XBEL_NAME"(BD_NAME, BD_ID) as orig_mname, BD_ID as m_id, BD_LAST_UPDATE from BMK.WA.BOOKMARK_DOMAIN where BD_ID = id[6] do { return vector (fullpath || orig_mname, 'R', 1024, BD_LAST_UPDATE, id, '100000000NN', 0, id[2], BD_LAST_UPDATE, 'application/xbel+xml', orig_mname); } return -1; } ; --| When DAV_PROP_GET_INT or DAV_DIR_LIST_INT calls DET function, authentication is performed before the call. create function "bookmark_DAV_DIR_LIST" (in detcol_id any, in path_parts any, in detcol_path varchar, in name_mask varchar, in recursive integer, in auth_uid integer) returns any { --dbg_obj_princ ('bookmark_DAV_DIR_LIST (', detcol_id, path_parts, detcol_path, name_mask, recursive, auth_uid, ')'); declare sub_id, folder_id, domain_id, ownergid, owner_uid integer; declare top_davpath, access varchar; declare res, grand_res any; declare top_id, descnames any; declare what char (1); "bookmark_ACCESS_PARAMS" (detcol_id, access, ownergid, owner_uid); if ((0 = length (path_parts)) or ('' = path_parts[length (path_parts) - 1])) what := 'C'; else what := 'R'; sub_id := 0; domain_id := 0; folder_id := 0; grand_res := vector(); if ('C' = what and 1 = length(path_parts)) top_id := vector (UNAME'bookmark', detcol_id, owner_uid, 0, 0, 0, -1, null); -- may be a fake id because top_id[4] may be NULL else top_id := "bookmark_DAV_SEARCH_ID_IMPL" (detcol_id, path_parts, what, sub_id, owner_uid, domain_id, folder_id); if (DAV_HIDE_ERROR (top_id) is null) return vector(); top_davpath := DAV_CONCAT_PATH (detcol_path, path_parts); if ('R' = what) return vector ("bookmark_DAV_DIR_SINGLE" (top_id, what, top_davpath, auth_uid)); res := vector(); if ('C' = what) { if (top_id[3] = 0) -- top level { declare subs any; declare cur varchar; declare i integer; i := 0; subs := vector('bookmark', 'date', 'tags'); for (i := 0; i < 3; i := i + 1) { cur := cast(subs[i] as varchar); res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, cur) || '/', 'C', 0, now(), vector (UNAME'bookmark', detcol_id, owner_uid, null, null, null, -1, null), '100000000NN', ownergid, owner_uid, now(), 'dav/unix-directory', cur) ) ); } return res; } if (top_id[3] = 1 and top_id[4] = 0) -- level of bookmarks, list of Bookmark instances { for select "bookmark_FIXNAME"(C.WAI_NAME) as orig_name from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' do { res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, orig_name) || '/', 'C', 0, now(), vector (UNAME'bookmark', detcol_id, owner_uid, top_id[3], 0, 0, -1, null), '100000000NN', ownergid, owner_uid, now(), 'dav/unix-directory', orig_name) ) ); } return res; } if (top_id[3] = 2 and top_id[4] = 0) -- level of dates { for select distinct cast(year(D.BD_LAST_UPDATE) as varchar) as orig_name from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID do { res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, orig_name) || '/', 'C', 0, now(), vector (UNAME'bookmark', detcol_id, owner_uid, top_id[3], 0, 0, -1, null), '100000000NN', ownergid, owner_uid, now(), 'dav/unix-directory', orig_name) ) ); } return res; } if (top_id[3] = 3 and top_id[4] = 0 and top_id[7] is null) -- level of tags, lists of keywords { for select distinct T_TAG as orig_name from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.TAGS D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.T_DOMAIN_ID = C.WAI_ID and T_TAG <> '' do { res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, orig_name) || '/', 'C', 0, now(), vector (UNAME'bookmark', detcol_id, owner_uid, top_id[3], 0, 0, -1, null), '100000000NN', ownergid, owner_uid, now(), 'dav/unix-directory', orig_name) ) ); } return res; } if (top_id[3] = 2 and top_id[4] <> 0 and top_id[5] = 0) -- level of dates/years { for select distinct monthname(D.BD_LAST_UPDATE) as orig_name from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and year(D.BD_LAST_UPDATE) = top_id[4] do { res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, orig_name) || '/', 'C', 0, now(), vector (UNAME'bookmark', detcol_id, owner_uid, top_id[3], 0, 0, -1, null), '100000000NN', ownergid, owner_uid, now(), 'dav/unix-directory', orig_name) ) ); } } if (top_id[3] = 1 and top_id[4] <> 0) -- and top_id[5] = 0) -- level of bookmark instance, list of bookmark folders { declare tmp int; tmp := top_id[5]; if (tmp = 0) tmp := -1; for select F_ID, "bookmark_FIXNAME" (F_NAME) as orig_name from BMK.WA.FOLDER where F_DOMAIN_ID = top_id[4] and F_PARENT_ID = coalesce(tmp, -1) order by 1, 2 do { res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, orig_name) || '/', 'C', 0, now(), vector (UNAME'bookmark', detcol_id, owner_uid, top_id[3], top_id[4], F_ID, -1, null), '100000000NN', ownergid, owner_uid, now(), 'dav/unix-directory', orig_name) ) ); } } grand_res := res; } res := vector(); if (top_id[3] = 1) { declare tmp int; tmp := top_id[5]; if (tmp = 0) tmp := -1; for select "bookmark_COMPOSE_XBEL_NAME"(BD_NAME, BD_ID) as orig_mname, BD_ID as m_id, BD_LAST_UPDATE from BMK.WA.BOOKMARK_DOMAIN where BD_DOMAIN_ID = top_id[4] and ((BD_FOLDER_ID = top_id[5] and top_id[5] > 0) or (BD_FOLDER_ID is null and tmp = -1)) order by 1, 2 do { res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, orig_mname), 'R', 1024, BD_LAST_UPDATE, vector (UNAME'bookmark', detcol_id, owner_uid, top_id[3], top_id[4], top_id[5], m_id, null), '100000000NN', ownergid, owner_uid, BD_LAST_UPDATE, 'application/xbel+xml', orig_mname) ) ); } } else if (top_id[3] = 2) { for select distinct "bookmark_COMPOSE_XBEL_NAME"(BD_NAME, BD_ID) as orig_mname, BD_ID as m_id, BD_LAST_UPDATE from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and year(D.BD_LAST_UPDATE) = top_id[4] and month(D.BD_LAST_UPDATE) = top_id[5] order by 1, 2 do { res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, orig_mname), 'R', 1024, BD_LAST_UPDATE, vector (UNAME'bookmark', detcol_id, owner_uid, top_id[3], top_id[4], top_id[5], m_id, null), '100000000NN', ownergid, owner_uid, BD_LAST_UPDATE, 'application/xbel+xml', orig_mname) ) ); } } else if (top_id[3] = 3) { for select distinct "bookmark_COMPOSE_XBEL_NAME"(D.BD_NAME, D.BD_ID) as orig_mname, D.BD_ID as m_id, D.BD_LAST_UPDATE, G.BD_TAGS as tags from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D, BMK.WA.BOOKMARK_DATA G where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and D.BD_BOOKMARK_ID = G.BD_BOOKMARK_ID and G.BD_TAGS is not null and G.BD_TAGS <> '' order by 1, 2 do { declare tags2 any; tags2 := split_and_decode (tags, 0, '\0\0,'); foreach (any tag in tags2) do { tag := trim(tag); if (top_id[7] = tag) { res := vector_concat (res, vector (vector (DAV_CONCAT_PATH (top_davpath, orig_mname), 'R', 1024, BD_LAST_UPDATE, vector (UNAME'bookmark', detcol_id, owner_uid, top_id[3], 0, 0, m_id, tag), '100000000NN', ownergid, owner_uid, BD_LAST_UPDATE, 'application/xbel+xml', orig_mname))); } } } } grand_res := vector_concat (grand_res, res); finalize_res: return grand_res; } ; create procedure "bookmark_DAV_FC_PRED_METAS" (inout pred_metas any) { pred_metas := vector( 'BD_ID', vector ('BOOKMARK_DOMAIN' , 0, 'integer', 'BD_ID' ), 'BD_DOMAIN_ID', vector ('BOOKMARK_DOMAIN' , 0, 'integer', 'BD_DOMAIN_ID' ), 'BD_BOOKMARK_ID', vector ('BOOKMARK_DOMAIN' , 0, 'integer', 'BD_BOOKMARK_ID' ), 'BD_FOLDER_ID', vector ('BOOKMARK_DOMAIN' , 0, 'integer' , 'BD_FOLDER_ID' ), 'RES_NAME', vector ('BOOKMARK_DOMAIN' , 0, 'varchar' , '"bookmark_COMPOSE_XBEL_NAME" (BD_NAME, BD_ID)' ), 'RES_FULL_PATH', vector ('BOOKMARK_DOMAIN' , 0, 'varchar' , 'concat (DAV_CONCAT_PATH (_param.detcolpath, ''bookmark'', "bookmark_FIXNAME" (WAI_NAME)), ''/'', "bookmark_COMPOSE_XBEL_NAME" (BD_NAME, BD_ID)' ), 'RES_TYPE', vector ('BOOKMARK_DOMAIN' , 0, 'varchar' , '(''application/xbel+xml'')' ), 'RES_OWNER_ID', vector ('SYS_USERS' , 0, 'integer' , 'U_ID' ), 'RES_OWNER_NAME', vector ('SYS_USERS' , 0, 'varchar' , 'U_NAME' ), 'RES_GROUP_ID', vector ('SYS_USERS' , 0, 'integer' , 'http_nogroup_gid()' ), 'RES_GROUP_NAME', vector ('SYS_USERS' , 0, 'varchar' , '(''nogroup'')' ), 'RES_COL_FULL_PATH', vector ('BOOKMARK_DOMAIN' , 0, 'varchar' , 'concat (DAV_CONCAT_PATH (_param.detcolpath, ''bookmark'', "bookmark_FIXNAME" (WAI_NAME)), ''/'')' ), 'RES_COL_NAME', vector ('BOOKMARK_DOMAIN' , 0, 'varchar' , '"bookmark_FIXNAME" (WAI_NAME)' ), 'RES_CR_TIME', vector ('BOOKMARK_DOMAIN' , 0, 'datetime' , 'BD_LAST_UPDATE' ), 'RES_MOD_TIME', vector ('BOOKMARK_DOMAIN' , 0, 'datetime' , 'BD_LAST_UPDATE' ), 'RES_PERMS', vector ('BOOKMARK_DOMAIN' , 0, 'varchar' , '(''110000000RR'')' ), 'RES_CONTENT', vector ('BOOKMARK_DOMAIN' , 0, 'text' , 'BD_DESCRIPTION' ) ); } ; create procedure "bookmark_DAV_FC_TABLE_METAS" (inout table_metas any) { table_metas := vector ( 'BOOKMARK_DOMAIN' , vector ( '' , '' , 'BD_NAME' , 'BD_NAME' , '[__quiet] /' ), 'WA_INSTANCE' , vector ( '' , '' , 'WAI_NAME' , 'WAI_NAME' , '[__quiet] /' ), 'WA_MEMBER' , vector ( '' , '' , 'WAM_INST' , 'WAM_INST' , '[__quiet] /' ), 'SYS_USERS' , vector ( '' , '' , NULL , NULL , NULL ) ); } ; create function "bookmark_DAV_FC_PRINT_WHERE" (inout filter any, in param_uid integer) returns varchar { declare pred_metas, cmp_metas, table_metas any; declare used_tables any; -- dbg_obj_princ ('Blog_POST_DAV_FC_PRINT_WHERE (', filter, param_uid, ')'); "bookmark_DAV_FC_PRED_METAS" (pred_metas); DAV_FC_CMP_METAS (cmp_metas); "bookmark_DAV_FC_TABLE_METAS" (table_metas); used_tables := vector( 'BOOKMARK_DOMAIN', vector ('BOOKMARK_DOMAIN', '_top', null, vector (), vector (), vector ()), 'WA_INSTANCE', vector ('WA_INSTANCE', '_instances', null, vector (), vector (), vector ()), 'WA_MEMBER', vector ('WA_MEMBER', '_members', null, vector (), vector (), vector ()), 'SYS_USERS', vector ('SYS_USERS', '_users', null, vector (), vector (), vector ()) ); return DAV_FC_PRINT_WHERE_INT (filter, pred_metas, cmp_metas, table_metas, used_tables, param_uid); } ; --| When DAV_DIR_FILTER_INT calls DET function, authentication is performed before the call and compilation is initialized. create function "bookmark_DAV_DIR_FILTER" (in detcol_id any, in path_parts any, in detcol_path any, inout compilation any, in recursive integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_DIR_FILTER (', detcol_id, path_parts, detcol_path, compilation, recursive, auth_uid, ')'); declare st, access, qry_text, execstate, execmessage varchar; declare res any; declare cond_list, execmeta, execrows any; declare sub, post_id, condtext, cond_key varchar; declare ownergid, owner_uid, domain_id integer; "bookmark_ACCESS_PARAMS" (detcol_id, access, ownergid, owner_uid); vectorbld_init (res); sub := null; post_id := null; if (((length (path_parts) <= 1) and (recursive <> 1)) or (length (path_parts) > 2)) { -- dbg_obj_princ ('\r\nGoto skip_post_level\r\n'); goto finalize; } if (length (path_parts) >= 2) { sub := path_parts[0]; if (sub = 'bookmark') { domain_id := coalesce ((select C.WAI_ID from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and "bookmark_FIXNAME"(C.WAI_NAME) = path_parts[1])); if (domain_id is null) goto finalize; } else goto finalize; } cond_key := sprintf ('Bookmark&%d', coalesce (domain_id, 0)); condtext := get_keyword (cond_key, compilation); if (condtext is null) { cond_list := get_keyword ('', compilation); if (sub is not null) cond_list := vector_concat (cond_list, vector ( vector ('BD_DOMAIN_ID', '=', domain_id))); condtext := "bookmark_DAV_FC_PRINT_WHERE" (cond_list, auth_uid); compilation := vector_concat (compilation, vector (cond_key, condtext)); } execstate := '00000'; qry_text := 'select concat (DAV_CONCAT_PATH (_param.detcolpath, ''bookmark'', ''/'', "bookmark_FIXNAME" (WAI_NAME)), ''/'', "bookmark_COMPOSE_XBEL_NAME" (_top.BD_NAME, _top.BD_ID)), ''R'', ''1024'', _top.BD_LAST_UPDATE, vector (UNAME''bookmark'', ?, _users.U_ID, 3, _top.BD_DOMAIN_ID, _top.BD_FOLDER_ID, null, null), ''110000000RR'', http_nogroup_gid(), _users.U_ID, _top.BD_LAST_UPDATE, ''application/xbel+xml'', "bookmark_COMPOSE_XBEL_NAME" (_top.BD_NAME, _top.BD_ID) from (select top 1 ? as detcolpath from WS.WS.SYS_DAV_COL) as _param, BMK.WA.BOOKMARK_DOMAIN as _top join DB.DBA.WA_INSTANCE as _instances on (WAI_ID = BD_DOMAIN_ID and WAI_TYPE_NAME = ''Bookmark'') join DB.DBA.WA_MEMBER as _members on (WAM_MEMBER_TYPE = 1 and WAM_INST = WAI_NAME) join DB.DBA.SYS_USERS as _users on (WAM_USER = U_ID and U_ID = ?) ' || condtext; exec (qry_text, execstate, execmessage, vector (detcol_id, detcol_path, owner_uid), 100000000, execmeta, execrows ); if ('00000' <> execstate) signal (execstate, execmessage || ' in ' || qry_text); vectorbld_concat_acc (res, execrows); finalize: vectorbld_final (res); return res; } ; create function "bookmark_DAV_SEARCH_ID_IMPL" (in detcol_id any, in path_parts any, in what char(1), inout sub_id integer, inout muser_id integer, inout domain_id integer, inout folder_id integer) returns any { --dbg_obj_princ ('bookmark_DAV_SEARCH_ID_IMPL (', detcol_id, path_parts, what, sub_id, muser_id, domain_id, folder_id, ')'); declare ownergid, owner_uid, ctr, len integer; declare hitlist any; declare access, colpath, tag_id, sub varchar; tag_id := null; "bookmark_ACCESS_PARAMS" (detcol_id, access, ownergid, owner_uid); if (0 = length(path_parts)) { if ('C' <> what) return -1; return vector (UNAME'bookmark', detcol_id, owner_uid, sub_id, domain_id, folder_id, -1, null); } if ('' = path_parts[length(path_parts) - 1]) { if ('C' <> what) return -1; } else { if ('R' <> what) return -1; } len := length (path_parts) - 1; ctr := 0; sub := trim(cast(path_parts[0] as varchar)); while (ctr < len) { if (ctr = 0) { if (equ(sub, 'date')) sub_id := 2; else if (equ(sub, 'bookmark')) sub_id := 1; else if (equ(sub, 'tags')) sub_id := 3; else sub_id := 1; } else if (ctr = 1) { hitlist := vector (); if (sub_id = 1) { for select C.WAI_ID as D_ID from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and "bookmark_FIXNAME"(C.WAI_NAME) = path_parts[ctr] do { hitlist := vector_concat (hitlist, vector (D_ID)); } } else if (sub_id = 2) { for select distinct year(D.BD_LAST_UPDATE) as D_ID from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and year(D.BD_LAST_UPDATE) = atoi(path_parts[ctr]) do { hitlist := vector_concat (hitlist, vector (D_ID)); } } else if (sub_id = 3) { for select distinct D.T_TAG as D_ID from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.TAGS D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.T_DOMAIN_ID = C.WAI_ID and D.T_TAG = path_parts[ctr] do { hitlist := vector_concat (hitlist, vector (D_ID)); } if (length (hitlist) <> 1) return -1; tag_id := hitlist[0]; } if (sub_id <> 3) { if (length (hitlist) <> 1) return -1; domain_id := hitlist[0]; } } else { if (sub_id <> 3) { hitlist := vector(); if (sub_id = 1) { for select F_ID from BMK.WA.FOLDER where "bookmark_FIXNAME"(F_NAME) = path_parts[ctr] and F_DOMAIN_ID = domain_id and ((F_PARENT_ID = folder_id and folder_id > 0) or (F_PARENT_ID = -1 and (folder_id = 0 or folder_id = -1))) do { hitlist := vector_concat (hitlist, vector (F_ID)); } } else if (sub_id = 2) { for select distinct month(D.BD_LAST_UPDATE) as D_ID from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and monthname(D.BD_LAST_UPDATE) = path_parts[ctr] do { hitlist := vector_concat (hitlist, vector (D_ID)); } } if (length (hitlist) <> 1) return -1; folder_id := hitlist[0]; } else return -1; } ctr := ctr + 1; } if ('C' = what) return vector (UNAME'bookmark', detcol_id, owner_uid, sub_id, domain_id, folder_id, -1, tag_id); hitlist := vector (); if (sub_id = 1) { for select distinct BD_ID from BMK.WA.BOOKMARK_DOMAIN where ((BD_FOLDER_ID = folder_id and folder_id > 0) or ((folder_id = 0 or folder_id = -1) and BD_FOLDER_ID is null))and "bookmark_COMPOSE_XBEL_NAME" (BD_NAME, BD_ID) = path_parts[ctr] and BD_DOMAIN_ID = domain_id do { hitlist := vector_concat (hitlist, vector (BD_ID)); } } else if (sub_id = 2) { for select distinct D.BD_ID as D_ID from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and month(D.BD_LAST_UPDATE) = folder_id and year(D.BD_LAST_UPDATE) = domain_id and "bookmark_COMPOSE_XBEL_NAME" (D.BD_NAME, D.BD_ID) = path_parts[ctr] do { hitlist := vector_concat (hitlist, vector (D_ID)); } } else if (sub_id = 3) { for select distinct D.BD_ID as D_ID from SYS_USERS A, WA_MEMBER B, WA_INSTANCE C, BMK.WA.BOOKMARK_DOMAIN D where A.U_ID = owner_uid and B.WAM_USER = A.U_ID and B.WAM_MEMBER_TYPE = 1 and B.WAM_INST = C.WAI_NAME and C.WAI_TYPE_NAME = 'Bookmark' and D.BD_DOMAIN_ID = C.WAI_ID and "bookmark_COMPOSE_XBEL_NAME" (D.BD_NAME, D.BD_ID) = path_parts[ctr] do { hitlist := vector_concat (hitlist, vector (D_ID)); } } if (length (hitlist) <> 1) return -1; return vector (UNAME'bookmark', detcol_id, owner_uid, sub_id, domain_id, folder_id, hitlist[0], tag_id); } ; --| When DAV_PROP_GET_INT or DAV_DIR_LIST_INT calls DET function, authentication is performed before the call. create function "bookmark_DAV_SEARCH_ID" (in detcol_id any, in path_parts any, in what char(1)) returns any { declare sub_id, u_id, folder_id, domain_id integer; --dbg_obj_princ ('bookmark_DAV_SEARCH_ID (', detcol_id, path_parts, what, ')'); return "bookmark_DAV_SEARCH_ID_IMPL" (detcol_id, path_parts, what, sub_id, u_id, domain_id, folder_id); } ; --| When DAV_SEARCH_PATH_INT calls DET function, authentication is performed before the call. create function "bookmark_DAV_SEARCH_PATH" (in id any, in what char(1)) returns any { --dbg_obj_princ ('bookmark_DAV_SEARCH_PATH (', id, what, ')'); return NULL; } ; --| When DAV_COPY_INT calls DET function, authentication and check for locks are performed before the call, but no check for existing/overwrite. create function "bookmark_DAV_RES_UPLOAD_COPY" (in detcol_id any, in path_parts any, in source_id any, in what char(1), in overwrite_flags integer, in permissions varchar, in uid integer, in gid integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_RES_UPLOAD_COPY (', detcol_id, path_parts, source_id, what, overwrite_flags, permissions, uid, gid, auth_uid, ')'); return -20; } ; --| When DAV_COPY_INT calls DET function, authentication and check for locks are performed before the call, but no check for existing/overwrite. create function "bookmark_DAV_RES_UPLOAD_MOVE" (in detcol_id any, in path_parts any, in source_id any, in what char(1), in overwrite_flags integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_RES_UPLOAD_MOVE (', detcol_id, path_parts, source_id, what, overwrite_flags, auth_uid, ')'); return -20; } ; --| When DAV_RES_CONTENT or DAV_RES_COPY_INT or DAV_RES_MOVE_INT calls DET function, authentication is made. --| If content_mode is 1 then content is a valid output stream before the call. create function "bookmark_DAV_RES_CONTENT" (in id any, inout content any, out type varchar, in content_mode integer) returns integer { --dbg_obj_princ ('bookmark_DAV_RES_CONTENT (', id, ', [content], [type], ', content_mode, ')'); whenever not found goto endline; if (id[6] is not null) { declare link, title, last_date varchar; if (id[3] = 1) { select D.BD_NAME, cast(D.BD_LAST_UPDATE as varchar), B.B_URI into title, last_date, link from BMK.WA.BOOKMARK_DOMAIN D, BMK.WA.BOOKMARK B where D.BD_DOMAIN_ID = id[4] and ((D.BD_FOLDER_ID = id[5] and id[5] <> 0) or (D.BD_FOLDER_ID is null and id[5] = 0)) and D.BD_ID = id[6] and B.B_ID = D.BD_BOOKMARK_ID; } else if (id[3] = 2 or id[3] = 3) { select D.BD_NAME, cast(D.BD_LAST_UPDATE as varchar), B.B_URI into title, last_date, link from BMK.WA.BOOKMARK_DOMAIN D, BMK.WA.BOOKMARK B where D.BD_ID = id[6] and B.B_ID = D.BD_BOOKMARK_ID; } type := 'application/xbel+xml'; content := '<?xml version="1.0" encoding="UTF-8"?>\n'; content := concat(content, '<!DOCTYPE xbel PUBLIC "+//IDN python.org//DTD XML Bookmark Exchange Language 1.0//EN//XML" "http://pyxml.sourceforge.net/topics/dtds/xbel-1.0.dtd">\n'); content := concat(content, '<xbel>\n'); content := concat(content, sprintf(' <bookmark href="%s">\n', link)); content := concat(content, sprintf(' <title>%s</title>\n', title)); content := concat(content, ' </bookmark>\n'); content := concat(content, '</xbel>\n'); } endline: return 0; } ; --| This adds an extra access path to the existing resource or collection. create function "bookmark_DAV_SYMLINK" (in detcol_id any, in path_parts any, in source_id any, in what char(1), in overwrite integer, in uid integer, in gid integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_SYMLINK (', detcol_id, path_parts, source_id, overwrite, uid, gid, auth_uid, ')'); return -20; } ; --| This gets a list of resources and/or collections as it is returned by DAV_DIR_LIST and and writes the list of quads (old_id, 'what', old_full_path, dereferenced_id, dereferenced_full_path). create function "bookmark_DAV_DEREFERENCE_LIST" (in detcol_id any, inout report_array any) returns any { -- dbg_obj_princ ('bookmark_DAV_DEREFERENCE_LIST (', detcol_id, report_array, ')'); return -20; } ; --| This gets one of reference quads returned by ..._DAV_REREFERENCE_LIST() and returns a record (new_full_path, new_dereferenced_full_path, name_may_vary). create function "bookmark_DAV_RESOLVE_PATH" (in detcol_id any, inout reference_item any, inout old_base varchar, inout new_base varchar) returns any { -- dbg_obj_princ ('bookmark_DAV_RESOLVE_PATH (', detcol_id, reference_item, old_base, new_base, ')'); return -20; } ; --| There's no API function to lock for a while (do we need such?) The "LOCK" DAV method checks that all parameters are valid but does not check for existing locks. create function "bookmark_DAV_LOCK" (in path any, in id any, in type char(1), inout locktype varchar, inout scope varchar, in token varchar, inout owner_name varchar, inout owned_tokens varchar, in depth varchar, in timeout_sec integer, in auth_uid integer) returns any { -- dbg_obj_princ ('bookmark_DAV_LOCK (', id, type, locktype, scope, token, owner_name, owned_tokens, depth, timeout_sec, owner_name, auth_uid, ')'); return -20; } ; --| There's no API function to unlock for a while (do we need such?) The "UNLOCK" DAV method checks that all parameters are valid but does not check for existing locks. create function "bookmark_DAV_UNLOCK" (in id any, in type char(1), in token varchar, in auth_uid integer) { -- dbg_obj_princ ('bookmark_DAV_UNLOCK (', id, type, token, auth_uid, ')'); return -27; } ; --| The caller does not check if id is valid. --| This returns -1 if id is not valid, 0 if all existing locks are listed in owned_tokens whitespace-delimited list, 1 for soft 2 for hard lock. create function "bookmark_DAV_IS_LOCKED" (inout id any, inout type char(1), in owned_tokens varchar) returns integer { -- dbg_obj_princ ('bookmark_DAV_IS_LOCKED (', id, type, owned_tokens, ')'); return 0; } ; --| The caller does not check if id is valid. --| This returns -1 if id is not valid, list of tuples (LOCK_TYPE, LOCK_SCOPE, LOCK_TOKEN, LOCK_TIMEOUT, LOCK_OWNER, LOCK_OWNER_INFO) otherwise. create function "bookmark_DAV_LIST_LOCKS" (in id any, in type char(1), in recursive integer) returns any { -- dbg_obj_princ ('bookmark_DAV_LIST_LOCKS" (', id, type, recursive); return vector (); } ; </verbatim>

sioc:id

2de2225aa3a524d5c644d438d6c04531

sioc:link

n2:VOSBookmarksDETAPI

sioc:has_container

n5:VOS

n9:has_services

n10:item

atom:title

VOSBookmarksDETAPI

atom:source

n5:VOS

atom:author

n16:this

atom:published

2017-06-13T05:49:45Z

atom:updated

2017-06-29T07:35:06Z

sioc:topic

n5:VOS