tdav::get_lock_file (public)

 tdav::get_lock_file uri

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

Return the path to the lock file for a resource, creating its parent directory if needed. Use the configured lockdir or the default lockdir next to the page root.

Parameters:

uri (required)

Resource URI.

Returns:

Lock file path.

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

Testcases:

No testcase defined.

Source code:

# just in case.  I hate that 'file join' fails on this
regsub {^/} $uri {} uri

# log this for failed config section
    set name [ns_config "ns/server/[ns_info server]/tdav" lockdir]

    if {$name eq ""} {
        set name [file join $::acs::pageroot "../lockdir/${uri}"]
    } else {
        set name [file join $name $uri]
    }
    if {![file exists [file dirname $name]]} {
    # no parent dir, create it:
        file mkdir [file dirname $name]
        # safe for public consumption?
    }

    return "${name}.lock"

XQL Not present:

Generic, PostgreSQL, Oracle