tdav::read_lock (private)

 tdav::read_lock uri

Defined in packages/oacs-dav/tcl/tDAV-procs.tcl

Read and decode a resource's lock record from its lock file. Create an empty lock file if it is absent.

Parameters:

uri (required)

Resource URI.

Returns:

Lock record as a list, or an empty list for an empty file.

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set f [open [tdav::get_lock_file $uri] {CREAT RDONLY}]
    set s [read $f]
    set e "list ${s}"
    set l [eval $e]
    close $f

    return $l

XQL Not present:

Generic, PostgreSQL, Oracle